I need code that will add a new account in Outlook Express. I want to the user to enter their username; displayname and pop3 password. I have code that will add the username and displayname:
Code:
set oShell = wscript.CreateObject("Wscript.Shell")

Function main()
dim username, domain, displayname

username = inputbox("Enter your USERNAME (Do not include @.xx at the end)","Email Setup")

If username = "" Then
wscript.Quit(0)
End If

If username = "Username" Then
while username = "Enter your Email PREFIX or USERNAME"
username = inputbox("Enter your Email PREFIX or username (before the @ sign)","Outlook Express Profile Creator","Username")
If username = "" Then
wscript.Quit(0)
End If
wend
End If

displayname = inputbox("Enter your DISPLAY NAME (The name you want people to see when you E-Mail them","Internet Email Setup")

If displayname = "" Then
wscript.Quit(0)
End If

domain = "test.com"

' displayname = Ltrim(fixme(displayname))
' username = Ltrim(fixme(username))
' domain = fixme2(domain)

'EXAMPLE STRING FOR RTRIM
' RTrim(string)

call placeMailSettings(username, displayname, domain)

msgbox("Outlook Express Configuration Complete, please start Outlook Express and enter your password when prompted.")
End Function

Function regRead(regStr)
regRead = oShell.RegRead(regStr)
End Function

Function regWrite(val1,val2,val3)
oShell.RegWrite val1,val2,val3
End Function

Function regDelete(regStr)
call oShell.RegDelete(regStr)
End Function

Function placeMailSettings(theUsername, thedisplayname, theDomain)
On Error Resume Next
dim newAccountNum, numKeyStr
dim username, displayname, domain, msvcmail
msvcMail="1.255.4.12"
newAccountNum = regRead("HKCU\Software\Microsoft\Internet Account Manager\Account Name")

If newAccountNum = "" Then
newAccountNum = "00000001"
ElseIf newAccountNum < 9 Then
newAccountNum = "0000000" & newAccountNum
Else
newAccountNum = "000000" & newAccountNum 
End If

numKeyStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\"
call regWrite(numKeyStr, newAccountNum, "REG_SZ")

username = theUsername
displayname = thedisplayname
domain = theDomain

'Add Account Name
accName = username & "@" & domain
accNameStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Account Name"
call regWrite(accNameStr, accName, "REG_SZ")

'Add Connection Type
conType = "3"
conTypeStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Connection Type"
call regWrite(conTypeStr, conType, "REG_DWORD")

'Delete Connection Id
conId = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\ConnectionId"
call regDelete(conId)

'Delete Account Id
accId = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Account ID"
call regDelete(accId)

'Delete IMAP Server
imapSvr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\IMAP Server"
call regDelete(imapSvr)

'Delete HTTP Mail Server
httpSvr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\HTTPMail Server"
call regDelete(httpSvr)

'Set POP3 Server
pop3svr = msvcMail
pop3svrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Server"
call regWrite(pop3svrStr, pop3svr, "REG_SZ")

'Set POP3 Username
pop3usr = username
pop3usrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 User Name"
call regWrite(pop3usrStr, pop3usr, "REG_SZ")

'Delete POP3 Password 2
popPwdStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Password2"
call regDelete(popPwdStr)

'Set POP3 Use Sicily
useSicily = "0"
useSicilyStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Use Sicily"
call regWrite(useSicilyStr, useSicily, "REG_DWORD")

'Set POP3 Prompt for Pw
var promptPw = "1"
var promptPwStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Prompt for Password"
call regWrite(promptPwStr, promptPw, "REG_DWORD")

'Set SMTP Server
smtpSvr = msvcMail
smtpSvrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Server"
call regWrite(smtpSvrStr, smtpSvr, "REG_SZ")

'Set SMTP Display name
smtpDisp = displayname
smtpSvrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Display Name"
call regWrite(smtpSvrStr, smtpDisp, "REG_SZ")

'Set SMTP E-mail address
smtpEmail = username & "@" & domain
smtpEmailStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Email Address"
call regWrite(smtpEmailStr, smtpEmail, "REG_SZ")

'Set SMTP Use Sicily
smtpUseSicily = "2"
smtpUseSicilyStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Use Sicily"
call regWrite(smtpUseSicilyStr, smtpUseSicily, "REG_DWORD")

'Set New Account to default
defAccStr = "HKCU\Software\Microsoft\Internet Account Manager\Default Mail Account"
call regWrite(defAccStr, newAccountNum, "REG_SZ")

'Increment future account number
futAccNum = newAccountNum + 1
futAccNumStr = "HKCU\Software\Microsoft\Internet Account Manager\Account Name"
call regWrite(futAccNumStr, futAccNum, "REG_DWORD")

msgbox("POP3 Server Set to: " & pop3svr & chr(10) & "SMTP Server Set to: " & smtpSvr)
End Function

call main()
But this doesn't allow me to assign the pop3 password, how can I do this? The trouble is that that passwords are stored as binary values. I'd appreciate any help.