Option Explicit
Const LOGDATEI = "\\Server01\service$\Umfrage.txt"
Const SEITE = "http://intranet/survey.php"
Dim WshNetwork, IExplorer, FSO, LogInhalt, ausgefuellt, objEnv, objTextStream
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objEnv = CreateObject("WScript.Shell")
Set objTextStream = FSO.CreateTextFile(LOGDATEI, True)
 
If FSO.FileExists(LOGDATEI) Then
  Set WshNetwork = WScript.CreateObject("WScript.Network")
  Set LogInhalt = FSO.OpenTextFile(LOGDATEI)
 
  ausgefuellt = False
  Do Until LogInhalt.AtEndOfStream
     If UCase(WshNetwork.Username) = UCase(LogInhalt.ReadLine) Then
       ausgefuellt = True
       Exit Do
     Else
       ausgefuellt = False
     End If
  Loop
 
  If ausgefuellt = False Then
    If FSO.FileExists(LOGDATEI) Then
      objTextStream.WriteLine (WshNetwork.Username)
    End If
    WScript.Echo (WshNetwork.Username) & " nicht gefunden!"
    WScript.Echo (LogInhalt.ReadLine) & " Steht in der Datei!"
    Set IExplorer = CreateObject("InternetExplorer.Application")
    Do While IExplorer.Busy
    Loop
    IExplorer.Visible = True
    IExplorer.Navigate SEITE
    'WindowState = 2 ' vbMaximized
  End If 
Else
  WScript.Echo LOGDATEI & " nicht gefunden!"
End If