Jump to content
crustymonkey

New to AutoIt - Compiling Audit Tool.au3

Recommended Posts

crustymonkey

I have a script the was written by Ian Maxwell that does a simple audit of a workstation. I can run it on my machine just fine. When I go to compile it I get 

Error adding file: Array.au3

;~ Title:           System Audit Tool
;~ Purpose:         To assist technicians in aquiring the vital system specifications of the computers in a site.
;~ Use:             Either run it as-is and create individual CSV files, append files for a group, or build a customized agent.
;~ Requirements:    WinAPIx.au3 (Yashied) http://www.autoitscript.com/forum/topic/98712-winapiex-udf
;~                  LocalAccount.au3 (engine) http://www.autoitscript.com/forum/topic/74118-local-account-udf
;~                  The following list of files MUST also be present in the script directory to compile, as they are required for the custom agent creation:    (You can find them in the AutoIt install folder)
;~                  Array.au3
;~                  WinAPI.au3
;~                  aut2exe.exe
;~                  autoitsc.bin
;~                  Security.au3
;~                  WinAPIEx.au3
;~                  SendMessage.au3
;~                  WinAPIError.au3
;~                  LocalAccount.au3
;~                  FileConstants.au3
;~                  GUIConstantsEx.au3
;~                  StaticConstants.au3
;~                  SecurityConstants.au3
;~                  StructureConstants.au3
;~ Author:          Ian Maxwell (llewxam @ AutoIt forum)


#include <Array.au3>
#include <WinAPIEx.au3>
#include <LocalAccount.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $OSVersion
Global $OfficeVersion
$WhatSaveType = GUICreate("Audit Tool", 250, 180)
GUISetBkColor(0xb2ccff, $WhatSaveType)
$DefaultNoteMessage = "Enter notes about this computer here"
$Notes = GUICtrlCreateInput($DefaultNoteMessage, 10, 10, 230, 20)
GUICtrlSetFont(-1, 10, 500)
GUICtrlSetTip(-1, "Notes could include information such as the workstation location, user, issues reported by the user, condition, performance, etc.")
$Individual = GUICtrlCreateButton("Individual PC", 10, 50, 100, 30)
GUICtrlSetTip(-1, "Creates a CSV named the same as this PC.  If a pre-existing file is found you will be prompted to overwrite.")
$Append = GUICtrlCreateButton("Append Site", 135, 50, 100, 30)
GUICtrlSetTip(-1, "Prompts for the selection of an existing CSV and appends it with this PC's information.  It is not a requirement that the file already exists, it will be created if not.")
$PrepareAgent = GUICtrlCreateButton("Prepare Site Agent", 60, 90, 130, 30)
GUICtrlSetTip(-1, "Creates a customized agent that will ask for the site name and a location to save the CSV, which will speed up the auditing process in locations where there are many PCs.")

$LogoColor = 0xffffff
GUICtrlCreateLabel("Ian Maxwell", 5, 140, 160, 15)
GUICtrlSetColor(-1, $LogoColor)
GUICtrlCreateLabel("MaxImuM AdVaNtAgE SofTWarE", 5, 160, 160, 15)
GUICtrlSetColor(-1, $LogoColor)
GUICtrlSetTip(-1, "1995-2012 and beyond", Default, 0, 1)
$Line = GUICtrlCreateGraphic(5, 155, 110, 2)
GUICtrlSetGraphic($Line, $GUI_GR_COLOR, $LogoColor)
GUICtrlSetGraphic($Line, $GUI_GR_MOVE, 0, 1)
GUICtrlSetGraphic($Line, $GUI_GR_LINE, 106, 1)

GUISetState(@SW_SHOW, $WhatSaveType)

Do
    $MSG = GUIGetMsg()
    If $MSG == $Individual Then
        $Where = FileSaveDialog("Choose the path to save the file", @ScriptDir, "CSV file (*.csv)", 16, @ComputerName & ".csv")
        If StringRight($Where, 4) <> ".csv" Then $Where &= ".csv"
        $Output = FileOpen($Where, 2)
        ExitLoop
    EndIf
    If $MSG == $Append Then
        $Where = FileSaveDialog("Choose the path to save the file", @ScriptDir, "CSV file (*.csv)")
        If StringRight($Where, 4) <> ".csv" Then $Where &= ".csv"
        $Output = FileOpen($Where, 1)
        ExitLoop
    EndIf
    If $MSG == $PrepareAgent Then
        GUIDelete($WhatSaveType)
        $WhatSiteName = GUICreate("Site Details", 450, 250, Default, Default, -1, $WS_EX_ACCEPTFILES)
        GUISetBkColor(0xb2ccff, $WhatSiteName)
        GUICtrlCreateLabel("Specify the save path of the CSV for this site.  By default the save path will be hardcoded to be in the same path as the agent itself, meaning the CSV will travel with the agent, ONLY USEFUL ON FLASH DRIVES.  Please be sure to use a folder with read and write permissions that does not require a username and password if specifying a network path.  Also be sure to use the UNC path and not a mapped drive path as the drive letters can vary among machines.", 10, 10, 430, 88)
        $PathField = GUICtrlCreateInput("Browse or Type the path", 10, 100, 400, 20)
        GUICtrlSetState(-1, $GUI_DROPACCEPTED)
        $BrowsePath = GUICtrlCreateButton("...", 420, 100, 20, 20)
        $SiteName = GUICtrlCreateInput("Site Name", 125, 150, 200, 20)
        $Build = GUICtrlCreateButton("Build Agent", 175, 200, 100, 30)
        GUISetState(@SW_SHOW, $WhatSiteName)
        Local $AccelKeys[1][2] = [["{ENTER}", $Build]]
        GUISetAccelerators($AccelKeys)

        Do
            $MSGG = GUIGetMsg()
            If $MSGG == $GUI_EVENT_CLOSE Then Exit
            If $MSGG == $BrowsePath Then
                $Where = FileSelectFolder("Specify the save path of the CSV for this site.", "", 1, @ScriptDir)
                GUICtrlSetData($PathField, $Where)
            EndIf
            If $MSGG == $Build Then
                $TheSiteName = GUICtrlRead($SiteName)
                $GetPath = GUICtrlRead($PathField)
                If $GetPath == "" Or $GetPath = "Browse or Type the path" Then
                    MsgBox(16, "ERROR", "You have not specified a valid path.")
                Else
                    If $TheSiteName == "" Or $TheSiteName == "Site Name" Then
                        MsgBox(16, "ERROR", "You have not specified a site name.")
                    Else
                        If StringRight($GetPath, 1) <> "\" Then $GetPath &= "\"
                        GUICtrlDelete($Build)
                        $Status = GUICtrlCreateLabel("", 10, 200, 430, 30, $SS_CENTER)
                        GUICtrlSetFont(-1, 13, 600)
                        _BuildAgent($TheSiteName, $GetPath)
                        MsgBox(0, "Done", "A customized agent has been created for your site." & @CR & $GetPath & $TheSiteName & " Audit Agent.exe")
                        Exit
                    EndIf
                EndIf
            EndIf
        Until 1 = 2
    EndIf
    If $MSG == $GUI_EVENT_CLOSE Then Exit
Until 1 = 2

$OSArch = @OSArch
$OSProductKey = _DecodeProductKey("Windows")
FileWriteLine($Output, "Computer Name," & Chr(34) & @ComputerName & Chr(34))
$ReadNotes = GUICtrlRead($Notes)
If $ReadNotes <> $DefaultNoteMessage Then FileWriteLine($Output, "Notes," & Chr(34) & $ReadNotes & Chr(34))
FileWriteLine($Output, "Operating System,Version," & Chr(34) & $OSVersion & Chr(34))
FileWriteLine($Output, ",Architecture," & Chr(34) & $OSArch & Chr(34))
FileWriteLine($Output, ",Service Pack," & Chr(34) & @OSServicePack & Chr(34))
FileWriteLine($Output, ",Product Key," & Chr(34) & $OSProductKey & Chr(34))
FileWriteLine($Output, "")

$FindUsers = _AccountEnum()
If IsArray($FindUsers) Then
    If $FindUsers[0] > 0 Then
        $FilterGroup = "HomeGroupUser$" & @CR & "Guest" & @CR & "Default"
        $FilterGroupBreak = StringSplit($FilterGroup, @CR)
        For $a = 1 To $FilterGroupBreak[0]
            $FindFiltered = -1
            $FindFiltered = _ArraySearch($FindUsers, $FilterGroupBreak[$a])
            If $FindFiltered > -1 Then
                _ArrayDelete($FindUsers, $FindFiltered)
                $FindUsers[0] -= 1
            EndIf
        Next
        $LocalUsers = ""
        For $a = 1 To $FindUsers[0]
            $LocalUsers &= Chr(34) & $FindUsers[$a] & Chr(34) & Chr(44)
        Next
        FileWriteLine($Output, "Local Users," & $LocalUsers)
        FileWriteLine($Output, "")
    EndIf
EndIf

$OfficeInstalled = False
$OfficeXPCOA = _DecodeProductKey("Office XP")
$Office2003COA = _DecodeProductKey("Office 2003")
$Office2007COA = _DecodeProductKey("Office 2007")
$Office2010COAX86 = _DecodeProductKey("Office 2010 x86")
$Office2010COAX64 = _DecodeProductKey("Office 2010 x64")
If $OfficeXPCOA <> "Product Not Found" Then
    FileWriteLine($Output, "Office,Installed Version," & Chr(34) & $OfficeVersion & Chr(34))
    FileWriteLine($Output, ",Product Key," & Chr(34) & $OfficeXPCOA & Chr(34))
    $OfficeInstalled = True
EndIf
If $Office2003COA <> "Product Not Found" Then
    FileWriteLine($Output, "Office,Installed Version," & Chr(34) & $OfficeVersion & Chr(34))
    FileWriteLine($Output, ",Product Key," & Chr(34) & $Office2003COA & Chr(34))
    $OfficeInstalled = True
EndIf
If $Office2007COA <> "Product Not Found" Then
    FileWriteLine($Output, "Office,Installed Version," & Chr(34) & $OfficeVersion & Chr(34))
    FileWriteLine($Output, ",Product Key," & Chr(34) & $Office2007COA & Chr(34))
    $OfficeInstalled = True
EndIf
If $Office2010COAX86 <> "Product Not Found" Then
    FileWriteLine($Output, "Office,Installed Version," & Chr(34) & $OfficeVersion & Chr(34))
    FileWriteLine($Output, ",Product Key," & Chr(34) & $Office2010COAX86 & Chr(34))
    $OfficeInstalled = True
EndIf
If $Office2010COAX64 <> "Product Not Found" Then
    FileWriteLine($Output, "Office,Installed Version," & Chr(34) & $OfficeVersion & Chr(34))
    FileWriteLine($Output, ",Product Key," & Chr(34) & $Office2010COAX64 & Chr(34))
    $OfficeInstalled = True
EndIf
If $OfficeInstalled == True Then FileWriteLine($Output, "")

$CPUName = RegRead("HKLM64\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")
$CPUSpeed = _HZSuffix(RegRead("HKLM64\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "~MHz"))
FileWriteLine($Output, "CPU,Type," & Chr(34) & $CPUName & Chr(34))
FileWriteLine($Output, ",Speed," & Chr(34) & $CPUSpeed & Chr(34))
FileWriteLine($Output, "")

$RAMStats = MemGetStats()
$RAMTotal = _RAMSuffix($RAMStats[1])
$RAMFree = _ByteSuffix($RAMStats[2])
$RAMVirtualTotal = _ByteSuffix($RAMStats[5])
$RAMVirtualFree = _ByteSuffix($RAMStats[6])
FileWriteLine($Output, "RAM,Total," & Chr(34) & $RAMTotal & Chr(34))
FileWriteLine($Output, ",Free," & Chr(34) & $RAMFree & Chr(34))
FileWriteLine($Output, ",Total Swap," & Chr(34) & $RAMVirtualTotal & Chr(34))
FileWriteLine($Output, ",Free Swap," & Chr(34) & $RAMVirtualFree & Chr(34))
FileWriteLine($Output, "")

Local $AllLocalDrives = ""
Local $DriveSpaceTotal = ""
Local $DriveSpaceFree = ""
Local $DrivePercent = ""
Local $DriveLabel = ""
$DrivesPhysical = DriveGetDrive("FIXED")
If Not @error Then
    For $a = 1 To $DrivesPhysical[0]
        $Drive = $DrivesPhysical[$a]
        $AllLocalDrives &= Chr(34) & $Drive & Chr(34) & ","
        $DriveSpaceTotal &= Chr(34) & _ByteSuffix(DriveSpaceTotal($Drive) * 1024) & Chr(34) & ","
        $DriveSpaceFree &= Chr(34) & _ByteSuffix(DriveSpaceFree($Drive) * 1024) & Chr(34) & ","
        $DrivePercent &= Chr(34) & 100 - StringFormat('%.2f', DriveSpaceFree($Drive) / DriveSpaceTotal($Drive) * 100) & "%" & Chr(34) & ","
        $DriveLabel &= Chr(34) & DriveGetLabel($Drive) & Chr(34) & ","
    Next
    FileWriteLine($Output, "Local Drives,Letter," & StringUpper($AllLocalDrives))
    FileWriteLine($Output, ",Label," & $DriveLabel)
    FileWriteLine($Output, ",Total Space," & $DriveSpaceTotal)
    FileWriteLine($Output, ",Free Space," & $DriveSpaceFree)
    FileWriteLine($Output, ",Percent Full," & $DrivePercent)
    FileWriteLine($Output, "")
EndIf

Local $AllNetworkDrives = ""
Local $MapDetails = ""
Local $DriveSpaceTotal = ""
Local $DriveSpaceFree = ""
Local $DrivePercent = ""
Local $DriveLabel = ""
$DrivesMapped = DriveGetDrive("NETWORK")
If Not @error Then
    For $a = 1 To $DrivesMapped[0]
        $Drive = $DrivesMapped[$a]
        $MapDetails &= Chr(34) & DriveMapGet($Drive) & Chr(34) & ","
        $AllNetworkDrives &= Chr(34) & $Drive & Chr(34) & ","
        $DriveSpaceTotal &= Chr(34) & _ByteSuffix(DriveSpaceTotal($Drive) * 1024) & Chr(34) & ","
        $DriveSpaceFree &= Chr(34) & _ByteSuffix(DriveSpaceFree($Drive) * 1024) & Chr(34) & ","
        $DrivePercent &= Chr(34) & 100 - StringFormat('%.2f', DriveSpaceFree($Drive) / DriveSpaceTotal($Drive) * 100) & "%" & Chr(34) & ","
        $DriveLabel &= Chr(34) & DriveGetLabel($Drive) & Chr(34) & ","
    Next
    FileWriteLine($Output, "Network Drives,Letter," & StringUpper($AllNetworkDrives))
    FileWriteLine($Output, ",Label," & $DriveLabel)
    FileWriteLine($Output, ",Network Path," & $MapDetails)
    FileWriteLine($Output, ",Total Space," & $DriveSpaceTotal)
    FileWriteLine($Output, ",Free Space," & $DriveSpaceFree)
    FileWriteLine($Output, ",Percent Full," & $DrivePercent)
    FileWriteLine($Output, "")
EndIf

Local $NetworkAddresses = ""
$FoundIPs = 0
If @IPAddress1 <> "0.0.0.0" And @IPAddress1 <> "127.0.0.1" Then
    $NetworkAddresses &= Chr(34) & @IPAddress1 & Chr(34) & ","
    $FoundIPs += 1
EndIf
If @IPAddress2 <> "0.0.0.0" And @IPAddress2 <> "127.0.0.1" Then
    $NetworkAddresses &= Chr(34) & @IPAddress2 & Chr(34) & ","
    $FoundIPs += 1
EndIf
If @IPAddress3 <> "0.0.0.0" And @IPAddress3 <> "127.0.0.1" Then
    $NetworkAddresses &= Chr(34) & @IPAddress3 & Chr(34) & ","
    $FoundIPs += 1
EndIf
If @IPAddress4 <> "0.0.0.0" And @IPAddress4 <> "127.0.0.1" Then
    $NetworkAddresses &= Chr(34) & @IPAddress4 & Chr(34) & ","
    $FoundIPs += 1
EndIf
If $FoundIPs > 0 Then
    $IPMessage = "IP Address"
    If $FoundIPs > 1 Then $IPMessage &= "es"
    FileWriteLine($Output, $IPMessage & "," & $NetworkAddresses)
    FileWriteLine($Output, "")
EndIf

FileWriteLine($Output, "")
FileWriteLine($Output, "")
FileClose($Output)
GUICtrlDelete($Individual)
GUICtrlDelete($Append)
GUICtrlDelete($PrepareAgent)
GUICtrlDelete($Notes)
GUICtrlCreateLabel("Done, exiting in 1 second.", 10, 20, 230, 50, $SS_CENTER)
Sleep(1000)
Exit


Func _HZSuffix($Bytes)
    Local $x, $BytesSuffix[2] = ["MHz", "GHz"]
    While $Bytes > 1000
        $x += 1
        $Bytes /= 1000
    WEnd
    Return StringFormat('%.2f', $Bytes) & $BytesSuffix[$x]
EndFunc   ;==>_HZSuffix


Func _ByteSuffix($Bytes)
    Local $x, $BytesSuffix[6] = ["KB", "MB", "GB", "TB", "PB"]
    While $Bytes > 1023
        $x += 1
        $Bytes /= 1024
    WEnd
    Return StringFormat('%.2f', $Bytes) & $BytesSuffix[$x]
EndFunc   ;==>_ByteSuffix


Func _RAMSuffix($Bytes)
    Local $x, $BytesSuffix[6] = ["KB", "MB", "GB", "TB", "PB"]
    While $Bytes > 1023
        $x += 1
        $Bytes /= 1024
    WEnd
    $Bytes = Ceiling(StringFormat('%.2f', $Bytes))
    $Bytes = StringFormat('%.2f', $Bytes)
    Return $Bytes & $BytesSuffix[$x]
EndFunc   ;==>_RAMSuffix


Func _DecodeProductKey($Product)
    Local $bKey[15], $sKey[29], $Digits[24], $Value = 0, $hi = 0, $n = 0, $i = 0, $dlen = 29, $slen = 15, $Result, $BinaryDPID, $KeyPos = 0x34 * 2 + 3, $RegKey
    $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789", "")
    Switch $Product
        Case "Windows"
            $BinaryDPID = RegRead("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductId")
            $OSVersion = RegRead("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
        Case "Office XP"
            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\10.0\Registration'
            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\10.0\Registration'
            For $i = 1 To 100
                $var = RegEnumKey($RegKey, $i)
                If @error <> 0 Then ExitLoop
                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')
                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')
                If Not @error Then ExitLoop
            Next
        Case "Office 2003"
            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\11.0\Registration'
            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration'
            For $i = 1 To 100
                $var = RegEnumKey($RegKey, $i)
                If @error <> 0 Then ExitLoop
                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')
                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')
                If Not @error Then ExitLoop
            Next
        Case "Office 2007"
            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\12.0\Registration'
            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\12.0\Registration'
            For $i = 1 To 100
                $var = RegEnumKey($RegKey, $i)
                If @error <> 0 Then ExitLoop
                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')
                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')
                If Not @error Then ExitLoop
            Next
        Case "Office 2010 x86"
            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\14.0\Registration'
            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Registration'
            For $i = 1 To 100
                $var = RegEnumKey($RegKey, $i)
                If @error <> 0 Then ExitLoop
                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')
                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')
                If Not @error Then ExitLoop
            Next
            $KeyPos = 0x328 * 2 + 3
        Case "Office 2010 x64"
            If @OSArch <> 'x64' Then SetError(1, 0, "Product not found")
            $RegKey = 'HKLM64\SOFTWARE\Microsoft\Office\14.0\Registration'
            For $i = 1 To 100
                $var = RegEnumKey($RegKey, $i)
                If @error <> 0 Then ExitLoop
                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')
                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')
                If Not @error Then ExitLoop
            Next
            $KeyPos = 0x328 * 2 + 3
        Case Else
            Return SetError(1, 0, "Product not supported")
    EndSwitch

    If StringLen($BinaryDPID) < 29 Then Return SetError(1, 0, "Product not found")

    $BinaryDPID = StringMid($BinaryDPID, $KeyPos)
    For $i = 1 To 29 Step 2
        $bKey[Int($i / 2)] = Dec(StringMid($BinaryDPID, $i, 2))
    Next

    For $i = $dlen - 1 To 0 Step -1
        If Mod(($i + 1), 6) = 0 Then
            $sKey[$i] = "-"
        Else
            $hi = 0
            For $n = $slen - 1 To 0 Step -1
                $Value = BitOR(BitShift($hi, -8), $bKey[$n])
                $bKey[$n] = Int($Value / 24)
                $hi = Mod($Value, 24)
            Next
            $sKey[$i] = $Digits[$hi + 1]
        EndIf
    Next
    For $i = 0 To 28
        $Result = $Result & $sKey[$i]
    Next
    Return $Result
EndFunc   ;==>_DecodeProductKey


Func _BuildAgent($BuildSite, $BuildPath)
    GUICtrlSetData($Status, "Copying temp files")
    FileInstall("Array.au3", @TempDir & "\Array.au3", 1)
    FileInstall("WinAPI.au3", @TempDir & "\WinAPI.au3", 1)
    FileInstall("aut2exe.exe", @TempDir & "\aut2exe.exe", 1)
    FileInstall("autoitsc.bin", @TempDir & "\autoitsc.bin", 1)
    FileInstall("Security.au3", @TempDir & "\Security.au3", 1)
    FileInstall("WinAPIEx.au3", @TempDir & "\WinAPIEx.au3", 1)
    FileInstall("SendMessage.au3", @TempDir & "\SendMessage.au3", 1)
    FileInstall("WinAPIError.au3", @TempDir & "\WinAPIError.au3", 1)
    FileInstall("LocalAccount.au3", @TempDir & "\LocalAccount.au3", 1)
    FileInstall("FileConstants.au3", @TempDir & "\FileConstants.au3", 1)
    FileInstall("GUIConstantsEx.au3", @TempDir & "\GUIConstantsEx.au3", 1)
    FileInstall("StaticConstants.au3", @TempDir & "\StaticConstants.au3", 1)
    FileInstall("SecurityConstants.au3", @TempDir & "\SecurityConstants.au3", 1)
    FileInstall("StructureConstants.au3", @TempDir & "\StructureConstants.au3", 1)
    GUICtrlSetData($Status, "Building agent")
    $TempName = @TempDir & "\" & $BuildSite & ".au3"
    $CustomAgentAU3 = FileOpen($TempName, 2)
    FileWriteLine($CustomAgentAU3, "#include <Array.au3>")
    FileWriteLine($CustomAgentAU3, "#include <WinAPIEx.au3>")
    FileWriteLine($CustomAgentAU3, "#include <LocalAccount.au3>")
    FileWriteLine($CustomAgentAU3, "#include <GUIConstantsEx.au3>")
    FileWriteLine($CustomAgentAU3, "#include <StaticConstants.au3>")
    FileWriteLine($CustomAgentAU3, "Global $OSVersion")
    FileWriteLine($CustomAgentAU3, "Global $OfficeVersion")
    FileWriteLine($CustomAgentAU3, "$Output = FileOpen(" & Chr(34) & $BuildPath & Chr(34) & " & """ & $BuildSite & ".csv" & """, 1 + 8)")
    FileWriteLine($CustomAgentAU3, "If $Output == -1 Then")
    FileWriteLine($CustomAgentAU3, "    MsgBox(16, " & Chr(34) & "Error" & """,""" & "Unable to open file:" & Chr(34) & " & @CR & " & Chr(34) & $BuildPath & $BuildSite & ".csv""" & ")")
    FileWriteLine($CustomAgentAU3, "    Exit")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "$CustomNotes = InputBox(" & Chr(34) & "Notes" & Chr(34) & Chr(44) & Chr(34) & "Use this space to enter any notes about this computer.  Leave blank or cancel for none." & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "$OSArch = @OSArch")
    FileWriteLine($CustomAgentAU3, "$OSProductKey = _DecodeProductKey(" & Chr(34) & "Windows" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & "Computer Name," & Chr(34) & " & Chr(34) & @ComputerName & Chr(34))")
    FileWriteLine($CustomAgentAU3, "If $CustomNotes <> """" Then FileWriteLine($Output, " & Chr(34) & "Notes," & Chr(34) & " & Chr(34) & $CustomNotes & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & "Operating System,Version," & Chr(34) & " & Chr(34) & $OSVersion & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & ",Service Pack," & Chr(34) & " & Chr(34) & @OSServicePack & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & ",Architecture," & Chr(34) & " & Chr(34) & $OSArch & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & ",Product Key," & Chr(34) & " & Chr(34) & $OSProductKey & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "$FindUsers = _AccountEnum()")
    FileWriteLine($CustomAgentAU3, "If IsArray($FindUsers) Then")
    FileWriteLine($CustomAgentAU3, "    If $FindUsers[0] > 0 Then")
    FileWriteLine($CustomAgentAU3, "        $FilterGroup = " & Chr(34) & "HomeGroupUser$" & Chr(34) & " & @CR & " & Chr(34) & "Guest" & Chr(34) & " & @CR & " & Chr(34) & "Default" & Chr(34) & "")
    FileWriteLine($CustomAgentAU3, "        $FilterGroupBreak = StringSplit($FilterGroup, @CR)")
    FileWriteLine($CustomAgentAU3, "        For $a = 1 To $FilterGroupBreak[0]")
    FileWriteLine($CustomAgentAU3, "            $FindFiltered = -1")
    FileWriteLine($CustomAgentAU3, "            $FindFiltered = _ArraySearch($FindUsers, $FilterGroupBreak[$a])")
    FileWriteLine($CustomAgentAU3, "            If $FindFiltered > -1 Then")
    FileWriteLine($CustomAgentAU3, "                _ArrayDelete($FindUsers, $FindFiltered)")
    FileWriteLine($CustomAgentAU3, "                $FindUsers[0] -= 1")
    FileWriteLine($CustomAgentAU3, "            EndIf")
    FileWriteLine($CustomAgentAU3, "        Next")
    FileWriteLine($CustomAgentAU3, "        $LocalUsers = """"")
    FileWriteLine($CustomAgentAU3, "        For $a = 1 To $FindUsers[0]")
    FileWriteLine($CustomAgentAU3, "            $LocalUsers &= Chr(34) & $FindUsers[$a] & Chr(34) & Chr(44)")
    FileWriteLine($CustomAgentAU3, "        Next")
    FileWriteLine($CustomAgentAU3, "        FileWriteLine($Output, " & Chr(34) & "Local Users" & Chr(44) & Chr(34) & " & $LocalUsers)")
    FileWriteLine($CustomAgentAU3, "        FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "    EndIf")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "$OfficeInstalled = False")
    FileWriteLine($CustomAgentAU3, "$OfficeXPCOA = _DecodeProductKey(" & Chr(34) & "Office XP" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "$Office2003COA = _DecodeProductKey(" & Chr(34) & "Office 2003" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "$Office2007COA = _DecodeProductKey(" & Chr(34) & "Office 2007" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "$Office2010COAX86 = _DecodeProductKey(" & Chr(34) & "Office 2010 x86" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "$Office2010COAX64 = _DecodeProductKey(" & Chr(34) & "Office 2010 x64" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "If $OfficeXPCOA <> " & Chr(34) & "Product Not Found" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & "Office,Installed Version," & Chr(34) & " & Chr(34) & $OfficeVersion & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Product Key," & Chr(34) & " & Chr(34) & $OfficeXPCOA & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    $OfficeInstalled = True")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If $Office2003COA <> " & Chr(34) & "Product Not Found" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & "Office,Installed Version," & Chr(34) & " & Chr(34) & $OfficeVersion & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Product Key," & Chr(34) & " & Chr(34) & $Office2003COA & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    $OfficeInstalled = True")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If $Office2007COA <> " & Chr(34) & "Product Not Found" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & "Office,Installed Version," & Chr(34) & " & Chr(34) & $OfficeVersion & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Product Key," & Chr(34) & " & Chr(34) & $Office2007COA & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    $OfficeInstalled = True")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If $Office2010COAX86 <> " & Chr(34) & "Product Not Found" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & "Office,Installed Version," & Chr(34) & " & Chr(34) & $OfficeVersion & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Product Key," & Chr(34) & " & Chr(34) & $Office2010COAX86 & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    $OfficeInstalled = True")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If $Office2010COAX64 <> " & Chr(34) & "Product Not Found" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & "Office,Installed Version," & Chr(34) & " & Chr(34) & $OfficeVersion & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Product Key," & Chr(34) & " & Chr(34) & $Office2010COAX64 & Chr(34))")
    FileWriteLine($CustomAgentAU3, "    $OfficeInstalled = True")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If $OfficeInstalled == True Then FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "$CPUName = RegRead(" & Chr(34) & "HKLM64\HARDWARE\DESCRIPTION\System\CentralProcessor\0" & Chr(34) & ", " & Chr(34) & "ProcessorNameString" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "$CPUSpeed = _HZSuffix(RegRead(" & Chr(34) & "HKLM64\HARDWARE\DESCRIPTION\System\CentralProcessor\0" & Chr(34) & ", " & Chr(34) & "~MHz" & Chr(34) & "))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & "CPU,Type," & Chr(34) & " & Chr(34) & $CPUName & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & ",Speed," & Chr(34) & " & Chr(34) & $CPUSpeed & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "$RAMStats = MemGetStats()")
    FileWriteLine($CustomAgentAU3, "$RAMTotal = _RAMSuffix($RAMStats[1])")
    FileWriteLine($CustomAgentAU3, "$RAMFree = _ByteSuffix($RAMStats[2])")
    FileWriteLine($CustomAgentAU3, "$RAMVirtualTotal = _ByteSuffix($RAMStats[5])")
    FileWriteLine($CustomAgentAU3, "$RAMVirtualFree = _ByteSuffix($RAMStats[6])")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & "RAM,Total," & Chr(34) & " & Chr(34) & $RAMTotal & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & ",Free," & Chr(34) & " & Chr(34) & $RAMFree & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & ",Total Swap," & Chr(34) & " & Chr(34) & $RAMVirtualTotal & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, " & Chr(34) & ",Free Swap," & Chr(34) & " & Chr(34) & $RAMVirtualFree & Chr(34))")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "Local $AllLocalDrives = """"")
    FileWriteLine($CustomAgentAU3, "Local $DriveSpaceTotal = """"")
    FileWriteLine($CustomAgentAU3, "Local $DriveSpaceFree = """"")
    FileWriteLine($CustomAgentAU3, "Local $DrivePercent = """"")
    FileWriteLine($CustomAgentAU3, "Local $DriveLabel = """"")
    FileWriteLine($CustomAgentAU3, "$DrivesPhysical = DriveGetDrive(" & Chr(34) & "FIXED" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "If Not @error Then")
    FileWriteLine($CustomAgentAU3, "    For $a = 1 To $DrivesPhysical[0]")
    FileWriteLine($CustomAgentAU3, "        $Drive = $DrivesPhysical[$a]")
    FileWriteLine($CustomAgentAU3, "        $AllLocalDrives &= Chr(34) & StringUpper($Drive) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DriveSpaceTotal &= Chr(34) & _ByteSuffix(DriveSpaceTotal($Drive) * 1024) & Chr(34)& " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DriveSpaceFree &= Chr(34) & _ByteSuffix(DriveSpaceFree($Drive) * 1024) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DrivePercent &= Chr(34) & 100 - StringFormat('%.2f', DriveSpaceFree($Drive) / DriveSpaceTotal($Drive) * 100) & chr(37) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DriveLabel &= Chr(34) & DriveGetLabel($Drive) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "    Next")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & "Local Drives,Letter," & Chr(34) & " & $AllLocalDrives)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Label," & Chr(34) & " & $DriveLabel)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Total Space," & Chr(34) & " & $DriveSpaceTotal)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Free Space," & Chr(34) & " & $DriveSpaceFree)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Percent Full," & Chr(34) & " & $DrivePercent)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "Local $AllNetworkDrives = """"")
    FileWriteLine($CustomAgentAU3, "Local $MapDetails = """"")
    FileWriteLine($CustomAgentAU3, "Local $DriveSpaceTotal = """"")
    FileWriteLine($CustomAgentAU3, "Local $DriveSpaceFree = """"")
    FileWriteLine($CustomAgentAU3, "Local $DrivePercent = """"")
    FileWriteLine($CustomAgentAU3, "Local $DriveLabel = """"")
    FileWriteLine($CustomAgentAU3, "$DrivesMapped = DriveGetDrive(" & Chr(34) & "NETWORK" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "If Not @error Then")
    FileWriteLine($CustomAgentAU3, "    For $a = 1 To $DrivesMapped[0]")
    FileWriteLine($CustomAgentAU3, "        $Drive = $DrivesMapped[$a]")
    FileWriteLine($CustomAgentAU3, "        $MapDetails &= Chr(34) & DriveMapGet($Drive) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $AllNetworkDrives &= Chr(34) & StringUpper($Drive) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DriveSpaceTotal &= Chr(34) & _ByteSuffix(DriveSpaceTotal($Drive) * 1024) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DriveSpaceFree &= Chr(34) & _ByteSuffix(DriveSpaceFree($Drive) * 1024) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DrivePercent &= Chr(34) & 100 - StringFormat('%.2f', DriveSpaceFree($Drive) / DriveSpaceTotal($Drive) * 100) & chr(37) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "        $DriveLabel &= Chr(34) & DriveGetLabel($Drive) & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "    Next")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & "Network Drives,Letter," & Chr(34) & " & $AllNetworkDrives)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Label," & Chr(34) & " & $DriveLabel)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Network Path," & Chr(34) & " & $MapDetails)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Total Space," & Chr(34) & " & $DriveSpaceTotal)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Free Space," & Chr(34) & " & $DriveSpaceFree)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, " & Chr(34) & ",Percent Full," & Chr(34) & " & $DrivePercent)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "Local $NetworkAddresses = """"")
    FileWriteLine($CustomAgentAU3, "$FoundIPs = 0")
    FileWriteLine($CustomAgentAU3, "If @IPAddress1 <> " & Chr(34) & "0.0.0.0" & Chr(34) & " And @IPAddress1 <> " & Chr(34) & "127.0.0.1" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    $NetworkAddresses &= Chr(34) & @IPAddress1 & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "    $FoundIPs += 1")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If @IPAddress2 <> " & Chr(34) & "0.0.0.0" & Chr(34) & " And @IPAddress2 <> " & Chr(34) & "127.0.0.1" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    $NetworkAddresses &= Chr(34) & @IPAddress2 & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "    $FoundIPs += 1")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If @IPAddress3 <> " & Chr(34) & "0.0.0.0" & Chr(34) & " And @IPAddress3 <> " & Chr(34) & "127.0.0.1" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    $NetworkAddresses &= Chr(34) & @IPAddress3 & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "    $FoundIPs += 1")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If @IPAddress4 <> " & Chr(34) & "0.0.0.0" & Chr(34) & " And @IPAddress4 <> " & Chr(34) & "127.0.0.1" & Chr(34) & " Then")
    FileWriteLine($CustomAgentAU3, "    $NetworkAddresses &= Chr(34) & @IPAddress4 & Chr(34) & " & Chr(34) & Chr(44) & Chr(34))
    FileWriteLine($CustomAgentAU3, "    $FoundIPs += 1")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "If $FoundIPs > 0 Then")
    FileWriteLine($CustomAgentAU3, "    $IPMessage = " & Chr(34) & "IP Address" & Chr(34))
    FileWriteLine($CustomAgentAU3, "    If $FoundIPs > 1 Then $IPMessage &= " & Chr(34) & "es" & Chr(34))
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, $IPMessage & " & Chr(34) & Chr(44) & Chr(34) & " & $NetworkAddresses)")
    FileWriteLine($CustomAgentAU3, "    FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "EndIf")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "FileWriteLine($Output, """")")
    FileWriteLine($CustomAgentAU3, "FileClose($Output)")
    FileWriteLine($CustomAgentAU3, "MsgBox(64, " & Chr(34) & "DONE" & Chr(34) & ", " & Chr(34) & "Finished, exiting in 1 second." & Chr(34) & ", 1)")
    FileWriteLine($CustomAgentAU3, "Exit")
    FileWriteLine($CustomAgentAU3, "Func _HZSuffix($Bytes)")
    FileWriteLine($CustomAgentAU3, "    Local $x, $BytesSuffix[2] = [" & Chr(34) & "MHz" & Chr(34) & ", " & Chr(34) & "GHz" & Chr(34) & "]")
    FileWriteLine($CustomAgentAU3, "    While $Bytes > 1000")
    FileWriteLine($CustomAgentAU3, "        $x += 1")
    FileWriteLine($CustomAgentAU3, "        $Bytes /= 1000")
    FileWriteLine($CustomAgentAU3, "    WEnd")
    FileWriteLine($CustomAgentAU3, "    Return StringFormat('%.2f', $Bytes) & $BytesSuffix[$x]")
    FileWriteLine($CustomAgentAU3, "EndFunc   ;==>_HZSuffix")
    FileWriteLine($CustomAgentAU3, "Func _ByteSuffix($Bytes)")
    FileWriteLine($CustomAgentAU3, "    Local $x, $BytesSuffix[6] = [" & Chr(34) & "KB" & Chr(34) & ", " & Chr(34) & "MB" & Chr(34) & ", " & Chr(34) & "GB" & Chr(34) & ", " & Chr(34) & "TB" & Chr(34) & ", " & Chr(34) & "PB" & Chr(34) & "]")
    FileWriteLine($CustomAgentAU3, "    While $Bytes > 1023")
    FileWriteLine($CustomAgentAU3, "        $x += 1")
    FileWriteLine($CustomAgentAU3, "        $Bytes /= 1024")
    FileWriteLine($CustomAgentAU3, "    WEnd")
    FileWriteLine($CustomAgentAU3, "    Return StringFormat('%.2f', $Bytes) & $BytesSuffix[$x]")
    FileWriteLine($CustomAgentAU3, "EndFunc   ;==>_ByteSuffix")
    FileWriteLine($CustomAgentAU3, "Func _RAMSuffix($Bytes)")
    FileWriteLine($CustomAgentAU3, "    Local $x, $BytesSuffix[6] = [" & Chr(34) & "KB" & Chr(34) & ", " & Chr(34) & "MB" & Chr(34) & ", " & Chr(34) & "GB" & Chr(34) & ", " & Chr(34) & "TB" & Chr(34) & ", " & Chr(34) & "PB" & Chr(34) & "]")
    FileWriteLine($CustomAgentAU3, "    While $Bytes > 1023")
    FileWriteLine($CustomAgentAU3, "        $x += 1")
    FileWriteLine($CustomAgentAU3, "        $Bytes /= 1024")
    FileWriteLine($CustomAgentAU3, "    WEnd")
    FileWriteLine($CustomAgentAU3, "    $Bytes = Ceiling(StringFormat('%.2f', $Bytes))")
    FileWriteLine($CustomAgentAU3, "    $Bytes = StringFormat('%.2f', $Bytes)")
    FileWriteLine($CustomAgentAU3, "    Return $Bytes & $BytesSuffix[$x]")
    FileWriteLine($CustomAgentAU3, "EndFunc   ;==>_RAMSuffix")
    FileWriteLine($CustomAgentAU3, "Func _DecodeProductKey($Product)")
    FileWriteLine($CustomAgentAU3, "    Local $bKey[15], $sKey[29], $Digits[24], $Value = 0, $hi = 0, $n = 0, $i = 0, $dlen = 29, $slen = 15, $Result, $BinaryDPID, $KeyPos = 0x34 * 2 + 3, $RegKey")
    FileWriteLine($CustomAgentAU3, "    $Digits = StringSplit(" & Chr(34) & "BCDFGHJKMPQRTVWXY2346789""" & Chr(44) & """""" & ")")
    FileWriteLine($CustomAgentAU3, "    Switch $Product")
    FileWriteLine($CustomAgentAU3, "        Case " & Chr(34) & "Windows" & Chr(34))
    FileWriteLine($CustomAgentAU3, "            $BinaryDPID = RegRead(" & Chr(34) & "HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion" & Chr(34) & ", " & Chr(34) & "DigitalProductId" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "            $OSVersion = RegRead(" & Chr(34) & "HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion" & Chr(34) & ", " & Chr(34) & "ProductName" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "        Case " & Chr(34) & "Office XP" & Chr(34))
    FileWriteLine($CustomAgentAU3, "            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\10.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\10.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            For $i = 1 To 100")
    FileWriteLine($CustomAgentAU3, "                $var = RegEnumKey($RegKey, $i)")
    FileWriteLine($CustomAgentAU3, "                If @error <> 0 Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')")
    FileWriteLine($CustomAgentAU3, "                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')")
    FileWriteLine($CustomAgentAU3, "                If Not @error Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "            Next")
    FileWriteLine($CustomAgentAU3, "        Case " & Chr(34) & "Office 2003" & Chr(34))
    FileWriteLine($CustomAgentAU3, "            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\11.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            For $i = 1 To 100")
    FileWriteLine($CustomAgentAU3, "                $var = RegEnumKey($RegKey, $i)")
    FileWriteLine($CustomAgentAU3, "                If @error <> 0 Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')")
    FileWriteLine($CustomAgentAU3, "                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')")
    FileWriteLine($CustomAgentAU3, "                If Not @error Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "            Next")
    FileWriteLine($CustomAgentAU3, "        Case " & Chr(34) & "Office 2007" & Chr(34))
    FileWriteLine($CustomAgentAU3, "            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\12.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\12.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            For $i = 1 To 100")
    FileWriteLine($CustomAgentAU3, "                $var = RegEnumKey($RegKey, $i)")
    FileWriteLine($CustomAgentAU3, "                If @error <> 0 Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')")
    FileWriteLine($CustomAgentAU3, "                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')")
    FileWriteLine($CustomAgentAU3, "                If Not @error Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "            Next")
    FileWriteLine($CustomAgentAU3, "        Case " & Chr(34) & "Office 2010 x86" & Chr(34))
    FileWriteLine($CustomAgentAU3, "            $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\14.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            If @OSArch = 'x64' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            For $i = 1 To 100")
    FileWriteLine($CustomAgentAU3, "                $var = RegEnumKey($RegKey, $i)")
    FileWriteLine($CustomAgentAU3, "                If @error <> 0 Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')")
    FileWriteLine($CustomAgentAU3, "                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')")
    FileWriteLine($CustomAgentAU3, "                If Not @error Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "            Next")
    FileWriteLine($CustomAgentAU3, "            $KeyPos = 0x328 * 2 + 3")
    FileWriteLine($CustomAgentAU3, "        Case " & Chr(34) & "Office 2010 x64" & Chr(34))
    FileWriteLine($CustomAgentAU3, "            If @OSArch <> 'x64' Then SetError(1, 0, " & Chr(34) & "Product not found" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "            $RegKey = 'HKLM64\SOFTWARE\Microsoft\Office\14.0\Registration'")
    FileWriteLine($CustomAgentAU3, "            For $i = 1 To 100")
    FileWriteLine($CustomAgentAU3, "                $var = RegEnumKey($RegKey, $i)")
    FileWriteLine($CustomAgentAU3, "                If @error <> 0 Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "                $BinaryDPID = RegRead($RegKey & '\' & $var, 'DigitalProductId')")
    FileWriteLine($CustomAgentAU3, "                $OfficeVersion = RegRead($RegKey & '\' & $var, 'ProductName')")
    FileWriteLine($CustomAgentAU3, "                If Not @error Then ExitLoop")
    FileWriteLine($CustomAgentAU3, "            Next")
    FileWriteLine($CustomAgentAU3, "            $KeyPos = 0x328 * 2 + 3")
    FileWriteLine($CustomAgentAU3, "        Case Else")
    FileWriteLine($CustomAgentAU3, "            Return SetError(1, 0, " & Chr(34) & "Product not supported" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "    EndSwitch")
    FileWriteLine($CustomAgentAU3, "    If StringLen($BinaryDPID) < 29 Then Return SetError(1, 0, " & Chr(34) & "Product not found" & Chr(34) & ")")
    FileWriteLine($CustomAgentAU3, "    $BinaryDPID = StringMid($BinaryDPID, $KeyPos)")
    FileWriteLine($CustomAgentAU3, "    For $i = 1 To 29 Step 2")
    FileWriteLine($CustomAgentAU3, "        $bKey[Int($i / 2)] = Dec(StringMid($BinaryDPID, $i, 2))")
    FileWriteLine($CustomAgentAU3, "    Next")
    FileWriteLine($CustomAgentAU3, "    For $i = $dlen - 1 To 0 Step -1")
    FileWriteLine($CustomAgentAU3, "        If Mod(($i + 1), 6) = 0 Then")
    FileWriteLine($CustomAgentAU3, "            $sKey[$i] = """ & Chr(45) & """")
    FileWriteLine($CustomAgentAU3, "        Else")
    FileWriteLine($CustomAgentAU3, "            $hi = 0")
    FileWriteLine($CustomAgentAU3, "            For $n = $slen - 1 To 0 Step -1")
    FileWriteLine($CustomAgentAU3, "                $Value = BitOR(BitShift($hi, -8), $bKey[$n])")
    FileWriteLine($CustomAgentAU3, "                $bKey[$n] = Int($Value / 24)")
    FileWriteLine($CustomAgentAU3, "                $hi = Mod($Value, 24)")
    FileWriteLine($CustomAgentAU3, "            Next")
    FileWriteLine($CustomAgentAU3, "            $sKey[$i] = $Digits[$hi + 1]")
    FileWriteLine($CustomAgentAU3, "        EndIf")
    FileWriteLine($CustomAgentAU3, "    Next")
    FileWriteLine($CustomAgentAU3, "    For $i = 0 To 28")
    FileWriteLine($CustomAgentAU3, "        $Result = $Result & $sKey[$i]")
    FileWriteLine($CustomAgentAU3, "    Next")
    FileWriteLine($CustomAgentAU3, "    Return $Result")
    FileWriteLine($CustomAgentAU3, "EndFunc   ;==>_DecodeProductKey")

    GUICtrlSetData($Status, "Compiling agent")
    RunWait(Chr(34) & @TempDir & "\aut2exe.exe" & Chr(34) & " /In " & Chr(34) & $TempName & Chr(34) & " /out " & Chr(34) & $BuildPath & $BuildSite & " Audit Agent.exe" & Chr(34) & " /nopack")
    GUICtrlDelete($Status)
EndFunc   ;==>_BuildAgent

Any ideas? Is it a version issue since I am using the newest version of Autoit?

Share this post


Link to post
Share on other sites
water

This is caused by line

FileInstall("Array.au3", @TempDir & "\Array.au3", 1)

This should be the full path to the AutoIt include directory or you need to copy the au3 files to the directory where your script is located.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites
argumentum

yeap,

The following list of files MUST also be present in the script directory to compile, as they are required for the custom agent creation:    (You can find them in the AutoIt install folder)

Share this post


Link to post
Share on other sites
Melba23

crustymonkey,

The script clearly states:

The following list of files MUST also be present in the script directory to compile

and once I move those files (the include list) to the same folder the script compiles without problem.

But this is not recommended practice and coders should normally not have to do this.

M23

  • Like 1

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
crustymonkey

Thanks guys....I now get a missing autoitsc.bin file that I cannot locate. I checked my AV to make sure it wasn't flagged as a virus.

 

Share this post


Link to post
Share on other sites
crustymonkey

I got it. I just commented it out. I do not need the agent builder stuff.

Share this post


Link to post
Share on other sites
Melba23

crustymonkey,

That file is no longer needed for compilation. So that means the script probably dates from a while ago - which is why we usually ask that people link to the original rather than repost the whole script. If I were you I would post in the original thread and ask the author to update it.  I will take a look this evening and see how difficult it might be to do it - but no promises.

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
crustymonkey

No worries Melba23. I need to learn to script in Autoit myself. I just needed something quick to help me with some auditing tasks,

Share this post


Link to post
Share on other sites
Melba23

crustymonkey,

That did not take too long. if you move all the required files in the initial list (bar autoitsc.bin) into the same folder as the script and comment out this line (#414 in my copy):

FileInstall("autoitsc.bin", @TempDir & "\autoitsc.bin", 1)

it should work.

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
crustymonkey

That is exactly what I did. It worked just fine. I appreciate all the help here. I like when a forum actually helps people instead of flaming them. :)

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×