显示本机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和当前用户名,计算机名