Please help with this script
Option Explicit
On error resume next
Dim WshShell
Dim Onet
Set oNet = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete ("HKCU\Software\Microsoft\Office\10.0\Outlook\Setup\First-Run")
WshShell.RegWrite "HKCU\Software\Microsoft\Office\10.0\Outlook\Setup\ImportPRF","\\example\\%username%\outlook.PRF","REG_SZ"
Wshshell.run ("\\example\outlook\lbbd.PRF")
wscript.sleep 10000
Think it might need an if else statments
Option Explicit
On error resume next
Dim WshShell
Dim Onet
Set oNet = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete ("HKCU\Software\Microsoft\Office\10.0\Outlook\Setup\First-Run")
WshShell.RegWrite "HKCU\Software\Microsoft\Office\10.0\Outlook\Setup\ImportPRF","\\example\\%username%\outlook.PRF","REG_SZ"
Wshshell.run ("\\example\outlook\lbbd.PRF")
wscript.sleep 10000
Think it might need an if else statments