Last Logged in not working...yet

[cbsarge]

Trying to write a script that will display the age of a users password. This is the non-working one I have so far:

Dim UserName
Dim GroupName
UserName = InputBox("Enter the display name (example: Firstname Lastname) of the USER:")
GroupName = InputBox("Enter the main group (example: Engineering) of the user:")
Set objUser = GetObject("LDAP://CN=" & UserName ,"OU=" & GroupName ,"DC=domainname,DC=com")
Wscript.Echo "Password last changed: " & objUser.PasswordLastChanged

Thanks!

[!]The AutoSavers![/!]

 

[EBGreen]

Perhaps you could explain in what way that it does not work?

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[cbsarge]

It pops an error box stating it needs a bracket at position 46 of line 5. I'm sure I have the syntax wrong on the line that tries to use the 2 variables I have set by the input boxes. I've tried a bunch of different versions of quotation marks, etc but haven't been able to get the format right.

[!]The AutoSavers![/!]

 

[EBGreen]

try:

Set objUser = GetObject("LDAP://CN=" & UserName [red] & "[/red],OU=" & GroupName [red]& "[/red],DC=domainname,DC=com")

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[cbsarge]

LOL - Thanks EB! I thought I had tried every combination of quotation marks around different sections of the statement!

That worked great - thanks again!

[!]The AutoSavers![/!]