' Set Outlook Profile
' Copyright Mortal Universe Software Entertainment
'
' DESCRIPTION:
' This script sets the Outlook Profile to the argument specified
' An argument MUST be specified
'
' USAGE:
' OutlookProfiles.vbs {profile}
'  Where "profile" is required and defines an Outlook Profile name
'
' An Outlook Profile can be discovered in the registry:
' HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles\
' Look at the subfolders
'
' EXAMAPLE (setting the Pre-Run command in PPTweaker)
'   C:\Program Files\POP Peeper\OutlookProfiles.vbs Profile2
' Note the 'Profile2' will NOT be the same on your system.  
' You should discover the correct value for the profile you
'  want to use, as described above.
'
' NOTES:
' - This Visual Basic Script modifies the registry, and in doing so, some
'   Anti-Virus applications may prevent the script from running or prompt
'   you for action.

Set WshShell = WScript.CreateObject("Wscript.Shell")

If (WScript.Arguments.Count) Then
	WshShell.RegWrite "HKCU\Software\Microsoft\Windows Messaging Subsystem\Profiles\DefaultProfile", WScript.Arguments(0)
'Else
'	WshShell.RegWrite "HKCU\Software\Microsoft\Windows Messaging Subsystem\Profiles\DefaultProfile", ""
End If