logoff script to close a program gracefully before user logs out not working

Thanks for the link Pete, It actually looks like the windows server 2000 version of the link I provided in the question. I did not see any additional information on where to find "Run logoff scripts synchronously" or how to overcome my issue in another fashion.

Let me know if I have missed something.

Darkstriker69

Try this article.....it talks about waiting for UserInit to finish first....
http://www.microsoft.com/technet/scriptcenter/topics/gp/extension2.mspx

Regards,

Rob.

Again, A good link. It gave me alot of information about the UserInit process, but I didnt see any information about how to change the UnerInit scripting settings.

Let me know if I missed that information.

I am really looking for a usable setting change or script alteration to overcome my problem

Thanks,

Darkstriker69

Can you post your code to understand more?"

pauseperiod = 1000 ' time in milliseconds
set objShell = CreateObject ("WScript.Shell")

If  objShell.AppActivate("CATS") Then
    objShell.SendKeys "{ESC}"
    WScript.Sleep pauseperiod
    objShell.SendKeys "{ESC}"
    WScript.Sleep pauseperiod
    objShell.SendKeys "{ESC}"
    WScript.Sleep pauseperiod
    objShell.SendKeys "{ESC}"
    WScript.Sleep pauseperiod
    objShell.SendKeys "{ESC}"
    WScript.Sleep pauseperiod
    objShell.SendKeys "Y"
    WScript.Sleep pauseperiod
    objShell.SendKeys "{ENTER}"
    WScript.Sleep pauseperiod

End If

If objShell.AppActivate("CATS") Then
    objShell.SendKeys "{ESC}"
    WScript.Sleep pauseperiod
    objShell.SendKeys "Y"
    WScript.Sleep pauseperiod
    objShell.SendKeys "{ENTER}"
End If

What does this script actually do? Is this script used to close a program before logoff or can you explain a bit more about the scenario?

Yes, thats pretty much exactly it.

The script litterally brings a program that uses the name "CATS" into the forground if it is running, then types "ESC" into the program enough times to bring up the exit menu of the program and then types the charactor "Y" into the program to exit it gracefully. The script itself works perfectly when run manually. It just executes after windows closes the program if its executed as a logoff script.

So, I figure I need to either run the script before the logoff takes place but it still needs to be triggered by a logoff event. Apperently this is a tall order.

Hmmmm, just quickly....I'm thinking that instead of using the ordinary logoff.....create a batch file, that runs this script, then have either the Shutdown or Logoff DOS command run after that, so that *you* initiate the logoff......

You could even prompt wheter to log off or shutdown.....

'=================
pauseperiod = 1000 ' time in milliseconds
set objShell = CreateObject ("WScript.Shell")

strMessage = "Please enter your option:" & VbCrLf & _
      "1: Logoff" & VbCrLf & _
      "2: Restart the computer" & VbCrLf & _
      "3: Shutdown the computer" & VbCrLf & _
      "4: Cancel"

intResponse = 0
While intResponse < 1 And intResponse > 4
      intResponse = InputBox(strMessage, "What do you want to do?")
Wend

' Now a valid entry has been entered, but we don't need to check
' for 4 being selected....just do nothing if it is 4.
If intResponse >= 1 And intResponse <= 3 Then

      If  objShell.AppActivate("CATS") Then
          objShell.SendKeys "{ESC}"
          WScript.Sleep pauseperiod
          objShell.SendKeys "{ESC}"
          WScript.Sleep pauseperiod
          objShell.SendKeys "{ESC}"
          WScript.Sleep pauseperiod
          objShell.SendKeys "{ESC}"
          WScript.Sleep pauseperiod
          objShell.SendKeys "{ESC}"
          WScript.Sleep pauseperiod
          objShell.SendKeys "Y"
          WScript.Sleep pauseperiod
          objShell.SendKeys "{ENTER}"
          WScript.Sleep pauseperiod

      End If
      
      If objShell.AppActivate("CATS") Then
          objShell.SendKeys "{ESC}"
          WScript.Sleep pauseperiod
          objShell.SendKeys "Y"
          WScript.Sleep pauseperiod
          objShell.SendKeys "{ENTER}"
      End If
      
      Select Case intResponse
            Case 1
                  strCommand = "logoff"
            Case 2
                  strCommand = "shutdown /r"
            Case 3
                  strCommand = "shutdown /s"
      End Select
      
      Set objShell = CreateObject("WScript.Shell")
      objShell.Run strCommand, 0, False
      
End If
'=================

Regards,

Rob.

I think were getting closer, but the Idea here is that with terminal server you want to set a timout for inactive sessions. So when the timeout is reached, the system logs off the inactive user. This unfortunatly means the logoff event will be triggered by the system and not an actual user.

Is there a way to use the form_unload class or something simmilar from VBScript?

CATS is a existing DOS program my client is currently using.
But, you may be close to the solution I need. I have considered writing a VB 6 program that would open CATS and detect if there was a lofoff event, stops the logoff event, exits CATS then runs its own logoff.

Unfortunatly I am not a programmer so I am struggling mightely

Is there any way of detecting a windows logoff through vbscript, so that I could detect a logoff starting and quickly run my commands?

Well, After bangng my head against the wall until what was left of my brain fell out (my, thats graphic) I have wrote a short VB 2005 program to do what I need to do.



Public Class CatsLoad

    Private Sub CatsLoad_BackgroundImageLayoutChanged(ByVal sender As Object, ByVal e As_ System.EventArgs) Handles Me.BackgroundImageLayoutChanged

    End Sub

    Private Sub CatsLoad_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Dim objshell = CreateObject("WScript.Shell")
        Dim pauseperiod As Long = 50 ' time in milliseconds


        If objshell.AppActivate("CATS") Then
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("{ESC}")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("{ESC}")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("{ESC}")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("{ESC}")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("{ESC}")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("Y")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("{ENTER}")

        End If

        If objshell.AppActivate("CATS") Then
            objshell.SendKeys("{ESC}")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("Y")
            System.Threading.Thread.Sleep(pauseperiod)
            objshell.SendKeys("{ENTER}")

        End If

    End Sub

    Private Sub CatsLoad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        System.Diagnostics.Process.Start("CATS")

        Me.Width = 3
        Me.Height = 3

    End Sub

End Class



You have to make sure this program stays the top windows open so that it closes first duing logoff. This is easily accomplished with the VB design tab.

Because it was VB 2005 I guess the Form_QueryUnload didnt exist anymore but Rob definitely
got me on the right track so I am awarding the answer to him.