VBScripting problem....

Okay... here's my problem. I'm using VBScript to view all
currently locked accounts and trying to provide a button within an
HTML page that allows for the unlocking of those accounts as well.
However, I cannot seem to get the
Win32_UserAccount properties right...and I've tried a lot of different
settings. Just so you know, I'm still in an NT 4.0 server backbone
using XP pro and WIndows 2000 on the desktop. I cant seem to get the
"unlock" portion to work.

This code works just fine until I get to the FOR loop.....



<script type= "text/vbscript ">
Function Un_Lock()
strComputer = "[Domain_Controller] "
Set objWMIService = GetObject( "winmgmts:\\" & strComputer &
"\root\cimv2 ")
Set colItems = objWMIService.ExecQuery( "Select * from
Win32_UserAccount Where Lockout='true'and Name='[username]' ",,48)
For each objItem in colItems
objItem.Lockout = false
objItem.setInfo
document.write objItem.FullName& "<br> "&objItem.Name& "<br><br> "
Next
End Function
</script>


Any help would be appreciated....thanks.

Bart

 

...nevermind...

Hey all, I was shown another way to go about doing this...

Bart

 

Does that mean you don't want to know that there should be a space between "'true'" and "and" in the Select statement?