auto log off user...

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

auto log off user...

Logged in as: Guest

arrSession:exec spGetSession 2,2,52677

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> auto log off user...
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

auto log off user... - 10/14/2007 10:49:42 PM

amirfazwan

Posts: 1
Score: 0
Joined: 10/14/2007
Status: offline

Hello,
I need a VBscript that will force logoff a user in one hour of use for Xp...

I've found one like this...but i don't know to edit it...
it should force logoff without have to push yes or no button..
it should tell the user that they had reach the max time of usage (1 hour)..

Const wshYes = 6
Const wshNo = 7
Const wshYesNoDialog = 4
Const wshQuestionMark = 32
Const LOGOFF = 0
Const SHUTDOWN = 1
Const REBOOT = 2
Const FORCE = 4
Const POWEROFF = 8

'________________________________
'1. Creates shell object (standard)
'________________________________
Set objShell = CreateObject("Wscript.Shell")
'________________________________
'2. Calls popup window to ask if they want to log off
'________________________________
intReturn = objShell.Popup("Do you want to LogOff?", _
   20, "Auto LogOff", wshYesNoDialog + wshQuestionMark)
'________________________________
'3. If response is yes, then logoff command is executed with the Force switch
'________________________________
If intReturn = wshYes Then
For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
   objPC.Win32Shutdown LOGOFF + FORCE
Next
'________________________________
'4. If response is no, then script quits
'________________________________
ElseIf intReturn = wshNo Then
   wscript.Quit
Else
'________________________________
'5. If no response after time specified at the start of line in comment 2 then
'   logoff command is executed with the Force switch
'________________________________
  
For Each objPC In GetObject("winmgmts:{(shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
   objPC.Win32Shutdown LOGOFF + FORCE
Next
End If

thanks..

Post #: 1

RE: auto log off user... - 10/15/2007 3:25:30 PM

dm_4ever

Posts: 2433
Score: 38
Joined: 6/29/2006
From: Orange County, California
Status: offline

You should make the attempt to understand it and make some changes on your own. It is good that you've taken the time to find the example, but first try to read the basic WSH docs and attempt to make the changes for yourself. We will assist you once you have made the effort.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to amirfazwan)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> auto log off user...

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts