Thanks...this is what I had so far...close outlook, copy the psts..could you add the reassociate part to mine if you have some time or modify it?



 Code:
;Created 3/25/2008
;Edited: 2:24pm, 3/25/2008

;This kills Outlook so psts are not in use which will interfere with copying

Break On
$nul=SetOption('WrapAtEOL','ON')
$nul=SetOption('Explicit','ON')
$nul=SetOption('NoVarsInStrings','ON')

Dim $wksta,$EndOutlook
$wksta = @WKSTA
$EndOutlook = ENDPROC($wksta,'outlook.exe')

Function ENDPROC($wksta,$proc)
Dim $Process,$EndOutlook
For Each $Process in GetObject('WinMgmts:'+'{impersonationLevel=impersonate}!\\'+$wksta+'\root\cimv2').ExecQuery('select * from Win32_process where name="outlook.exe"')
  $EndOutlook = $Process.Terminate()
Next
EndFunction

;Copy from source folder to destination folder

If Exist ("\\server\" + @userid + "\TESTPST\")=0 ;Destination Folder
			MD "\\server\" + @userid + "\TESTPST"	;Create Destination Folder
EndIf
Copy "\\server\" + @userid + "\OutLookPST\*.pst" "\\server\" + @userid + "\TESTPST\"

Edited by NTDOC (2008-03-25 08:28 PM)
Edit Reason: Added CODE TAGS