• 0

Using VB Script to Configure Outlook Express


Question

I have a script I have modified that I found online for what I needed.

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

Function main()
	dim username, domain


	username = inputbox("Enter store number","Outlook Express Profile Creator","Username")

	If username = "" Then
  wscript.Quit(0)
  End If
  
  If username = "Username" Then
 	 while username = "Enter store number"
    username = inputbox("Enter store number)","Outlook Express Profile Creator","Username")
   	 If username = "" Then
   	 wscript.Quit(0)
   	 End If
 	 wend
  End If


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

'EXAMPLE STRING FOR RTRIM
'	RTrim(string)

	call placeMailSettings(username, domain)

	msgbox("Configuration Completed Successfully, don't forget to set the password!")
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, theDomain)
	On Error Resume Next
	dim newAccountNum, numKeyStr
	dim username, 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
	domain = theDomain

	'Add Account Name
   accName = username & " Mail"
   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 = "insert pop3 server here"
   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 Password 2
   pop3pwd = username & "$"
   popPwdStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\POP3 Password2"
   call regWrite(popPwdStr, pop3pwd, "REG_BINARY")

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

	'Set SMTP Server
   smtpSvr = "insert server name here"
   smtpSvrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Server"
   call regWrite(smtpSvrStr, smtpSvr, "REG_SZ")
   
	'Set SMTP Display name
   smtpDisp = username & " Mail"
   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 & "@whatever.com"
   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")
End Function   
   

call main()

My only problems are;

1)It enables SMTP server authentication(I don't need that) <-----Fixed! Thank you Weenur!

2)It will not set(via popup prompt) the password or save it.

I am very new to this and I pieced this together by doing searches, so if it's sloppy, my apologies. Does anyone know how to change this to prompt for the password and save it? Thanks in advance.

Edited by Maleboligia

4 answers to this question

Recommended Posts

  • 0

Great post

I also a noob new to programing..

can you help me to

set leave copy of message -> tick

Incoming port to 995

ssl - tick

outgoing port to 465

ssl - tick.

=========

'Set Leave Mail On Server

var leavemail = "1"

var leavemailStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\Leave Mail On Server"

call regWrite(leavemailStr, leavemail, "REG_DWORD")

=============

I tried to modify add the script .. but doesnt work for me.

milion thanks in advanced

Edited by Blue Baby
This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • I assume he would make the same statement in those cases as well.
    • Looks like an alien. Probably is an alien. First it was aaaaallll Azure and drop everything else. Now its aaaaallll AI and drop everything else. Narrow-minded. I really loathe this guy. He's good for shareholders but absolutely nothing else. Dry as desert sand and evil to the bone.
    • Don’t care about a wrestling union. No normal person should care. 
    • Limassol, Cyprus. Just south of Turkey. NOT Russia.
    • Hello, Given the reports of Chinese Mini PCs shipping with malware, I would recommend wiping the machine and performing a clean install of Windows on it before use.  From what I can infer from the reports, the Mini PCs that shipped with malware were not the result of targeted purposeful action on the part of the device manufacturers (which is something that has happened with low-cost Android smartphones and TV boxes from China) but rather due to lax security in the manufacturing process.   Getting back to the subject at hand, there are a few steps you will want to go through before wiping the Mini PC: You can start preparing even before the Mini PC arrives.  Once you have ordered it and know the brand and model, go to the manufacturer's website and download all of the latest device drivers, BIOS (UEFI) firmware updates, machine-specific software (if any), and manuals.  Many Mini PC manufacturers do not do a lot of customization of their device drivers, just shipping whatever device drivers the the silicon vendors provide.  I still recommend downloading them, though, just in case there are some customizations or for initial install since those are the drivers you know the manufacturer validated for the Mini PC.  Store these in a safe place, so you have them ready when the Mini PC arrives. Use Microsoft's Windows Media Creation Tool to create an installation USB.  You can also create a directory on installation USB--like C:\DRIVERS\ or whatnot--and store the extracted device drivers there in case you need them while or after installing Windows. Once the Mini PC arrives, and you have your Windows installation USB available, you can proceed with wiping the PC and doing the clean install.  Here's how you do that, step-by-step: Check the computer and make sure you know how to boot it from a USB flash drive (may be a specific key you have to press when the computer is powered on, or a change to the BIOS (UEFI) firmware settings.  The PC may tell you what key combination you need to press to boot from another drive, or the manual for the PC may it. Plug the USB flash drive into the computer and power it up using the means to have it boot from the Windows install USB. Once the computer finishes booting, it should be at a Windows installation screen. Do not agree to any prompts, copyright licenses, or click on any buttons. Press the Shift + F10 keys together to open a Command Prompt. Run DISKPART to start the command-line disk partitioning utility. The command line prompt will change to DISKPART>. At the DISKPART> prompt, type LIST DISK to get the numbers of all drives installed in the system. Make a note of what number is assigned to what drive (if the Mini PC has more than one drive).  At the DISKPART> prompt, type SEL DISK n  where n is the number of the drive containing Windows. At the DISKPART> prompt, type CLEAN and this will erase the GPT/MBR code from the beginning of the drive. *WARNING:* After performing the clean operation, the drive now be blank/erased, and everything on it will be gone (all files, etc.).  You can exit DiskPart and just continue with the Windows installation as you normally would.  If needed, you can install the device drivers you put on the Windows install media to get your network connection up and running, and from there run Windows Update to get the operating system and device drivers up to date Regards, Aryeh Goretsky
  • Recent Achievements

    • Week One Done
      cac1lll earned a badge
      Week One Done
    • One Month Later
      Falcon.ai earned a badge
      One Month Later
    • Week One Done
      Falcon.ai earned a badge
      Week One Done
    • Dedicated
      EYEREX earned a badge
      Dedicated
    • First Post
      Electronic Person earned a badge
      First Post
  • Popular Contributors

    1. 1
      +primortal
      627
    2. 2
      ATLien_0
      238
    3. 3
      Xenon
      166
    4. 4
      neufuse
      143
    5. 5
      +FloatingFatMan
      123
  • Tell a friend

    Love Neowin? Tell a friend!