2024年4月3日发(作者：)

VBS代码片断大全[一]

1 VBS

取得本机IP

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & strComputer

Set IPConfigSet = ery("Select IPAddress from

Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(ess) Then

For Each strAddress in ess

strAddress

Next

End If

&

"rootcimv2")

Next

--------------------------------------------------------------------------------

2 取得本机计算机名

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & strComputer &

"rootcimv2")

Set colComputers = ery("Select * from

Win32_ComputerSystem")

For Each objComputer in colComputers

Next

--------------------------------------------------------------------------------

4 检查升级包

strComputer = "."