DNSの検索

Question

複数のPCからリモートでDNSの検証を行う必要がありますが、コードを作成しましたが、設定したDNSの順序が正しくないため、出力が正しく表示されません。 DNSだけを介して順序を確認せずにイムこの分野の初心者は、uの人は、以下の :-) Uをとても感謝役立つことを願ってコード

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

作品のこの種です。ここにVBS https://www.microsoft.com/en-au/download/details.aspx?id=2764のヘルプとWMI https://msdn.microsoft.com/en-us/library/windows/desktop/aa394217(v=vs.85).aspxのヘルプがあります。

コンピュータごとに2台のDNSサーバーがあることに注意してください。

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