日照市网站建设_网站建设公司_响应式网站_seo优化

调试与模块化脚本编程技巧

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 代码本身并没有问题。

1.2 调试外部脚本