一段vbs ？
' Get WMI Object.
On Error Resume Next
Set objWbemLocator = CreateObject _
("WbemScripting.SWbemLocator")

if Err.Number Then
WScript.Echo vbCrLf & "Error # " & _
" " & Err.Description
End If
On Error GoTo 0

On Error Resume Next

' If no errors then get Machine name, User name and Password.

Select Case WScript.Arguments.Count
Case 2

strComputer = Wscript.Arguments(0)
strQuery = Wscript.Arguments(1)
Set wbemServices = objWbemLocator.ConnectServer _
(strComputer,"Root\CIMV2")



Case 4
strComputer = Wscript.Arguments(0)
strUsername = Wscript.Arguments(1)
strPassword = Wscript.Arguments(2)
strQuery = Wscript.Arguments(3)
Set wbemServices = objWbemLocator.ConnectServer _
(strComputer,"Root\CIMV2",strUsername,strPassword)


Case Else
strMsg = "Error # in parameters passed"
WScript.Echo strMsg
WScript.Quit(0)

End Select




Set wbemServices = objWbemLocator.ConnectServer _
(strComputer, namespace, strUsername, strPassword)

if Err.Number Then
WScript.Echo vbCrLf & "Error # " & _
" " & Err.Description
End If

On Error GoTo 0

On Error Resume Next

' Execute the given query.
' WScript.Echo "Query is " & Wscript.Arguments(4)
Set colItems = wbemServices.ExecQuery(strQuery)

if Err.Number Then
WScript.Echo vbCrLf & "Error # " & _
" " & Err.Description
End If
On Error GoTo 0

' Process the output.
i=0
For Each objItem in colItems
if i=0 then
header = ""
For Each param in objItem.Properties_
header = header & param.Name & vbTab
Next
WScript.Echo header
i=1
end if
serviceData = ""
For Each param in objItem.Properties_
serviceData = serviceData & param.Value & vbTab
Next
WScript.Echo serviceData
Next

WScript.Quit(0)


这段程序是什么意思？？谢谢

[解决办法]
WbemScripting.SWbemLocator ？
没见过。估计是一个人家自己写的COM组件，有他自己的作用。不是通用的
[解决办法]