Aktuelle TS Session zurücksetzen

[-= Brummbär =- 10]

Guten Morgen,

 

Vielleicht hilft es ja jemandem... Ich habe das Skript als Citrix-Anwendung veröffentlicht die ich bei Igel Thinclients als Session zum ändern abgelaufener Passwörter angebe. Mit dem direkten Zurücksetzen der Session dauert die Prozedur nur noch ein paar Sekunden.

 

ExecuteKonsole "reset session " & getCurrentSession(ExecuteKonsole("query session"))

Function getCurrentSession(strSessions)
   strSessions = Trim(Mid(strSessions, InStr(strSessions,">")+1))
   strSessions =  Trim(Left(strSessions, InStr(strSessions, " "))) 

   getCurrentSession = strSessions
End Function

Function ExecuteKonsole(ByVal befehl)
  'Listing 5.7 aus Scripting für Administratoren
  '2., komplett überarbeitete Auflage (Tobias Weltner)
  Const WshRunning = 0
  Set wshshell = CreateObject("WScript.Shell")

  kommando = "%comspec% /c " & befehl

     Set objProc = wshshell.Exec(kommando)
  Do While objProc.Status = WshRunning
	ExecuteKonsole = ExecuteKonsole & objProc.StdOut.ReadAll
  Loop
End Function

 

Für Rückmeldungen oder Verbesserungen bin ich natürlich immer zu haben :-)