The follow is automation script to change the Administrator password of a windows system. One just have to save it as a file with .vbs extension and execute it
sNewPassword = "pass"
Set oWshNet = CreateObject("WScript.Network")
sComputer = oWshNet.ComputerName
sAdminName = GetAdministratorName
On Error Resume Next