Need Help!!!

I have pieced togethor a script, that I will use to unlock local accounts on a Windows XP Pro pc. This script looks for any account that is named the same as the computer, and if that account is locked, it unlocks that account and sets it to reset on next login. The only problem is, this script is only working when the PC is connected to a network, which does me no good. This is for standalone PCs. Any help anyone could give me would be very much appreciated.



Set objNet = CreateObject("WScript.Network")

CompName = objNet.ComputerName

UserName = CompName

password = "forget" & Month(Date) & Day(Date)

Set UserObject = GetObject("WinNT://127.0.0.1")
UserObject.Filter = Array("user")

For Each oUser in UserObject
If oUser.Name = UserName Then
Set UserObj = GetObject("WinNT://127.0.0.1/"& UserName &"")
If UserObj.IsAccountLocked = -1 Then
UserObj.IsAccountLocked = 0
UserObj.SetPassword password
UserObj.Put "PasswordExpired", 1
UserObj.SetInfo
WScript.Echo "Your account has been locked out."
End If
End If
Next

Replace:

Set UserObj = GetObject("WinNT://127.0.0.1/"& UserName &"")

with:

Set UserObj = GetObject("WinNT://" & CompName & "/"& UserName &",user")

Token,

That didn't help. If I put some Wscript.Echo commands in there, the script doesn't get past the "For Each oUser in UserObject" line, when there is no network connection. Any additional help would be appreciated.

THanks.

What exactly was the error message and at what line ?

There is actually no error message, it just quits when it gets to the "For Each oUser in UserObject" line. If there is a network connection, the script runs out just fine.

Are you saying that this machine will NOT have a active network connection (cable unplugged) while the script is running ? The one thing that comes to mind now is that you can add an "fake" network adapter called "MS Loopback" (and assign an IP to it). Now I can't really remember what configuration settings you can do with it since it's been a long time and I don't even know if it will solve your problem.

BTW, how did you know it just quit when it gets to that line ? Did you have anything else after the loop to indicate that the scripts just exited ? The script might appear to quit if the userOject didn't return any data.

Replace:

Set UserObject = GetObject("WinNT://127.0.0.1")

with:

Set UserObject = GetObject("WinNT://" & computerName)

and Add:

wscript.echo isnull(userObject) & isempty(userObject)

The PC will not be attached to a network when this script is running. I am hoping to use this as a way to unlock local user accounts on Windows XP, on machines that are out in the field. My script now looks like this...

Set objNet = CreateObject("WScript.Network")

CompName = objNet.ComputerName

UserName = CompName

password = "forget" & Month(Date) & Day(Date)

Set UserObject = GetObject("WinNT://" & computerName)

wscript.echo isnull(userObject) & isempty(userObject)

UserObject.Filter = Array("user")

For Each oUser in UserObject
If oUser.Name = UserName Then
Set UserObj = GetObject("WinNT://127.0.0.1/"& UserName &"")
If UserObj.IsAccountLocked = -1 Then
UserObj.IsAccountLocked = 0
UserObj.SetPassword password
UserObj.Put "PasswordExpired", 1
UserObj.SetInfo
WScript.Echo "Your account has been locked out."
End If
End If
Next



I am getting a error on line 9, character 1, the source is (null). Thanks for your continued help.

Option Explicit

Dim network, user

Set network = CreateObject("WScript.Network")
Set user = GetObject("WinNT://" & network.ComputerName & "/" & network.ComputerName & ",user")

If user.IsAccountLocked <> 0 Then
user.IsAccountLocked = 0
user.SetPassword "forgot" & Month(Date) & Day(Date)
user.PasswordExpired = 1
user.SetInfo
WScript.Echo "Account has been unlocked: " & network.ComputerName
WScript.Echo "New password: " & "forgot" & Month(Date) & Day(Date)
End If