set oShell = wscript.CreateObject("Wscript.Shell") Function main() dim username, domain, displayname username = inputbox("Enter your USERNAME (Do not include @sysmatrix.net at the end)","Sysmatrix.Net Email Setup for Outlook Express") 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","Sysmatrix.Net Email Setup for Outlook Express") If displayname = "" Then wscript.Quit(0) End If domain = "sysmatrix.net" ' 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.", 0, "Sysmatrix.Net Outlook Express Configuration Complete" 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 fixme(strValue) ' dim userEntry ' userEntry = split(strValue, "@") ' fixme = userEntry(0) 'End Function 'Function fixme2(strValue2) ' dim userEntryd ' userEntryd = split(strValue2, "@") ' fixme2 = userEntryd(0) 'End Function 'EXAMPLE STRING FOR SPLIT ' Split(expression[,delimiter]) '---------------------------------------------------------------------------------------- ' Place new settings for Mail '---------------------------------------------------------------------------------------- Function placeMailSettings(theUsername, thedisplayname, theDomain) On Error Resume Next dim newAccountNum, numKeyStr dim username, displayname, domain 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 accName = username & "@SysMatrix.Net" 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 = "pop.gmail.com" pop3svrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Server" call regWrite(pop3svrStr, pop3svr, "REG_SZ") 'Set POP3 Username pop3usr = username & "@" & domain 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 = "smtp.gmail.com" 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 POP3 Port pop3Port = "995" pop3PortStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Port" call regWrite(pop3PortStr, pop3Port, "REG_DWORD") 'Set POP3 Secure Connection pop3Secure = "1" pop3SecureStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Secure Connection" call regWrite(pop3SecureStr, pop3Secure, "REG_DWORD") 'Set POP3 Timeout pop3Timeout = "3c" pop3TimeoutStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Timeout" call regWrite(pop3TimeoutStr, pop3Timeout, "REG_DWORD") 'Set Leave Mail on Server Leave = "1" LeaveStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Leave Mail on Server" call regWrite(LeaveStr, Leave, "REG_DWORD") 'Set SMTP Username smtpusr = "" smtpusrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP User Name" call regWrite(smtpusrStr, smtpusr, "REG_SZ") 'Delete SMTP Password 2 popPwdStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Password2" call regDelete(popPwdStr) '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 SMTP Port smtpPort = "587" smtpPortStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Port" call regWrite(smtpPortStr, smtpPort, "REG_DWORD") 'Set SMTP Secure Connection smtpSecure = "1" smtpSecureStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Secure Connection" call regWrite(smtpSecureStr, smtpSecure, "REG_DWORD") 'Set SMTP Timeout smtpTimeout = "3c" smtpTimeoutStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Timeout" call regWrite(smtpTimeoutStr, smtpTimeout, "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, 0, "Sysmatrix.Net Outlook Express" End Function call main()