; ----------------------------------------------------------------------------
; AutoIt Version: 3.1.0
; Author: Kenneth P. Morrissey <kmorrissey@cooperwiringdevices.com>
;
; Script Function:
; Checks standard security and software on CWD PC's
; ----------------------------------------------------------------------------
;Include Built in file required for GUI Functions
#include <GuiConstants.au3>
#include <GuiConstantsEx.au3>
#Include <WindowsConstants.au3>
#Include <StaticConstants.au3>
; Change to GUI OnEvent mode
Opt("GUIOnEventMode", 1)
;Start Process Command Line Parameters if any and determine run mode (User or Admin)
$IsAdmin = IsAdmin()
$Start = 1
;Declare Vars
Global $Start, $QCFailed, $MFG, $MDL, $SN, $CPU, $CPUSPEED, $RAM, $VIDEO, $SAV, $SAP, $JRE, $Adobe, $Webex, $Shockwave, $Flash, $PCA, $SUS, $RDP
Global $PERMS, $PageSTS, $PageMIN, $PageMAX, $AdminGroup, $GRDP, $GNET, $AdminPass, $RASC, $Printer, $CA, $SCAN, $MINITAB, $DVD, $Office, $Visio, $Project
;GUI Windows
Global $mainwindow, $OfficeGUI
;Buttons
Global $Buttons[27]
$Buttons[0] = 26
Global $OfficeBTN1
Global $OfficeBTN2
;Labels
Global $Labels[75]
$Labels[0] = 74
If $CMDLine[0] > 0 Then
If $CMDLine[1] = "/u" OR $CMDLine[1] = "/user" Then
User
()
Exit
EndIf
If $CMDLine[1] = "/a" OR $CMDLine[1] = "/admin" OR $CMDLine[1] = "/administrator" Then
If $IsAdmin() = 1 Then
Admin
()
Exit
Else
MsgBox(4096,"Predeployment QC Failed", "This tool cannot be run in administration mode." & @CR & "Current user does not have administive privelages.")
Exit
EndIf
EndIf
If $CMDLine[1] = "/?" Then
MsgBox(4096, "Predeployment QC Failed", "This tool will automatically decide to use User Mode or Admin Mode based on the current user rights." & @CR & @CR & "This can be overridden with the following switches:" & @CR & "/a or /admin - force tool into Admin Mode (requires administrative privileges)" & @CR & "/u or /user - force tool into User Mode")
Exit
EndIf
MsgBox(4096, "Predeployment QC Failed", "Invalid Command Line Parameters")
Exit
Else
If $IsAdmin() = 1 Then
Admin
()
Else
User
()
EndIf
EndIf
;-------------------------------------------------------
;Start Custom Functions
Func User
()
MsgBox(4096,"PC Quality Control Check", " User Mode ")
EndFunc
Func Admin
()
;Admin mode for script
;Retrieve System Info
ProgressOn("PC Quality Control Check", "Retrieving System Information", "", -1, -1)
ProgressSet(20)
SYSINFO
()
CrtAdminGUI
()
; Set GUI On Event Parameters
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlSetOnEvent($Buttons[25], "RefreshAll")
GUICtrlSetOnEvent($Buttons[1], "EnableRDP")
GUICtrlSetOnEvent($Buttons[3], "ChgPageFile")
GUICtrlSetOnEvent($Buttons[4], "ChgAdminPass")
GUICtrlSetOnEvent($Buttons[5], "FixAdmGrp")
GUICtrlSetOnEvent($Buttons[6], "FixRDPGrp")
GUICtrlSetOnEvent($Buttons[7], "FixNETGrp")
GUICtrlSetOnEvent($Buttons[8], "InstSAV")
GUICtrlSetOnEvent($Buttons[9], "InstJRE")
GUICtrlSetOnEvent($Buttons[10], "InstSAP")
GUICtrlSetOnEvent($Buttons[11], "InstAcrobat")
GUICtrlSetOnEvent($Buttons[12], "InstWebex")
GUICtrlSetOnEvent($Buttons[13], "InstShockwave")
GUICtrlSetOnEvent($Buttons[14], "InstFlash")
GUICtrlSetOnEvent($Buttons[15], "InstPCAny")
GUICtrlSetOnEvent($Buttons[16], "RefreshSYS")
GUICtrlSetOnEvent($Buttons[17], "RefreshAPP")
GUICtrlSetOnEvent($Buttons[18], "InstCA")
GUICtrlSetOnEvent($Buttons[19], "InstSCAN")
GUICtrlSetOnEvent($Buttons[20], "InstMINITAB")
GUICtrlSetOnEvent($Buttons[21], "InstDVD")
GUICtrlSetOnEvent($Buttons[22], "InstOffice")
GUICtrlSetOnEvent($Buttons[23], "InstVisio")
GUICtrlSetOnEvent($Buttons[24], "InstProject")
GUICtrlSetOnEvent($Buttons[26], "PrintAdmin")
;Initial Scan
RefreshAll
()
$Start = 0
;Activate GUI Window / While statement just idles the program to keep it running due to GUIOnEventMode
GUISetState(@SW_SHOW, $mainwindow)
While 1
Sleep(1000)
WEnd
EndFunc
Func PrintAdmin
()
FileDelete(@ScriptDir & "\ScreenShot.jpg")
$array = WinGetPos("CWD ITS Department - PC Quality Control Check")
DllCall("captdll.dll", "int", "CaptureRegion", "str", "ScreenShot.jpg", "int", $array[0], "int", $array[1], "int", $array[2], "int", $array[3], "int", 85)
RunWait(@COMSPEC & ' /c rundll32.exe ' & @SystemDir & '\mshtml.dll,PrintHTML "' & @ScriptDir & "\ScreenShot.jpg", @TempDir, @SW_HIDE)
FileDelete(@ScriptDir & "\ScreenShot.jpg")
EndFunc
Func InstCA
()
RunWait(@ComSpec & ' /c "net use O: \\fileserver1\workgroups\ITS\operations /persistent:no"', @SystemDir, @SW_HIDE)
Run("O:\Programs\IBM\Client Access\V5R2\Setup Files\SETUP.EXE", "o:\Programs\IBM\Client Access\V5R2\Setup Files\")
EndFunc
Func InstSCAN
()
RunWait(@ComSpec & ' /c "net use O: \\fileserver1\workgroups\ITS\operations /persistent:no"', @SystemDir, @SW_HIDE)
Run("o:\Programs\Canon\Scanner\disk1\Setup.exe", "o:\Programs\Canon\Scanner\disk1\")
EndFunc
Func InstMINITAB
()
Run('msiexec /i "\\ptcdc\packages$\MiniTab\MiniTab14.msi"', @SystemDir)
EndFunc
Func InstDVD
()
RunWait(@ComSpec & ' /c "net use O: \\fileserver1\workgroups\ITS\operations /persistent:no"', @SystemDir, @SW_HIDE)
Run("o:\Programs\Power DVD 5.5 for Dell Machines\Setup Files\Setup.exe", "o:\Programs\Power DVD 5.5 for Dell Machines\Setup Files\")
EndFunc
Func InstOFFPRO
()
Run('\\fileserver1\o2k\pro\setup.exe transforms="\\fileserver1\o2k\pro\cdrive.mst" /qb+', "\\fileserver1\o2k\pro\")
OfficeClose
()
MsgBox(4096,"", "Setup Started")
EndFunc
Func InstOFFSTD
()
Run('\\fileserver1\o2k\std\setup.exe transforms="\\fileserver1\o2k\std\cdrive.mst" /qb+', "\\fileserver1\o2k\std\")
OfficeClose
()
MsgBox(4096,"", "Setup Started")
EndFunc
Func InstOffice
()
GUISetState(@SW_SHOW, $OfficeGUI)
EndFunc
Func OfficeClose
()
GUISetState(@SW_HIDE, $OfficeGUI)
EndFunc
Func InstVisio
()
RunWait(@ComSpec & ' /c "net use O: \\fileserver1\workgroups\ITS\operations /persistent:no"', @SystemDir, @SW_HIDE)
Run("O:\Programs\Microsoft\Visio 2K Std\Setup.exe", "O:\Programs\Microsoft\Visio 2K Std")
EndFunc
Func InstProject
()
RunWait(@ComSpec & ' /c "net use O: \\fileserver1\workgroups\ITS\operations /persistent:no"', @SystemDir, @SW_HIDE)
Run("O:\Programs\Microsoft\Project 2000 Std - No CD Key\Setup.exe", "O:\Programs\Microsoft\Project 2000 Std - No CD Key")
EndFunc
Func InstPCAny
()
RunWait(@ComSpec & ' /c "net use O: \\fileserver1\workgroups\ITS\operations /persistent:no"', @SystemDir, @SW_HIDE)
Run("o:\Programs\Symantec\PC Anywhere\PCAnywhere 11\setup.exe", "o:\Programs\Symantec\PC Anywhere\PCAnywhere 11\")
EndFunc
Func InstFlash
()
Run('msiexec /i "\\fileserver1\Workgroups\ITS\Operations\Programs\Macromedia Players - MSI Packages\install_flash_player_active_x.msi"', @SystemDir)
EndFunc
Func InstShockwave
()
Run('msiexec /i "\\fileserver1\Workgroups\ITS\Operations\Programs\Macromedia Players - MSI Packages\shockwave_lic_full_installer.msi"', @SystemDir)
EndFunc
Func InstWebex
()
Run('msiexec /i "\\ptcdc\packages$\Webex\1-27-06\atmcie.msi"', @SystemDir)
EndFunc
Func InstAcrobat
()
Run("\\ptcdc\packages$\Adobe Acrobat Reader 7.0.5\setup.exe", "\\ptcdc\packages$\Adobe Acrobat Reader 7.0.5")
EndFunc
Func InstSAP
()
Run("\\DEATHSTAR\SAP\EBSUpgrade.exe", "\\DEATHSTAR\SAP")
EndFunc
Func InstJRE
()
Run('msiexec /i "\\ptcdc\packages$\JRE\Java 2 Runtime Environment, SE v1.4.2.msi"', @SystemDir)
EndFunc
Func InstSAV
()
Run("\\deathstar\VPHOME\CLT-INST\WIN32\Setup.exe", "\\deathstar\VPHOME\CLT-INST\WIN32")
EndFunc
Func FixNETGrp
()
RunWait(@ComSpec & ' /c net localgroup Network Configuration Operators "CWD\Domain Users" /ADD', @SystemDir, @SW_HIDE)
RefreshSYS
()
EndFunc
Func FixRDPGrp
()
RunWait(@ComSpec & ' /c net localgroup Remote Desktop Users "CWD\Domain Users" /ADD', @SystemDir, @SW_HIDE)
RefreshSYS
()
EndFunc
Func FixAdmGrp
()
RunWait(@ComSpec & ' /c net localgroup administrators "CWD\Junior Admins" /ADD', @SystemDir, @SW_HIDE)
RunWait(@ComSpec & ' /c net localgroup administrators "CWD\Domain Admins" /ADD', @SystemDir, @SW_HIDE)
RefreshSYS
()
EndFunc
Func ChgAdminPass
()
RunWait(@ComSpec & ' /c net user administrator "a1s2d3f4g5"', @SystemDir, @SW_HIDE)
RefreshSYS
()
EndFunc
Func ChgPageFile
()
$Page = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "PagingFiles")
$page = StringReplace($page, $PageMin, "3000")
$page = StringReplace($page, $PageMax, "3000")
RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "PagingFiles", "REG_MULTI_SZ", $Page)
RefreshSYS
()
EndFunc
Func EnableRDP
()
RegWrite("HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server", "fDenyTSConnections", "REG_DWORD", 0)
RefreshSYS
()
EndFunc
Func RefreshAll
()
GUISetState(@SW_DISABLE)
If $Start = 0 Then ProgressOn("PC Quality Control Check", "", "", -1, -1, 1)
ProgressSet(50, "", "Retrieving Application Settings")
SoftwareCheck
()
UPDSoft
()
ProgressSet(75, "", "Retrieving Windows Settings")
SystemCheck
()
UpdSYS
()
ProgressOff()
GUISetState(@SW_ENABLE)
EndFunc
Func RefreshAPP
()
GUISetState(@SW_DISABLE)
If $Start = 0 Then ProgressOn("PC Quality Control Check", "Retrieving Application Settings", "", -1, -1, 1)
ProgressSet(70)
SoftwareCheck
()
UPDSoft
()
ProgressOff()
GUISetState(@SW_ENABLE)
EndFunc
Func RefreshSYS
()
GUISetState(@SW_DISABLE)
If $Start = 0 Then ProgressOn("PC Quality Control Check", "Retrieving Windows Settings", "", -1, -1, 1)
ProgressSet(70)
SystemCheck
()
UpdSYS
()
ProgressOff()
GUISetState(@SW_ENABLE)
EndFunc
Func UPDSoft
()
GUICtrlSetData($Labels[43], $SAV)
GUICtrlSetData($Labels[45], $JRE)
GUICtrlSetData($Labels[47], $SAP)
GUICtrlSetData($Labels[49], $Adobe)
GUICtrlSetData($Labels[51], $Webex)
GUICtrlSetData($Labels[53], $Shockwave)
GUICtrlSetData($Labels[55], $Flash)
GUICtrlSetData($Labels[57], $PCA)
GUICtrlSetData($Labels[59], $CA)
GUICtrlSetData($Labels[61], $SCAN)
GUICtrlSetData($Labels[63], $MINITAB)
GUICtrlSetData($Labels[65], $DVD)
GUICtrlSetData($Labels[67], $Office)
GUICtrlSetData($Labels[69], $Visio)
GUICtrlSetData($Labels[71], $Project)
EndFunc
Func UpdSYS
()
GUICtrlSetData($Labels[20], $RDP)
GUICtrlSetData($Labels[22], $PERMS)
GUICtrlSetData($Labels[24], $SUS)
GUICtrlSetData($Labels[26], $PageSTS & " Min- " & $PageMIN & " Max- " & $PageMax)
GUICtrlSetData($Labels[28], $AdminPass)
GUICtrlSetData($Labels[30], $AdminGroup)
GUICtrlSetData($Labels[32], $GRDP)
GUICtrlSetData($Labels[34], $GNET)
GUICtrlSetData($Labels[36], $RASC)
EndFunc
Func SYSINFO
()
$QCFailed = ""
;Machine Inventory
RunWait(@comspec & ' /c psinfo.EXE | clipboard.exe', @ScriptDir, @SW_HIDE)
$PSInfo = ClipGet()
$PSInfo1 = StringInStr($PSInfo, "Processor Speed:")
$PSInfo1 = $PSInfo1 - 1
$PSInfo = StringTrimLeft($PSInfo, $PSInfo1)
$PSInfo = StringReplace($PSInfo, "Processor speed: ", "")
$PSInfo = StringReplace($PSInfo, "Processor type: ", "")
$PSInfo = StringReplace($PSInfo, "Physical memory: ", "")
$PSInfo = StringReplace($PSInfo, "Video driver: ", "")
$PSInfo1 = StringInStr($PSInfo, @CR)
$PSInfo1 = $PSInfo1 - 1
$CPUSPEED = StringLeft($PSInfo, $PSInfo1)
$PSInfo1 = $PSInfo1 + 1
$PSInfo = StringTrimLeft($PSInfo, $PSInfo1)
$QCFailed = ($QCFailed & "" & @CRLF)
$PSInfo1 = StringInStr($PSInfo, @CR)
$PSInfo1 = $PSInfo1 - 1
$CPU = StringLeft($PSInfo, $PSInfo1)
$CPU = StringTrimLeft($CPU, 1)
$PSInfo1 = $PSInfo1 + 1
$PSInfo = StringTrimLeft($PSInfo, $PSInfo1)
$QCFailed = ($QCFailed & "" & @CRLF)
$PSInfo1 = StringInStr($PSInfo, @CR)
$PSInfo1 = $PSInfo1 - 1
$RAM = StringLeft($PSInfo, $PSInfo1)
$RAM = StringTrimLeft($RAM, 1)
$PSInfo1 = $PSInfo1 + 1
$PSInfo = StringTrimLeft($PSInfo, $PSInfo1)
$QCFailed = ($QCFailed & "" & @CRLF)
$PSInfo1 = StringInStr($PSInfo, @CR)
$PSInfo1 = $PSInfo1 - 1
$VIDEO = StringLeft($PSInfo, $PSInfo1)
$VIDEO = StringTrimLeft($VIDEO, 1)
$PSInfo1 = $PSInfo1 + 1
$PSInfo = StringTrimLeft($PSInfo, $PSInfo1)
$QCFailed = ($QCFailed & "" & @CRLF)
$QCFailed = ($QCFailed & "" & @CRLF)
RunWait(@comspec & ' /c "SM_INFO.EXE | clipboard.exe"', @ScriptDir, @SW_HIDE)
$SMInfo = ClipGet()
$STRING = StringInStr($SMInfo, "BIOS vendor: Dell")
If $STRING = 0 Then
$QCFailed = ($QCFailed & "1" & @CRLF & @CRLF)
Else
$MFG = StringInStr($SMInfo, "BIOS vendor: ")
$MFG = $MFG + 12
$MFG1 = StringTrimLeft($SMInfo, $MFG)
$MFG = StringInStr($MFG1, @CR)
$MFG = $MFG - 1
$MFG = StringLeft($MFG1, $MFG)
$MDL = StringInStr($SMInfo, "System Name: ")
$MDL = $MDL + 12
$MDL1 = StringTrimLeft($SMInfo, $MDL)
$MDL = StringInStr($MDL1, @CR)
$MDL = $MDL - 2
$MDL = StringLeft($MDL1, $MDL)
If StringLeft($MDL, 2) = "HP" Then
$MFG = StringLeft($MDL, 2)
$MDL = StringTrimLeft($MDL, 3)
EndIf
$SN = StringInStr($SMInfo, "Service tag: ")
$SN = $SN + 12
$SN1 = StringTrimLeft($SMInfo, $SN)
$SN = StringInStr($SN1, @CR)
$SN = $SN - 1
$SN = StringLeft($SN1, $SN)
$QCFailed = ($QCFailed & $MFG & @CRLF)
$QCFailed = ($QCFailed & $MDL & @CRLF)
$QCFailed = ($QCFailed & $SN & @CRLF & $PSInfo & @CRLF & @CRLF)
EndIf
EndFunc
Func SoftwareCheck
()
Sleep(2000)
;SAV Failed
$SAV = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{5A633ED0-E5D7-4D65-AB8D-53ED43510284}", "DisplayVersion")
$SAVE = @error
If $SAV <> "" Then
If StringLeft($SAV, 2) = 10 Then
$SAVParent = RegRead("HKLM\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion", "Parent")
If $SAVParent = "DEATHSTAR" Then
$SAV = "OK Parent Server- DEATHSTAR"
GUICtrlSetState($Buttons[8], $GUI_DISABLE)
Else
$SAV = "Failed (Reinstall) Parent Server Incorrect - Perform Reinstall"
GUICtrlSetState($Buttons[8], $GUI_ENABLE)
EndIf
Else
$SAV = "Outdated"
GUICtrlSetState($Buttons[8], $GUI_ENABLE)
EndIf
EndIf
If $SAVE = 1 or $SAVE = -1 Then
$SAV = "Not Detected"
GUICtrlSetState($Buttons[8], $GUI_ENABLE)
EndIf
;Java Runtime
$JRE = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{7148F0A8-6813-11D6-A77B-00B0D0142000}", "DisplayVersion")
$JREE = @error
If $JRE <> "" Then
If StringLeft($JRE, 3) = "1.4" Then
$JRE = "OK"
GUICtrlSetState($Buttons[9], $GUI_DISABLE)
Else
$JRE = "Outdated"
GUICtrlSetState($Buttons[9], $GUI_ENABLE)
EndIf
EndIf
If $JREE = 1 or $JREE = -1 Then
$JRE = "Not Detected"
GUICtrlSetState($Buttons[9], $GUI_ENABLE)
EndIf
;SAP GUI Failed
$SAP = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\SAPFrontend", "DisplayVersion")
$SAPE = @error
If $SAP <> "" Then
If StringLeft($SAP, 4) = "6.40" Then
$SAP = "OK"
GUICtrlSetState($Buttons[10], $GUI_DISABLE)
Else
$SAP = "Outdated"
GUICtrlSetState($Buttons[10], $GUI_ENABLE)
EndIf
EndIf
If $SAPE = 1 or $SAPE = -1 Then
$SAP = "Not Detected"
GUICtrlSetState($Buttons[10], $GUI_ENABLE)
EndIf
;Acrobat Reader Failed
$Adobe = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{AC76BA86-7AD7-1033-7B44-A70500000002}", "DisplayVersion")
$AdobeE = @error
If $Adobe <> "" Then
If StringLeft($Adobe, 1) = 7 Then
$Adobe = "OK"
GUICtrlSetState($Buttons[11], $GUI_DISABLE)
Else
$Adobe = "Outdated"
GUICtrlSetState($Buttons[11], $GUI_ENABLE)
EndIf
EndIf
If $AdobeE = 1 or $AdobeE = -1 Then
$Adobe = "Not Detected"
GUICtrlSetState($Buttons[11], $GUI_ENABLE)
EndIf
;Webex Failed
$Webex = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{F2AB2488-A0BF-4A9B-98A9-A88CF20FD2FF}", "Version")
$WebexE = @error
If $Webex <> "" Then
If $Webex = 16777216 Then
$Webex = "OK"
GUICtrlSetState($Buttons[12], $GUI_DISABLE)
Else
$Webex = "Outdated"
GUICtrlSetState($Buttons[12], $GUI_ENABLE)
EndIf
EndIf
If $WebexE = 1 or $WebexE = -1 Then
$Webex = "Not Detected"
GUICtrlSetState($Buttons[12], $GUI_ENABLE)
EndIf
;Shockwave
$Shockwave = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{7D1D6A24-65D4-454C-8815-4F08A5FFF12C}", "DisplayVersion")
$ShockwaveE = @error
If $Shockwave <> "" Then
If StringLeft($Shockwave, 2) = 10 Then
$Shockwave = "OK"
GUICtrlSetState($Buttons[13], $GUI_DISABLE)
Else
$Shockwave = "Outdated"
GUICtrlSetState($Buttons[13], $GUI_ENABLE)
EndIf
EndIf
If $ShockwaveE = 1 or $ShockwaveE = -1 Then
$Shockwave = "Not Detected"
GUICtrlSetState($Buttons[13], $GUI_ENABLE)
EndIf
;Flash Failed
$Flash = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{6815FCDD-401D-481E-BA88-31B4754C2B46}", "DisplayVersion")
$FlashE = @error
If $Flash <> "" Then
If StringLeft($Flash, 1) = 8 Then
$Flash = "OK"
GUICtrlSetState($Buttons[14], $GUI_DISABLE)
Else
$Flash = "Outdated"
GUICtrlSetState($Buttons[14], $GUI_ENABLE)
EndIf
EndIf
If $FlashE = 1 or $FlashE = -1 Then
$Flash = "Not Detected"
GUICtrlSetState($Buttons[14], $GUI_ENABLE)
EndIf
;PCAnywhere 11 Failed
$PCA = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{E05E8183-866A-11D3-97DF-0000F8D8F2E9}", "DisplayVersion")
$PCAE = @error
If $PCA <> "" Then
If StringLeft($PCA, 2) = 11 Then
$PCA = "OK"
GUICtrlSetState($Buttons[15], $GUI_DISABLE)
;Check Status of PCAnywhere Driver Service if PCAnywhere 11 is Found
$PCA2 = RegRead("HKLM\SYSTEM\CurrentControlSet\Services\AW_HOST", "Start")
If $PCA2 = 1 Then $PCA = ($PCA & " Driver Service - OK")
If $PCA2 = 0 Then
$PCA = ($PCA & " Driver Service - Enabled")
RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\AW_HOST", "Start", "REG_DWORD", "1")
EndIf
Else
$PCA = "Outdated"
GUICtrlSetState($Buttons[15], $GUI_ENABLE)
EndIf
EndIf
If $PCAE = 1 or $PCAE = -1 Then
$PCA = "Not Detected"
GUICtrlSetState($Buttons[15], $GUI_ENABLE)
EndIf
;Canon Network Scangear
$SCAN = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{030F1677-1A3E-4113-B1F0-EE9632693478}", "DisplayName")
$SCANE = @error
If $SCAN <> "" Then
$SCAN = "OK"
GUICtrlSetState($Buttons[19], $GUI_DISABLE)
EndIf
If $SCANE = 1 or $SCANE = -1 Then
$SCAN = "Not Installed"
GUICtrlSetState($Buttons[19], $GUI_ENABLE)
EndIf
;IBM Client Access
$CA = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\ClientAccessExpressEmulator", "UninstallString")
$CAE = @error
If $CA <> "" Then
$CA = "OK"
GUICtrlSetState($Buttons[18], $GUI_DISABLE)
EndIf
If $CAE = 1 or $CAE = -1 Then
$CA = "Not Installed"
GUICtrlSetState($Buttons[18], $GUI_ENABLE)
EndIf
;Minitab 14
$MINITAB = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{8F495C35-FAFE-4941-9B18-09A2DE356EFA}", "DisplayName")
$MINITABE = @error
If $MINITAB <> "" Then
$MINITAB = "OK"
GUICtrlSetState($Buttons[20], $GUI_DISABLE)
EndIf
If $MINITABE = 1 or $MINITABE = -1 Then
$MINITAB = "Not Installed"
GUICtrlSetState($Buttons[20], $GUI_ENABLE)
EndIf
;Power DVD 5.5
$DVD = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{6811CAA0-BF12-11D4-9EA1-0050BAE317E1}", "DisplayName")
$DVDE = ""
If $DVD <> "" Then
$DVD = "OK"
GUICtrlSetState($Buttons[21], $GUI_DISABLE)
EndIf
If $DVDE = 1 or $DVDE = -1 Then
$DVD = "Not Installed"
GUICtrlSetState($Buttons[21], $GUI_ENABLE)
EndIf
;Office
$Office = "Start"
$O2KStd = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{00020409-78E1-11D2-B60F-006097C998E7}", "DisplayName")
$O2KPro = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{00010409-78E1-11D2-B60F-006097C998E7}", "DisplayName")
$O2003Pro = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90110409-6000-11D3-8CFE-0150048383C9}", "DisplayName")
GUICtrlSetState($Buttons[22], $GUI_DISABLE)
If $O2KStd <> "" Then $Office = "Installed Office 2000 Standard"
If $O2KPro <> "" Then $Office = "Installed Office 2000 Professional"
If $O2003Pro <> "" Then $Office = "Installed Office 2003 Professional"
If $Office = "Start" Then
$Office = "Not Installed"
GUICtrlSetState($Buttons[22], $GUI_ENABLE)
EndIf
;Visio
$Visio = "Start"
RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{DBFA7530-0CBF-11D3-8CC0-00C04F72C04D}", "DisplayName")
$V2000Std = @error
$V2002 = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{90540409-6D54-11D4-BEE3-00C04F990354}", "DisplayName")
GUICtrlSetState($Buttons[23], $GUI_DISABLE)
If $V2002 <> "" Then
If StringInStr($V2002, "Standard") <> 0 Then $Visio = "Installed Visio 2002 Standard"
If StringInStr($V2002, "Professional") <> 0 Then $Visio = "Installed Visio 2002 Professional"
EndIf
If $V2000Std <> 1 And $V2000Std <> -1 Then $Visio = "Installed Visio 2000 Standard"
If $Visio = "Start" Then
$Visio = "Not Installed"
GUICtrlSetState($Buttons[23], $GUI_ENABLE)
EndIf
;Project
$Project = "Start"
RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{DBFA7530-0CBF-11D3-8CC0-00C04F72C04D}", "DisplayVersion")
$P2000Std = @error
GUICtrlSetState($Buttons[24], $GUI_DISABLE)
If $P2000Std <> 1 And $P2000Std <> -1 Then $Project = "Installed Project 2000 Standard"
If $Project = "Start" Then
$Project = "Not Installed"
GUICtrlSetState($Buttons[24], $GUI_ENABLE)
EndIf
EndFunc
Func SystemCheck
()
;***Start***
;Check SUS Settings, compares to current US Client Policy GPO 5/2/06 ($SUS = 0 means all settings confirmed, 1 = one or more settings were missing or incorrect)
$SUS = 0
$SUS1 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "WUServer")
$SUS1E = @error
$SUS2 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "WUStatusServer")
$SUS2E = @error
$SUS3 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "ElevateNonAdmins")
$SUS3E = @error
$SUS4 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "TargetGroupEnabled")
$SUS4E = @error
$SUS5 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "TargetGroup")
$SUS5E = @error
$SUS6 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAUShutdownOption")
$SUS6E = @error
$SUS7 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "UseWUServer")
$SUS7E = @error
$SUS8 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RescheduleWaitTimeEnabled")
$SUS8E = @error
$SUS9 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RescheduleWaitTime")
$SUS9E = @error
$SUS10 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoRebootWithLoggedOnUsers")
$SUS10E = @error
$SUS11 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "DetectionFrequencyEnabled")
$SUS11E = @error
$SUS12 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "DetectionFrequency")
$SUS12E = @error
$SUS13 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "AutoInstallMinorUpdates")
$SUS13E = @error
$SUS14 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RebootWarningTimeoutEnabled")
$SUS14E = @error
$SUS15 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RebootWarningTimeout")
$SUS15E = @error
$SUS16 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "RebootRelaunchTimeoutEnabled")
$SUS16E = @error
$SUS17 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "NoAutoUpdate")
$SUS17E = @error
$SUS18 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "AUOptions")
$SUS18E = @error
$SUS19 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "ScheduledInstallDay")
$SUS19E = @error
$SUS20 = RegRead("HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU", "ScheduledInstallTime")
$SUS20E = @error
While 1
If $SUS1 <> "<a href='http://deathstar' class='bbc_url' title='External link' rel='nofollow external'>http://deathstar"</a
> Then
$SUS = 1
ExitLoop
EndIf
If $SUS2 <> "<a href='http://deathstar' class='bbc_url' title='External link' rel='nofollow external'>http://deathstar"</a
> Then
$SUS = 1
ExitLoop
EndIf
If $SUS3E = 1 Or $SUS3E = -1 Then
$SUS = 1
ExitLoop
Else
If $SUS3 <> 0 Then
$SUS = 1
ExitLoop
EndIf
EndIf
If $SUS4E = 1 Or $SUS4E = -1 Then
$SUS = 1
ExitLoop
Else
If $SUS4 <> 1 Then
$SUS = 1
ExitLoop
EndIf
EndIf
;If $SUS5 <> 4 Then
; $SUS = 1
; ExitLoop
;EndIf
If $SUS6E = 1 Or $SUS6E = -1 Then
$SUS = 1
ExitLoop
Else
If $SUS6 <> 1 Then
$SUS = 1
ExitLoop
EndIf
EndIf
If $SUS7 <> 1 Then
$SUS = 1
ExitLoop
EndIf
If $SUS8E = 1 Or $SUS8E = -1 Then
$SUS = 1
ExitLoop
Else
If $SUS8 <> 1 Then
$SUS = 1
ExitLoop
EndIf
EndIf
;If $SUS9 <> 5 Then
; $SUS = 1
; ExitLoop
;EndIf
If $SUS10E = 1 Or $SUS10E = -1 Then
$SUS = 1
ExitLoop
Else
If $SUS10 <> 0 Then
$SUS = 1
ExitLoop
EndIf
EndIf
If $SUS11E = 1 Or $SUS11E = -1 Then
$SUS = 1
ExitLoop
Else
If $SUS11 <> 1 Then
$SUS = 1
ExitLoop
EndIf
EndIf
If $SUS12 <> 1 Then
$SUS = 1
ExitLoop
EndIf
If $SUS13E = 1 Or $SUS13E = -1 Then
$SUS = 1
ExitLoop
Else
If $SUS13 <> 1 Then
$SUS = 1
ExitLoop
EndIf
EndIf
If $SUS14 <> 1 Then
$SUS = 1
ExitLoop
EndIf
;If $SUS15 <> 1 Then
; $SUS = 1
; ExitLoop
;EndIf
If $SUS16 <> 0 Then
$SUS = 1
ExitLoop
EndIf
If $SUS17 <> 0 Then
$SUS = 1
ExitLoop
EndIf
If $SUS18 <> 4 Then
$SUS = 1
ExitLoop
EndIf
If $SUS19 <> 0 Then
$SUS = 1
ExitLoop
EndIf
If $SUS20 <> 11 Then
$SUS = 1
ExitLoop
EndIf
ExitLoop
WEnd
If $SUS = 0 Then
$SUS = "OK"
Else
$SUS = "Policy not set. Verify PC is in correct OU"
EndIf
$QCFailed = ($QCFailed & "SUS Policies " & $SUS & @CRLF)
;***End***
;Check XP Remote Desktop Status
If @OSVersion = "WIN_XP" Then
$RDP = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server", "fDenyTSConnections")
If $RDP = 0 Then
$RDP = "OK RDP Enabled"
GUICtrlSetState($Buttons[1], $GUI_DISABLE)
EndIf
If $RDP = 1 Then
$RDP = "DISBALED"
GUICtrlSetState($Buttons[1], $GUI_ENABLE)
EndIf
Else
$RDP = "N/A"
EndIf
$QCFailed = ($QCFailed & "XP Remote Desktop Status " & $RDP & @CRLF)
;Set System Security (REG/FS)
RunWait(@ScriptDir & '\REGINI "' & @ScriptDir & '\REGPERMS_QC"', @ScriptDir, @SW_HIDE)
If FileExists(@ProgramFilesDir & "\IBM\Client Access\Emulator\") Then RunWait(@SystemDir & '\CACLS.EXE "' & @ProgramFilesDir & '\IBM\Client Access\Emulator" /E /T /G USERS:C', @SystemDir, @SW_HIDE)
If FileExists(@WindowsDir & "\Temp") Then RunWait(@SystemDir & '\CACLS.EXE "' & @WindowsDir & '\Temp" /E /T /G USERS:C', @SystemDir, @SW_HIDE)
If FileExists("C:\Temp") Then RunWait(@SystemDir & '\CACLS.EXE "C:\Temp" /E /T /G USERS:C', @SystemDir, @SW_HIDE)
If FileExists(@SystemDir & "\Spool") Then RunWait(@SystemDir & '\CACLS.EXE "' & @SystemDir & '\Spool" /E /T /G USERS:C', @SystemDir, @SW_HIDE)
RunWait("ntrights +r SeSystemtimePrivilege -u everyone", @ScriptDir, @SW_HIDE)
$PERMS = "OK Permissions Written"
$QCFailed = ($QCFailed & "File/Registry Permissions/Local Security Policy " & $PERMS & @CRLF)
;Check Page File
$Page = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management", "PagingFiles")
$PageLen = StringLen($PAGE)
$PagePOS = StringInStr($PAGE, ".sys")
$PagePOS = ($PagePOS + 4)
$Page = StringTrimLeft($Page, $PagePOS)
$PagePOS = StringInStr($PAGE, " ")
$PagePOS = $PagePOS - 1
$PageMin = StringLeft($Page, $PagePOS)
$pagePOS = ($PagePOS + 1)
$PageMax = StringTrimLeft($Page, $PagePOS)
$Page = $PageMax
$PagePOS = StringInStr($PAGE, ":\")
If $pagePOS <> 0 Then
$PagePOS = $PagePOS - 2
$PageMax = StringLeft($page, $PagePOS)
EndIf
If $PageMin = $PageMax Then
$PageSTS = "OK "
GUICtrlSetState($Buttons[3], $GUI_DISABLE)
Else
$PageSTS = "Dynamic"
GUICtrlSetState($Buttons[3], $GUI_ENABLE)
EndIf
$QCFailed = ($QCFailed & "Windows Page File " & $PAGESTS & " Min- " & $PageMin & " Max- " & $PageMax)
;*** Check Local Groups Start***
;Check for CWDUser Account
RunWait(@comspec & ' /c ' & "net localgroup users | clipboard.exe",@ScriptDir, @SW_HIDE)
$AdminGroup = clipget()
$ALen = StringLen($AdminGroup)
$APOS = StringInStr($AdminGroup, "----------")
$APOS = $ALen - $APOS
$AdminGroup = StringRight ($AdminGroup, $APOS)
$CWDUser = StringInStr($AdminGroup, "CWDUser")
;Check Local Admin Group
RunWait(@comspec & ' /c ' & "net localgroup administrators | clipboard.exe",@ScriptDir, @SW_HIDE)
$AdminGroup = clipget()
$ALen = StringLen($AdminGroup)
$APOS = StringInStr($AdminGroup, "----------")
$APOS = $ALen - $APOS
$AdminGroup = StringRight ($AdminGroup, $APOS)
$GDomainAdmins = StringInStr($AdminGroup, "CWD\Domain Admins")
$GJuniorAdmins = StringInStr($AdminGroup, "CWD\Junior Admins")
$GAdministrator = StringInStr($AdminGroup, "Administrator")
If $GDomainAdmins <> 0 And $GJuniorAdmins <> 0 And $GAdministrator <> 0 Then
$AdminGroup = "OK"
GUICtrlSetState($Buttons[5], $GUI_DISABLE)
Else
$AdminGroup = "Failed Missing: "
GUICtrlSetState($Buttons[5], $GUI_ENABLE)
If $GDomainAdmins = 0 Then $AdminGroup = ($AdminGroup & "CWD\Domain Admins ")
If $GJuniorAdmins = 0 Then $AdminGroup = ($AdminGroup & "CWD\Junior Admins ")
If $GAdministrator = 0 Then $AdminGroup = ($AdminGroup & @ComputerName & "\Administrator ")
EndIf
$QCFailed = ($QCFailed & "Administrators Group " & $AdminGroup & @CRLF)
;Check Remote Desktop Users Group
If @OSVersion = "WIN_XP" Then
RunWait(@comspec & ' /c net localgroup "Remote Desktop Users" | clipboard.exe',@ScriptDir, @SW_HIDE)
$GRDP = clipget()
$RLen = StringLen($GRDP)
$RPOS = StringInStr($GRDP, "----------")
$RPOS = $RLen - $RPOS
$GRDP = StringRight ($GRDP, $RPOS)
$GRDPDomainUsers = StringInStr($GRDP, "CWD\Domain Users")
$GRDPCWDUser = StringInStr($GRDP, "CWDUser")
If $CWDUser <> 0 Then
If $GRDPDomainUsers <> 0 And $GRDPCWDUser <> 0 Then
$GRDP = "OK"
GUICtrlSetState($Buttons[6], $GUI_DISABLE)
Else
$GRDP = "Failed Missing: "
GUICtrlSetState($Buttons[6], $GUI_ENABLE)
If $GRDPDomainUsers = 0 Then $GRDP = ($GRDP & "CWD\Domain Users ")
If $GRDPCWDUser = 0 Then $GRDP = ($GRDP & @ComputerName & "\CWDUser ")
EndIf
Else
If $GRDPDomainUsers <> 0 Then
$GRDP = "OK"
GUICtrlSetState($Buttons[6], $GUI_DISABLE)
Else
GUICtrlSetState($Buttons[6], $GUI_ENABLE)
$GRDP = "Failed Missing: "
If $GRDPDomainUsers = 0 Then $GRDP = ($GRDP & "CWD\Domain Users ")
EndIf
EndIf
Else
$GRDP = "N/A"
EndIf
$QCFailed = ($QCFailed & "Remote Desktop User Group " & $GRDP & @CRLF)
;Check Network Configuration Operators Group
If @OSVersion = "WIN_XP" Then
If StringLeft($MFG, 4) = "Dell" AND StringLeft($MDL, 8) = "Latitude" Then
RunWait(@comspec & ' /c net localgroup "Network Configuration Operators" | clipboard.exe',@ScriptDir, @SW_HIDE)
$GNET = clipget()
$NLen = StringLen($GNET)
$NPOS = StringInStr($GNET, "----------")
$NPOS = $NLen - $NPOS
$GNET = StringRight ($GNET, $NPOS)
$GNETDomainUsers = StringInStr($GNET, "CWD\Domain Users")
$GNETCWDUser = StringInStr($GRDP, "CWDUser")
If $CWDUser <> 0 Then
If $GNETDomainUsers <> 0 And $GNETCWDUser <> 0 Then
$GNET = "OK"
GUICtrlSetState($Buttons[7], $GUI_DISABLE)
Else
GUICtrlSetState($Buttons[7], $GUI_ENABLE)
$GNET = "Failed Missing: "
If $GNETDomainUsers = 0 Then $GNET = ($GNET & "CWD\Domain Users ")
If $GNETCWDUser = 0 Then $GNET = ($GNET & @ComputerName & "\CWDUser ")
EndIf
Else
If $GNETDomainUsers <> 0 Then
$GNET = "OK"
GUICtrlSetState($Buttons[7], $GUI_DISABLE)
Else
GUICtrlSetState($Buttons[7], $GUI_ENABLE)
$GNET = "Failed(Laptops Only) Missing: "
If $GNETDomainUsers = 0 Then $GNET = ($GNET & "CWD\Domain Users ")
EndIf
EndIf
EndIf
Else
$GNET = "N/A"
EndIf
;*** Check Local Groups End***
;Check Local Admin Password
If @OSVersion = "WIN_XP" Or @OSVersion = "WIN_2000" Then
RunAsWait('Administrator', @ComputerName, "a1s2d3f4g5", 0, @ComSpec & " /c dir", @TempDir, @SW_HIDE)
If @error = 1 Then
$AdminPass = "Failed"
GUICtrlSetState($Buttons[4], $GUI_ENABLE)
Else
$AdminPass = "OK"
GUICtrlSetState($Buttons[4], $GUI_DISABLE)
EndIf
Else
$AdminPass = "N/A Requires Win2K/WinXP"
EndIf
$QCFailed = ($QCFailed & "Local Administrator Password " & $AdminPass & @CRLF)
;Check VPN/Earthlink
RunWait(@comspec & ' /c "rasdw9x.exe list | clipboard.exe"', @ScriptDir, @SW_HIDE)
$RAS = clipget()
$Earthlink = StringInStr($RAS, "Earthlink")
$VPN = StringInStr($RAS, "CWD-VPN")
If $VPN <> 0 AND $Earthlink <> 0 Then
$RASC = "OK"
Else
$RASC = "Failed Missing: "
If $VPN = 0 Then $RASC = $RASC & "CWD-VPN "
If $Earthlink = 0 Then $RASC = $RASC & "Earthlink"
EndIf
;List All Printers
RunWait(@ComSpec & ' /c reg query "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices" | Clipboard.exe', @ScriptDir, @SW_HIDE)
$AllPrinters = ClipGet()
$PrintPOS = StringInStr($AllPrinters, @CR, -1, 4)
$AllPrinters = StringTrimLeft($AllPrinters, $PrintPOS)
$AllPrinters = StringReplace($AllPrinters, " ", "", 99)
;While 1
;$PrinterPOS1 = StringInStr($AllPrinters, "REG_SZ")
;$PrinterPOS1 = $PrinterPOS1 - 1
;$PrinterPOS2 = StringInStr($AllPrinters, @CR)
;$PrinterPOS2 = $PrinterPOS2 - $PrinterPOS1
;$PrinterPOS3 = StringMid($AllPrinters, $PrinterPOS1, $PrinterPOS2)
;$AllPrinters = StringReplace($AllPrinters, $PrinterPOS3, "", 1)
;WEnd
;create loop to read all printer names
;Check Default Printer
$Printer = RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device")
$PrinterPOS = StringInStr($Printer, ",")
$PrinterPOS = $PrinterPOS - 1
$Printer = StringLeft($Printer, $PrinterPOS)
EndFunc
Func CLOSEClicked
()
Exit
EndFunc
Func CrtAdminGUI
()
;Create GUI Window and GUI Controls
;increase 2nd number by 15 inbetween lines
$mainwindow = GuiCreate("CWD ITS Department - PC Quality Control Check", 863, 700,-1, -1, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$Labels[1] = GuiCtrlCreateLabel("Hardware Inventory", 100, 10, 100, 20, $SS_SUNKEN, $SS_CENTER)
$Buttons[25] = GUICtrlCreateButton("Refresh All Settings", 675, 30, 180, 20)
$Labels[2] = GuiCtrlCreateLabel("Manufacturer", 10, 30, 170, 20)
$Labels[3] = GuiCtrlCreateLabel($MFG, 210, 30, 400, 20)
$Labels[4] = GuiCtrlCreateLabel("System Model", 10, 45, 170, 20)
$Labels[5] = GuiCtrlCreateLabel($MDL, 210, 45, 400, 20)
$Labels[6] = GuiCtrlCreateLabel("System Service Tag", 10,60, 170, 20)
$Labels[7] = GuiCtrlCreateLabel($SN, 210, 60, 400, 20)
$Labels[72] = GuiCtrlCreateLabel("Default Printer", 675, 60, 170, 20, $SS_CENTER)
$Labels[73] = GuiCtrlCreateLabel($Printer, 675, 60, 170, 20, $SS_CENTER)
$Labels[8] = GuiCtrlCreateLabel("Processor Type", 10, 75, 170, 20)
$Labels[9] = GuiCtrlCreateLabel($CPU, 210, 75, 400, 20)
$Labels[10] = GuiCtrlCreateLabel("Processor Speed", 10, 90, 170, 20)
$Labels[11] = GuiCtrlCreateLabel($CPUSPEED, 210, 90, 250, 20)
$Labels[12] = GuiCtrlCreateLabel("RAM Installed", 10, 105, 170, 20)
$Labels[13] = GuiCtrlCreateLabel($RAM, 210, 105, 250, 20)
$Labels[14] = GuiCtrlCreateLabel("Video Card", 10, 120, 170, 20)
$Labels[15] = GuiCtrlCreateLabel($VIDEO, 210, 120, 400, 20)
$Labels[16] = GuiCtrlCreateLabel("Windows Settings/Security", 80, 142, 135, 20, $SS_SUNKEN, $SS_CENTER)
$Buttons[16] = GUICtrlCreateButton("Refresh Windows Settings/Security", 675, 142, 180, 20)
$Labels[17] = GuiCtrlCreateLabel("Object", 10, 165, 170, 20)
$Labels[18] = GuiCtrlCreateLabel("Status Extended Information", 210, 165, 300, 20)
$Labels[19] = GuiCtrlCreateLabel("Windows XP Remote Desktop", 10, 185, 170, 20)
$Labels[20] = GuiCtrlCreateLabel($RDP, 210, 185, 450, 20)
$Buttons[1] = GUICtrlCreateButton("Enable", 675, 185, 110, 20)
GUICtrlSetState($Buttons[1], $GUI_DISABLE)
$Labels[21] = GuiCtrlCreateLabel("File/Registry Permissions", 10, 205, 170, 20)
$Labels[22] = GuiCtrlCreateLabel($PERMS, 210, 205, 450, 20)
$Buttons[2] = GUICtrlCreateButton("Repair", 675, 205, 110, 20)
GUICtrlSetState($Buttons[2], $GUI_DISABLE)
$Labels[23] = GuiCtrlCreateLabel("SUS Policies", 10, 225, 170, 20)
$Labels[24] = GuiCtrlCreateLabel($SUS, 210, 225, 450, 20)
$Labels[25] = GuiCtrlCreateLabel("Windows Page File", 10, 245, 170, 20)
$Labels[26] = GuiCtrlCreateLabel($PageSTS & " Min- " & $PageMIN & " Max- " & $PageMax, 210, 245, 450, 20)
$Buttons[3] = GUICtrlCreateButton("Adjust", 675, 245, 110, 20)
GUICtrlSetState($Buttons[3], $GUI_DISABLE)
$Labels[27] = GuiCtrlCreateLabel("Local Administrator Password", 10, 265, 170, 20)
$Labels[28] = GuiCtrlCreateLabel($AdminPass, 210, 265, 450, 20)
$Buttons[4] = GUICtrlCreateButton("Reset", 675, 265, 110, 20)
GUICtrlSetState($Buttons[4], $GUI_DISABLE)
$Labels[29] = GuiCtrlCreateLabel("Local Administrators Group", 10, 285, 170, 20)
$Labels[30] = GuiCtrlCreateLabel($AdminGroup, 210, 285, 450, 20)
$Buttons[5] = GUICtrlCreateButton("Repair", 675, 285, 110, 20)
GUICtrlSetState($Buttons[5], $GUI_DISABLE)
$Labels[31] = GuiCtrlCreateLabel("Remote Desktop Group", 10, 305, 170, 20)
$Labels[32] = GuiCtrlCreateLabel($GRDP, 210, 305, 450, 20)
$Buttons[6] = GUICtrlCreateButton("Repair", 675, 305, 110, 20)
GUICtrlSetState($Buttons[6], $GUI_DISABLE)
$Labels[33] = GuiCtrlCreateLabel("Network Configuration Group", 10, 325, 170, 20)
$Labels[34] = GuiCtrlCreateLabel($GNET, 210, 325, 450, 20)
$Buttons[7] = GUICtrlCreateButton("Repair", 675, 325, 110, 20)
GUICtrlSetState($Buttons[7], $GUI_DISABLE)
$Labels[35] = GuiCtrlCreateLabel("RAS Connections", 10, 345, 170, 20)
$Labels[36] = GuiCtrlCreateLabel($RASC, 210, 345, 450, 20)
$Labels[39] = GuiCtrlCreateLabel("Software Inventory", 102, 357, 95, 20, $SS_SUNKEN, $SS_CENTER)
$Buttons[17] = GUICtrlCreateButton("Refresh Software Settings", 675, 365, 180, 20)
$Labels[40] = GuiCtrlCreateLabel("Application", 10, 380, 170, 20)
$Labels[41] = GuiCtrlCreateLabel("Status Extended Information", 210, 380, 300, 20)
$Labels[42] = GuiCtrlCreateLabel("Symantec Anti-Virus 10 CE", 10, 400, 170, 20)
$Labels[43] = GuiCtrlCreateLabel($SAV, 210, 400, 450, 20)
$Buttons[8] = GUICtrlCreateButton("Install", 675, 400, 110, 20)
GUICtrlSetState($Buttons[8], $GUI_DISABLE)
$Labels[44] = GuiCtrlCreateLabel("Sun Java2 Runtime Environment", 10, 420, 170, 20)
$Labels[45] = GuiCtrlCreateLabel($JRE, 210, 420, 450, 20)
$Buttons[9] = GUICtrlCreateButton("Install", 675, 420, 110, 20)
GUICtrlSetState($Buttons[9], $GUI_DISABLE)
$Labels[46] = GuiCtrlCreateLabel("SAP GUI 640", 10, 440, 170, 20)
$Labels[47] = GuiCtrlCreateLabel($SAP, 210, 440, 450, 20)
$Buttons[10] = GUICtrlCreateButton("Install", 675, 440, 110, 20)
GUICtrlSetState($Buttons[10], $GUI_DISABLE)
$Labels[48] = GuiCtrlCreateLabel("Adobe Acrobat Reader 7.0", 10, 460, 170, 20)
$Labels[49] = GuiCtrlCreateLabel($Adobe, 210, 460, 490, 20)
$Buttons[11] = GUICtrlCreateButton("Install", 675, 460, 110, 20)
GUICtrlSetState($Buttons[11], $GUI_DISABLE)
$Labels[50] = GuiCtrlCreateLabel("Webex Meeting Manager Client", 10, 480, 170, 20)
$Labels[51] = GuiCtrlCreateLabel($Webex, 210, 480, 450, 20)
$Buttons[12] = GUICtrlCreateButton("Install", 675, 480, 110, 20)
GUICtrlSetState($Buttons[12], $GUI_DISABLE)
$Labels[52] = GuiCtrlCreateLabel("Macromedia Shockwave", 10, 500, 170, 20)
$Labels[53] = GuiCtrlCreateLabel($Shockwave, 210, 500, 450, 20)
$Buttons[13] = GUICtrlCreateButton("Install", 675, 500, 110, 20)
GUICtrlSetState($Buttons[13], $GUI_DISABLE)
$Labels[54] = GuiCtrlCreateLabel("Macromedia Flash", 10, 520, 170, 20)
$Labels[55] = GuiCtrlCreateLabel($Flash, 210, 520, 540, 20)
$Buttons[14] = GUICtrlCreateButton("Install", 675, 520, 110, 20)
GUICtrlSetState($Buttons[14], $GUI_DISABLE)
$Labels[56] = GuiCtrlCreateLabel("PCAnywhere 11", 10, 540, 170, 20)
$Labels[57] = GuiCtrlCreateLabel($PCA, 210, 540, 540, 20)
$Buttons[15] = GUICtrlCreateButton("Install", 675, 540, 110, 20)
GUICtrlSetState($Buttons[15], $GUI_DISABLE)
$Labels[58] = GuiCtrlCreateLabel("IBM Client Access V5R2", 10, 560, 170, 20)
$Labels[59] = GuiCtrlCreateLabel($CA, 210, 560, 540, 20)
$Buttons[18] = GUICtrlCreateButton("Install", 675, 560, 110, 20)
GUICtrlSetState($Buttons[18], $GUI_DISABLE)
$Labels[60] = GuiCtrlCreateLabel("Canon Network Scangear 1.3", 10, 580, 170, 20)
$Labels[61] = GuiCtrlCreateLabel($SCAN, 210, 580, 540, 20)
$Buttons[19] = GUICtrlCreateButton("Install", 675, 580, 110, 20)
GUICtrlSetState($Buttons[19], $GUI_DISABLE)
$Labels[62] = GuiCtrlCreateLabel("MiniTab 14", 10, 600, 170, 20)
$Labels[63] = GuiCtrlCreateLabel($MINITAB, 210, 600, 540, 20)
$Buttons[20]= GUICtrlCreateButton("Install", 675, 600, 110, 20)
GUICtrlSetState($Buttons[20], $GUI_DISABLE)
$Labels[64] = GuiCtrlCreateLabel("Power DVD 5.5", 10, 620, 170, 20)
$Labels[65] = GuiCtrlCreateLabel($DVD, 210, 620, 540, 20)
$Buttons[21] = GUICtrlCreateButton("Install", 675, 620, 110, 20)
GUICtrlSetState($Buttons[21], $GUI_DISABLE)
$Labels[66] = GuiCtrlCreateLabel("Microsoft Office (Licensed Application)", 10, 640, 190, 20)
$Labels[67] = GuiCtrlCreateLabel($Office, 210, 640, 540, 20)
$Buttons[22] = GUICtrlCreateButton("Install", 675, 640, 110, 20)
GUICtrlSetState($Buttons[22], $GUI_DISABLE)
$Labels[68] = GuiCtrlCreateLabel("Microsoft Visio (Licensed Application)", 10, 660, 190, 20)
$Labels[69] = GuiCtrlCreateLabel($Visio, 210, 660, 540, 20)
$Buttons[23] = GUICtrlCreateButton("Install", 675, 660, 110, 20)
GUICtrlSetState($Buttons[23], $GUI_DISABLE)
$Labels[70] = GuiCtrlCreateLabel("Microsoft Project (Licensed Application)", 10, 680, 190, 20)
$Labels[71] = GuiCtrlCreateLabel($Project, 210, 680, 540, 20)
$Buttons[24] = GUICtrlCreateButton("Install", 675, 680, 110, 20)
GUICtrlSetState($Buttons[24], $GUI_DISABLE)
;button_16, 17 and 25 - Refresh buttons
$Buttons[26] = GUICtrlCreateButton("Print This Screen", 675, 5, 180, 20)
;
;Office GUI Windows
$OfficeGUI = GUICreate("Install MS Office 2000", 250, 65)
GUISwitch($OfficeGUI)
$OfficeBTN1 = GUICtrlCreateButton("MS Office 2000 Standard", 40, 10, 170, 20)
$OfficeBTN2 = GUICtrlCreateButton("MS Office 2000 Professional", 40, 35, 170, 20)
GUISetOnEvent($GUI_EVENT_CLOSE, "OfficeClose", $OfficeGUI)
GUICtrlSetOnEvent($OfficeBTN1, "InstOFFSTD")
GUICtrlSetOnEvent($OfficeBTN2, "InstOFFPRO")
GUISwitch($mainwindow)
EndFunc
Although its updated, its not as simple as running the program, the code needs to be changed to suit your needs, and seeing as how you were unable to update it yourself, you may not be able to use it. Take your time to look through the code, each app installation points to a installer file on the authors server(s). All of these need to be edited. Also, the author is using a username/password combo for all new systems that he builds, this also needs to be changed. The script is really simple albeit long, take your time to look through it and learn how it works then you may be able to change it to suit your needs and maybe even improve on it.
__PC_Quality_Control_Check.rar 219.2KB
897 downloads
