;*******************************************************************************
;**
;** SharedApps.kix
;**
;*******************************************************************************

;*************************************************************************
;**
;** Remove existing Shared Programs folders
;**
;*************************************************************************

If Exist("%userprofile%\Desktop\Shared Programs\")=1
SHELL "%COMSPEC% /C RD /S /Q " + Chr(34) + "%UserProfile%\Desktop\Shared Programs" + Chr(34)
EndIf

If Exist("%userprofile%\Start Menu\Shared Programs\")=1
SHELL "%COMSPEC% /C RD /S /Q " + Chr(34) + "%UserProfile%\Start Menu\Shared Programs" + Chr(34)
EndIf

?
?"Refreshing Shared Programs..."
?

MD "%userprofile%\Start Menu\Shared Programs\"

;*************************************************************************
;**
;** Start Menu\Shared Programs
;**
;*************************************************************************

Copy @SCRIPTDIR + "\SharedApps\Start Menu\corporate.url" "%userprofile%\Start Menu\Shared Programs\*.*"

If InGroup("Domain\SomeAppName")
Copy @SCRIPTDIR + "\SharedApps\Start Menu\SomeAppName.LNK" "%userprofile%\Start Menu\Shared Programs\*.*"
EndIf

If InGroup("Domain\SomeAppName")
Copy @SCRIPTDIR + "\SharedApps\Start Menu\SomeAppName.lnk" "%userprofile%\Start Menu\Shared Programs\*.*"
EndIf

If InGroup("Domain\App Citrix Visio 2000")
If Exist("%userprofile%\Start Menu\Shared Programs\Office 2000\")=0
MD "%userprofile%\Start Menu\Shared Programs\Office 2000\"
EndIf
Copy @SCRIPTDIR + "\SharedApps\Start Menu\Office 2000\Visio 2000.LNK" "%userprofile%\Start Menu\Shared Programs\Office 2000\*.*"

EndIf