vb 一个是检测主机信息的，另一个是检测硬盘总容量的，如何整理在一块一起输出。

Question

第一个：
On Error Resume Next
temp = 0
'Set wshshell = WScript.CreateObject("wscript.shell")
'启动WMI服务(没有这个服务就不行)
'wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"), 0, True
'wshshell.run ("%comspec% /c sc config winmgmt start= auto"), 0, True
'wshshell.run ("%comspec% /c net start winmgmt"), 0
'用一个文本来记录硬件信息
Set WshNetwork = WScript.CreateObject("WScript.Network")
computername = WshNetwork.computername

Set fso = CreateObject("scripting.filesystemobject")
tempfilter = "c:\" & 1 & ".txt"
'这里是硬件信息纪录的存放位置,可以是网络共享路径(需有写入权限)
Set tempfile = fso.createtextfile(tempfilter)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'主板
Set board = objWMIService.execquery("select * from win32_baseboard")
For Each Item In board
board2 = "主板:" & Item.Product
Next
'CPU
Set cpu = objWMIService.execquery("select * from win32_processor")
For Each Item In cpu
cpu2 = "CPU:" & Item.Name
Next
'内存
Set colItems = objWMIService.execquery("Select * from Win32_PhysicalMemory", , 48)
For Each objItem In colItems
a = objItem.capacity / 1048576
temp = temp + objItem.capacity
n = n + 1
Next
memory = temp / 1048576
If n = 1 Then
memory2 = "内存: " & n & "条" & a & "M"
Else
memory2 = "内存: " & n & "条" & a & "M" & " 总计" & memory & "M"
End If
'硬盘
Set disk = objWMIService.execquery("select * from win32_diskdrive")
For Each Item In disk
disk2 = "硬盘: " & Item.Model
Next
For Each objquerycomputer In objcomputers
disk2 = "硬盘总容量" & Fix(objquerycomputer.Size / 1000000000) & "G"
Next
'显卡
Set video = objWMIService.execquery("select * from win32_videocontroller", , 48)
For Each Item In video
video2 = "显卡: " & Item.Description
Next
'网卡
Set colItems = objWMIService.execquery("Select * from Win32_NetworkAdapter", , 48)
For Each objItem In colItems
If (Left(objItem.NetConnectionID, 4) = "本地连接") Then
lanname = objItem.Name
End If
Next
lan2 = "网卡: " & lanname

tempfile.writeline (board2)
tempfile.writeline (cpu2)
tempfile.writeline (memory2)
tempfile.writeline (disk2)
tempfile.writeline (video2)
tempfile.writeline (lan2)
第二个
Set objservice = GetObject("winmgmts:\\.\root\cimv2")
Set objcomputers = objservice.execquery("select * from win32_diskdrive")
For Each objquerycomputer In objcomputers
Text1.Text = "硬盘总容量" & Fix(objquerycomputer.Size / 1000000000) & "G"
Next
Open "c:\1.txt" For Append As #1
Print #1, Text1.Text
Close #1

Answer 1

On Error Resume Next
temp = 0
' Set wshshell = WScript.CreateObject("wscript.shell")
'启动WMI服务(没有这个服务就不行)
'wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"), 0, True
'wshshell.run ("%comspec% /c sc config winmgmt start= auto"), 0, True
'wshshell.run ("%comspec% /c net start winmgmt"), 0
'用一个文本来记录硬件信息
Set WshNetwork = CreateObject("WScript.Network")
computername = WshNetwork.computername

Set fso = CreateObject("scripting.filesystemobject")
tempfilter = "D:\" & 1 & ".txt"
'这里是硬件信息纪录的存放位置,可以是网络共享路径(需有写入权限)
Set tempfile = fso.createtextfile(tempfilter)

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'主板
Set board = objWMIService.execquery("select * from win32_baseboard")
For Each Item In board
board2 = "主板:" & Item.Product
Next
'CPU
Set cpu = objWMIService.execquery("select * from win32_processor")
For Each Item In cpu
cpu2 = "CPU:" & Item.Name
Next
'内存
Set colItems = objWMIService.execquery("Select * from Win32_PhysicalMemory", , 48)
For Each objItem In colItems
a = objItem.capacity / 1048576
temp = temp + objItem.capacity
n = n + 1
Next
memory = temp / 1048576
If n = 1 Then
memory2 = "内存: " & n & "条" & a & "M"
Else
memory2 = "内存: " & n & "条" & a & "M" & " 总计" & memory & "M"
End If
'硬盘
Set disk = objWMIService.execquery("select * from win32_diskdrive")
For Each Item In disk
disk2 = "硬盘: " & Item.Model
Next
Set objservice = GetObject("winmgmts:\\.\root\cimv2")
Set objcomputers = objservice.execquery("select * from win32_diskdrive")

For Each objquerycomputer In objcomputers
disk2 = disk2 & vbCrLf & "硬盘总容量" & Fix(objquerycomputer.Size / 1000000000) & "G"
Next
'显卡
Set video = objWMIService.execquery("select * from win32_videocontroller", , 48)
For Each Item In video
video2 = "显卡: " & Item.Description
Next
'网卡
Set colItems = objWMIService.execquery("Select * from Win32_NetworkAdapter", , 48)
For Each objItem In colItems
If (Left(objItem.NetConnectionID, 4) = "本地连接") Then
lanname = objItem.Name
End If
Next
lan2 = "网卡: " & lanname

tempfile.writeline (board2)
tempfile.writeline (cpu2)
tempfile.writeline (memory2)
tempfile.writeline (disk2)
tempfile.writeline (video2)
tempfile.writeline (lan2)
tempfile.Close

追问

我试过不行

追答

我试过可以，你要把wmi服务打开

追问

还能简化吗？能把显卡的显存也检测出来吗？

追答

做一个循环之类的，不过代码执行过程还是要这么多，简化只是更好看一点而已
显卡的显存也能读出来，在后面添加这个AdapterRAM属性就行了，注意，读出来的属性是字节，要化成MB的话要除于1024×1024，下面是显存的语句
video2 = video2 & "显存 :" & Item.AdapterRAM