Information Technology Reference
In-Depth Information
WScript.Echo " DNS domain: " & nic.DNSDomain
If Not IsNull(nic.DNSDomainSuffixSearchOrder) Then
For x = 0 To UBound(nic.DNSDomainSuffixSearchOrder)
WScript.Echo " DNS suffix search list: " & _
nic.DNSDomainSuffixSearchOrder(x)
Next
End If
' now display DHCP information
WScript.Echo
WScript.Echo " DHCP Settings"
WScript.Echo " -------------"
WScript.Echo " DHCP enabled: " & nic.DHCPEnabled
WScript.Echo " DHCP server: " & nic.DHCPServer
If Not IsNull(nic.DHCPLeaseObtained) Then
utcLeaseObtained = nic.DHCPLeaseObtained
strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)
Else
strLeaseObtained = ""
End If
WScript.Echo " DHCP lease obtained: " & strLeaseObtained
If Not IsNull(nic.DHCPLeaseExpires) Then
utcLeaseExpires = nic.DHCPLeaseExpires
strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)
Else
strLeaseExpires = ""
End If
WScript.Echo " DHCP lease expires: " & strLeaseExpires
' now display WINS configuration information
WScript.Echo
WScript.Echo " WINS settings"
WScript.Echo " -------------"
WScript.Echo " Primary WINS server: " & nic.WINSPrimaryServer
WScript.Echo " Secondary WINS server: " & nic.WINSSecondaryServer
WScript.Echo
' move to the next adapter, if applicable
n = n + 1
Next
fa938d55a4ad028892b226aef3fbf3dd
Search WWH ::




Custom Search