Set WshNetwork = WScript.CreateObject("WScript.Network") cName = WshNetwork.ComputerName '取本机计算机名 msgbox "计算机名:"&cName&chr(10)&chr(13)&"本机IP:"&GetIP(".")
Function GetIP(ComputerName) '取本机IP Dim objWMIService,colItems,objItem,objAddress Set objWMIService = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objItem in colItems For Each objAddress in objItem.IPAddress If objAddress <> "" then GetIP = objAddress Exit For End If Next Next End Function
