Article
Problem
You need to change GroupWise login from online to cache, for multiple users.
Solution
You can do this with the with AutoIt script. This application lets you set for many users Groupwise mode caching.
Here's a link to the AutoIt utility:
http://www.autoitscript.com/autoit3/
Sample Script: Changing to Caching Mode
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
Sample Script: Pushing the Login Script with ZENworks
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
Disclaimer: As with everything else at Cool Solutions, this content is definitely not supported by Novell (so don't even think of calling Support if you try something and it blows up).
It was contributed by a community member and is published "as is." It seems to have worked for at least one person, and might work for you. But please be sure to test, test, test before you do anything drastic with it.
Related Articles
User Comments
- Be the first to comment! To leave a comment you need to Login or Register
- 8803 reads


0