' Set Outlook Express Identity
' Copyright Mortal Universe Software Entertainment
'
' DESCRIPTION:
' This script sets the OE identity to the argument specified
' If no argument is specified, OE will prompt you
'
' USAGE:
' OEIdentities.vbs [identity]
'  Where "identity" is optional and defines an OE identity
'
' An OE identity is typically in the form: {8EC0798E-A30D-11D7-A4E6-0050BA5492B1}
'   and can be discovered in the registry:
' HKEY_CURRENT_USER\Identities
' Look for the "Username" value for the identity name.
'
' EXAMAPLE (setting the Pre-Run command in PPTweaker)
'   C:\Program Files\POP Peeper\OEIdentities.vbs {8EC0798E-A30D-11D7-A4E6-0050BA5492B1}
' Note the {8EC0798E-A30D-11D7-A4E6-0050BA5492B1} will NOT be the same on
'  your system.  You should discover the correct value for the identity 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\Identities\Last Username", WScript.Arguments(0)
  WshShell.RegWrite "HKCU\Identities\Last User ID", WScript.Arguments(0)
Else
  WshShell.RegWrite "HKCU\Identities\Last Username", ""
  WshShell.RegWrite "HKCU\Identities\Last User ID", ""
End If