Need a vbs scrpit to run that will output to a text file...

[timbo343]

for users logged onto a computer in a certain room.

Im sure it has been done before but can someone point me in the right direction please

T

[browolf]

this is what i do in the login script

for /f "tokens=1,2,3* delims=/ " %%a in ('date /t') do set date=%%b%%c%%d
for /f "tokens=1,2 delims=:" %%a in ('time /t') do set time=%%a%%b

echo %date%,%time%,%username% >> \\backup\logs$\computer\%computername%.txt
echo %date%,%time%,%computername% >> \\backup\logs$\user\%username%.txt

[djm968]

This should do the trick!

You can change the location of the userlog.txt file if required.

 '  Author:          Darren Mussenden
'  Purpose:         logs user logons to the specified text file 
' ___________________________________________________________________ 
' 


Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set objNetwork = CreateObject("Wscript.Network") 

   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 

'alter the path to the text file as needed for your environment 

Set f = fso.OpenTextFile("C:\userlog.txt", ForAppending, True) 


strComputer = objNetwork.ComputerName 
strUser = objNetwork.UserDomain & Chr(92) & objNetwork.UserName 


'alter the text strings as you like 
f.Write "User " & strUser & " logged on to computer " & strComputer & " at " & Now & vbCrLf & vbcrlf 
f.Close

[timbo343]

Thanks for that, will try that later

[djm968]

You may also like to append logoff events to the text file. The following script will do this.

'  Author:          Darren Mussenden
'  Purpose:         logs user logoffs to the specified text file 


Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set objNetwork = CreateObject("Wscript.Network") 


   Dim fso, f 
   Set fso = CreateObject("Scripting.FileSystemObject") 


'alter the path to the text file as needed for your environment 
   Set f = fso.OpenTextFile("c:\userlog.txt", ForAppending, True) 


strComputer = objNetwork.ComputerName 
strUser = objNetwork.UserDomain & Chr(92) & objNetwork.UserName 


   'alter the text strings as you like 
   f.Write "User " & strUser & " logged off of computer " & strComputer & " at " & Now & vbCrLf & vbcrlf 
   f.Close