No, there isn't any error message, it just quits. Here is my script with all of my variables included with the above code, you can run it if you want. I can also post my entire script if you would like.
Code:
$HKLMS="HKEY_LOCAL_MACHINE\Software"
$HKCUS="HKEY_CURRENT_USER\Software"
$HKCUSMWCV="$HKCUS\Microsoft\Windows\CurrentVersion"
$HKLMSMWCV="$HKLMS\Microsoft\Windows\CurrentVersion"
$HKLMSMWNTCV="$HKLMS\Microsoft\Windows NT\CurrentVersion"
$HKLMAppPaths="$HKLMS\Microsoft\Windows\CurrentVersion\App Paths\"
$HKLMHDS="HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System"
$HKLMSCCS="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet"
$desktop=readvalue("$HKCUSMWCV\Explorer\Shell Folders","Desktop")
$startmenu=readvalue("$HKCUSMWCV\Explorer\Shell Folders","Start Menu")
$alldesktop=readvalue("$HKLMSMWCV\Explorer\User Shell Folders","Common Desktop")
$allstartmenu=readvalue("$HKLMSMWCV\Explorer\User Shell Folders","Common Start Menu")
$hosts=@LSERVER + "\support\hosts"
$services=@LSERVER + "\support\services"
$wmailto=@LSERVER + "\support\wmailto.ini"
$qad="c:\qad90gui"
$qadeb2="c:\qadeb2gui"
$cascade=@LSERVER + "\support\cascade90.svg"
$ckt=@LSERVER + "\support\cktecheb2.svg"
$ats=@LSERVER + "\support\ats90.svg"
$stx=@LSERVER + "\support\SystexEB2.svg"
$mls="\\Baku\MLSV8\Programs"
$noble=@LSERVER + "\support\noble90.svg"
$cktechicon=$desktop + "\CKTechEB2.lnk"
$cascade98=@LSERVER + "\support\Cascade98.lnk"
$cascadeNT=@LSERVER + "\support\Cascade.lnk"
$ats9x=@LSERVER + "\support\ATS9x.lnk"
$atsNT=@LSERVER + "\support\ATS.lnk"
$stx9x=@LSERVER + "\support\Systex9x.lnk"
$stxNT=@LSERVER + "\support\Systex.lnk"
$ckt9x=@LSERVER + "\support\CKTechEB29x.lnk"
$cktNT=@LSERVER + "\support\CKTechEB2.lnk"
If @INWIN="2"
If Exist ($qad)
Copy $cascade $qad
Copy $ckt $qad
Copy $ats $qad
Copy $stx $qad
Endif
If Exist ($qadeb2)
Copy $cascade $qadeb2
Copy $ckt $qadeb2
Copy $ats $qadeb2
Copy $stx $qadeb2
Endif
If Exist ($qad) or Exist ($qadeb2)
;Personal Desktop
Shell '%ComSpec% /c find /i "Cascade Icon Version 2 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\Cascade.lnk")
Copy "$cascade98" "$desktop\Cascade.lnk"
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "Cascade", "Cascade icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "ATS Icon Version 3 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\ATS.lnk")
Copy "$ats9x" "$desktop\ATS.lnk"
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "ATS", "ATS icon version 3 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "Systex Icon Version 2 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\Systex.lnk")
Copy "$stx9x" "$desktop\Systex.lnk"
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "Systex", "Systex icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "CKTech Icon EB2 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\CKTech.lnk")
Copy $ckt9x $cktechicon
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "CKTech", "CKTech icon EB2 copied")
Endif
Endif
;Common Desktop
Shell '%ComSpec% /c find /i "Cascade Icon Version 2 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\Cascade.lnk")
Copy "$cascade98" "$alldesktop\Cascade.lnk"
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "Cascade", "Cascade icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "ATS Icon Version 3 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\ATS.lnk")
Copy "$ats9x" "$alldesktop\ATS.lnk"
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "ATS", "ATS icon version 3 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "Systex Icon Version 2 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\Systex.lnk")
Copy "$stx9x" "$alldesktop\Systex.lnk"
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "Systex", "Systex icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "CKTech Icon EB2 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\CKTech.lnk")
Copy "ckt9x $cktechicon
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "CKTech", "CKTech icon EB2 copied")
Endif
Endif
Endif
Endif
If @INWIN="1"
If Exist ($qad)
Copy $cascade $qad
Copy $ckt $qad
Copy $ats $qad
Copy $stx $qad
Endif
If Exist ($qadeb2)
Copy $cascade $qadeb2
Copy $ckt $qadeb2
Copy $ats $qadeb2
Copy $stx $qadeb2
Endif
If Exist ($qad) or Exist ($qadeb2)
;Personal Desktop
Shell '%ComSpec% /c find /i "Cascade Icon Version 2 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\Cascade.lnk")
Copy "$cascadeNT" "$desktop\Cascade.lnk"
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "Cascade", "Cascade icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "ATS Icon Version 3 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\ATS.lnk")
Copy "$atsNT" "$desktop\ATS.lnk"
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "ATS", "ATS icon version 3 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "Systex Icon Version 2 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\Systex.lnk")
Copy "$stxNT" "$desktop\Systex.lnk"
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "Systex", "Systex icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "CKTech Icon EB2 copied" "%userprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$desktop\CKTech.lnk")
Copy $cktNT $cktechicon
Writeprofilestring ("%userprofile%\qad.txt", "QAD", "CKTech", "CKTech icon EB2 copied")
Endif
Endif
;Common Desktop
Shell '%ComSpec% /c find /i "Cascade Icon Version 2 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\Cascade.lnk")
Copy "$cascadeNT" "$alldesktop\Cascade.lnk"
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "Cascade", "Cascade icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "ATS Icon Version 3 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\ATS.lnk")
Copy "$atsNT" "$alldesktop\ATS.lnk"
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "ATS", "ATS icon version 3 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "Systex Icon Version 2 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\Systex.lnk")
Copy "$stxNT" "$alldesktop\Systex.lnk"
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "Systex", "Systex icon version 2 copied")
Endif
Endif
Shell '%ComSpec% /c find /i "CKTech Icon EB2 copied" "%allusersprofile%\qad.txt" >nul'
If Not @Error=0
If Exist ("$alldesktop\CKTech.lnk")
Copy $cktNT $cktechicon
Writeprofilestring ("%alluserprofile%\qad.txt", "QAD", "CKTech", "CKTech icon EB2 copied")
Endif
Endif
Endif
Endif