Script to write user name and computer name to file

Hi All,

Can a scripting person assist by creating a Vb script that will

1. Create a file to a network share using \\server\share
2. Create the text file with the user name and Date as the file name
3. Save the User Name, Computer Name, Logon Time and Date on separate lines

User Name: Marvin
Computer Name: Themartian
Logon Time: 14:32
Date:  08/04/2009

Hope i am not asking to much.

Thanks

Aalborg

AI-SYDAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
yehudahaConnect With a Mentor Commented:
change this line the line of the share you want to save the file

strPath = "\\server\share"
strPath = "\\server\share"
Set objnet = CreateObject("wscript.network")
Set objfso = CreateObject("scripting.filesystemobject")
strDate = Day(Date) & "." & Month(Date) & "." & Year(Date)
Set objlog = objfso.CreateTextFile(strPath & "\" & objnet.UserName & "_" & strDate & ".txt",True)
objlog.WriteLine "User Name: " & objnet.UserName
objlog.WriteLine "Computer Name: " & objnet.ComputerName
objlog.WriteLine "Logon Time: " & Time
objlog.WriteLine "Date: " & Date

Open in new window

0
 
mfhorizonCommented:
Hi Aalborg,

I think you need to create a cookie using vbscript, that can save different events like name, time etc. You can do it by using following script:

VBScript
=======
Creating a cookie in VBScript uses the document.cookie object:

<SCRIPT LANGUAGE="VBScript">
document.cookie = "User_Name=Marvin; &_
                                path=/; &_
                                expires Sat, 01-Jan-2010 00:00:00 GMT"
document.cookie = "Computer_Name=Themartian; &_
                                path=/; &_
                                expires Sat, 01-Jan-2010 00:00:00 GMT"

document.cookie = "Logon_Date=Date; &_
                                path=/; &_
                                expires Sat, 01-Jan-2010 00:00:00 GMT"
document.cookie = "Logon_Time=Time; &_
                                path=/; &_
                                expires Sat, 01-Jan-2010 00:00:00 GMT"
</SCRIPT>


To retreive these values next time on your website you can use
NameVariable = getCookie("User_Name")
ComputerNameVariable = getCookie("Computer_Name")
TimeVariable = getCookie("Logon_Time")
DateVariable = getCookie("Logon_Date")


0
 
AI-SYDAuthor Commented:
Thanks it worked perfectly.
0
 
yehudahaCommented:
glad to help
0
All Courses

From novice to tech pro — start learning today.