Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Reset gmail password 100 times
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Versions
'
' Version: 1.5
' source: inzi.com
'
' Change Log
'
' v1.0
' Original
'
' v1.5 10/23/2013
' Added iSlowConnectionFactor, an easy way to tweak speed of script
' Updated default path to Chrome
' Added 2nd tab to account for lost password link at line 109
'
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Declare Variables & Objects
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim oShell
Dim oAutoIt
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Initialise Variables & Objects
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set oShell = WScript.CreateObject("WScript.Shell")
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
WScript.Echo "This script will reset your google password 100 times so you can use an old password."
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' You should only edit value after this
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Your Google username (email address)
sUN = "username@gmail.com"
' Replace with the Current password to your google account
curPW = "????????"
' Replace with the final password you want assigned to the account. The one you want to set the account's password *back to*.
oldPW = "????????"
' Is it going to fast? You can slow it down by adjusting this value.
' If you set it to 2, it will run twice as slow
' So if it is entering data into the wrong fields, try increasing this.
' It might help.
iSlowConnectionFactor = 1
' If your password has a quote in it ("), then use "" in its place.
' For example, let's say your password was
' MyPass"word!-55
'
' The proper VBScript way to put that into a variable would look like this
' curPW = "MyPass""word!-55"
'
' See Microsoft's website for more detail
' Where is the Chrome executable? Replace this with its location.
' Point app to Chrome Manually
' An easy way to find this is to right click the Chrome shortcut and copy the value in Target.
' Click Start, type Chrome, right click Google Chrome, click Properties, copy *everything* in Target, and put it here.
' This example path is for 64 bit windows
ChromeEXE = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
' This example path is for 32 bit windows
' "C:\Program Files\Google\Chrome\Application\chrome.exe"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' You should not have to edit anything after this
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Start of Script
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Some of this code uses the AutoIT com object. See their documentation for more details.
oShell.Run ChromeEXE, 1, False
' Wait for the Google Chrome window to become active
oAutoIt.WinWaitActive "New Tab - Google Chrome", ""
oAutoIt.Sleep 3000
WScript.Echo "Entering Loop"
' Enter the loop, change the password 99 more times
tCurPw = curPW
For x = 1 To 99
WScript.Echo "Step " & x
WScript.Echo "Current PW: " & tCurPw
tNewPW = curPW & x
WScript.Echo "Setting the password to: " & tNewPW
GLogin sUN, tCurPw
GEditPW
oAutoIt.Send tCurPw & "{TAB}{TAB}"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send tNewPW & "{TAB}"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send tNewPW & "{TAB}"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send "{ENTER}"
oAutoIt.Sleep 3000 * iSlowConnectionFactor
tCurPw = tNewPW
GLogout
Next
WScript.Echo "Final Change"
GLogin sUN, tCurPw
GEditPW
oAutoIt.Send tCurPw & "{TAB}"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send oldPW & "{TAB}"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send oldPW & "{TAB}"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send "{ENTER}"
oAutoIt.Send "https://www.google.com/accounts/Logout{ENTER}"
oAutoIt.Sleep 2000 * iSlowConnectionFactor
WScript.Echo "Password reset"
WScript.Quit
Function GLogin(un, pw) ' Opens the Google Login page, enters the supplied Username (un) and Password (pw), and presses Enter.
WScript.Echo "Logging in: " & un & ", " & pw
oAutoIt.Send "!d"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send "https://accounts.google.com/Login{ENTER}"
oAutoIt.Sleep 2000 * iSlowConnectionFactor
oAutoIt.Send un & "{TAB}"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send pw & "{ENTER}"
oAutoIt.Sleep 3000 * iSlowConnectionFactor
End Function
Function GEditPW() ' Opens the Google Change Password web page
oAutoIt.Send "!d"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send "https://accounts.google.com/b/0/EditPasswd{ENTER}"
oAutoIt.Sleep 2000 * iSlowConnectionFactor
End Function
Function GLogout() ' Logs out from google. This is necessary for the password change to take effect. Trust me, I tried to do it without logging out. No luck.
WScript.Echo "Logging out"
oAutoIt.Send "!d"
oAutoIt.Sleep 250 * iSlowConnectionFactor
oAutoIt.Send "https://www.google.com/accounts/Logout{ENTER}"
oAutoIt.Sleep 3000 * iSlowConnectionFactor
End Function
@Membership-ramosmonjaras

it wrokes.

@YjrRahelt
Copy link

YjrRahelt commented Apr 18, 2021

HOW TO USE

@salilkr21
Copy link

salilkr21 commented May 20, 2021

can you tell how to use this one

@pborreli
Copy link
Author

pborreli commented May 20, 2021

@boelle
Copy link

boelle commented Aug 11, 2021

when i try i get

Microsoft (R) Windows Script Host version 5.812
Copyright (C) Microsoft Corporation 1996-2001. Alle rettigheder forbeholdes.

C:\Users\boher\OneDrive\Skrivebord\Reset-Gmail-password-to-previous-one-master\Reset-Gmail-password-to-previous-one-master\passwordresetscript.vbs(5, 1) WScript.CreateObject: Objektet med navnet "AutoItX3.Control" kunne ikke oprettes.


C:\Users\boher\OneDrive\Skrivebord\Reset-Gmail-password-to-previous-one-master\Reset-Gmail-password-to-previous-one-master>

it means that the object with the name AutoItX3.Control could not be created, and i tried as admin, did not make a difference

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment