03-04-18 01:29 AM
10-04-18 04:58 PM
12-04-18 12:54 PM
12-04-18 08:12 PM
10-11-20 04:10 PM
Dim maxSessionCount As Integer = 32767
Dim sessions As ICollection(Of clsProcessSession) = gSv.GetFilteredSessions(
New String(){"All"},
New String(){resource},
New String(){user}. 'user,
SessionStatus.Pending,
Nothing,
Nothing,
Nothing,
False,
False,
maxSessionCount,
sortInfo)
Dim talker As New clsTalker(120)
Dim err As String = Nothing
If Not talker.Connect(resource, err) Then Throw New Exception( "Could not connect to '" & resource & "' - " & err)
If Not talker.Authenticate() Then Throw New Exception( "Authentication Error")
Dim succeeded As New List(Of Guid)
Dim failed As New List(Of Guid)
For Each sess As clsProcessSession In sessions
If talker.Say("delete " & sess.SessionID.ToString(), "SESSION DELETED : " & sess.SessionID.ToString()) Then succeeded.Add(sess.SessionID) _
Else failed.Add(sess.SessionID)
Next
If failed.Count > 0 Then
Throw New Exception( "Failed to delete sessions: " & String.Join(", ", failed) &
If(succeeded.Count > 0, " (successfully deleted " & succeeded.Count & " session/s)", "")
13-11-20 01:58 PM
up! we too are searching something for delete pending itens
someone can help?
21-10-21 01:53 PM
21-10-21 02:03 PM
21-10-21 02:47 PM
21-10-21 03:00 PM