imoomoo
15-07-2007, 06:34 PM
strPassword = "p@$$W0rD"
' Connect to local administrator user object
set objUser = getobject("WinNT://./Administrator,user")
' Change Password
objUser.SetPassword strPassword
objUser.SetInfo
' Connect to local administrator user object
set objUser = getobject("WinNT://./Administrator,user")
' Change Password
objUser.SetPassword strPassword
objUser.SetInfo