Limit Logon VBS Version

[ChrisH]

Ok I have written the VBS versions of the scripts by Murat Yildirimoglu as posted by Russdev in this post.

Use at your own risk I have only tested them at home. You need to set the server and share at the top. The users must have change permission on the share.
If you just want to test without getting logged off then
Change this line:

WshShell.Run "logoff"

To

 'WshShell.Run "logoff"

and uncomment these lines

'Wscript.Echo "The user is already logged on"
Else
'Wscript.Echo "The user is not logged on"

So they read

Wscript.Echo "The user is already logged on"
Else
Wscript.Echo "The user is not logged on"

I can think of a few improvements I can make to this and will do them at a later date
Full listing here and a rar file with both in

'*************************************************************************
'*                                                                                                                   *
'* Limit login script (Login Part)                                       *
'* Version 0.1 by Chris Hindmarch Fishermore High 29/07/2005             *
'* This is a VBS version of a script written by Murat Yildirimoglu       *
'* USE THIS SCRIPT AT YOUR OWN RISK				         *
'* I TAKE NO RESPONSIBILTY FOR ANYTHING COULD HAPPEN AS A RESULT         *
'* OF RUNNING THIS SCRIPT                                                *
'* 									 *
'*************************************************************************

'Begin Constant Declaration
Const Server_Name = "megacity1" 'The server the shared directory will sit on
Const Share_Name = "logon$"     ' The share name

Const ForReading = 1
Const ForAppending = 8

' Begin Variable declaration

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set ObjFSO = CreateObject("Scripting.FileSystemObject")

Dim StrUserName ' Current user
Dim StrStrMachineName
Dim StrStrPathName
Dim StrStrMachineFile
Dim StrStrUserFile


'************************* Main Code *************************
'On Error Resume Next

StrUserName = ""
' Wait until the user is really logged in...
While StrUserName = ""
	WScript.Sleep 100 ' 1/10 th of a second
	StrUserName = WSHNetwork.UserName ' Get the user name
Wend
StrMachineName = WshNetwork.ComputerName 'Get the machine Name

StrPathName = "\\" & Server_Name & "\" & Share_Name & "\" 

If ObjFSO.FileExists (StrPathName & StrUserName & ".txt") Then
WshShell.Run "logoff"
'Wscript.Echo "The user is already logged on"
Else
'Wscript.Echo "The user is not logged on"
Set StrUserFile = ObjFSO.CreateTextFile(StrPathName & StrUserName & ".txt")
StrUserFile.WriteLine StrUserName & " " & "has logged onto" & " " & StrMachineName
StrUserFile.Close
Set StrMachineFile = ObjFSO.CreateTextFile(StrPathName & StrMachineName & ".txt")
StrMachineFile.WriteLine StrUserName & " " & "has logged onto" & " " & StrMachineName
StrMachineFile.Close
End If

'*************************************************************************
'*                                                                       *
'* Limit login script (Logoff Part)                                      *
'* Version 0.1 by Chris Hindmarch Fishermore High 29/07/2005             *
'* This is a VBS version of a script written by Murat Yildirimoglu       *
'* USE THIS SCRIPT AT YOUR OWN RISK				         *
'* I TAKE NO RESPONSIBILTY FOR ANYTHING COULD HAPPEN AS A RESULT         *
'* OF RUNNING THIS SCRIPT                                                *
'* 									 *
'*************************************************************************

'Begin Constant Declaration
Const Server_Name = "megacity1" 'The server the shared directory will sit on
Const Share_Name = "logon$"     ' The share name


' Begin Variable declaration

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set ObjFSO = CreateObject("Scripting.FileSystemObject")

Dim StrUserName ' Current user
Dim StrMachineFile 
Dim StrPathName



'************************* Main Code *************************
On Error Resume Next
StrUserName = WSHNetwork.UserName ' Get the user name
StrMachineName = WshNetwork.ComputerName 'Get the machine Name
StrPathName = "\\" & Server_Name & "\" & Share_Name & "\" 

If ObjFSO.FileExists (StrPathName & StrUserName & ".txt") Then 'Delete the files if they exist
ObjFSO.DeleteFile (StrPathName & StrUserName & ".txt")
ObjFSO.DeleteFile (StrPathName & StrMachineName & ".txt")
End If

[russdev]

great...

will try when get back in to work in a week...

if you ran msgbox and than ran the logoff does the script hold at msgbox until clicked ok..

As thinking it would be best if it telss the user why it is logging off...

Rus

[Ric_]

if you ran msgbox and than ran the logoff does the script hold at msgbox until clicked ok..

As thinking it would be best if it telss the user why it is logging off...

Rus

It's always more fun to do it without telling them

Just a thought but if the text file that it writes contains the computer name of the logged on user, you could log that user off instead and allow the new user to log on - use something like pslogoff for this. If you are feeling generous, you could even tell the user why they are suddenly being forced to logoff and give them 30secs to save their work.

[russdev]

that's a good idea..

But on that score would need to make sure script logged everything so can check back over logs to see why a user was logged off..

russ

[Ric_]

@Russ: That goes without saying. Something along the lines of "<username> tried to log onto <computer name> whilst logged onto <computer name> - like that's going to happen! Fool!"?

[ChrisH]

Some of these things I have already thought about doing as an update. For this version though I just wanted to copy the batch version as close as possible then add from there.
If we get a good list together I'm sure between us we can get it how we want it.
I'm just getting my head round database access from VBS at the mo. I have had to read the same 4 pages 3 times so far :P

[ChrisH]

Looking at this all now I think this can be all done into a database. I'm thinking a MYSQL database that can hold 2 tables. One with the history of logons and one that holds current logons. Also then query the history through ASP, which is something somebody else has already implemented and posted about.

Any thoughts?

Course I want to do a HTA for my user import script first :P

[ChrisH]

Anyone currently using this and would like to provide any feedback? I am still working of the database version as every time I start coding it I seem to get dragged of to do something else :?

[russdev]

start testing it but had problesm but not down to script but down to getting rm to run accept scripts and not error out goiong to look at it next week if get time.

russ

[peterduckmanton]

I have been working on a version of the script that logs access, prompts the user to ask which machine they wish to log out from, and also works with RM CC3.
I have been using it for the past month or so, and it is working well.

[ChrisH]

Just had a quick scan and that looks very good One day im going to have to sit down and start finishing of all the half done projects I have started

I dont seem to get the time anymore to sit down for any period of time and bash out code :?

[apeo]

Looks interesting.

[Snuffkins]

Just started having a little test of it and it works a treat... Wonder if there's anyway of forcing them to click yes or no and not be able to do anything else till they have???

Cause with the kids here i know they'll just ignore it and work around it .

[plexer]

Looks very good I developed a vbs to do this a while ago and never thought about sticking it up as I haven't actively used it for a while.

My version would sometimes not clear up after a user logged off so then it wouldn't let them logon from anywhere

Ben

[ChrisH]

The only thing that does concern me though is the username and password in the script. Im sure something else could be done to make that a little more secure though.