Sync Outlook2002 Signatures with Profile

The following script will launch outlook in the designated profile and assign the correct signatures. Create one for each profile. The quotation marks remain around the variables.
BACK UP YOUR REGISTRY FIRST.
Change the two instances of signatureREPLACE (new and reply signatures) with the signature name and change the ProfileNameREPLACE with the profile name. Again, the quotation marks are required.
REM ***********************************************
Dim objShell, RegKey, Q
Set objShell = CreateObject("WScript.Shell")
strQuote = chr(34)
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\MailSettings"
RegKey = RegKey & "\NewSignature"
objShell.RegWrite RegKey, "SignatureREPLACE"
RegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\MailSettings"
RegKey = RegKey & "\ReplySignature"
objShell.RegWrite RegKey, "SignatureREPLACE"
objShell.Run "outlook /profile " & strQuote & "ProfileNameREPLACE" & strQuote
REM ***********************************************