VB 2008 Login Script?

Wscript.Echo GetLastLogon("LDAP://CN=username, OU=userou, DC=domain, DC=com")
Private Function GetLastLogon(strObjPath)
 
	On Error Resume Next  ' Start Error Handling
 
	' Get Local Time Zone
	Dim strComputer: strComputer = "."
	Dim objWMIService: Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
	Dim colTimeZones: Set colTimeZones = objWMIService.ExecQuery("Select * From Win32_TimeZone")
	Dim objTimeZone, intTimeZoneBias, intDaylightBias
	For Each objTimeZone in colTimeZones
	    intTimeZoneBias = objTimeZone.Bias
	    intDaylightBias = objTimeZone.DaylightBias
	Next
 
	' Search AD For All Domain Controllers
	Const ADS_SCOPE_SUBTREE = 2
	Dim objRootDSE: Set objRootDSE = GetObject("LDAP://RootDSE")
	Dim strConfigurationNC: strConfigurationNC = objRootDSE.Get("configurationNamingContext")
	Dim objConnection: Set objConnection = CreateObject("ADODB.Connection")
	Dim objCommand: Set objCommand =   CreateObject("ADODB.Command")
	objConnection.Provider = "ADsDSOObject"
	objConnection.Open "Active Directory Provider"
	Set objCommand.ActiveConnection = objConnection
	objCommand.Properties("Page Size") = 1000
	objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
	objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://" & strConfigurationNC & "' WHERE objectClass='nTDSDSA'"  
	Dim objRecordSet: Set objRecordSet = objCommand.Execute
 
	Dim objParent, strDCName, objUser, objLastLogon, intLastLogonTime, dtmLastLogon
	Dim dtmLatestLogon: dtmLatestLogon = #1/1/1601#
	objRecordSet.MoveFirst
	Do Until objRecordSet.EOF
		' Get Name of Domain Controller
	    Set objParent = GetObject(GetObject(objRecordSet.Fields("ADsPath")).Parent)
	    strDCName = objParent.dnsHostName
 
		' Get Users Last Logon Time		
	    Set objUser = GetObject("LDAP://" & strDCName & "/" & Replace(strObjPath, "LDAP://", ""))
	    Set objLastLogon = objUser.Get("lastLogon")
	    intLastLogonTime = objLastLogon.HighPart * (2^32) + objLastLogon.LowPart 
	    intLastLogonTime = intLastLogonTime / (60 * 10000000)
	    intLastLogonTime = intLastLogonTime / 1440
	    dtmLastLogon = intLastLogonTime + #1/1/1601#
	    dtmLastLogon = DateAdd("n", intTimeZoneBias, dtmLastLogon)
	    dtmLastLogon = DateAdd("n", intDaylightBias, dtmLastLogon)
	    If dtmLastLogon > dtmLatestLogon Then
	        dtmLatestLogon = dtmLastLogon
	    End If
	        
	    objRecordSet.MoveNext
	Loop
 
	' Return Results
	GetLastLogon = dtmLatestLogon
	
	' Kill Objects
	Set objWMIService = Nothing
	Set objRootDSE = Nothing
	
	On Error GoTo 0  ' End Error Handling
End Function

                                              

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: