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

Function main()
	dim username, domain

	
	username = inputbox("Mail Adresinizi yazınız (Site ismi kullanmadan Örn: info)","Outlook Express Profil Oluşturucu","info")
	
	If username = "" Then
		wscript.Quit(0)
 	End If
 
 	domain = inputbox("Site ismini yazınız (Örn: hayalurunu.com)","Outlook Express Profil Oluşturucu","siteadi.com")
	
	If domain = "" Then
		wscript.Quit(0)
 	End If

	dname= inputbox("Görünen Adınız: (Görünmesini istediğiniz ad)","Outlook Express Profil Oluşturucu","Genel Müdür")
	
	If dname = "" Then
		wscript.Quit(0)
 	End If

	call placeMailSettings(username, domain, dname)
	
	msgbox("Outlook Express Ayarları Tamamlandı, Outlook Express açılınca şifrenizi giriniz.")
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, theDomain, theDname)
	On Error Resume Next
	dim newAccountNum, numKeyStr
	dim username, domain , dname
	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
	dname= theDname

	'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 = "mail." & domain
	  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 = "mail." & domain
	  smtpSvrStr = "HKCU\Software\Microsoft\Internet Account Manager\Accounts\" & newAccountNum & "\SMTP Server"
	  call regWrite(smtpSvrStr, smtpSvr, "REG_SZ")
	  
	'Set SMTP Display name
	  smtpDisp = dname
	  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")
	  
End Function


call main()