获取本机IP地址的脚本

用法：保存为一个.vbs文件，双击运行。

登录后复制

      
      

       
       set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").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)
       
       
            WScript.Echo IPConfig.IPAddress(i)
       
       
        Next
       
       
    End If
       
       
Next
      
      
      
      

       
       
1.
       
       
2.
       
       
3.
       
       
4.
       
       
5.
       
       
6.
       
       
7.
       
       
8.