如何在Windows系统中获取系统信息并输出到文件

本示例展示了如何使用VBScript编写一个脚本，在Windows系统中获取系统信息（操作系统版本、CPU信息、内存信息）并将结果输出到一个文本文件中。

'获取操作系统版本信息
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each objItem in colItems
    strOSName = objItem.Caption & " " & objItem.Version
Next

'获取CPU信息
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor")
For Each objItem in colItems
    strCPUName = objItem.Caption & " " & objItem.NumberOfCores & "核"
Next

'获取内存信息
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMemory")
For Each objItem in colItems
    strMemorySize = strMemorySize + objItem.Capacity / 1024 / 1024 /1024 & "GB "
Next

'将结果输出到文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("SystemInfo.txt", True)

objFile.WriteLine "操作系统版本：" & strOSName
objFile.WriteLine "CPU信息：" & strCPUName
objFile.WriteLine "内存信息：" & strMemorySize

objFile.Close

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com