Set objwmiservice = GetObject("winmgmts://./root/cimv2")
Set colitems = objwmiservice.execquery("select * from Win32_ComputerSystem")
strmsg = ""
For Each objitem In colitems
strmsg = strmsg & objitem.name & vbcrlf & vbcrlf
Next
Set colitems = objwmiservice.execquery("select * from Win32_NetworkAdapterConfiguration where IPEnabled = True")
For Each objitem In colitems
strmsg = strmsg & objitem.Caption & vbCrLf
For Each varaddress In objitem.ipaddress
strmsg = strmsg & varaddress & vbCrLf
Next
strmsg = strmsg & vbCrLf
Next
MsgBox strmsg
如何使用vbs脚本得到当前主机的IP地址;
最新推荐文章于 2023-02-15 00:41:53 发布