changing local user password

[hamzazf]

hello,
am new at programnig and i tried to change local user password by this code

strComputer = "MyComputer"
set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "0000"
objUser.SetInfo


and it dosent work
any suggestions
thank you.

 

[guitarzan]

Are you getting an error?

 

[hamzazf]

yes

an error at
ligne :2
caract : 1
code: 80070035
source : (null)

 

[Geates]

is your computer truly called, "MyComputer"?

If not, change strComputer = "MyComputer" to strComputer = "."

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm

 

[hamzazf]

i've made this change now i get another error
code: 800708AD
error: cannot find username

 

[Geates]

are you an admin on the machine? does the administrator account exist (Microsoft recommends renaming it)?

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm

 

[hamzazf]

here the code now


strComputer = "."
set objUser = GetObject("WinNT://" & strComputer & ".")
objUser.SetPassword "0000"
objUser.SetInfo
i get this now

 

[Geates]

set objUser = GetObject("WinNT://..") does not return a valid object, therefore, you cannot execute object methods.

-Geates

http://ns7.webmasters.com/caspdoc/html/vbscript_language_reference.htm

 

[guitarzan]

Geates is correct.

If you are trying to change the password on the local machine, you should try the code below, you should run the script with admin priviliges, and you should make sure that an account called Administrator actually exists.

strComputer = "."
set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
objUser.SetPassword "0000"
objUser.SetInfo