Information Technology Reference
In-Depth Information
' display all IP addresses configured for this adapter
If Not IsNull(nic.IPAddress) Then
For x = 0 To UBound(nic.IPAddress)
WScript.Echo " IP address: " & nic.IPAddress(x)
Next
End If
If Not IsNull(nic.IPSubnet) Then
For x = 0 To UBound(nic.IPSubnet)
WScript.Echo " Subnet: " & nic.IPSubnet(x)
Next
End If
If Not IsNull(nic.DefaultIPGateway) Then
For x = 0 To UBound(nic.DefaultIPGateway)
WScript.Echo " Default gateway: " & _
nic.DefaultIPGateway(x)
Next
End If
' now display DNS configuration information
WScript.Echo
WScript.Echo " DNS Settings"
WScript.Echo " ------------"
WScript.Echo " DNS search order:"
If Not IsNull(nic.DNSServerSearchOrder) Then
For x = 0 To UBound(nic.DNSServerSearchOrder)
WScript.Echo " " & nic.DNSServerSearchOrder(x)
Next
End If
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 " -------------"
Search WWH ::




Custom Search