Question

脚本开发教程分享：用按键精灵脚本查询本机IP地址？

Answer 1

    Set obj = GetObject("winmgmts:\\.\root\cimv2")
    Set IPConfigSet = obj.ExecQuery ("Select IPAddress 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)
                add = IPConfig.IPAddress(i)
                MessageBox(add)
            Next
        End If
    Next