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

'ReturningIPConfigurationData

'WMIscriptthatreturnsconfigurationdatasimilartothatreturnedbyIpConfig.

strComputer="."

SetobjWMIService=GetObject("winmgmts:"&strComputer&"rootcimv2")

SetcolAdapters=objWMIService.ExecQuery_

("SELECT*FROMWin32_NetworkAdapterConfigurationWHEREIPEnabled=True")

n=1

WScript.Echo

ForEachobjAdapterincolAdapters

WScript.Echo"NetworkAdapter"&n

WScript.Echo"================="

WScript.Echo"Description:"&objAdapter.Description

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

WScript.Echo"Hostname:"&objAdapter.DNSHostName

IfNotIsNull(objAdapter.IPAddress)Then

Fori=0ToUBound(objAdapter.IPAddress)

WScript.Echo"IPaddress:"&objAdapter.IPAddress(i)

Next

EndIf

IfNotIsNull(objAdapter.IPSubnet)Then

Fori=0ToUBound(objAdapter.IPSubnet)

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

Next

EndIf

IfNotIsNull(objAdapter.DefaultIPGateway)Then

Fori=0ToUBound(objAdapter.DefaultIPGateway)

WScript.Echo"Defaultgateway:"&objAdapter.DefaultIPGateway(i)

Next

EndIf

WScript.Echo

WScript.Echo"DNS"

WScript.Echo"---"

WScript.Echo"DNSserversinsearchorder:"

IfNotIsNull(objAdapter.DNSServerSearchOrder)Then

Fori=0ToUBound(objAdapter.DNSServerSearchOrder)

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

Next

EndIf

WScript.Echo"DNSdomain:"&objAdapter.DNSDomain

IfNotIsNull(objAdapter.DNSDomainSuffixSearchOrder)Then

Fori=0ToUBound(objAdapter.DNSDomainSuffixSearchOrder)

WScript.Echo"DNSsuffixsearchlist:"&objAdapter.DNSDomainSuffixSearchOrder(i)

Next

EndIf

WScript.Echo

WScript.Echo"DHCP"

WScript.Echo"----"

WScript.Echo"DHCPenabled:"&objAdapter.DHCPEnabled

WScript.Echo"DHCPserver:"&objAdapter.DHCPServer

IfNotIsNull(objAdapter.DHCPLeaseObtained)Then

utcLeaseObtained=objAdapter.DHCPLeaseObtained

strLeaseObtained=WMIDateStringToDate(utcLeaseObtained)

Else

strLeaseObtained=""

EndIf

WScript.Echo"DHCPleaseobtained:"&strLeaseObtained

IfNotIsNull(objAdapter.DHCPLeaseExpires)Then

utcLeaseExpires=objAdapter.DHCPLeaseExpires

strLeaseExpires=WMIDateStringToDate(utcLeaseExpires)

Else

strLeaseExpires=""

EndIf

WScript.Echo"DHCPleaseexpires:"&strLeaseExpires

WScript.Echo

WScript.Echo"WINS"

WScript.Echo"----"

WScript.Echo"PrimaryWINSserver:"&objAdapter.WINSPrimaryServer

WScript.Echo"SecondaryWINSserver:"&objAdapter.WINSSecondaryServer

WScript.Echo

n=n+1

Next

FunctionWMIDateStringToDate(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))

EndFunction