Set objUser = GetObject(«WinNT://» & strComputer & «/Administrator»)
objUser.SetPassword strPassword
objUser.SetInfo