"Ghostscript und FreePDF mit dem MPR"

Moderator: MVogt

Post Reply
User avatar
Theo_Gottwald
Posts: 367
Joined: 03. Oct 2009, 08:57
Location: Herrenstr.11 * 76706 Dettenheim
Contact:

"Ghostscript und FreePDF mit dem MPR"

Post by Theo_Gottwald » 05. Feb 2010, 07:29

Hier eine Ergänzung zur Deinstallation von FreePDF.
Es bleibt da ein Drucker übrig, der auch gelöscht werden will, das tun wir dann hier.
Die Files zum Herunterladen sind im letzten Post, unten.

Code: Select all

' +++ Del_Printer.rem +++
' zweck: 
' erstellt am: 03.02.2010
' von:
'========================
'#spi:forcewrite
'#exe:?path
'#inc:vbrun
'#spi:noauto

'========================
' Für Englisches Win 7/x64 
' Für die deutsche Version müßen die Texte umgeändert werden.
' Dieser (Del_Printer.rem) Part verwendet  - wegen dem PopUp-Menü -
' die "Compatible Engine". (MRC\) 
' Die Ausführung soltle daher im Userteil erfolgen, nicht ohne angemeldeten User!
'========================

EXS\control printers
STW\cabinetwclass\control panel\all control panel items\devices and printers|w498
SWP\14,2|539,593

STW\cabinetwclass\control panel\all control panel items\devices and printers|w30
SWC\shelltabwindowclass\control panel\all control panel items\devices and printers|w30
SWC\duiviewwndclassname\notext|w30
SWC\directuihwnd\notext|w30
SWC\ctrlnotifysink\notext|w30
SWC\shelldll_defview\shellview|w30
SWC\directuihwnd\notext|w30
AFO\20|34\FreePDF&&\FreePDF\notext\13\\'*3/1/2\'105,116\141,196
'MPO\223,392
IIF\
   GOTO enx
EIF\
MPO\
MRC\
GTW\#32768\*
AFM\99\Remove device&&
MLC\

STW\#32770\remove device|w147
GCW\\3\button\&yes|w147
MEL\

CAS\1
STW\cabinetwclass\control panel\all control panel items\devices and printers|w579
CLW\1

:enx
@
Del_Printer.rem
Und das hier ist nochmal die Installation (aber die deutsche Variante)

Code: Select all

' +++ Install_FreePDF4.02.rem +++
' Zweck: 
' erstellt am: 17.08.2010
' von: TG
'========================
'#EXE:?path
'#SPI:ForceWrite
'#SPI:VBRun
'#SPI:NoAuto
'#SPI:x64

KRM\2
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
' 
VAR\$$*00=#32770\Hardwareinstallation\Installation &fortsetzen\Das Fortsetzen der Installation dieser Software kann die korrekt

WBC\$$*00
' No.:1 | Time: 10:27:29 | Ticks:  0
VAR\$$PRO=1
' Please change '$ev4$' to '?pfad' if you have included the Setup within the EXE-File.
VAR\$$PFA=$ev4$

EXE\$$PFA\FreePDF4.02.EXE

' No.:2 | Time: 10:27:31 | Ticks:  55
VAR\$$PRO=2
STW\ThunderRT5Form\FreePDF 4.02|w45
GCW\7\2\ThunderRT5CommandButton\&Setup|w45
WII\2
SAW\
MEL\

' 
' The dialog window below had been assumed to be a temporary window. (01).
' The code below has been replaced by WBC\ Nr.00 .
' These text has been found in the window:  1. Die Software, die für diese Hardware installiert wird:\ 2. Drucker\ 3. hat den Windows-Logo-Test nicht bestanden, der die Kompatibilitä\ 4. Das Fortsetzen der Installation dieser Software kann die korrekt\
' No.:3 | Time: 10:27:38 | Ticks:  201
VAR\$$PRO=3
' STW\#32770\Hardwareinstallation|w45
' GCW\5303\1\Button\Installation &fortsetzen|w45
' WII\5
' MEL\

' No.:4 | Time: 10:27:57 | Ticks:  426
VAR\$$PRO=4
STW\ThunderRT5Form\FreePDF 4.02|w45
GCW\4\2\ThunderRT5CommandButton\&End|w45
WII\5
SAW\
BCS\1||7|240

' No.:5 | Time: 10:28:05 | Ticks:  603
VAR\$$PRO=5
SRV\0 ' This command will set the return code.

' Code-Ende
END\1

:Always
SRV\$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.

' Code-Ende
END\1
Install_FreePDF4.02.rem
Und nun nochmal die Uninstall Free-PDF, englische Version Win7/x64

Code: Select all

' +++ Uninstall_FreePDF4.02.rem +++
' Zweck: 
' erstellt am: 03.02.2010
' von: Theo Gottwald
'========================
'#SPI:ForceWrite
'#EXE:?path
'#INC:vbrun
'#SPI:NoAuto
'#FDC:Deinstallation FreePDF

IEX\
   USM\3 ' Uncomment this command to use silent mode with redirected error messages to error files.
EEX\
' 
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
' 
' No.:1 | Time: 15:36:17 | Ticks:  0
VAR\$$PRO=1
' Please choose the Line that suits best to your needs.
' EXU\FreePDF (Remove only) |u
EXS\?progs\FreePDF_XP\fpsetup.exe$SP$/r

' No.:2 | Time: 15:36:39 | Ticks:  715
STW\#32770\FreePDF Setup|w57
GCW\6\1\Button\&Yes|w57
WII\5
SAW\
BCS\1||240

JNF\del_printer.rem

' No.:3 | Time: 15:37:21 | Ticks:  2017
SRV\0 ' This command will set the return code.
@

:Always
SRV\$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.
END\
Uninstall_FreePDF4.02.rem
Last edited by Theo_Gottwald on 25. Feb 2019, 12:15, edited 4 times in total.

User avatar
heinrichmi
Posts: 211
Joined: 12. Nov 2009, 10:13
Location: Würzburg
Contact:

Post by heinrichmi » 23. Feb 2010, 08:07

Hallo Theo, vielen Dank für die super Zusammenarbeit.

Wir wollen natürlich nicht das Ergebis verheimlichen :D :

Installation Ghostscript
' +++ Install_gs870w32.rem +++
' Zweck:
' erstellt am: 03.02.2010
' von: Theo Gottwald
'========================
'#SPI:ForceWrite
'#EXE:?path
'#INC:vbrun
'#SPI:NoAuto
'#FDC:Installation GhostScript

'? IEX=IfEXemode
IEX
'? USM=UseSilentMode
USM3 ' Uncomment this command to use silent mode with redirected error messages to error files.
'? DIP=DelayInstructionProcessing
DIP150
'? EEX=EndEXemode
EEX
'
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
'
' You can change these variables which are used inside the script.
'? VAR=Variable
VAR$$000=?progsgs
'? VAR=Variable
VAR$$001=Ghostscript
'
' No.:1 | Time: 15:14:10 | Ticks: 0
'? VAR=Variable
VAR$$PRO=1
' Please change '$ev4$' to '?pfad' if you have included the Setup within the EXE-File.
'? VAR=Variable
VAR$$PFA=$ev4$

'? EXE=EXEcute
EXE$$PFAgs870w32.exe

' No.:2 | Time: 15:14:22 | Ticks: 385
'? STW=SearchTopWindow
STW#32770WinZip Self-Extractor - gs870w32.exe|w45
'? GCW=GetChildWindow
GCW11Button&Setup|w45
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? MEL=MouseEventLeftclick
MEL

' No.:3 | Time: 15:14:42 | Ticks: 937
'? STW=SearchTopWindow
STW#32770GPL Ghostscript Setup|w45
'? SWP=SetWindowPosition
SWP572,232|456,353
'? GCW=GetChildWindow
GCW2021Edit*|w45
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? RST=ReplaceSelectedText
RST$$000|0,-1


' No.:4 | Time: 15:15:00 | Ticks: 1500
'? STW=SearchTopWindow
STW#32770GPL Ghostscript Setup|w45
'? SWP=SetWindowPosition
SWP572,232|456,353
'? GCW=GetChildWindow
GCW2031Edit*|w45
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? RST=ReplaceSelectedText
RST$$001|0,-1


' No.:5 | Time: 15:15:54 | Ticks: 3229
'? STW=SearchTopWindow
STW#32770GPL Ghostscript Setup|w138
'? GCW=GetChildWindow
GCW10091ButtonAll Users|w138
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
' OPR6,5
'? BTC=ButtonCheck
BTC1
'? BTC=ButtonCheck
BTC1

' No.:6 | Time: 15:16:09 | Ticks: 3700
'? STW=SearchTopWindow
STW#32770GPL Ghostscript Setup|w45
'? GCW=GetChildWindow
GCW10041ButtonInstall|w45
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? MEL=MouseEventLeftclick
MEL
'BCS7||240

'? MSC=MissingSpecialChild
MSC
'? CAS=ContinueAfterSeconds
CAS1

'? WII=WaitforInputIdle
WII5
'? STW=SearchTopWindow
STWcabinetwclassc:programdatamicrosoftwindowsstart menuprogramsghostscript|w267
'? CLW=CLoseWindow
CLW1



' No.:7 | Time: 15:16:34 | Ticks: 4447
'? SRV=SetReturnValue
SRV ' This command will set the return code.
@

:Always
'? SRV=SetReturnValue
SRV$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.
'? END=End(Remote)
END

Installation FreePDF
' +++ Install_FreePDF4.02.rem +++
' Zweck:
' erstellt am: 03.02.2010
' von: Theo Gottwald
'========================
'#SPI:ForceWrite
'#EXE:?path
'#INC:vbrun
'#SPI:NoAuto
'#FDC:Ask

'? IEX=IfEXemode
IEX
'? USM=UseSilentMode
USM3 ' Uncomment this command to use silent mode with redirected error messages to error files.
'? DIP=DelayInstructionProcessing
DIP150
'? EEX=EndEXemode
EEX
'
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
'
' No.:1 | Time: 15:33:34 | Ticks: 0
'? VAR=Variable
VAR$$PRO=1
' Please change '$ev4$' to '?pfad' if you have included the Setup within the EXE-File.
'? VAR=Variable
VAR$$PFA=$ev4$

'? EXE=EXEcute
EXE$$PFAFreePDF4.02.EXE

' No.:2 | Time: 15:33:55 | Ticks: 661
'? STW=SearchTopWindow
STWThunderRT5FormFreePDF 4.02|w52
'? GCW=GetChildWindow
GCW72ThunderRT5CommandButton&Setup|w52
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? MEL=MouseEventLeftclick
MEL

' No.:3 | Time: 15:34:15 | Ticks: 1169
'? IWF=IfWindowFound
IWF5
'? STW=SearchTopWindow
STW#32770Windows Security|w45
'? GCW=GetChildWindow
GCW\3Button&Install this driver software anyway|w45
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
' OPR146,40
'? BTC=ButtonCheck
BTC1
'? BTC=ButtonCheck
BTC1

' No.:4 | Time: 15:34:15 | Ticks: 1173
'? STW=SearchTopWindow
STW#32770Windows Security|w45
'? GCW=GetChildWindow
GCW\3Button&Install this driver software anyway|w45
'? WII=WaitforInputIdle
WII1
'? SAW=SetActiveWindow
SAW
' OPR146,40
'? BTC=ButtonCheck
BTC1
'? BTC=ButtonCheck
BTC1
'? EWF=EndWindowFound
EWF

' No.:5 | Time: 15:35:37 | Ticks: 2357
'? STW=SearchTopWindow
STWThunderRT5FormFreePDF 4.02|w94
'? GCW=GetChildWindow
GCW42ThunderRT5CommandButton&End|w94
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? BCS=ButtonClickSpecial
BCS1||240

' No.:6 | Time: 15:35:52 | Ticks: 2823
'? SRV=SetReturnValue
SRV ' This command will set the return code.
'? END=End(Remote)
END

:Always
'? SRV=SetReturnValue
SRV$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.
'? END=End(Remote)
END
Deinstallation Ghostscript
' +++ Uninstall_gs870w32.rem +++
' Zweck:
' erstellt am: 03.02.2010
' von: Theo Gottwald
'========================
'#SPI:ForceWrite
'#EXE:?path
'#INC:vbrun
'#SPI:NoAuto
'#FDC:Deinstallation GhostScript

'? IEX=IfEXemode
IEX
'? USM=UseSilentMode
USM3 ' Uncomment this command to use silent mode with redirected error messages to error files.
'? DIP=DelayInstructionProcessing
DIP150
'? EEX=EndEXemode
EEX
'
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
'
' No.:1 | Time: 15:21:19 | Ticks: 0
'? VAR=Variable
VAR$$PRO=1
' Please choose the Line that suits best to your needs.
' EXUGPL Ghostscript 8.70 |u
'? EXS=EXecuteShell
EXS?progsgsuninstgs.exe$SP$"?progsgsgs8.70uninstal.txt"

' No.:2 | Time: 15:21:41 | Ticks: 698
'? STW=SearchTopWindow
STW#32770GPL Ghostscript 8.70|w55
'? GCW=GetChildWindow
GCW11Button&Uninstall|w55
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? BSC=ButtonSpecialClick
BSC1||240

' No.:3 | Time: 15:21:52 | Ticks: 940
'? STW=SearchTopWindow
STW#32770GPL Ghostscript 8.70|w45
'? GCW=GetChildWindow
GCW21ButtonExit|w45
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? BCS=ButtonClickSpecial
BCS1||240

' No.:4 | Time: 15:21:55 | Ticks: 1053
'? SRV=SetReturnValue
SRV ' This command will set the return code.
'? END=End(Remote)
END

:Always
'? SRV=SetReturnValue
SRV$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.
'? END=End(Remote)
END
Deinstallation FreePDF
' +++ Uninstall_FreePDF4.02.rem +++
' Zweck:
' erstellt am: 03.02.2010
' von: Theo Gottwald
'========================
'#SPI:ForceWrite
'#EXE:?path
'#INC:vbrun
'#SPI:NoAuto
'#FDC:Deinstallation FreePDF

'? IEX=IfEXemode
IEX
'? USM=UseSilentMode
USM3 ' Uncomment this command to use silent mode with redirected error messages to error files.
'? DIP=DelayInstructionProcessing
DIP150
'? EEX=EndEXemode
EEX
'
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
'
' No.:1 | Time: 15:36:17 | Ticks: 0
'? VAR=Variable
VAR$$PRO=1
' Please choose the Line that suits best to your needs.
' EXUFreePDF (Remove only) |u
'? EXS=EXecuteShell
EXS?progsFreePDF_XPfpsetup.exe$SP$/r

' No.:2 | Time: 15:36:39 | Ticks: 715
'? STW=SearchTopWindow
STW#32770FreePDF Setup|w57
'? GCW=GetChildWindow
GCW61Button&Yes|w57
'? WII=WaitforInputIdle
WII5
'? SAW=SetActiveWindow
SAW
'? BCS=ButtonClickSpecial
BCS1||240

'? JNF=JumptoNewFile
JNFdel_printer.rem


' No.:3 | Time: 15:37:21 | Ticks: 2017
'? SRV=SetReturnValue
SRV ' This command will set the return code.
@

:Always
'? SRV=SetReturnValue
SRV$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.
'? END=End(Remote)
END
Michael Heinrich

MIWE Michael Wenz GmbH
Image

Empirum 19.0.0 UEM mit PM, M42-Cloud, PB, VM-Hosting, Citrix Farm Deployment, ServiceStore 9.0.4

User avatar
Theo_Gottwald
Posts: 367
Joined: 03. Oct 2009, 08:57
Location: Herrenstr.11 * 76706 Dettenheim
Contact:

Post by Theo_Gottwald » 23. Feb 2010, 09:21

Hallo Michael,

Erstmal Danke, dass du uns wie zugesichert, deine finalen Scripte hier zur Verfügung stellst.

Bei deinem Posting sieht man warum hier so wenig Leute MPR Scripte posten.

Das Forum ruiniert die nämlich wenn man nicht weiß wie man es machen muß. So hat es auch bei deinen Scripten die "\" weggemacht. Und wohl teilweise durch "=" ersetzt.

Ich werde einen generellen Post machen, der erklärt, wie man MPR-Skripte hier posten kann.

User avatar
Theo_Gottwald
Posts: 367
Joined: 03. Oct 2009, 08:57
Location: Herrenstr.11 * 76706 Dettenheim
Contact:

Re: "Ghostscript und FreePDF mit dem MPR": Sevenload

Post by Theo_Gottwald » 20. Sep 2010, 20:14

Hier noch eine Ergänzung zur Deinstallation von FreePDF.
Es bleibt da ein Drucker übrig, der auch gelöscht werden will.

Code: Select all

' +++ Del_Printer.rem +++
' zweck: 
' erstellt am: 03.02.2010
' von:
'========================
'#spi:forcewrite
'#exe:?path
'#inc:vbrun
'#spi:noauto

'========================
' Für Englisches Win 7/x64 
' Für die deutsche Version müßen die Texte umgeändert werden.
' Dieser (Del_Printer.rem) Part verwendet  - wegen dem PopUp-Menü -
' die "Compatible Engine". (MRC\) 
' Die Ausführung soltle daher im Userteil erfolgen, nicht ohne angemeldeten User!
'========================

EXS\control printers
STW\cabinetwclass\control panel\all control panel items\devices and printers|w498
SWP\14,2|539,593

STW\cabinetwclass\control panel\all control panel items\devices and printers|w30
SWC\shelltabwindowclass\control panel\all control panel items\devices and printers|w30
SWC\duiviewwndclassname\notext|w30
SWC\directuihwnd\notext|w30
SWC\ctrlnotifysink\notext|w30
SWC\shelldll_defview\shellview|w30
SWC\directuihwnd\notext|w30
AFO\20|34\FreePDF&&\FreePDF\notext\13\\'*3/1/2\'105,116\141,196
'MPO\223,392
IIF\
   GOTO enx
EIF\
MPO\
MRC\
GTW\#32768\*
AFM\99\Remove device&&
MLC\

STW\#32770\remove device|w147
GCW\\3\button\&yes|w147
MEL\

CAS\1
STW\cabinetwclass\control panel\all control panel items\devices and printers|w579
CLW\1

:enx
@
Del_Printer.rem
Printer löschen - Englische Variante
(1.07 KiB) Downloaded 202 times
Und das hier ist nochmal die Installation (aber die deutsche Variante)

Code: Select all

' +++ Install_FreePDF4.02.rem +++
' Zweck: 
' erstellt am: 17.08.2010
' von: TG
'========================
'#EXE:?path
'#SPI:ForceWrite
'#SPI:VBRun
'#SPI:NoAuto
'#SPI:x64

KRM\2
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
' 
VAR\$$*00=#32770\Hardwareinstallation\Installation &fortsetzen\Das Fortsetzen der Installation dieser Software kann die korrekt

WBC\$$*00
' No.:1 | Time: 10:27:29 | Ticks:  0
VAR\$$PRO=1
' Please change '$ev4$' to '?pfad' if you have included the Setup within the EXE-File.
VAR\$$PFA=$ev4$

EXE\$$PFA\FreePDF4.02.EXE

' No.:2 | Time: 10:27:31 | Ticks:  55
VAR\$$PRO=2
STW\ThunderRT5Form\FreePDF 4.02|w45
GCW\7\2\ThunderRT5CommandButton\&Setup|w45
WII\2
SAW\
MEL\

' 
' The dialog window below had been assumed to be a temporary window. (01).
' The code below has been replaced by WBC\ Nr.00 .
' These text has been found in the window:  1. Die Software, die für diese Hardware installiert wird:\ 2. Drucker\ 3. hat den Windows-Logo-Test nicht bestanden, der die Kompatibilitä\ 4. Das Fortsetzen der Installation dieser Software kann die korrekt\
' No.:3 | Time: 10:27:38 | Ticks:  201
VAR\$$PRO=3
' STW\#32770\Hardwareinstallation|w45
' GCW\5303\1\Button\Installation &fortsetzen|w45
' WII\5
' MEL\

' No.:4 | Time: 10:27:57 | Ticks:  426
VAR\$$PRO=4
STW\ThunderRT5Form\FreePDF 4.02|w45
GCW\4\2\ThunderRT5CommandButton\&End|w45
WII\5
SAW\
BCS\1||7|240

' No.:5 | Time: 10:28:05 | Ticks:  603
VAR\$$PRO=5
SRV\0 ' This command will set the return code.

' Code-Ende
END\1

:Always
SRV\$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.

' Code-Ende
END\1
Install_FreePDF4.02.rem
German-Install FreePDF.rem
(1.7 KiB) Downloaded 209 times
Und nun nochmal die Uninstall Free-PDF, englische Version Win7/x64

Code: Select all

' +++ Uninstall_FreePDF4.02.rem +++
' Zweck: 
' erstellt am: 03.02.2010
' von: Theo Gottwald
'========================
'#SPI:ForceWrite
'#EXE:?path
'#INC:vbrun
'#SPI:NoAuto
'#FDC:Deinstallation FreePDF

IEX\
   USM\3 ' Uncomment this command to use silent mode with redirected error messages to error files.
EEX\
' 
' ***** Package Robots Version 8.5 *****
' ***** instaRec iEngine Ver.5.0 *******
' 
' No.:1 | Time: 15:36:17 | Ticks:  0
VAR\$$PRO=1
' Please choose the Line that suits best to your needs.
' EXU\FreePDF (Remove only) |u
EXS\?progs\FreePDF_XP\fpsetup.exe$SP$/r

' No.:2 | Time: 15:36:39 | Ticks:  715
STW\#32770\FreePDF Setup|w57
GCW\6\1\Button\&Yes|w57
WII\5
SAW\
BCS\1||240

JNF\del_printer.rem

' No.:3 | Time: 15:37:21 | Ticks:  2017
SRV\0 ' This command will set the return code.
@

:Always
SRV\$$PRO' If this command is executed an error has happened
' and the return code from the script will be the block number of the last block.
END\
Uninstall_FreePDF4.02.rem
Uninstall engl-Freepdf Win7/x64
(998 Bytes) Downloaded 213 times

Post Reply

Return to “Package Robot”

Who is online

Users browsing this forum: No registered users and 5 guests