以下是一段 VBS 程序,它会显示当前主机的 IP 地址、主机名和当前登录用户。
Dim objWMI, objItemSet objWMI = GetObject("winmgmts:")
Set objItem = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each obj in objItem
For i = 0 to obj.IPAddress.Count - 1
Wscript.Echo "IP 地址: