龙图教育：VBS经典代码大全剖析.docVIP

VBS代码片断大全 1 VBS 取得本机IP strComputer = . Set objWMIService = GetObject(winmgmts:\ strComputer \root\cimv2) Set IPConfigSet = objWMIService.ExecQuery(Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE) For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For Each strAddress in IPConfig.IPAddress WScript.Echo strAddress Next End If Next 2 取得本机计算机名 strComputer = . Set objWMIService = GetObject(winmgmts:\ strComputer \root\cimv2) Set colComputers = objWMIService.ExecQuery(Select * from Win32_ComputerSystem) For Each objComputer in