Log off all users of a published app via script?, in the Citrix XenApp / Presentation Server forum on BrianMadden.com

Reply

Haydn Davies replied on Wed, Feb 2 2011 11:03 PM

rated by 0 users

Suggested by Haydn Davies

Hi

I have used a script to clear disconnected sessions from servers before, you might be able to call the application rather than the sessionstate.

I have not had a chance to play to much with it, but will try later in the week or over the weekend.

You may need to build an array list with your servers in it and get the command to cycle through all the servers.

' Logoff Disconnected Sessions
' If you want to logoff active sessions as well, change the query to include
' cActive
On Error Resume Next

Const cActive = 0
Const cDisconnected = 4
Const strComputer = "."

Set objWMICitrix = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\citrix")
Set colItems = objWMICitrix.ExecQuery ("Select * from Metaframe_Session Where sessionstate = " & cDisconnected)

For Each objItem in colItems
if (objItem.SessionID > 0) and (objItem.SessionID < 65530) then
objItem.Logoff
end if
Next

Set objWMICitrix = Nothing

Reply

Haydn Davies replied on Wed, Feb 2 2011 11:03 PM

rated by 0 users

Suggested by Haydn Davies

Hi

I have used a script to clear disconnected sessions from servers before, you might be able to call the application rather than the sessionstate.

I have not had a chance to play to much with it, but will try later in the week or over the weekend.

You may need to build an array list with your servers in it and get the command to cycle through all the servers.

' Logoff Disconnected Sessions
' If you want to logoff active sessions as well, change the query to include
' cActive
On Error Resume Next

Const cActive = 0
Const cDisconnected = 4
Const strComputer = "."

Set objWMICitrix = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\citrix")
Set colItems = objWMICitrix.ExecQuery ("Select * from Metaframe_Session Where sessionstate = " & cDisconnected)

For Each objItem in colItems
if (objItem.SessionID > 0) and (objItem.SessionID < 65530) then
objItem.Logoff
end if
Next

Set objWMICitrix = Nothing