Cybersecurity
DevOps Cloud (ADM)
IT Operations Cloud
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