Option Explicit
On Error Resume Next

'Setup all objects
Dim WSHShell
Dim LocalCpu
Dim LocalUser
Dim User
Dim NewPassword

'Initialize all objects
Set WSHShell = CreateObject("WScript.Shell")
LocalCpu = WSHShell.regRead("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\Compute
rName\ComputerName")
LocalUser = "username"
NewPassword = "password"
Set User = GetObject("WinNT://"& LocalCpu &"/"& LocalUser &"",user)

'Change Password
Call User.SetPassword(NewPassword)