Need a logon script to capture user information

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
 
'Get user info from Active Directory
 
Set objSysInfo = CreateObject("ADSystemInfo")
 
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
For Each objItem In colItems
FullSearchString = objItem.Name & vbTab & objUser.CN
ComputerNameSearch = objItem.Name & vbTab
next
 
'Get Mac Address
 
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
NICInfo = objItem.MACAddress
Next
 
itemfound = false
	Const ForReading = 1
	Const ForWriting = 2
	Const ForAppending = 8
 
	Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'Replace \\server\share with your shared folder
 
If objFSO.FileExists("\\server\share\ComputerNames.txt")= 0 Then
'File not found Create Log File
Set objFile = objFSO.CreateTextFile("\\server\share\ComputerNames.txt", True) 
objFile.WriteLine("Computer:"& vbtab & "Name:" & vbtab & "MAC:" & vbtab & "Date:" & vbCrLf) 
objFile.Close
end if
 
'Replace \\server\share with your shared folder
'Read File to search
 
	Set objFile = objFSO.OpenTextFile("\\server\share\\Scripts\ComputerNames.txt", ForReading)
'objFile.ReadAll
StrContents = objFile.ReadAll
 
 
'Search for ComputerName and User Name
'If both Computer Name and User Name Found Exit
'Nothing to Log Exit Script.
 
		If InStr(strContents,FullSearchString) Then
		objFile.Close
		Wscript.Quit
else
 
'User and Computer name not logged yet. Log username and computername
 
If InStr(strContents,ComputerNameSearch) =0 then
objFile.Close
set objFileAppend = objFSO.OpenTextFile(\\server\share\\Scripts\ComputerNames.txt", ForAppending)
 
 
objfileAppend.Write FullSearchString & vbtab & NICInfo & vbtab & Date() & vbCrLf
objfileAppend.close
Wscript.Quit
end if
		end if
'                                  objFile.Close
 
Set objFile = objFSO.OpenTextFile("\\server\share\ComputerNames.txt", ForReading)
		
 
Do Until objFile.AtEndOfStream
	LineRead =objFile.ReadLine
 
				If InStr(LineRead,ComputerNameSearch)=0 Then
'Search for Just Computer Name
'Read log file line by line.  If computer name found skip that line.
'Save the log file line by line ignoring the line with the found computer name
NewText = NewText & Lineread & vbCrLf
	
else
itemfound = true
 
end if
loop
 
objfile.close
 
'You now have a fresh log file without this computername it it.
'Log User and Computer name to the log.
 
if itemfound = true then
Set objFilewrite = objFSO.OpenTextFile("\\server\share\ComputerNames.txt", ForWriting)
 
objfilewrite.Write NewText 
objfilewrite.Writeline  FullSearchString & vbtab & NICInfo  & vbtab & Date()
objfilewrite.close
Wscript.Quit
				end if
 
'End result is each computer will have online one line in the log, the last user who logged in.

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105: