VBS – change Password

Cette fonction permet de modifier le mot de passe du compte local passé en Argument

Function changeUserPassword (username)
Dim objUser
Set objUser = GetObject(“WinNT://” & strComputer & ”/”&username&”, user”)
passwordSet = ”ASCRFB12345@+*”
objUser.SetPassword passwordSet

End Function

changeUserPassword Administrator

* Attention , WordPress change les guillemets dans le code

2015-09-30 09_23_49-Untitled _ - VbsEdit