This can be launched via Group Policy as a startup script to reset any local password. Hope it is of use to people. Any suggestions/recommendations appreciated.
-------------------------------------------------------------------------------------
On Error Resume Next
Dim objUser
Dim newPassword
Dim CompName
Dim WshShell
Dim WshEnv
'Set the Username & Password below
'------------------------------------------------------------------------------------------
LocalAdmin = "ICTSupport"
newPassword = "hd50twAD"
'------------------------------------------------------------------------------------------
Set WshShell = CreateObject("WScript.Shell")
set WshEnv = WshShell.Environment("Process")
CompName = WshEnv("COMPUTERNAME")
' Connect to the computer\administrator account
Set objUser = GetObject("WinNT://" & CompName & "/" & LocalAdmin, user)
'Set the password for the account
objUser.SetPassword newPassword
objUser.SetInfo
' Clears up the environment
Set WshShell = nothing
Set WshEnv = nothing
Set objuser = nothing
msgbox "Local Account = " & LocalAdmin & " Password Changed Sucessfully"
-------------------------------------------------------------------------------------