Organization of script?

[ReconX]

Would the code provided be ideal, or are there ways that I can improve the structure of my script? I'd appreciate any advice. I am enjoying learning as I go on, but I'm starting to find it hard to manage variables and occasionally run into variables being used before being declared. 

 

expandcollapse popup

#RequireAdmin
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>
#include <TabConstants.au3>

Example()

Func ComputerInfo()
    ;Get Serial Number
    $wmiSN = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command $wmiSN = (Get-WmiObject win32_bios).SerialNumber; $wmiSN", @ScriptDir, @SW_HIDE, $STDERR_MERGED)
    ;Get Vendor
    $wmiVENDOR = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command $wmiVENDOR = (Get-WMIObject Win32_ComputerSystemProduct).Vendor; $wmiVENDOR", @ScriptDir, @SW_HIDE, $STDERR_MERGED)
    ;Get Model
    $cimMODEL = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command $cimMODEL = (Get-CimInstance Win32_ComputerSystem).Model; $cimMODEL", @ScriptDir, @SW_HIDE, $STDERR_MERGED)
    ;Get Caption
    $cimCAPTION = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command $cimCAPTION = (Get-CimInstance Win32_OperatingSystem).Caption; $cimCAPTION", @ScriptDir, @SW_HIDE, $STDERR_MERGED)
    ;Get Arch
    $cimARCH = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command $cimARCH = (Get-CimInstance Win32_OperatingSystem).OSArchitecture; $cimARCH", @ScriptDir, @SW_HIDE, $STDERR_MERGED)
    ;Get Version
    $cimVERSION = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command $cimVERSION = (Get-CimInstance Win32_OperatingSystem).Version; $cimVERSION", @ScriptDir, @SW_HIDE, $STDERR_MERGED)

    ProcessWaitClose($wmiSN)
    Global $wmiSN2 = StdoutRead($wmiSN)

    ProcessWaitClose($wmiVENDOR)
    Global $wmiVENDOR2 = StdoutRead($wmiVENDOR)

    ProcessWaitClose($cimMODEL)
    Global $cimMODEL2 = StdoutRead($cimMODEL)

    ProcessWaitClose($cimCAPTION)
    Global $cimCAPTION2 = StdoutRead($cimCAPTION)

    ProcessWaitClose($cimARCH)
    Global $cimARCH2 = StdoutRead($cimARCH)

    ProcessWaitClose($cimVERSION)
    Global $cimVERSION2 = StdoutRead($cimVERSION)

EndFunc   ;==>ComputerInfo

Func _UserExists($sUsername)
    Return IsObj( ObjGet("WinNT://./" & $sUsername & ", user"))
EndFunc   ;==>_UserExists

Func _Randomize($Length)
    $charactersets = "0123456789" & "abcdefghijklmnopqrstuvwxyz" & "{}[]()/\'`~,;:.<>" & "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & "!@#$%^&*<>" & Chr(34)

    $Array = StringSplit($charactersets, "")

    $Pass = ""
    For $X = 1 To $Length
        $Pass &= $Array[Random(1, $Array[0], 1)]
    Next
    Global $Test = $Pass
    Return $Pass

EndFunc   ;==>_Randomize

Func EasterEgg()

    GUICtrlCreateTabItem("Easter Eggys")

    ; Content Goes Here.

    GUICtrlCreateTabItem("")

EndFunc   ;==>EasterEgg

Func Example()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Example")
;~  GUISetBkColor(0xFFFFFF)
    Local $idOK = GUICtrlCreateButton("OK", 300, 370, 95, 25)
;~  $Read_Char = 16
;~  _Randomize($Read_Char)

    Call("ComputerInfo")
    GUICtrlCreateGraphic(0, 0, 400, 55, 0)
    GUICtrlSetBkColor(-1, 0x660000)
    GUICtrlCreateGraphic(0, 2, 400, 2, 0)
    GUICtrlSetBkColor(-1, 0xF4AA00)
    GUICtrlCreateInput("OS Version: " & $cimCAPTION2 & " (" & $cimARCH2 & "), " & $cimVERSION2, 5, 5, 390, 15, BitOR($ES_READONLY, $ES_LEFT), 0)
    GUICtrlSetBkColor(-1, 0x660000)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 8.5, 800, 0)
    Opt("GUICoordMode", 0)
    GUICtrlCreateInput("Model:      " & $cimMODEL2 & ", " & $wmiVENDOR2, 0, 15, 390, 15, BitOR($ES_READONLY, $ES_LEFT), 0)
    GUICtrlSetBkColor(-1, 0x660000)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 8.5, 800, 0)
    GUICtrlCreateInput("Serial Number:  " & $wmiSN2, 0, 15, 390, 15, BitOR($ES_READONLY, $ES_LEFT), 0)
    GUICtrlSetBkColor(-1, 0x660000)
    GUICtrlSetColor(-1, 0xFFFFFF)
    GUICtrlSetFont(-1, 8.5, 800, 0)
    Opt("GUICoordMode", 1)
    GUICtrlCreateGraphic(0, 51, 400, 2, 0)
    GUICtrlSetBkColor(-1, 0xF4AA00)

    GUICtrlCreateTab(5, 60, 391, 305)

    GUICtrlCreateTabItem("Users")
    GUICtrlCreateGroup("ADD NEW USER", 10, 85, 187.5, 155, $BS_CENTER)
    Opt("GUICoordMode", 0)
    $inputUSER = GUICtrlCreateInput("USERNAME", 5, 15, 177.5, 20, $ES_CENTER)
    GUICtrlSetFont(-1, 10.5, 800, 0, "Consolas")
    $inputPASS = GUICtrlCreateInput("PASSWORD", 0, 25, 177.5, 20, BitOR($ES_PASSWORD, $ES_CENTER))
    GUICtrlSetFont(-1, 10.5, 800, 0, "Consolas")
    $userADMIN = GUICtrlCreateCheckbox("Make New User Admin", 0, 25, 177.5)
    GUICtrlSetFont(-1, 10.5, 400, 0)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $clrINPUT = GUICtrlCreateButton("Clear", 0, 25, 177.5, 25)
    $submitUSER = GUICtrlCreateButton("Submit", 0, 30, 177.5, 25)
    GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
    Opt("GUICoordMode", 1)

    GUICtrlCreateGroup("ITCS ACCOUNT", 202.5, 85, 187.5, 155, $BS_CENTER)
    Opt("GUICoordMode", 0)
    $userITCS = GUICtrlCreateInput("ITCS2", 5, 15, 177.5, 20, $ES_CENTER) ;BitOR($ES_READONLY, $ES_CENTER)
    GUICtrlSetFont(-1, 10.5, 800, 0, "Consolas")
    $passITCS = GUICtrlCreateInput("PASSWORD", 0, 25, 177.5, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
    GUICtrlSetFont(-1, 10.5, 800, 0, "Consolas")
    $passLENGTH = GUICtrlCreateInput("16", 0, 25, 25, 20, $ES_CENTER)
    GUICtrlSetFont(-1, 10.5, 800, 0, "Consolas")
    GUICtrlSetLimit($passLENGTH, 2, 1)
    $Read_Char = GUICtrlRead($passLENGTH)
    _Randomize($Read_Char)
    GUICtrlSetData($passITCS, _Randomize($Read_Char))
    $genNEWPASS = GUICtrlCreateButton("Generate New Password", 0, 25, 177.5, 25)
    $submitITCS = GUICtrlCreateButton("Submit", 0, 30, 177.5, 25)
    GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
    Opt("GUICoordMode", 1)

    GUICtrlCreateTabItem("Tools")

    GUICtrlCreateGroup("DISM", 10, 85, 95, 140, $BS_CENTER)
    Opt("GUICoordMode", 0)
    Local $dismCH = GUICtrlCreateButton("CheckHealth", 5, 15, 85, 25)
    Local $dismSH = GUICtrlCreateButton("ScanHealth", -1, 30, 85, 25)
    Local $dismRH = GUICtrlCreateButton("RestoreHealth", -1, 30, 85, 25)
    Local $dismABT = GUICtrlCreateButton("About DISM", -1, 30, 85, 25)
    GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
    Opt("GUICoordMode", 1)

    GUICtrlCreateTabItem("")

    $easterEGG = GUICtrlCreateLabel("", 0, 390, 10, 10)
;~  GUICtrlSetBkColor(-1, 0xF4AA00)

    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idOK
                ExitLoop
            Case $dismCH
                Run(@ComSpec & " /c " & "DISM /Online /Cleanup-Image /CheckHealth" & " & ECHO. & ECHO Press any button to continue. & pause>nul", "")
            Case $dismSH
                Run(@ComSpec & " /c " & "DISM /Online /Cleanup-Image /ScanHealth" & " & ECHO. & ECHO Press any button to continue. & pause>nul", "")
            Case $dismRH
                Run(@ComSpec & " /c " & "DISM /Online /Cleanup-Image /RestoreHealth", "")
            Case $dismABT
                MsgBox(0, "About DISM", "DISM CheckHealth - The CheckHealth option with the Deployment Image Servicing and Management command tool allows you quickly determine if there are any corruptions inside the local Windows 10 image. However, the option does not perform any repairs." & @CRLF & @CRLF & "DISM ScanHealth - The ScanHealth option performs a more advanced scan to determine if the OS image has any problems." & @CRLF & @CRLF & "DISM RestoreHealth - If there are problems with the system image, you can use DISM with the RestoreHealth option to scan and repair common issues automatically.")
            Case $genNEWPASS
                $Read_Char = GUICtrlRead($passLENGTH)
                GUICtrlSetData($passITCS, _Randomize($Read_Char))
            Case $clrINPUT
                GUICtrlSetData($inputUSER, "")
                GUICtrlSetData($inputPASS, "")
                GUICtrlSetState($userADMIN, 1)
            Case $submitUSER
                Run(@ComSpec & "/c " & "net user " & GUICtrlRead($inputUSER) & ' "' & GUICtrlRead($inputPASS) & '" ' & "/add", "", @SW_HIDE)
                If GUICtrlRead($userADMIN) = $GUI_CHECKED Then
                    Run(@ComSpec & "/c " & "net localgroup administrators " & GUICtrlRead($inputUSER) & " /add" & " && " & "ping 127.0.0.1 -n 5 > nul", "", @SW_HIDE)
                EndIf
             Case $submitITCS
                If _UserExists(GUICtrlRead($userITCS)) Then
                    RunWait(@ComSpec & "/c " & "net user " & GUICtrlRead($userITCS) & ' "' & GUICtrlRead($passITCS) & '"', "", @SW_HIDE)
                Else
                    RunWait(@ComSpec & "/c " & "net user " & GUICtrlRead($userITCS) & ' "' & GUICtrlRead($passITCS) & '" ' & "/add", "", @SW_HIDE)
                    RunWait(@ComSpec & "/c " & "net localgroup administrators " & GUICtrlRead($userITCS) & " /add" & " && " & "ping 127.0.0.1 -n 5 > nul", "", @SW_HIDE)
                EndIf
            Case $GUI_EVENT_PRIMARYUP
                If _WinAPI_GetFocus() = GUICtrlGetHandle($inputUSER) And GUICtrlRead($inputUSER) = "USERNAME" Then
                    GUICtrlSetData($inputUSER, "")
                ElseIf _WinAPI_GetFocus() = GUICtrlGetHandle($inputPASS) And GUICtrlRead($inputPASS) = "PASSWORD" Then
                    GUICtrlSetData($inputPASS, "")
                EndIf
            Case $easterEGG
;~              GUICtrlCreateTabItem("Easter Egg")
                Call("EasterEgg")
                GUICtrlSetPos($easterEGG, -100, -100, 0, 0)
        EndSwitch

    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
EndFunc   ;==>Example

 

[FrancescoDiMuro]

@ReconX

Use Opt("MustDeclareVars", 1) for the variables declaration, so you must declare every variable the script uses, or it will throw an error.

For the script improvements, in the function ComputerInfo() you could use WMI object instead of run powershell commands, so you delete the part of StdoutRead() and ProcessWaitClose().

For the function _Randomize(), you could use Chr() function in a For Loop instead of having a predefined subset of chars (and you did repeat <> as well).

You may use something like this (untested):

For $i = 1 To $intPasswordLenght Step 1
   $strPassword &= Chr(Random(33, 126, 1))
Next

Obviousely, in this case you include few more chars than you did in your chars subset, but it shorten the code a little bit

Edited April 23, 2021 by FrancescoDiMuro

[argumentum]

10 hours ago, ReconX said:

are there ways that I can improve the structure of my script?

Declare the global outside the functions.
Read the Wiki ( https://www.autoitscript.com/wiki/Best_coding_practices )
...and that is my collaboration for today  

[Musashi]

3 hours ago, FrancescoDiMuro said:

For the script improvements, in the function ComputerInfo() you could use WMI object instead of run powershell commands ...

I agree

@ReconX : Take a look at the system-scan-report-tool made by @spudw2k . There you will find useful code parts regarding WMI.

[mLipok]

I recomend to use:

#AutoIt3Wrapper_Run_AU3Check=Y
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

or even:

#AutoIt3Wrapper_Run_AU3Check=Y
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#AutoIt3Wrapper_Run_Tidy=Y
#Tidy_Parameters=/reel

 

[Musashi]

40 minutes ago, mLipok said:

I recomend to use:

#AutoIt3Wrapper_Run_AU3Check=Y
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

 

Yes, that would be the hardcore option . Sometimes a bit annoying, but usually a good help.

@ReconX : You can find a complete description here:  https://www.autoitscript.com/autoit3/scite/docs/SciTE4AutoIt3/au3check.html

The parameter -d also sets the "MustDeclareVars" option to True

During development, however, I would leave out the parameter  -w 5  (gives a warning if a local variable is declared but not used). In an early stage it is not uncommon to declare local variables without using them immediately. The warnings can be a bit disturbing then. By the end of the project you can set the parameter to find and get rid of unused local variables.

[ReconX]

I'm just recently seeing the responses. Thank you all so much for the advice. I've been super busy this past month. 

@Musashi It seems as if this is a bit outdated and not functioning as intended. The results in their example are shown as blank. I used PowerShell because I recently read that WMI is becoming obsolete. I cannot remember where I read this, but I did read it. 

@mLipok Are these the arguments that are ran when pressing Ctrl + F5? If not, I'm unsure what to do with this. I do see the file Au3Check in the AutoIt directory.  😅

Edited May 17, 2021 by ReconX

[mLipok]

11 hours ago, ReconX said:

Are these the arguments that are ran when pressing Ctrl + F5? If not, I'm unsure what to do with this. I do see the file Au3Check in the AutoIt directory.

Yes.
It is used when you press CTRL+F5 but also when you use F5 or even F7

But you must use SciTE4AutoIt3

[Musashi]

 

12 hours ago, ReconX said:

It seems as if this is a bit outdated and not functioning as intended.

You surely refer to the system-scan-report-tool made by @spudw2k , that I mentioned. It is true, that the tool throws various messages during compilation, such as : ! Obfuscator support has been discontinued and is replaced by Au3Stripper using "#Au3Stripper_" directives.

This can be easily prevented by commenting out or removing the compiler directives regarding the deprecated obfuscator.

[...]
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs=0 /cn=0 /cf=0 /cv=0 /sf=1 /sv=1
[...]

The tool itself works without problems on my system (Win7 SP1 64-bit). Since the last revision was on April 8, 2019, it should also work on Win10.

 

12 hours ago, ReconX said:

I used PowerShell because I recently read that WMI is becoming obsolete. I cannot remember where I read this, but I did read it. 

I'm sure, everything is fine with the WMI Classes (and this will remain so in the future).

Here is an interesting thread that probably sheds some light on the darkness : wmi-diagnosis-tool-no-more-available (the additional links are also worth reading).

I hope these Infos are helpful to you (and other users) .

[Werty]

Readable version of your script, without the changes suggested by others, and without how I would have written it.

expandcollapse popup

#RequireAdmin
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <WinAPI.au3>
#include <TabConstants.au3>

Example()

Func ComputerInfo()
    ;Get Serial Number
    $wmiSN = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe _
                  -Command $wmiSN = (Get-WmiObject win32_bios).SerialNumber; $wmiSN", _
                  @ScriptDir, _
                  @SW_HIDE, _
                  $STDERR_MERGED)
    ;Get Vendor
    $wmiVENDOR = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe _
                     -Command $wmiVENDOR = (Get-WMIObject Win32_ComputerSystemProduct).Vendor; $wmiVENDOR", _
                     @ScriptDir, _
                     @SW_HIDE, _
                     $STDERR_MERGED)
    ;Get Model
    $cimMODEL = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe _
                     -Command $cimMODEL = (Get-CimInstance Win32_ComputerSystem).Model; $cimMODEL", _
                     @ScriptDir, _
                     @SW_HIDE, _
                     $STDERR_MERGED)
    ;Get Caption
    $cimCAPTION = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe _
                     -Command $cimCAPTION = (Get-CimInstance Win32_OperatingSystem).Caption; $cimCAPTION", _
                     @ScriptDir, _
                     @SW_HIDE, _
                     $STDERR_MERGED)
    ;Get Arch
    $cimARCH = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe _
                     -Command $cimARCH = (Get-CimInstance Win32_OperatingSystem).OSArchitecture; $cimARCH", _
                     @ScriptDir, _
                     @SW_HIDE, _
                     $STDERR_MERGED)
    ;Get Version
    $cimVERSION = Run("C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe _
                     -Command $cimVERSION = (Get-CimInstance Win32_OperatingSystem).Version; $cimVERSION", _
                     @ScriptDir, _
                     @SW_HIDE, _
                     $STDERR_MERGED)

    ProcessWaitClose($wmiSN)
    Global $wmiSN2 = StdoutRead($wmiSN)

    ProcessWaitClose($wmiVENDOR)
    Global $wmiVENDOR2 = StdoutRead($wmiVENDOR)

    ProcessWaitClose($cimMODEL)
    Global $cimMODEL2 = StdoutRead($cimMODEL)

    ProcessWaitClose($cimCAPTION)
    Global $cimCAPTION2 = StdoutRead($cimCAPTION)

    ProcessWaitClose($cimARCH)
    Global $cimARCH2 = StdoutRead($cimARCH)

    ProcessWaitClose($cimVERSION)
    Global $cimVERSION2 = StdoutRead($cimVERSION)

EndFunc   ;==>ComputerInfo

Func _UserExists($sUsername)
    Return IsObj( ObjGet("WinNT://./" & $sUsername & ", user"))
EndFunc   ;==>_UserExists

Func _Randomize($Length)
    $charactersets = "0123456789" & "abcdefghijklmnopqrstuvwxyz" & "{}[]()/\'`~,;:.<>" & "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & "!@#$%^&*<>" & Chr(34)

    $Array = StringSplit($charactersets, "")

    $Pass = ""
    For $X = 1 To $Length
        $Pass &= $Array[Random(1, $Array[0], 1)]
    Next
    Global $Test = $Pass
    Return $Pass

EndFunc   ;==>_Randomize

Func EasterEgg()

    GUICtrlCreateTabItem("Easter Eggys")

    ; Content Goes Here.

    GUICtrlCreateTabItem("")

EndFunc   ;==>EasterEgg

Func Example()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Example")
;~  GUISetBkColor(0xFFFFFF)
    Local $idOK = GUICtrlCreateButton("OK", 300, 370, 95, 25)
;~  $Read_Char = 16
;~  _Randomize($Read_Char)

    Call("ComputerInfo")
    GUICtrlCreateGraphic(0, 0, 400, 55, 0)
    GUICtrlSetBkColor   (-1, 0x660000)
    GUICtrlCreateGraphic(0, 2, 400, 2, 0)
    GUICtrlSetBkColor   (-1, 0xF4AA00)
    GUICtrlCreateInput  ("OS Version: " & $cimCAPTION2 & " (" & $cimARCH2 & "), " & $cimVERSION2, 5, 5, 390, 15, BitOR($ES_READONLY, $ES_LEFT), 0)
    GUICtrlSetBkColor   (-1, 0x660000)
    GUICtrlSetColor     (-1, 0xFFFFFF)
    GUICtrlSetFont      (-1, 8.5, 800, 0)
    
    Opt("GUICoordMode", 0)
    GUICtrlCreateInput("Model:      " & $cimMODEL2 & ", " & $wmiVENDOR2, 0, 15, 390, 15, BitOR($ES_READONLY, $ES_LEFT), 0)
    GUICtrlSetBkColor (-1, 0x660000)
    GUICtrlSetColor   (-1, 0xFFFFFF)
    GUICtrlSetFont    (-1, 8.5, 800, 0)
    GUICtrlCreateInput("Serial Number:  " & $wmiSN2, 0, 15, 390, 15, BitOR($ES_READONLY, $ES_LEFT), 0)
    GUICtrlSetBkColor (-1, 0x660000)
    GUICtrlSetColor   (-1, 0xFFFFFF)
    GUICtrlSetFont    (-1, 8.5, 800, 0)
    
    Opt("GUICoordMode", 1)
    GUICtrlCreateGraphic(0, 51, 400, 2, 0)
    GUICtrlSetBkColor   (-1, 0xF4AA00)

    GUICtrlCreateTab(5, 60, 391, 305)

    GUICtrlCreateTabItem("Users")
    GUICtrlCreateGroup  ("ADD NEW USER", 10, 85, 187.5, 155, $BS_CENTER)
    
    Opt("GUICoordMode", 0)
    $inputUSER  = GUICtrlCreateInput   ("USERNAME", 5, 15, 177.5, 20, $ES_CENTER)
                  GUICtrlSetFont       (-1, 10.5, 800, 0, "Consolas")
    $inputPASS  = GUICtrlCreateInput   ("PASSWORD", 0, 25, 177.5, 20, BitOR($ES_PASSWORD, $ES_CENTER))
                  GUICtrlSetFont       (-1, 10.5, 800, 0, "Consolas")
    $userADMIN  = GUICtrlCreateCheckbox("Make New User Admin", 0, 25, 177.5)
                  GUICtrlSetFont       (-1, 10.5, 400, 0)
                  GUICtrlSetState      (-1, $GUI_CHECKED)
    $clrINPUT   = GUICtrlCreateButton  ("Clear", 0, 25, 177.5, 25)
    $submitUSER = GUICtrlCreateButton  ("Submit", 0, 30, 177.5, 25)
                  GUICtrlCreateGroup   ("", -99, -99, 1, 1) ;close group
                  
    Opt("GUICoordMode", 1)
    GUICtrlCreateGroup("ITCS ACCOUNT", 202.5, 85, 187.5, 155, $BS_CENTER)
    
    Opt("GUICoordMode", 0)
    $userITCS   = GUICtrlCreateInput("ITCS2", 5, 15, 177.5, 20, $ES_CENTER) ;BitOR($ES_READONLY, $ES_CENTER)
                  GUICtrlSetFont    (-1, 10.5, 800, 0, "Consolas")
    $passITCS   = GUICtrlCreateInput("PASSWORD", 0, 25, 177.5, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
                  GUICtrlSetFont    (-1, 10.5, 800, 0, "Consolas")
    $passLENGTH = GUICtrlCreateInput("16", 0, 25, 25, 20, $ES_CENTER)
                  GUICtrlSetFont    (-1, 10.5, 800, 0, "Consolas")
                  GUICtrlSetLimit   ($passLENGTH, 2, 1)
    $Read_Char  = GUICtrlRead       ($passLENGTH)
    
    _Randomize($Read_Char)
    
                  GUICtrlSetData($passITCS, _Randomize($Read_Char))
    $genNEWPASS = GUICtrlCreateButton("Generate New Password", 0, 25, 177.5, 25)
    $submitITCS = GUICtrlCreateButton("Submit", 0, 30, 177.5, 25)
                  GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
                  
    Opt("GUICoordMode", 1)
    GUICtrlCreateTabItem("Tools")
    GUICtrlCreateGroup("DISM", 10, 85, 95, 140, $BS_CENTER)
    
    Opt("GUICoordMode", 0)
    Local $dismCH  = GUICtrlCreateButton("CheckHealth", 5, 15, 85, 25)
    Local $dismSH  = GUICtrlCreateButton("ScanHealth", -1, 30, 85, 25)
    Local $dismRH  = GUICtrlCreateButton("RestoreHealth", -1, 30, 85, 25)
    Local $dismABT = GUICtrlCreateButton("About DISM", -1, 30, 85, 25)
                     GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group
                     
    Opt("GUICoordMode", 1)
    GUICtrlCreateTabItem("")

    $easterEGG = GUICtrlCreateLabel("", 0, 390, 10, 10)
;~  GUICtrlSetBkColor(-1, 0xF4AA00)

    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
           
            Case $GUI_EVENT_CLOSE, $idOK
                ExitLoop
                
            Case $dismCH
                Run(@ComSpec & " /c " & "DISM /Online /Cleanup-Image /CheckHealth" & " & ECHO. & ECHO Press any button to continue. & pause>nul", "")
                
            Case $dismSH
                Run(@ComSpec & " /c " & "DISM /Online /Cleanup-Image /ScanHealth" & " & ECHO. & ECHO Press any button to continue. & pause>nul", "")
                
            Case $dismRH
                Run(@ComSpec & " /c " & "DISM /Online /Cleanup-Image /RestoreHealth", "")
                
            Case $dismABT
                MsgBox(0, "About DISM", "DISM CheckHealth - The CheckHealth option with the Deployment Image Servicing and Management command tool allows you quickly determine if there are any corruptions inside the local Windows 10 image. However, the option does not perform any repairs." & @CRLF & @CRLF & "DISM ScanHealth - The ScanHealth option performs a more advanced scan to determine if the OS image has any problems." & @CRLF & @CRLF & "DISM RestoreHealth - If there are problems with the system image, you can use DISM with the RestoreHealth option to scan and repair common issues automatically.")
                
            Case $genNEWPASS
                $Read_Char = GUICtrlRead($passLENGTH)
                GUICtrlSetData($passITCS, _Randomize($Read_Char))
                
            Case $clrINPUT
                GUICtrlSetData($inputUSER, "")
                GUICtrlSetData($inputPASS, "")
                GUICtrlSetState($userADMIN, 1)
                
            Case $submitUSER
                Run(@ComSpec & "/c " & "net user " & GUICtrlRead($inputUSER) & ' "' & GUICtrlRead($inputPASS) & '" ' & "/add", "", @SW_HIDE)
                If GUICtrlRead($userADMIN) = $GUI_CHECKED Then
                    Run(@ComSpec & "/c " & "net localgroup administrators " & GUICtrlRead($inputUSER) & " /add" & " && " & "ping 127.0.0.1 -n 5 > nul", "", @SW_HIDE)
                 EndIf
                 
             Case $submitITCS
                If _UserExists(GUICtrlRead($userITCS)) Then
                    RunWait(@ComSpec & "/c " & "net user " & GUICtrlRead($userITCS) & ' "' & GUICtrlRead($passITCS) & '"', "", @SW_HIDE)
                Else
                    RunWait(@ComSpec & "/c " & "net user " & GUICtrlRead($userITCS) & ' "' & GUICtrlRead($passITCS) & '" ' & "/add", "", @SW_HIDE)
                    RunWait(@ComSpec & "/c " & "net localgroup administrators " & GUICtrlRead($userITCS) & " /add" & " && " & "ping 127.0.0.1 -n 5 > nul", "", @SW_HIDE)
                 EndIf
                 
            Case $GUI_EVENT_PRIMARYUP
                If _WinAPI_GetFocus() = GUICtrlGetHandle($inputUSER) And GUICtrlRead($inputUSER) = "USERNAME" Then
                    GUICtrlSetData($inputUSER, "")
                ElseIf _WinAPI_GetFocus() = GUICtrlGetHandle($inputPASS) And GUICtrlRead($inputPASS) = "PASSWORD" Then
                    GUICtrlSetData($inputPASS, "")
                 EndIf
                 
            Case $easterEGG
;~              GUICtrlCreateTabItem("Easter Egg")
                Call("EasterEgg")
                GUICtrlSetPos($easterEGG, -100, -100, 0, 0)
                
        EndSwitch

    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
EndFunc   ;==>Example