This has been updated and moved here: https://gist.github.com/codeartery/e40316d5bb5fc1ce3424c7707bc342d0
This has been updated and moved here: https://gist.github.com/codeartery/1f80a3033697f7d196e6c0604fff7aa5
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'*********************** | |
'Name: Change Password | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Version: rev.001 | |
'Date: 10/05/2014 | |
'*********************** | |
Option Explicit | |
Dim objDomain, User, List | |
Dim strAccount, strNewPass, strOldPass, status |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'*********************** | |
'Name: Change Pass Admin | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Version: rev.001 | |
'Date: 10/05/2014 | |
'*********************** | |
Option Explicit | |
RunAsAdmin() |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'*********************** | |
'Name: Email Messages | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Version: rev.001 | |
'Date: 1/02/2015 | |
'*********************** | |
Option Explicit | |
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") | |
Dim objSHL : Set objSHL = CreateObject("WScript.Shell") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'*********************** | |
'Name: Timed Messages | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Version: rev.001 | |
'Date: 1/02/2015 | |
'*********************** | |
Option Explicit | |
Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<html> | |
<head> | |
<title>Message Box</title> | |
<meta http-equiv="x-ua-compatible" content="IE=9"> | |
<meta name="author" content="Jeremy England"> | |
<meta name="copyright" content="SimplyCoded"> | |
<meta name="last-modified" content="2015-11-10"> | |
<hta:application | |
border="thin" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'************************** | |
'Name: Dictionary Inception | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Version: rev.001 | |
'Date: 02/20/2016 | |
'************************** | |
Set contact = CreateObject("Scripting.Dictionary") | |
contact.Add "Ben", details("25","(820)-828 2828") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'*********************** | |
'Name: String Formatter | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Version: rev.001 | |
'Date: 04/08/2016 | |
'*********************** | |
Option Explicit | |
Dim htm : Set htm = CreateObject("htmlfile") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'*********************** | |
'Name: Guessing Game | |
'Author: Jeremy England | |
'Company: SimplyCoded | |
'Version: rev.001 | |
'Date: 05/17/2014 | |
'*********************** | |
Option Explicit | |
Dim status, guess, range, guesses, diff, change |
OlderNewer