:Rerun
SetVar Choice,[Menu
Toolbox,Network|Connect to VPN,Download|Surf the
Internet,Recycle|Reconnect network drives, _
HardDrive|Synchronize
offline files,Documents|Backup PST file(s),Shield|Backup profile data,Shield|Restore
profile data, _
Tools|Cleanup outlook
addresses,Config|Configure internal WLAN,HelpDesk HomePage,Document|About the
toolbox]
If [Var Choice]= Then
Exit
Goto [Var Choice]
:Connect
to VPN
Launch [ProgramFilesDir]\CheckPoint\SecuRemote\Bin\ConnSHApp.exe,-p Acme VPN
DisableProxyServer
Exit
:Surf
the Internet
If Alive AcmeProxy Then
EnableProxyServer
WriteRegistry HKEY_CURRENT_USER\software\microsoft\internet explorer\main\start page,http://intra.acme.com
Launch http://intra.acme.com
Else
DisableProxyServer
WriteRegistry HKEY_CURRENT_USER\software\microsoft\internet explorer\main\start page,http://www.google.dk
Launch http://www.google.com
End If
Exit
:Reconnect
network drives
If Not Alive AcmeProxy Then
ShowMessage No network connectivity
Else
''====
CONNECT REGULAR SHARES ====
SmallSplash Mapping
network drives (Drive M) ...
ConnectShare [UserHomeDrive],[UserHomeDir],Personal files
SmallSplash Mapping
network drives (Drive G) ...
ConnectShare G:,\\Acme\Common,Shared files
SmallSplash Mapping
network drives (Drive H) ...
ConnectShare H:,\\Acme\Dep,Corporate department
files
SmallSplash Mapping
network drives (Drive Y) ...
ConnectShare Y:,\\Acme\Resources,Common resources
''====
CONNECT DOMAIN GROUP SHARES ====
SmallSplash Mapping
network drives (Groups) ...
Loop GroupName,[UserGroups]
If FileExists
[FastTrackPath]\GroupShares\[Var GroupName].FSH Then
Include [FastTrackPath]\GroupShares\[Var GroupName].FSH
End If
End Loop
EnableProxyServer
End If
Goto Rerun
:Synchronize
offline files
If Not Alive AcmeProxy Then
ShowMessage No
network connectivity
Goto Rerun
End If
SmallSplash Doing
offline sync...
Run [WinDir]\system32\mobsync.exe
RemoveSmallSplash
Goto Rerun
:Backup
PST file(s)
If Not Alive AcmeProxy Then
ShowMessage No
network connectivity
Goto Rerun
End If
If ProcessRunning Microsoft
Outlook Then
ShowMessage You
cannot perform backup of your PST file(s) while Outlook is open.[Return][Return]Please
close Outlook and try again.
Else
If Ask Do you wish to
backup your PST file(s)? then
Loop File,[Files
[UserAppDataDir]\Microsoft\Outlook]
If [Right
[Var File],3]=PST Then
CopyFile [UserAppDataDir]\Microsoft\Outlook\[Var File],[UserHomeDrive]\Backup\Outlook\[Var File]
End If
End Loop
ShowMessage PST
backup complete
End If
End If
Goto Rerun
:Backup
profile data
If [UserHomeDir]= Then
ShowMessage You do not have a valid home drive - please contact HelpDesk.
Else
If Ask "Do
you want to backup your documents, favorites and desktop?"
Then
SyncDir [UserDocumentsDir],[UserHomeDir]\Backup\Documents
SyncDir [UserDesktopDir],[UserHomeDir]\Backup\Desktop
SyncDir [UserFavoritesDir],[UserHomeDir]\Backup\Favorites
ShowMessage Document
backup complete
End If
End If
Goto Rerun
:Restore
profile data
If Not DirectoryExists
[UserHomeDir]\Backup\Documents
Then
ShowMessage You do not have a backup to restore.
Else
If Ask "Are
you sure you want to restore your documents, favorites and desktop?"
Then
If Ask "Would you
like keep any new files that are not in your backup?" Then
CopyDir [UserHomeDir]\Backup\Documents,[UserDocumentsDir]
CopyDir [UserHomeDir]\Backup\Desktop,[UserDesktopDir]
CopyDir [UserHomeDir]\Backup\Favorites,[UserFavoritesDir]
Else
SyncDir [UserHomeDir]\Backup\Documents,[UserDocumentsDir]
SyncDir [UserHomeDir]\Backup\Desktop,[UserDesktopDir]
SyncDir [UserHomeDir]\Backup\Favorites,[UserFavoritesDir]
End If
ShowMessage Document
restore complete
End If
End If
Goto Rerun
:Cleanup
outlook addresses
If ProcessRunning
Microsoft Outlook Then
ShowMessage This
operation cannot be performed while Outlook is open.[Return][Return]Please close
Outlook and try again.
Else
Loop File,[Files
[UserAppDataDir]\Microsoft\Outlook]
If [Right [Var File],3]=OAB then
DeleteFile [UserAppDataDir]\Microsoft\Outlook\[Var File]
End If
IF [Right [Var File],3]=NK2 then
DeleteFile [UserProfileDir]\Microsoft\Outlook\[Var File]
End If
End Loop
ShowMessage Cached
Outlook address information has been removed.
End If
Goto Rerun
:Configure
internal WLAN
If Ask Do you
want to connect to the internal WLAN? Then
SmallSplash Connecting
to wireless network...
Run [ProgramFilesDir]\Acme\zwlancfg.exe,/import:"[ProgramFilesDir]\Acme\Internet.xml"
RemoveSmallSplash
If NetworkPresent
Then
ShowMessage Wireless
LAN connected!,Information
Else
ShowMessage There
was a problem connecting to the wireless LAN. Please check availability and retry.
End If
End If
Goto Rerun
:HelpDesk HomePage
IF Alive acmeproxy Then
Launch http://HelpDesk
Else
ShowMessage You
must on the internal network to go to the HelpDesk
homepage
End If
Exit
:About
the toolbox
Run [ProgramFilesDir]\Acme\AboutToolbox.doc
Goto Rerun