REGWRITE to add new outlook express account

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.

writing a binary string is easy enough, but not with WSH. For that you need the APIs, WMI, or you could conceivably create .reg files and do it with regedit. Aren't the passwords encrypted anyway ?

Any suggestion on how to do it???

The passwords will be encrypted. Without knowing the exact alogorithum you wont be able to duplicate it. Why do you need to create the account programmatically?

Basically I have a customer who has a load of sites. They want to automatically set up outlook express accounts for the sites without having to have someone manually set them up. My code reads in the username displayname, password (blank), domainname and POP3 location from a CVS file and creates the account in outlook express.

Code:

---

set oShell = wscript.CreateObject("Wscript.Shell")

Function main()

        ReadFile

End Function

Sub ReadFile()

        ' Read in account details from .csv file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFile = objFSO.OpenTextFile("C:\Dermot\10AccountDetails.csv", 1)

        Do Until objFile.AtEndOfStream
                    Redim Preserve arrFileLines(i)
                    arrFileLines(i) = objFile.ReadLine

                    Aryrecord = Split(arrFileLines(i), ",")
                ReDim Preserve UserName(i), DisplayName(i), Pwd(i), DomainName(i), POP3Location(i)

                    UserName(y) = AryRecord(0)
                    DisplayName(y) = AryRecord(1)
                    Pwd(y) = AryRecord(2)
                    DomainName(y) = AryRecord(3)
                POP3Location(y) = AryRecord(4)

                call placeMailSettings(UserName(y), DisplayName(y), Pwd(y), DomainName(y),POP3Location(y))
                   
                msgbox UserName(y) & " set up"
                i = i + 1
                y = y + 1
        Loop
       
        objFile.Close
       
        msgbox "Finished Reading File"

End Sub


Function placeMailSettings(theUsername, thedisplayname, thePWD, theDomain, thePOP3)
On Error Resume Next
dim newAccountNum, numKeyStr
dim username, displayname, domain, pop3 'msvcmail

        'Set new account to user name
        newAccountNum = regRead("HKCU\Software\Microsoft\Internet Account Manager\Account Name")

        ' Find next available account number
        If newAccountNum = "" Then
                newAccountNum = "00000001"
        ElseIf newAccountNum < 9 Then
                newAccountNum = "0000000" & newAccountNum
        Else
                newAccountNum = "000000" & newAccountNum
        End If

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

        username = theUsername
        displayname = thedisplayname
        domain = theDomain
        pop3 = thePOP3

        '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")

        'Set POP3 Server
        pop3svr = pop3
        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")

        '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
        promptPw = "1"
        promptPwStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Prompt for Password"
        call regWrite(promptPwStr, promptPw, "REG_DWORD")

        'Set SMTP Server
        smtpSvr = pop3
        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

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

call main()

---

I can do without programmatically entering the password, as I can get Outlook Ex to prompt for a password (using "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Prompt for Password") when launched. However, even though it will prompt for a password it isn't remembering the password, i.e. the Remember Password tick box is disabled. Anyone know how to enable it and set it to true??

Thanks