If Not @LogonMode
Break On
Else
Break Off
EndIf
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
$SO=SetOption('WrapAtEOL','On')
Dim $CUPrograms
$CUPrograms = ExpandEnvironmentVars(ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders','Programs'))
If @KiX < '4.53'
'You are not running a new enough version of KiXtart...' ?
'The script will now end. Please use KiXtart 4.53 or newer'?
Quit 11
EndIf
If Not InGroup(@Domain+"\APP_TOOLS")
'You are not in the APP_TOOLS group' ?
If Len($CUPrograms) > 10
'Path appears to be okay, will now remove the Tools from this system' ?
If GetFileAttr($CUPrograms+'\'+'tools') & 16
'Tools folder found - okay to remove now' ?
RD $CUPrograms+'\'+'tools' /s
'Tool folder removal status: ' + @ERROR + ' - ' + @SERROR ?
Else
'Tools folder not found on this system' ?
EndIf
Else
'There was a problem removing the Tools folder the expected path was too short' ?
EndIf
Else
'You are in the APP_TOOLS group. Nothing to do.' ?
EndIf
If Not InGroup(@Domain+"\APP_UTILS")
'You are not in the APP_UTILS group' ?
If Len($CUPrograms) > 10
'Path appears to be okay, will now remove the Utils from this system' ?
If GetFileAttr($CUPrograms+'\'+'utils') & 16
'Utils folder found - okay to remove now' ?
RD $CUPrograms+'\'+'utils' /s
'Utils folder removal status: ' + @ERROR + ' - ' + @SERROR ?
Else
'Utils folder not found on this system' ?
EndIf
Else
'There was a problem removing the Utils folder the expected path was too short' ?
EndIf
Else
'You are in the APP_UTILS group. Nothing to do.' ?
EndIf