Problem

Solution

If FileExists("C:\Novell\GroupWise\gwcache.txt") Then

MsgBox (0, " Cache già implementata", "",2)
Else

$mode = RegRead("HKEY_CURRENT_USER\Software\Novell\GroupWise\Login Parameters\Mode", "")
$dircache = RegRead("HKEY_CURRENT_USER\Software\Novell\GroupWise\Login Parameters\Path To Cache", "")

If $mode = "Cache" Then
If $dircache = "<directory of caching>" Then
MsgBox (0, " Cache già implementata", 2)
Exit
EndIf
EndIf

SplashTextOn("Configurazione GroupWise in modalità Cache", @CR & "Non utilizzare tastiera e mouse", 400, 100 , 5, 600,"",28)

; Step1 - stop del processo notify e grpwise
If ProcessExists("notify.exe") Then
ProcessClose("notify.exe",1)
sleep (2000)
Endif

If ProcessExists("grpwise.exe") Then
ProcessClose("grpwise.exe",1)
sleep (2000)
Endif


;Step2 - rimuove dir 
DirRemove("<directory of caching>", 1)
DirCreate("<directory of caching>")

;Step3 - esegue groupwise
Run ("C:\Novell\GroupWise\grpwise.exe")
Sleep(2000)

;Step4
; esegue come admin la modifica della voce di registro 


RegWrite("HKEY_CURRENT_USER\Software\Novell\GroupWise\Login Parameters\Path To Cache","", "REG_SZ", "D:\Posta\Caching")

RegWrite("HKEY_CURRENT_USER\Software\Novell\GroupWise\Login Parameters\Mode","","REG_SZ","Cache")


;Step5  switch dalla modalità online alla modalità Cache
$att = WinWait ( "Novell GroupWise - ", "", 20)
if $att = 0 Then
Exit
EndIf
WinActivate ( "Novell GroupWise - ", "")
Sleep (1000)
Send ("!fmc")

$att = WinWait ( "Novell GroupWise", "Usare la password della casella postale in linea per accedere alla casella postale Caching?", 10)
if $att = 0 Then
Exit
EndIf
Send ("!s")
Sleep (1000)

$att = WinWait ( "Cambio di modalità in GroupWise", "Per passare dalla modalità In linea alla modalità Caching occorre uscire e riavviare GroupWise", 10)
if $att = 0 Then
Exit
EndIf
Send ("!s")
Sleep (1000)


;Step6 crea file di controllo
$file = FileOpen("C:\Novell\GroupWise\gwcache.txt", 2) 
If $file = -1 Then
MsgBox(0, "Error", "Unable to create file gwonline.")
Exit
EndIf
FileClose($file)


SplashOff()

EndIf

If FileExists("C:\Novell\GroupWise\gwonline.txt") Then

MsgBox (0, " Funzionalità Online già implementata", "",1)
Else

; Step1 - stop del processo notify e grpwise
If ProcessExists("notify.exe") Then
ProcessClose("notify.exe",1)
sleep (2000)
Endif

If ProcessExists("grpwise.exe") Then
ProcessClose("grpwise.exe",1)
sleep (2000)
Endif


;Step2 - rimuove dir 
DirRemove("<directory of groupwise chaching", 1)


;Step3
; esegue come admin la modifica della voce di registro 

RegWrite("HKEY_CURRENT_USER\Software\Novell\GroupWise\Login Parameters\Path To Cache","", "REG_SZ", "")

RegWrite("HKEY_CURRENT_USER\Software\Novell\GroupWise\Login Parameters\Mode","","REG_SZ","Online")

;Step4 crea file di controllo
$file = FileOpen("C:\Novell\GroupWise\gwonline.txt", 2) 
If $file = -1 Then
MsgBox(0, "Error", "Unable to create file gwonline.")
Exit
EndIf
FileClose($file)

If FileExists("C:\Novell\GroupWise\gwcache.txt") Then
FileDelete("C:\Novell\GroupWise\gwcache.txt")
EndIf

Run ("C:\Novell\GroupWise\notify.exe")
EndIf