用以返回配置数据（类似于 ipCONFIG 命令返回信息）的 WMI 脚本。

‘ Returning IP Configuration Data

‘ WMI script that returns configuration data similar to that returned by IpConfig.

strComputer = “.”

Set objWMIService = GetObject(“winmgmts:\\”& strComputer & “\root\cimv2”)

Set colAdapters = objWMIService.ExecQuery _

  (“SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True”)

n = 1

WScript.Echo

For Each objAdapter in colAdapters

   WScript.Echo “Network Adapter ” & n

   WScript.Echo “=================”

   WScript.Echo ”  Description: ” & objAdapter.Description

   WScript.Echo ”  Physical (MAC) address: ” & objAdapter.MACAddress

   WScript.Echo ”  Host name:              ” & objAdapter.DNSHostName

   If Not IsNull(objAdapter.IPAddress) Then

      For i = 0 To UBound(objAdapter.IPAddress)

         WScript.Echo ”  IP address:             ” & objAdapter.IPAddress(i)

      Next

   End If

   If Not IsNull(objAdapter.IPSubnet) Then

      For i = 0 To UBound(objAdapter.IPSubnet)

         WScript.Echo ”  Subnet:                 ” & objAdapter.IPSubnet(i)

      Next

   End If

   If Not IsNull(objAdapter.DefaultIPGateway) Then

      For i = 0 To UBound(objAdapter.DefaultIPGateway)

         WScript.Echo ”  Default gateway:        ” & objAdapter.DefaultIPGateway(i)

      Next

   End If

   WScript.Echo

   WScript.Echo ”  DNS”

   WScript.Echo ”  —”

   WScript.Echo ”    DNS servers in search order:”

   If Not IsNull(objAdapter.DNSServerSearchOrder) Then

      For i = 0 To UBound(objAdapter.DNSServerSearchOrder)

         WScript.Echo ”      ” & objAdapter.DNSServerSearchOrder(i)

      Next

   End If

   WScript.Echo ”    DNS domain: ” & objAdapter.DNSDomain

   If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then

      For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder)

         WScript.Echo ”    DNS suffix search list: ” & objAdapter.DNSDomainSuffixSearchOrder(i)

      Next

   End If

   WScript.Echo

   WScript.Echo ”  DHCP”

   WScript.Echo ”  —-”

   WScript.Echo ”    DHCP enabled:        ” & objAdapter.DHCPEnabled

   WScript.Echo ”    DHCP server:         ” & objAdapter.DHCPServer

   If Not IsNull(objAdapter.DHCPLeaseObtained) Then

      utcLeaseObtained = objAdapter.DHCPLeaseObtained

      strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)

   Else

      strLeaseObtained = “”

   End If

   WScript.Echo ”    DHCP lease obtained: ” & strLeaseObtained

   If Not IsNull(objAdapter.DHCPLeaseExpires) Then

      utcLeaseExpires = objAdapter.DHCPLeaseExpires

      strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)

   Else

      strLeaseExpires = “”

   End If

   WScript.Echo ”    DHCP lease expires:  ” & strLeaseExpires

   WScript.Echo

   WScript.Echo ”  WINS”

   WScript.Echo ”  —-”

   WScript.Echo ”    Primary WINS server:   ” & objAdapter.WINSPrimaryServer

   WScript.Echo ”    Secondary WINS server: ” & objAdapter.WINSSecondaryServer

   WScript.Echo

   n = n + 1

Next

Function WMIDateStringToDate(utcDate)

   WMIDateStringToDate = CDate(Mid(utcDate, 5, 2)  & “/” & _

                               Mid(utcDate, 7, 2)  & “/” & _

                               Left(utcDate, 4)    & ” ” & _

                               Mid (utcDate, 9, 2) & “:” & _

                               Mid(utcDate, 11, 2) & “:” & _

                               Mid(utcDate, 13, 2))

End Function
您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。