ip地址显示计算机名称,显示本机IP和计算机名的脚本

strIPPattern = "((2[0-4]\d|25[0-5]|1?\d\d?)\.){3}(2[0-4]\d|25[0-5]|1?\d\d?)"

Set objNet = createobject("Wscript.Network")

Set objRegExp = New RegExp

objregexp.Pattern = strIPPattern

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress) Then

For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)

If InStr(IPConfig.Caption(i),"VMware") = 0 And InStr(IPConfig.Caption(i),"Microsoft") = 0 Then

If InStr(IPConfig.Caption(i),"169.254") = 0 And InStr(IPConfig.Caption(i),"0.0.0.0") = 0 Then

If objregexp.Test(IPConfig.IPAddress(i)) = True Then

strIP = IPConfig.IPAddress(i)

End If

End If

End If

Next

End If

Next

strUser = objnet.UserName

Set objNetwork = CreateObject("WScript.Network")

strLocalComputer = objNetwork.ComputerName

MsgBox "Computer name:" & strLocalComputer & vbCrLf & "Current user:" & strUser & vbCrLf & "My ip address:" & strIP,,"Show my ip address--By ytmin"

'以上内容保存为VBS文件,可以在本机上显示当前内网IP和当前用户名,计算机名