From time to time our Citrix users end up with multiple sessions on our Citrix farm, especially when accessing the farm via Citrix access gateway and they loose connectivity. Most of these are fixed by setting sessions in the disconnected state to be automatically reset after 15 mins. (We allow this time incase users are moving to a meeting room for example).
The big problem for us is that you can’t run multiple instances of Lotus Notes, so the disconnected session needs to be reset before the user can fire up Lotus Notes again, otherwise they will see an error like:
“You cannot use the Administration program while the Domino Server is running. Either shut down the Domino Server (buy keep the file server running) or choose the icon labeled ‘Lotus Notes’ instead.”
In order to try and make things a bit easier on the helpdesk, I created a script that will allow users to reset their own Citrix sessions. If you want to use it you’ll need to populate the first array with a list of all the servers in your farm, then create a shortcut:
cscript /nologo citrixreset.vbs
I’ve set mine to run minimized so that they don’t see random command windows popping up.
It should also be noted, that the script resets any disconnected sessions first, so that it can still carry on and kill the active one at the end! I know it’s not the slickest of scripts (Lots of splitting arrays and capturing command output), but I couldnt find any nice objects to do it properly with!
citrixServers = array("CXS38", "CXS39", "CXS40", "CXS41")
Set objShell = CreateObject("WScript.Shell")
Sub resetSession(s)
count = count + 1
sessionID = trim(mid(s,48,5))
citrixServer = trim(mid(s,1,6))
wscript.echo "RESET SESSION " & sessionID & " /SERVER:" & citrixServer
Set oExec = objShell.Exec("RESET SESSION " & sessionID & " /SERVER:" & citrixServer)
End Sub
userName = objShell.ExpandEnvironmentStrings("%UserName%")
For Each citrixServer In citrixServers
wscript.echo "QUERY SESSION " & userName & " /SERVER:" & citrixServer
Set oExec = objShell.Exec("QUERY SESSION " & userName & " /SERVER:" & citrixServer)
Do While oExec.Status = 0
WScript.Sleep 100
Loop
Do While oExec.StdOut.AtEndOfStream <> True
sessionOutput = sessionOutput & vbCrLf & citrixServer & oExec.StdOut.ReadLine
Loop
Next
count = 0
sessions = split(sessionOutput, vbCrLf)
wscript.echo
For Each session In sessions
if InStr(session, "wdica") and InStr(session, "Disc") then wscript.echo session
Next
For Each session In sessions
if InStr(session, "wdica") and InStr(session, "Active") then wscript.echo session
Next
For Each session In sessions
if InStr(session, "wdica") and InStr(session, "Disc") then resetSession(session)
Next
For Each session In sessions
if InStr(session, "wdica") and InStr(session, "Active") then resetSession(session)
Next
msgbox "Reset " & count & " Citrix session(s) for " & userName