'###############################################
'Script zum Beenden aller Verbindungen auf einem Citrix-Server
'(kann auch für alle anderen Terminal-Verbindungen genutzt werden
'###############################################
Dim WSHShell, oExec, input 
Dim Name
  Set WSHShell = WScript.CreateObject("WScript.Shell") 
  Set oExec    = WshShell.Exec("query session" ) 
 
  Do While Not oExec.StdOut.AtEndOfStream 
    input = input & oExec.StdOut.Read(1) 
  Loop
 
 
Set fso      = WScript.CreateObject("Scripting.FileSystemObject") 
Set FileIn   = fso.OpenTextFile("temp.log" , 2, true)
FileIn.write (input)
FileIn.close
set FileIn = nothing
 
Set FileIn   = fso.OpenTextFile("temp.log" , 1, true) 
 
 
  Do While Not (FileIn.atEndOfStream) 
    Zeile = CStr( FileIn.Readline )
    if InStr( CStr( Zeile ), "ica-tcp#") > 1 then
      if not InStr( CStr( Zeile ), "Administrator") > 1 then
        name = left(Zeile, 18)
        Set oExec    = WshShell.Exec("logoff" & name)
      end if
    end if
  Loop 
FileIn.Close 
Set FileIn = nothing