Suche DNS-Reihenfolge

Question

Ich muss Validierung von DNS per Fernzugriff über mehrere PC und ich habe den Code erstellt, aber die Ausgabe immer noch falsch angezeigt wegen der DNS-Reihenfolge, die ich gesetzt habe, ist nicht in der richtigen Reihenfolge.Aber ich möchte gültig sein DNS ohne Überprüfung der Bestellung nur durch DNS nur. im ein Anfänger in diesem Bereich hoffen u guys u so much :-) unten danken helfen kann der Code sind

strCompName = "site A", "site B", "site C" 

Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strCompName & "\root\cimv2") 
Set config = objWMIService.ExecQuery _ 
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 

'this is fix dns that is set up to valid with old dns 
New_dns = Array ("1.1.1.1",_ 
        "2.2.2.2",_ 
        "3.3.3.3) 

For Each conf In config 

     If Not IsNull(conf.DNSServerSearchOrder) Then 
      For Each strDNSServer In conf.DNSServerSearchOrder 

       ' in this code i want to valid the existing dns in pc with dns that is set up 

       If strDNSServer = New_dns(number) Then 
        wscript.echo "CORRECT!  " + strDNSServer 
       Else 
        wscript.echo "WRONG!  " + strDNSServer 
       End If 

      Next 
     End If 

Next 

Answer 1

Diese Art der Arbeiten. Hier ist Hilfe für VBS https://www.microsoft.com/en-au/download/details.aspx?id=2764 und für WMI https://msdn.microsoft.com/en-us/library/windows/desktop/aa394217(v=vs.85).aspx.

Hinweis: Sie haben zwei DNS-Server pro Computer.

Dim Computers(2) 
Computers(0) = "127.0.0.1" 
Computers(1) = "127.0.0.1" 
Computers(2) = "127.0.0.1" 


For each strcomputer in Computers 

    Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2") 
    Set config = objWMIService.ExecQuery _ 
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 

    'this is fix dns that is set up to valid with old dns 
    New_dns = Array ("1.1.1.1", "1.1.1.1",_ 
         "2.2.2.2", "2.2.2.2",_ 
         "192.168.1.1", "192.168.1.1") 
    For Each conf In config 

      If Not IsNull(conf.DNSServerSearchOrder) Then 
       For Each strDNSServer In conf.DNSServerSearchOrder 

        ' in this code i want to valid the existing dns in pc with dns that is set up 
    msgbox New_dns(number) 
        If strDNSServer = New_dns(number) Then 
         wscript.echo "CORRECT!  " + strDNSServer 
        Else 
         wscript.echo "WRONG!  " + strDNSServer 
        End If 
      number=number+1 
       Next 
      End If 

    Next 
Next