使用 VBScript 查找我的计算机的 IP 地址

Question

如何使用 VBScript 查找我的计算机的 IP 地址？

Answer 1

此示例显示配置的 ip 和计算机名称：

dim NIC1, Nic, StrIP, CompName

Set NIC1 =     GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Nic in NIC1

    if Nic.IPEnabled then
        StrIP = Nic.IPAddress(0)

        Set WshNetwork = WScript.CreateObject("WScript.Network")
        CompName= WshNetwork.Computername

        MsgBox "IP Address:  "&StrIP & vbNewLine _
            & "Computer Name:  "&CompName,4160,"IP Address and Computer Name"

        wscript.quit
    End if
Next

Answer 2

这是在 VB 脚本中显示 IP 地址的方法：

Function getIPAddress()
    'Get your Public IP
    dim NIC, Nic, StrIPAdd, ComputerName, ipMessage
    Set NIC = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each Nic in NIC
        if Nic.IPEnabled then
            StrIPAdd = Nic.IPAddress(0)
            Set WshNetwork = WScript.CreateObject("WScript.Network")
            ComputerName= WshNetwork.Computername
            ipMessage="IP Address: "&StrIPAdd & vbNewLine &"Computer Name: " &ComputerName & vbNewLine &"Date:" &currentDate
        End if
    Next
    getIPAddress=ipMessage
End Function

调用你的函数：

ipMessage =getIPAddress()
WScript.Echo ipMessage.