脚本收集计算机硬件配置

 各大网站上有关于通过脚本来查询计算机硬件配置信息的，但是大部分的代码都是有问题，所以本子自己写了一个脚本，只需把下列脚本粘贴到文本文档，然后将后缀名改成***.vbs，直接运行即可，本人正在编写通过IP地址收集局域网内的机器配置，请大家关注一下吧！这几天就把代码上传到网上来。注：通过IP地址来收集计算机配置信息，前提是有微软AD，必须通过赋予脚本Domain Admin权限后，方可得到Domain User Computer硬件配置信息。
      以下为收集本地计算机脚本信息
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("1.txt")
strComputer = "."
f1.write (strComputer)
If Err.Description = "" Then
'收集计算机用户信息
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)
    J = 0
    For Each objItem In colItems
        If J = 0 Then f1.write (Trim(objItem.Name)) Else f1.write ("," & Tri