Script um festzustellen ob bei Anmeldung mit Windows-Domäne verbunden

ping DOMAINCONROLLERIP >nul
if %ERRORLEVEL% == 0 (goto SUCCESS) else (goto FAIL)
:SUCCESS
...
..
:FAIL
...
..

'Create command line to ping and save results to a temp file  
sCommand = "cmd /c ping.exe -n 3 -w 1000 " & strName & " > C:\temp.txt"  

'Execute the command  
objShell.run sCommand, 0, true

'Get the temp file  
set objTempFile = objFSO.GetFile("C:\temp.txt")  
set objTS = objTempFile.OpenAsTextStream(1)

'Loop through the temp file to see if "reply from" is found,  
'if it is then the ping was successful  

do while objTs.AtEndOfStream <> true
  sReadLine = objTs.ReadLine
  if instr(lcase(sReadLine), "Antwort von") > 0 then  
   bReturn = true
   exit do
  end if
loop

objTS.close
objTempFile.delete

if bReturn = True then
  'Verbunden  
else
  'Nicht verbunden  
end if

            $$$$$$
           $$   $$$$$$
          $$  $$     $
         $   $$      $$
        $  $$       $$ $$$$$$
       $$ $$       $$$       $$
     $$$   $      $$            $$
   $$           $               $$
  $            $$                $$
 $$            $$                 $$
 $     $      $$$                  $
 $   $$$$     $$       $$$$$$      $
 $    $     $$$      $$            $$
 $$       $$$$       $             $$
  $$$$$$$$$$$        $             $$
      $$  $$        $$             $$
      $$ $$$$      $$ $           $ $$
           $     $$$$ $         $$  $$
           $$$$$$$             $$$$$
                 $$$$$$$$$$$$$$$$$$$$$$$$$

 sCommand = "cmd /c ping.exe -n 3 -w 1000 " & "Name"  

If CreateObject("WScript.Shell").Run(sCommand, 0, True) = 0 Then  
    MsgBox "Verbunden!"  
Else
    MsgBox "Nicht verbunden!"  
End If