Get Windows Network configuration Remotely

Today a 1 hour script. We need to know some network informations on a lot of computers, especially DNS search order.

In powershell, that's easy done by using

$strComputername = "localhost"
$NICs = Get-WmiObject Win32_NetworkAdapterConfiguration -Computername $strComputername | Where {$_.IPEnabled -eq "TRUE"}
foreach ($nic in $nics) {
 $nic.DNSServerSearchOrder
}

Unfortunately, for a lot of reason, I can't use powershell. No time to lose. So I use one of my old vbscript and adapt it using information coming from Microsoft Site(Automating TCP/IP Networking on Clients - Part 2: Scripting Basic TCP/IP Networking on Clients)

That's the result that you can download too

'
' Get All Network Configuration
'
'
' F.RICHARD
' 2010 October
'

Option Explicit
Const ForReading = 1, ForWriting = 2, ForAppending = 8 


' Detect WScript or CScript
'
If InStr(LCase(WScript.FullName), "wscript")>0 Then  ' ex: FullName = C:\WINNT\system32\wscript.exe 
 WScript.Echo "This script must be run under CScript."
 WScript.Quit
End If


' Get Path
'
Dim strScriptFullName, strScriptPath, strScriptName
strScriptName = WScript.ScriptName
strScriptFullName = WScript.ScriptFullName ' ex: C:\Program Files\MyFolder\MyProg.exe
strScriptPath = Left(strScriptFullName, InStrRev(strScriptFullName, "\") - 1) ' ex: C:\Program Files\MyFolder


' Variables For File
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")


' Input parameter
'
Dim objInputFile, strInputFile
If WScript.Arguments.Named.Exists("input") Then
 strInputFile = WScript.Arguments.Named("input")

 If Not isFileExist(strInputFile) Then
  If Not isFileExist(strScriptPath & "\" & strInputFile) Then
   WScript.Echo strInputFile & " File Not Exist !"
   WScript.Echo strScriptPath & "\" & strInputFile & " File Not Exist !"
   WScript.Quit
  End If
  strInputFile = strScriptPath & "\" & strInputFile
 End If    
 Set objInputFile = objFso.OpenTextFile(strInputFile, ForReading) 
Else
 WScript.Echo "You must defined an argument /input ex: /input:input.txt !"
 WScript.Quit

End If


' Output parameter
Dim strOutputFile, objOutputFile
If WScript.Arguments.Named.Exists("output") Then
 strOutputFile = WScript.Arguments.Named("output")
Else
 WScript.Echo "You must defined an argument /output ex: /input:output.txt !"
 WScript.Quit

End If
On Error Resume Next
Set objOutputFile = objFSO.CreateTextFile(strOutputFile, ForWriting, True)  ' delete file
If (Err.Number <> 0) Then
 WScript.Echo strOutputFile & " file - permission denied or file already opened"
 On Error GoTo 0
 WScript.Quit
End If
On Error GoTo 0




' Put servers in Dictionary
'
Dim objItem, objDictionary, objTextFile, strNextLine, i
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objTextFile = objFSO.OpenTextFile (strInputFile, ForReading)
i = 0
Do Until objTextFile.AtEndOfStream
 strNextLine = Trim(objTextFile.Readline)
 If (Len(strNextLine)>1) Then
  If Not Left(strNextLine, 1) = "#" Then
   objDictionary.Add i, strNextLine
   i = i + 1
  End If
 End If
Loop

Dim line
line = "Hostname;NICDescription;MACAddress;IPAddress;IPSubnet;DefaultIPGateway;DHCPEnabled;DHCPServer;DNSDomain;DNSDomainSuffixSearchOrder;WINSPrimaryServer;WINSSecondaryServer;DNSServerSearchOrder1;DNSServerSearchOrder2"
WScript.Echo line  
objOutputFile.WriteLine(line)

Dim objWMIService, objWMIServiceRemote, colAdapters, objAdapter
Dim strComputerName, computers, objComputer  
Dim DNSHostname, NICDescription, MACAddress, IPAddress, IPSubnet, DefaultIPGateway
Dim DHCPEnabled, DHCPServer, DNSDomain, DNSDomainSuffixSearchOrder, WINSPrimaryServer, WINSSecondaryServer
Dim DNSServerSearchOrder
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
For Each objItem in objDictionary
 strComputerName = objDictionary.Item(objItem)
 WScript.Echo strComputerName  
 Set Computers = objWMIService.ExecQuery ("Select * from Win32_PingStatus Where Address = '" & strComputerName & "'")
 For Each objComputer in Computers
  If objComputer.StatusCode = 0 Then
   ' suppress errors in case of errors
   On Error Resume Next
   Set objWMIServiceRemote = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\cimv2")

   ' Only query Enabled NIC
   Set colAdapters = objWMIServiceRemote.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
   'Wscript.echo Err.Number & ";" & Err.Description

   Select Case Err.number
    'Case "-2147022676" :
    ' line = strComputerName & ";" & strGroupToCheck & " group NOT EXIST"
    ' WScript.Echo line
    ' objOutputFile.WriteLine(line)

    Case "-2147024843" : 
     line = strComputerName & ";INVALID Network Path OR insufficient access rights"
     WScript.Echo line
     objOutputFile.WriteLine(line)

    'Case "-2147463168" :
    ' line = strComputerName &  ";INVALID ADSI WinNT://" & strComputerName & "/" & strGroupToCheck & ",group"
    ' WScript.Echo line
    ' objOutputFile.WriteLine(line)

    Case Else :
     For Each objAdapter in colAdapters
      ' DNS Host name 
      DNSHostname =""
      DNSHostname = objAdapter.DNSHostName


      ' NIC Description
      NICDescription = objAdapter.Description


      ' MAC Address
      MACAddress = ""
      MACAddress = objAdapter.MACAddress
      
      
      ' IP Address
      IPAddress = ""
      If Not IsNull(objAdapter.IPAddress) Then
       For i = 0 To UBound(objAdapter.IPAddress)
        If (IPAddress = "") Then
         IPAddress = objAdapter.IPAddress(i)
        Else
         IPAddress = IPAddress & "_" & objAdapter.IPAddress(i)
        End If
       Next
      End If


      ' IP Subnet 
      IPSubnet = ""
      If Not IsNull(objAdapter.IPSubnet) Then
       For i = 0 To UBound(objAdapter.IPSubnet)
        If (IPSubnet = "") Then 
         IPSubnet = objAdapter.IPSubnet(i)
        Else
         IPSubnet = IPSubnet & "_" & objAdapter.IPSubnet(i)
        End If
       Next
      End If


      ' Default Gateway
      DefaultIPGateway = ""
      If Not IsNull(objAdapter.DefaultIPGateway) Then
       For i = 0 To UBound(objAdapter.DefaultIPGateway)
        If (DefaultIPGateway = "") Then 
         DefaultIPGateway = objAdapter.DefaultIPGateway(i)
        Else
         DefaultIPGateway = DefaultIPGateway  & "_" & objAdapter.DefaultIPGateway(i)
        End If
       Next
      End If


      ' DHCP Enabled
      DHCPEnabled = ""
      DHCPEnabled = objAdapter.DHCPEnabled


      ' DHCP server
      DHCPServer = ""
      DHCPServer = objAdapter.DHCPServer


      ' DNS Domain
      DNSDomain = objAdapter.DNSDomain


      ' DNS Domain Suffix Search Order
      DNSDomainSuffixSearchOrder = ""
      If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then
       For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder)
        If (DNSDomainSuffixSearchOrder = "") Then 
         DNSDomainSuffixSearchOrder = objAdapter.DNSDomainSuffixSearchOrder(i)
        Else
         DNSDomainSuffixSearchOrder = DNSDomainSuffixSearchOrder   & "_" & objAdapter.DNSDomainSuffixSearchOrder(i)
        End If
       Next
      End If

      WINSPrimaryServer = objAdapter.WINSPrimaryServer
      WINSSecondaryServer = objAdapter.WINSSecondaryServer

      ' DNS Search Order 
      DNSServerSearchOrder = ""
      If Not IsNull(objAdapter.DNSServerSearchOrder) Then
       For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
        DNSServerSearchOrder = DNSServerSearchOrder & ";" & objAdapter.DNSServerSearchOrder(i)
       Next
      End If


      line = DNSHostname & ";" & NICDescription & ";" & MACAddress & ";" & IPAddress & ";" & IPSubnet & ";" & DefaultIPGateway & ";" & DHCPEnabled & ";" & DHCPServer & ";" & DNSDomain & ";" & DNSDomainSuffixSearchOrder & ";" & WINSPrimaryServer & ";" & WINSSecondaryServer &  DNSServerSearchOrder
      WScript.Echo line  
      objOutputFile.WriteLine(line)
     Next
 
   End Select
   On Error Goto 0
  Else
   line = strComputerName & ";NOT available"
   WScript.Echo  line
   objOutputFile.WriteLine(line)
  End If
 Next
Next


'--------------------


' Help
'
' Help File
'

Sub Help(ByRef strScriptName)
 WScript.Echo strScriptName & " Arguments" & vbCrLf _ 
  & vbTab & "/input:""filename_for_server_list""" & vbCrLf _
  & vbTab & "/output:""filename_for_output""" & vbCrLf _
  & vbTab & "/? or nothing for this" & vbCrLf _
      & vbCrLf & "Example:" & vbCrLf _
      & "cscript " & strScriptName & " /input:""servers.txt"" /input:""result.csv"" " & vbCrLf
 WScript.Quit(0)
End Sub


'--------------------

' isFileExist
'
' Test if File Exist
'
Function IsFileExist(ByRef strInputFile)
 Dim iReturn
 iReturn = False

 Dim objFSO
 On Error Resume Next
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 If objFSO.FileExists(strInputFile) Then
  iReturn = True 
 End If
 Set objFSO = Nothing
 On Error Goto 0

 IsFileExist = iReturn
End Function


'--------------------

' pingComputer
'
' Ping Test
'
Function pingComputer(strComputerName)

 Dim pingStatus, objPing, objStatus
 pingStatus = false
 Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")
 Set objPing = objPing.ExecQuery("select * from Win32_PingStatus where address = '" & strComputerName & "'")
 For Each objStatus in objPing
  If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then 
   pingComputer = false
  Else
   pingComputer = true
  End If
 Next


End Function

'--------------------