How to change the local admin password

[MAC-DUFF]

Hey guys,

I need your help. I want to change the local admin password and I am loooking for a way to encrypt the password. Otherwise everybody can look into the script and knows the password.

strComputer = "." '

Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")

objUser.SetPassword "passwordddd"

objUser.SetInfo

Hope someone can help me

bye