For each oInstance in oResults

'            If Not IsNull(oInstance.WINSPrimaryServer) then

            If Not (oInstance.WINSPrimaryServer = "127.0.0.0") then  

            oInstance.SetDNSServerSearchOrder sDNSServers

                        If err.number<>0 Then

                                    'wscript.echo err.description

                                    s=s & vbTAB & "SetDNSFAILED-" & err.description

                        Else

                                    s=s & vbTAB & "SetDNSSsuccess"

                                    'Set oExec = WshShell.Exec("nbtstat.exe -a " & sServer & " -RR")

                                                'If Not oExec.StdOut.AtEndOfStream Then

                                                '            input = input & oExec.StdOut.ReadLine

                                                '            MyGoodMsg = Len(sGoodMsg) ' MyString contains 65 chars + 6 blank chars = 71 chars

                                                '            MyInput = Len(input)

                                                '                        If MyGoodMsg = MyInput Then

                                                '                                    wscript.echo "NBTSTAT SUCCESS-" & input

                                                '                                    s=s & vbTAB & "NBTSTAT SUCCESS-" & input

                                                '                        Else

                                                '                                    wscript.echo "NBTSTAT FAILED-" & input

                                                '                                    s=s & vbTAB & "NBTSTAT FAILED-" & input

                                                '                        End If

                                                'End If

                        End If

            End If

Err.Clear

Next

 

 

 

 

 

's=s & vbTAB & UCASE(sServer)