windowswideopen.com

The following Vbscript will gather Ip address information from network cards:

Set objWMIService = GetObject(”winmgmts:\\”& strComputer & “\root\cimv2″)
Set colAdapters = objWMIService.ExecQuery (”SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True”)
n = 1
For Each objAdapter In colAdapters
wIELine
WriteLineBoldIE “Network Adapter Info”
wIETableHeaderStart “100″
wIERowStart
wIETableHeaderItem “Adapter”
wIETableHeaderItem “IP”
wIETableHeaderItem “Subnet”
wIETableHeaderItem “Gateway”
wIETableHeaderItem “DNS”
wIETableHeaderItem “WINS”
wIERowStop
If Not IsNull(objAdapter.IPAddress) Then
For i = 0 To UBound(objAdapter.IPAddress)
wIERowStart
If i=0 Then
wIERowItem “Adapter ” & objAdapter.Index
‘ wIERowItem left(objAdapter.Description,15)
Else
wIERowItem “No Name “
End If
If objAdapter.DHCPEnabled Then
wIERowItem objAdapter.IPAddress(i) & “(DHCP)”
Else
wIERowItem objAdapter.IPAddress(i)
End If
Next
End If
If Not IsNull(objAdapter.IPSubnet) Then
For i = 0 To UBound(objAdapter.IPSubnet)
wIERowItem objAdapter.IPSubnet(i)
Next
End If

If Not IsNull(objAdapter.DefaultIPGateway) Then
For i = 0 To UBound(objAdapter.DefaultIPGateway)
wIERowItem objAdapter.DefaultIPGateway(i)
Next
Else
wIERowItem “Not configured”
End If

If Not IsNull(objAdapter.DNSServerSearchOrder) Then
DNSInfo = “”
For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
DNSInfo = DNSInfo & objAdapter.DNSServerSearchOrder(i) & “<BR>”
Next
wIERowItem DNSInfo
End If
If objAdapter.WINSPrimaryServer <> “” Then
wIERowItem objAdapter.WINSPrimaryServer & “<BR>” & objAdapter.WINSSecondaryServer
End If

n = n + 1
wIETableStop
Next
Network Operating System vbscriptNetwork Operating System vbscript

Filed under: Operating System, vbscript, Network