VBS Proxyserver auslesen Netzwerkweit

On Error Resume Next



'Ping Funktion  
Function Ping(strHost)
    Dim oPing, oRetStatus, bReturn
    Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address='" & strHost & "'")  
 
   For Each oRetStatus In oPing
       If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then
           bReturn = False
 
          '  ' WScript.Echo "Status code is " & oRetStatus.StatusCode  
       Else
           bReturn = True
 
          '  ' Wscript.Echo "Bytes = " & vbTab & oRetStatus.BufferSize  
          '  ' Wscript.Echo "Time (ms) = " & vbTab & oRetStatus.ResponseTime  
          '  ' Wscript.Echo "TTL (s) = " & vbTab & oRetStatus.ResponseTimeToLive  
        End If
        Set oRetStatus = Nothing
   Next
    Set oPing = Nothing
 
    Ping = bReturn
End Function
'Ende Ping Funktion  



'Einleitung  
'Servertextdatei vollständing mit Pfad und Dateinamen angeben  
Inputfile = Inputbox("Bitte Geben Sie den Pfad und den Namen der Servertextdatei ein")  
'Hier nur den Pfad des Ordners Angeben  
Outputfile = Inputbox("Bitte geben Sie den Ordner Pfad ein wo Sie Ihr Ergebnis haben wollen")   
'Einleitung Ende  



'Hauptscript Anfang  
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Set oFS = CreateObject("Scripting.FileSystemObject")  
Set fi = oFS.OpenTextFile(Inputfile)
Set fa = oFS.CreateTextFile(Outputfile & "\Output.txt")  
Set fu = ofs.OpenTextFile(Outputfile & "\Output.txt")  
Set fr = oFS.CreateTextFile(Outputfile & "\Registryeintrag.txt")  
Set fe = oFS.CreateTextFile(Outputfile & "\Nicht_Erreicht.txt")  



'Computer anpingen und aussortieren  
Do Until fi.AtEndOfStream
  	sComputer = fi.ReadLine
	
IF Ping(sComputer) then
	
	fa.Writeline(sComputer)
	
else

	fe.Writeline(sComputer & ";nicht erreicht")  
	
end if

Loop
fi.close
fa.close
'Ende Computer anpingen  



'Anfang Dienste auslesen und schreiben  
Computers = fu.ReadAll
fu.Close
oFS.deletefile(Outputfile & "\Output.txt")  
arrComputers = Split(Computers,  vbCrLf)

fr.WriteLine("Computer" & ";" & "Proxyserver")  

For Each strComputer in arrComputers

	Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
    strComputer & "\root\default:StdRegProv")  
 

 
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings"  
strValueName = "ProxyServer"  
oReg.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue


	
	


	fr.WriteLine(strComputer & ";" & strValue)  
'Ende Dienste auslesen und schreiben  



	Next
	


MsgBox "Fertig!!", 0, "Info"  
'Hauptscript Ende