调试与模块化脚本编程技巧
1. 调试 WMI 和 ADSI 查询
1.1 调试难题
在编写脚本时，调试 Windows Management Instrumentation (WMI) 和 Active Directory Services Interface (ADSI) 脚本可能会让人十分沮丧。有时候，脚本代码看起来完美无缺，但实际运行结果却与预期不符。例如以下代码：
sName = “server2” Dim cPingResults, oPingResult Set cPingResults = _ GetObject(“winmgmts://./root/” & _ “cimv2”).ExecQuery(“SELECT “ & _ “* FROM Win32_Ping WHERE “ & _ “Address = ‘“ & sName & “‘“) On Error Resume Next For Each oPingResult In cPingResults If Not IsObject(cPingResults) Then Ping = False ElseIf oPingResult.StatusCode = 0 Then Ping = True Else Ping = False End If Next WScript.Echo Ping当运行这段代码时，无论提供什么计算机名，它总是输出 “True” 或 -1。但实际上，VBScript 代码本身并没有问题。
