Outlook profile setup logon script help

[mac_shinobi]

Harr Cscript is for when it needs commandline items, like inputs/outputs e.g. if you're running it in cmd and want to input a variable etc

But for running normal script shouldn't need it.

Steve

Presume this is when you do something like using the shell to execute a command in the command prompt ie

objshell.run "cmd /k ping hostname"

I know you can ping using wmi and other methods etc

[randle]

Just found another potential problem!...Currently, at logon, if the file "outlook.pst" isn't present, the registry value is then imported meaning when Outlook is run, it performs a first-run using the specified prf file. In most scenarios this is fine however when they log onto a computer that doesn't have the outlook.pst file present but then don't open up Outlook, when they next log back on to a computer already set up, this will have retained the ImportPRF value set previously and so performed first-run again.

I'm now thinking that I could have a logoff script that would check whether the ImportPRF reg value still exists at this point and if so replace it with the First-Run value again meaning that previously setup computers are not affected. Any ideas on a script for this or whether there's a better way of doing this!?

[randle]

I've had a little play about and so far have this:

Const HKEY_CURRENT_USER = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _ 
   strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
If NOT IsNull(strValueName) Then
   Wscript.Echo "The registry key value needs to be deleted."
   objRegistry.DeleteKey HKEY_CURRENT_USER,strKeyPath,strvalueName
Else
   Wscript.Echo "The registry key exists."
   
End If

This gets as far as telling me that the registry key value needs to be deleted but then doesn't appear to delete it. Can anyone tell me where I've gone wrong at all? Many places I'm sure

[randle]

Ok a little jiggling about and now have:

set objShell = CreateObject("WScript.Shell")
Const HKEY_CURRENT_USER = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _ 
   strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If NOT IsNull(dwValueName) Then
   Wscript.Echo "The registry key value needs to be deleted."
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
   Wscript.Echo "The registry key exists."
   
End If

Which deletes the registry value if it exists but now need to add the First-Run value back in with hex data included....Any ideas?

[mac_shinobi]

Ok a little jiggling about and now have:

set objShell = CreateObject("WScript.Shell")
Const HKEY_CURRENT_USER = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _ 
   strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If NOT IsNull(dwValueName) Then
   Wscript.Echo "The registry key value needs to be deleted."
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
   Wscript.Echo "The registry key exists."
   
End If

Which deletes the registry value if it exists but now need to add the First-Run value back in with hex data included....Any ideas?

Before you delete the value with the hex value in your logon script, get it to write this value to the C: Drive in a hidden directory as a registry file and you can re merge this silently on your logoff script ?

Unless this hex value is the same for all of them regardless of machine / user logged on etc ?

[randle]

Turns out the hex value isn't the same for everyone so isn't going to work although it also seems apparent that simply deleting the ImportPRF value on it's own is enough as the First-Run value re-creates itself automatically without issue......Hopefully.

I thought I was pretty much there but running this script at logoff through GPO has given me the error "Unable to remove registry key" HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ ImportPRF" Code: 80070002, Source: WshShell.RegDelete.

I thought the above script covered this if the value is not present!!? The final edition doesn't have the Wscript.Echo on the last but one line btw!

[mac_shinobi]

Ok a little jiggling about and now have:

set objShell = CreateObject("WScript.Shell")
Const HKEY_CURRENT_USER = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _ 
   strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If NOT IsNull(dwValueName) Then
   Wscript.Echo "The registry key value needs to be deleted."
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
   Wscript.Echo "The registry key exists."
   
End If

Isn't the above the wrong way around, if the key does not exist then there is no need to try and delete it, if it does exist ( the 2nd part of the If Else Statement ) then delete the key.

[randle]

That is what I want it to do but the script does appear to do that when run manually already:

(Without the Wscript.Echo)

set objShell = CreateObject("WScript.Shell")
Const HKEY_CURRENT_USER = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & _ 
   strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If NOT IsNull(dwValueName) Then
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
   
End If

Should it be different to the above?

Also I thought the above already handled if the value didn't exist!?

[mac_shinobi]

That is what I want it to do but the script does appear to do that when run manually already:

(Without the Wscript.Echo)

set objShell = CreateObject("WScript.Shell")
Const HKEY_CURRENT_USER = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If NOT IsNull(dwValueName) Then
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
End If

What is dwValueName , Just I can't see anything assigned to a variable named that

--> If NOT IsNull(dwValueName) Then

[randle]

Right I've tidied it up....again and have something very similar to the original script now and appears to delete the value when present although still doesn't handle if the value isn't present:

set objShell = CreateObject("WScript.Shell")
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
oReg.GetBinaryValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
If IsNull(dwValue) Then
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
   
End If

Any ideas?

[randle]

Well think I finally have it:

set objShell = CreateObject("WScript.Shell")
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Office\14.0\Outlook\Setup"
strValueName = "ImportPRF"
oReg.GetBinaryValue HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue
On Error Resume Next
If strValueName = "ImportPRF" Then
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
If Err.Number = 0 Then
Else
   Err.Clear
End If
End If

I'm still a little unsure why the original code couldn't handle the value not being there but seems the error handling has done the trick.

[Steve21]

I'm still a little unsure why the original code couldn't handle the value not being there but seems the error handling has done the trick.

If IsNull(dwValue) Then
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
   
End If

That's back to front logic I think (Unless it's just been a long day)

If is null, it doesn't exist so won't delete. (But you're trying to)
If it's not null, it exists, so won't delete. (As you're not trying to)

Steve

[mac_shinobi]

If IsNull(dwValue) Then
   objShell.RegDelete "HKCU\SOFTWARE\Microsoft\Office\14.0\Outlook\Setup\ImportPRF"
Else
   
End If

That's back to front logic I think (Unless it's just been a long day)

If is null, it doesn't exist so won't delete. (But you're trying to)
If it's not null, it exists, so won't delete. (As you're not trying to)

Steve

It did seem a bit back to front but I don't think i've ever used the IsNull function, Think I should do now seeing as it is easier then using an if statement to check if it is equal to "" which is the same as IsNull.

[Steve21]

It did seem a bit back to front but I don't think i've ever used the IsNull function, Think I should do now seeing as it is easier then using an if statement to check if it is equal to "" which is the same as IsNull.

Aye, Generally I do too, only issue is sometimes "" is still linked to a memory spot so can have something assigned to it even though it should be nothing as such. Null doesn't as such. But yeah, either works normally.

Steve

[randle]

That's back to front logic I think (Unless it's just been a long day)

If is null, it doesn't exist so won't delete. (But you're trying to)
If it's not null, it exists, so won't delete. (As you're not trying to)

Steve

My original one had "NOT IfNull" but while I was playing about got changed to just "IfNull" instead. I understand what you're saying and is the wrong way round however my final script is now using "If strValueName = "ImportPRF" Then" instead as seemed more logical, for me anyway. If this is wrong feel free to correct as am still very getting to grips with VB.

However now that I have a logoff script that appears to work I now how another problem . The original logon script will delete the value "First-Run" from the setup key if present but now for some reason I'm getting First-Run string values instead of binary values appearing and the logon script doesn't appear to want to delete this value unless it's binary value.

I'm going to have a play but thought I'd explain in case you know why or have a quick fix!!?