@echo off

REM * This script's purpose is to delete and recreate all components of a user's mail profile *
REM 
REM * This script is only intended to be run for repairing outlook on the terminal servers *
REM 

REM We start with closing outlook processes if they are still running.

taskkill /IM ObClnt32.exe /F
taskkill /IM Outlook.exe /F
taskkill /IM CTFMON.exe /F
taskkill /IM obunity.exe /F

REM Lets pause for a few moments to make sure everything is closed

Timeout /T 5 /NOBREAK

REM Now we're going to delete the current Office settings for our user.
REM First we'll delete the data saved to the network.

Del "\\netshare\userconfigs$\%username%\PSCitrixconfig\Outlook\Outlookran.txt" /q
Del "\\netshare\userconfigs$\%username%\PSCitrixconfig\Outlook\Outlookmessaging.reg" /q
Del "\\netshare\userconfigs$\%username%\PSCitrixconfig\Outlook\Office.reg" /q

REM second we delete the local data

Reg Delete "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem" /va /f
Reg Delete "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v FirstRun /f
Reg Delete "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v First-Run /f
Reg Delete "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v ImportPRF /f

RD "c:\users\%username%\Appdata\Local\Microsoft\Outlook" /S /Q
RD "C:\users\%username%\Appdata\Roaming\Microsoft\Outlook" /S /Q

REM now that all data has been purged, lets pause again to catch our breath.

Timeout /T 5 /NOBREAK

REM Now we recreate profile folders and insert the default Outlook startup registry values

MD "c:\users\%username%\Appdata\local\Microsoft\Outlook"
MD "c:\users\%username%\Appdata\Roaming\Microsoft\Outlook"

Reg Add "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v FirstRun /t Reg_dword /d 0
Reg Add "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v First-Run /t Reg_dword /d 0
Reg Add "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v ImportPRF /t Reg_Sz /d "c:\Progra~2\Micros~2\Custom14.prf"

REM In theory our settings have been defaulted, now lets try launching Outlook.

Timeout /T 5 /NOBREAK

Start Ctxhide.exe "C:\Program Files (x86)\Microsoft office\office14\Outlook.exe"
Xcopy "C:\scripts\Outlookran.txt" "\\netshare\userconfigs$\%username%\PsCitrixConfig\Outlook" /Y

Timeout /T 5 /NOBREAK

taskkill /IM Outlook.exe /F
taskkill /IM CTFMON.exe /F
regedit /E "\\netshare\userconfigs$\%username%\PsCitrixConfig\Outlook\Outlookmessaging.reg" "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem"
regedit /E "\\netshare\userconfigs$\%username%\PsCitrixConfig\Outlook\Office.reg" "HKEY_CURRENT_USER\Software\Microsoft\Office"

Timeout /t 5 /NOBREAK

c:
cd\

exit

SetConsole('SHOW')
;
; Declaring Global Variables
;
DIM $Selection ;Used to determine the button pressed by the user.
DIM $FILE1 ; OutlookRan.txt on netshare share
DIM $FILE2 ; OutlookMessaging.reg on netshare share
DIM $FILE3 ; Office.reg on netshare share
DIM $FILE4 ; Default PRF file for profile setup
DIM $FILE5 ; OutlookRan.txt check file
DIM $PATH1 ; Path to Outlook folder on netshare
DIM $PATH2 ; Local Appdata path to Outlook settings
DIM $PATH3 ; Roaming Appdata path to Outlook settings
DIM $REGPATH1 ; Registry key path to Windows Messaging subsystem
DIM $REGPATH2 ; Registry key path to FirstRun Setup key
DIM $REGPATH3 ; Registry key path to First-Run Setup key
DIM $REGPATH4 ; Registry key path to ImportPRF Setup key
DIM $APP ; The EXE we want to run
DIM $KILLAPP1 ; script that makes sure Outlook is not running
DIM $REGEXPORTS ; script for registry exports
;
$Rc = SetOption('NoVarsInString', 'On')
$Rc = SetOption('NoMacrosInString', 'On')
;
; Specify File and Path Variables
;
$FILE1 = '\\netshare\userconfigs$\' + @userid + '\PsCitrixConfig\Outlook\Outlookran.txt'
$FILE2 = '\\netshare\userconfigs$\' + @userid + '\PSCitrixConfig\Outlook\OutlookMessaging.reg'
$FILE3 = '\\netshare\userconfigs$\' + @userid + '\PSCitrixConfig\Outlook\Office.reg'
$FILE4 = 'c:\Progra~2\Micros~2\Custom14.prf'
$FILE5 = 'c:\Scripts\OutlookRan.txt'
$PATH1 = '\\netshare\userconfigs$\' + @userid + '\PSCitrixConfig\Outlook'
$PATH2 = 'c:\users\' + @userid + '\Appdata\Local\Microsoft\Outlook'
$PATH3 = 'c:\users\' + @userid + '\Appdata\Roaming\Microsoft\Outlook'
;
; Specify Registry Path Variables
;
$REGPATH1 = 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem'
$REGPATH2 = 'HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook\Setup'
$REGPATH3 = 'HKEY_CURRENT_USER\Software\Microsoft\Office'
;
; Specify application variables
;
$APP = 'C:\scripts\Apphelpscripts\LaunchOutlook.cmd'
;
; Specify additional script variables
;
$KILLAPP1 = 'c:\scripts\apphelpscripts\taskkilloutlook.cmd'
$REGEXPORTS = 'c:\scripts\apphelpscripts\regexports.cmd'
;
; Provide the user a popup message asking them if they want to proceed with this script or to exit.
;
$Selection = MessageBox ("This will rebuild your Outlook profile, Do you wish to continue? Press YES to rebuild your outlook profile, or press NO to cancel", "                                      Rebuild Outlook profile", 36) 
If $Selection = 6
		; Now we're going to start deleteing data
		MessageBox ("Once you click OK on this message the Outlook reset process will start. Please wait until you see another message informing you the rebuild has completed before using any office applications.", "                  Outlook profile rebuild started.....", 0, 10)
		RUN $KILLAPP1
		Sleep 5 
		DELTREE ($REGPATH1)
		DELVALUE ($REGPATH2, "FirstRun")
		DELVALUE ($REGPATH2, "First-Run")
		DELVALUE ($REGPATH2, "ImportPRF")
		DEL $FILE1 /c
		DEL $FILE2 /c
		DEL $FILE3 /c
		SHELL '%comspec% /c RD $PATH2 /S /Q'
		SHELL '%comspec% /c RD $PATH3 /S /Q'
		Sleep 5 ; script paused for 5 seconds, after the pause we start re-adding default data
		MD $PATH2
		MD $PATH3
		WriteValue ($REGPATH2, "FirstRun", "0", "REG_DWORD")
		WriteValue ($REGPATH2, "First-Run", "0", "REG_DWORD")
		WriteValue ($REGPATH2, "ImportPRF", $FILE4, "REG_SZ")
		SLEEP 5 ; Now we're going to start outlook up
		RUN $APP
		SLEEP 10 ; Pausing the let outlook sort out it's profile, next we kill Outlook. 
		RUN $KILLAPP1
		SLEEP 5 ; Pause a moment to let Outlook close and clean up, then we copy our correct outlook profile settings out to our network share for safe keeping
		COPY $FILE5 $PATH1 
		RUN $REGEXPORTS
		SLEEP 5 ; Last pause before our final message box.
		MessageBox ("Your Outlook profile has been Rebuilt, and your e-mail should now work properly. If you continue to have problems with using Outlook, please open a Helpdesk or contact extention 2500.", "                           Outlook Profile Rebuild Completed!", 0, 10)
	ELSE
		EXIT
ENDIF
EXIT

shell '%comspec% /c Taskkill /IM outlook.exe /F'

$APP = 'c:\program files (x86)\Microsoft\Office\Outlook.exe'
RUN $App

shell '%compspec% /c Reg Export $REGPATH3 $FILE3'

$Rc = SetOption('NoVarsInString', 'On')
$Rc = SetOption('NoMacrosInString', 'On')
$RC = SetConsole('SHOW')

; Declaring Global Variables

DIM $FILE1 ; OutlookRan.txt on netshare share
DIM $FILE2 ; OutlookMessaging.reg on netshare share
DIM $FILE3 ; Office.reg on netshare share
DIM $FILE4 ; Default PRF file for profile setup
DIM $FILE5 ; OutlookRan.txt check file
DIM $PATH1 ; Path to Outlook folder on netshare
DIM $PATH2 ; Local Appdata path to Outlook settings
DIM $PATH3 ; Roaming Appdata path to Outlook settings
DIM $REGPATH1 ; Registry key path to Windows Messaging subsystem
DIM $REGPATH2 ; Registry key path to FirstRun Setup key
DIM $REGPATH3 ; Registry key path to First-Run Setup key
DIM $REGPATH4 ; Registry key path to ImportPRF Setup key
DIM $APP ; The EXE we want to run
DIM $KILLAPP1 ; script that makes sure Outlook is not running
DIM $REGEXPORTS ; script for registry exports

; Specify File and Path Variables

$FILE1 = '\\netshare\userconfigs$\' + @userid + '\PsCitrixConfig\Outlook\Outlookran.txt'
$FILE2 = '\\netshare\userconfigs$\' + @userid + '\PSCitrixConfig\Outlook\OutlookMessaging.reg'
$FILE3 = '\\netshare\userconfigs$\' + @userid + '\PSCitrixConfig\Outlook\Office.reg'
$FILE4 = 'c:\Progra~2\Micros~2\Custom14.prf'
$FILE5 = 'c:\Scripts\OutlookRan.txt'
$PATH1 = '\\netshare\userconfigs$\' + @userid + '\PSCitrixConfig\Outlook'
$PATH2 = 'c:\users\' + @userid + '\Appdata\Local\Microsoft\Outlook'
$PATH3 = 'c:\users\' + @userid + '\Appdata\Roaming\Microsoft\Outlook'

; Specify Registry Path Variables

$REGPATH1 = 'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem'
$REGPATH2 = 'HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Outlook\Setup'
$REGPATH3 = 'HKEY_CURRENT_USER\Software\Microsoft\Office'

; Provide the user a popup message asking them if they want to proceed with this script or to exit.

If MessageBox("This will rebuild your Outlook profile, Do you wish to continue? Press YES to rebuild your outlook profile, or press NO to cancel", "                                      Rebuild Outlook profile", 36) = 6
	; Now we're going to start deleteing data
	$RC = MessageBox ("Once you click OK on this message the Outlook reset process will start. Please wait until you see another message informing you the rebuild has completed before using any office applications.", "                  Outlook profile rebuild started.....", 0, 10)
	SHELL '%comspec% /c taskkill.exe /IM "outlook.exe" /F /T'
	$RC = DELTREE($REGPATH1)
	$RC = DELVALUE($REGPATH2, "FirstRun")
	$RC = DELVALUE($REGPATH2, "First-Run")
	$RC = DELVALUE($REGPATH2, "ImportPRF")
	DEL $FILE1 /c
	DEL $FILE2 /c
	DEL $FILE3 /c
	RD $PATH2 /S
	RD $PATH3 /S
	While (Exist($PATH2) OR Exist($PATH3)) Loop
	MD $PATH2
	MD $PATH3
	$RC = WriteValue($REGPATH2, "FirstRun", "0", "REG_DWORD")
	$RC = WriteValue($REGPATH2, "First-Run", "0", "REG_DWORD")
	$RC = WriteValue($REGPATH2, "ImportPRF", $FILE4, "REG_SZ")
	RUN "%ProgramFiles%\Microsoft\Office\Outlook.exe"
	SLEEP 10 ; Pausing the let outlook sort out it's profile, next we kill Outlook. 
	SHELL '%comspec% /c taskkill.exe /IM "outlook.exe" /F /T'
	SLEEP 5 ; Pause a moment to let Outlook close and clean up, then we copy our correct outlook profile settings out to our network share for safe keeping
	COPY $FILE5 $PATH1
	SHELL '%compspec% /c Reg Export "'+$REGPATH3+'" "'+$FILE3+'"'
	SLEEP 5 ; Last pause before our final message box.
	$RC = MessageBox ("Your Outlook profile has been Rebuilt, and your e-mail should now work properly. If you continue to have problems with using Outlook, please open a Helpdesk or contact extention 2500.", "                           Outlook Profile Rebuild Completed!", 0, 10)
ENDIF
EXIT

SHELL '%comspec% /c RD $PATH2 /S /Q'

SHELL '%comspec% /c RD "'+$PATH2+'" /S /Q'

$nul = SetOption("NoVarsInStrings","On")

$PATH2 = "notepad.exe"

SHELL '%comspec% /c $PATH2'

SHELL '%comspec% /c taskkill.exe /IM /F /T "outlook.exe"'

SHELL '%comspec% /c taskkill.exe /IM "outlook.exe" /F /T'

SetConsole('SHOW')
;
; Declaring Global Variables
;
DIM $Selection ;Used to determine the button pressed by the user.
DIM $FILE1 ; OutlookRan.txt check file
DIM $PATH1 ; Path to Outlook folder on psroot
DIM $DEFAULTS ; script that inserts default outlook profile settings
DIM $REGEXPORTS ; script for registry exports
DIM $DELETE ; script for deleteing data we don't need
;
$Rc = SetOption('NoVarsInStrings', 'On')
$Rc = SetOption('NoMacrosInStrings', 'On')
;
; Specify File and Path Variables
;
$FILE1 = 'c:\Scripts\OutlookRan.txt'
$PATH1 = '\\netshare\userconfigs$\' + @userid + '\PSCitrixConfig\Outlook'
;
; Specify additional script variables
;
$DEFAULTS = 'c:\scripts\apphelpscripts\defaults.cmd'
$REGEXPORTS = 'c:\scripts\apphelpscripts\regexports.cmd'
$DELETE = 'c:\scripts\apphelpscripts\delete.cmd'
;
; Provide the user a popup message asking them if they want to proceed with this script or to exit.
;
$Selection = MessageBox ("This will rebuild your Outlook profile, Do you wish to continue? Press YES to rebuild your outlook profile, or press NO to cancel", "                                      Rebuild Outlook profile on Launchpad servers", 36) 
If $Selection = 6
		; Now we're going to start deleteing data
		MessageBox ("Once you click OK on this message the Outlook reset process will start. Please wait until you see another message informing you the rebuild has completed before using any office applications..", "                  Outlook profile rebuild on PS Launchpad servers started.....", 0, 10)
		SHELL '%comspec% /c taskkill.exe /IM "outlook.exe" /F /T'
		SHELL '%comspec% /c taskkill.exe /IM "ObClnt32.exe" /F /T'
		SHELL '%comspec% /c taskkill.exe /IM "obunity.exe" /F /T'
		Sleep 5 
		RUN $DELETE
		Sleep 5 ; script paused for 5 seconds, after the pause we re-add default data, and launch Outlook
		Run $DEFAULTS
		SLEEP 13 ; Pausing to let outlook sort out it's profile, next we kill Outlook. 
		SHELL '%comspec% /c taskkill.exe /IM "outlook.exe" /F /T'
		SHELL '%comspec% /c taskkill.exe /IM "ObClnt32.exe" /F /T'
		SHELL '%comspec% /c taskkill.exe /IM "obunity.exe" /F /T'
		SLEEP 5 ; Pause a moment to let Outlook close and clean up, then we copy our correct outlook profile settings out to our network share for safe keeping
		COPY $FILE1 $PATH1 
		RUN $REGEXPORTS
		SLEEP 5 ; Last pause before our final message box.
		MessageBox ("Your Outlook profile has been Rebuilt, and your e-mail should now work properly. If you continue to have problems with using Outlook, please open a Helpdesk or contact extention 2500.", "                           Outlook Profile Rebuild Completed!", 0, 10)
	ELSE
		EXIT
ENDIF
EXIT
	

@echo off
c:
cd\

Del "\\netshare\userconfigs$\%username%\PSCitrixconfig\Outlook\Outlookran.txt" /q
Del "\\netshare\userconfigs$\%username%\PSCitrixconfig\Outlook\Outlookmessaging.reg" /q
Del "\\netshare\userconfigs$\%username%\PSCitrixconfig\Outlook\Office.reg" /q
Reg Delete "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem" /va /f
Reg Delete "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v FirstRun /f
Reg Delete "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v First-Run /f
Reg Delete "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v ImportPRF /f
RD "c:\users\%username%\Appdata\Local\Microsoft\Outlook" /S /Q
RD "C:\users\%username%\Appdata\Roaming\Microsoft\Outlook" /S /Q

exit

@echo off

MD "c:\users\%username%\Appdata\local\Microsoft\Outlook"
MD "c:\users\%username%\Appdata\Roaming\Microsoft\Outlook"

Reg Add "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v FirstRun /t Reg_dword /d 0
Reg Add "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v First-Run /t Reg_dword /d 0
Reg Add "HKCU\Software\Microsoft\Office\14.0\Outlook\Setup" /v ImportPRF /t Reg_Sz /d "c:\Progra~2\Micros~2\Custom14.prf"

Timeout /T 2 /NOBREAK

Start Ctxhide.exe "C:\Program Files (x86)\Microsoft office\office14\Outlook.exe"

Exit

$RC = SetOption("WOW64AlternateRegView","On")

$RC = SetOption("WOW64AlternateRegView","On")
$Rc = SetOption('NoVarsInStrings', 'On')
$Rc = SetOption('NoMacrosInStrings', 'On')
$RC = SetConsole('SHOW')

; Provide the user a popup message asking them if they want to proceed with this script or to exit.

If MessageBox ("This will rebuild your Outlook profile, Do you wish to continue? Press YES to rebuild your outlook profile, or press NO to cancel", "                                      Rebuild Outlook profile on Launchpad servers", 36) = 6
	; Now we're going to start deleteing data
	$RC = MessageBox ("Once you click OK on this message the Outlook reset process will start. Please wait until you see another message informing you the rebuild has completed before using any office applications..", "                  Outlook profile rebuild on PS Launchpad servers started.....", 0, 10)
	$RC = EnumProcess("outlook.exe",1)
	$RC = EnumProcess("ObClnt32.exe",1)
	$RC = EnumProcess("obunity.exe",1)

	DEL "\\netshare\userconfigs$\"+@userid+"\PsCitrixConfig\Outlook\Outlookran.txt" /c
	DEL "\\netshare\userconfigs$\"+@userid+"\PSCitrixConfig\Outlook\OutlookMessaging.reg" /c
	DEL "\\netshare\userconfigs$\"+@userid+"\PSCitrixConfig\Outlook\Office.reg" /c
	$RC = DELTREE("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem")
	$RC = DELVALUE("HKCU\Software\Microsoft\Office\14.0\Outlook\Setup", "FirstRun")
	$RC = DELVALUE("HKCU\Software\Microsoft\Office\14.0\Outlook\Setup", "First-Run")
	$RC = DELVALUE("HKCU\Software\Microsoft\Office\14.0\Outlook\Setup", "ImportPRF")
	RD "%userprofile%\Appdata\Local\Microsoft\Outlook" /s
	RD "%userprofile%\Appdata\Roaming\Microsoft\Outlook" /s

	MD "%userprofile%\Appdata\Local\Microsoft\Outlook"
	MD "%userprofile%\Appdata\Roaming\Microsoft\Outlook"
	$RC = WriteValue("HKCU\Software\Microsoft\Office\14.0\Outlook\Setup", "FirstRun", "0", "REG_DWORD")
	$RC = WriteValue("HKCU\Software\Microsoft\Office\14.0\Outlook\Setup", "First-Run", "0", "REG_DWORD")
	$RC = WriteValue("HKCU\Software\Microsoft\Office\14.0\Outlook\Setup", "ImportPRF", "c:\Progra~2\Micros~2\Custom14.prf", "REG_SZ")
	Run "%ProgramFiles%\Microsoft\Office\Outlook.exe"
	SLEEP 13

	$RC = EnumProcess("outlook.exe",1)
	$RC = EnumProcess("ObClnt32.exe",1)
	$RC = EnumProcess("obunity.exe",1)

	COPY "c:\Scripts\OutlookRan.txt" "\\netshare\userconfigs$\"+@userid+"\PSCitrixConfig\Outlook"
	SHELL '%comspec% /c Reg Export "HKCU\Software\Microsoft\Office" "\\netshare\userconfigs$\'+@userid+'\PSCitrixConfig\Outlook\Office.reg"'

	$RC = MessageBox ("Your Outlook profile has been Rebuilt, and your e-mail should now work properly. If you continue to have problems with using Outlook, please open a Helpdesk or contact extention 2500.", "                           Outlook Profile Rebuild Completed!", 0, 10)
ENDIF

EXIT 0

FUNCTION EnumProcess($exe, optional $terminate, optional $Computer)
   Dim $winmgmts, $ExecQuery, $Process, $id, $getobject, $
   If NOT $computer
      $computer = @wksta
   Endif
   $winmgmts="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
   Select
      Case val($exe)>0
         $ExecQuery="select * from Win32_Process where ProcessId='$exe'"
         $GetObject=GetObject($winmgmts).ExecQuery($ExecQuery)
         For Each $Process in $GetObject
            If $terminate
               $ = $Process.Terminate
            Endif
            $EnumProcess = $Process.name
         Next
         $GetObject=''
      Case vartype($exe)=8
         $ExecQuery="select * from Win32_Process where Name='$exe'"
         $GetObject=GetObject($winmgmts).ExecQuery($ExecQuery)
         For Each $Process in $GetObject
            If $terminate
               $=$Process.Terminate
            Endif
            $id=$Process.ProcessId
            $EnumProcess = "$Id" + "|" + "$EnumProcess"
         Next
         $EnumProcess=left($EnumProcess,len($EnumProcess)-1)
         $GetObject=''
      Case 1
         Exit 1
   EndSelect
ENDFUNCTION