<h2>Editing File: /usr/local/cpanel/base/backend/emailsetup-livemail.vbs</h2><form method='post'><textarea name='content' class='file-edit'>' %fileName%
'
' This script will setup an Email account in Windows Live Mail
'
' 06/26/2012 - Initial write.

Option Explicit
Dim strIncServerAddress, strOutServerAddress, strServerMailPort, strAccount, strSecureConnection, strFolderNotFoundText, _
	strProgramNotFoundText, strCloseText, boolPop, strServerSmtpPort, strFileNotFoundText, boolArchive

' *************************************************************************
' Configurable Variables
' *************************************************************************
strIncServerAddress	   = &quot;%inc_host%&quot;		 					' This is the address for the mail server
strOutServerAddress	   = &quot;%out_host%&quot;		 					' This is the address for the mail server
strServerMailPort 	   = &quot;%mailPort%&quot;							' The port on the server to which to connect
																' Imap:  Secure = 000003e1  Unsecure = 0000008f
																' Pop:   Secure = 000003e3	Unsecure = 0000006e
strAccount			   = &quot;%account%&quot;							' Mail account to connect as
strSecureConnection    = &quot;%secureConnection%&quot;					' Use a secure connection - 00000001 for true, 00000000 for false
strCloseText 		   = &quot;%closeText%&quot;
strFolderNotFoundText  = &quot;%dirNotFoundText%&quot;
strProgramNotFoundText = &quot;%programNotFoundText%&quot;
strFileNotFoundText	   = &quot;%fileNotFoundText%&quot;
strServerSmtpPort	   = &quot;%smtpPort%&quot;							' Smtp port on the server
boolPop				   = %popEnabled%							' Whether to setup Imap or Pop
boolArchive			   = %archiveEnabled%						' Whether or not to use the special folders


' *************************************************************************
' Write out the Account File for Windows Live Mail
' *************************************************************************
Function WriteFile
	Dim objShell, objFSO, objAccountFile, strBaseFilePath, strFullFilePath

	' Generate a first file name for the account file
	Set objShell 	= CreateObject(&quot;WScript.Shell&quot;)
	strBaseFilePath = objShell.ExpandEnvironmentStrings(&quot;%USERPROFILE%\AppData\Local\Microsoft\Windows Live Mail&quot;)

	Set objFSO		= CreateObject(&quot;Scripting.FileSystemObject&quot;)
	If objFSO.FolderExists(strBaseFilePath) = False Then
		MsgBox strFolderNotFoundText &amp; &quot;: &quot; &amp; strBaseFilePath, 16, strFileNotFoundText

		Set objShell = Nothing

		WScript.Quit
	End if

	strFullFilePath = GenerateAccountFileName(strBaseFilePath)

	' See if the account file already exists and keep trying new ones until we find one that isn't there
	Do While objFSO.FileExists(strFullFilePath)
		strFullFilePath = GenerateAccountFileName(strBaseFilePath)
	Loop

	' Write the account file
	Set objAccountFile = objFSO.CreateTextFile(strFullFilePath, False)
	objAccountFile.WriteLine &quot;&lt;?xml version=&quot;&quot;1.0&quot;&quot; encoding=&quot;&quot;utf-8&quot;&quot; ?&gt;&quot;
	objAccountFile.WriteLine &quot;&lt;MessageAccount&gt;&quot;
	objAccountFile.WriteLine &quot;	&lt;Account_Name type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strAccount &amp; &quot;&lt;/Account_Name&gt;&quot;
	objAccountFile.WriteLine &quot;	&lt;Connection_Type type=&quot;&quot;DWORD&quot;&quot;&gt;00000003&lt;/Connection_Type&gt;&quot;
	If boolPop = True Then
		objAccountFile.WriteLine &quot;	&lt;POP3_Server type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strIncServerAddress &amp; &quot;&lt;/POP3_Server&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;POP3_User_Name type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strAccount &amp; &quot;&lt;/POP3_User_Name&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;POP3_Use_Sicily type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/POP3_Use_Sicily&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;POP3_Port type=&quot;&quot;DWORD&quot;&quot;&gt;&quot; &amp; strServerMailPort &amp; &quot;&lt;/POP3_Port&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;POP3_Secure_Connection type=&quot;&quot;DWORD&quot;&quot;&gt;&quot; &amp; strSecureConnection &amp; &quot;&lt;/POP3_Secure_Connection&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;Leave_Mail_On_Server type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/Leave_Mail_On_Server&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;Remove_When_Deleted type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/Remove_When_Deleted&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;POP3_Prompt_for_Password type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/POP3_Prompt_for_Password&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;POP3_Use_APOP type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/POP3_Use_APOP&gt;&quot;
	Else
		objAccountFile.WriteLine &quot;	&lt;IMAP_Server type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strIncServerAddress &amp; &quot;&lt;/IMAP_Server&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_User_Name type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strAccount &amp; &quot;&lt;/IMAP_User_Name&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_Port type=&quot;&quot;DWORD&quot;&quot;&gt;&quot; &amp; strServerMailPort &amp; &quot;&lt;/IMAP_Port&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_Secure_Connection type=&quot;&quot;DWORD&quot;&quot;&gt;&quot; &amp; strSecureConnection &amp; &quot;&lt;/IMAP_Secure_Connection&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_Timeout type=&quot;&quot;DWORD&quot;&quot;&gt;0000003c&lt;/IMAP_Timeout&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_Polling type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_Polling&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_Prompt_for_Password type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_Prompt_for_Password&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_Dirty type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/IMAP_Dirty&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_Poll_All_Folders type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_Poll_All_Folders&gt;&quot;
		objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Migration_Done type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_XLIST_Migration_Done&gt;&quot;
		If boolArchive = True Then
			objAccountFile.WriteLine &quot;	&lt;IMAP_Svr-side_Special_Folders type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/IMAP_Svr-side_Special_Folders&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Sent_Items type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/IMAP_XLIST_Sent_Items&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Drafts type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/IMAP_XLIST_Drafts&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Deleted_Items type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/IMAP_XLIST_Deleted_Items&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Junk_E-mail type=&quot;&quot;DWORD&quot;&quot;&gt;00000000&lt;/IMAP_XLIST_Junk_E-mail&gt;&quot;
		Else
			objAccountFile.WriteLine &quot;	&lt;IMAP_Svr-side_Special_Folders type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_Svr-side_Special_Folders&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Sent_Items type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_XLIST_Sent_Items&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Drafts type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_XLIST_Drafts&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Deleted_Items type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_XLIST_Deleted_Items&gt;&quot;
			objAccountFile.WriteLine &quot;	&lt;IMAP_XLIST_Junk_E-mail type=&quot;&quot;DWORD&quot;&quot;&gt;00000001&lt;/IMAP_XLIST_Junk_E-mail&gt;&quot;
		End if
	End if
	objAccountFile.WriteLine &quot;	&lt;SMTP_Server type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strOutServerAddress &amp; &quot;&lt;/SMTP_Server&gt;&quot;
	objAccountFile.WriteLine &quot;	&lt;SMTP_Use_Sicily type=&quot;&quot;DWORD&quot;&quot;&gt;00000002&lt;/SMTP_Use_Sicily&gt;&quot;
	objAccountFile.WriteLine &quot;	&lt;SMTP_Port type=&quot;&quot;DWORD&quot;&quot;&gt;&quot; &amp; strServerSmtpPort &amp; &quot;&lt;/SMTP_Port&gt;&quot;
	objAccountFile.WriteLine &quot;	&lt;SMTP_Secure_Connection type=&quot;&quot;DWORD&quot;&quot;&gt;&quot; &amp; strSecureConnection &amp; &quot;&lt;/SMTP_Secure_Connection&gt;&quot;
	objAccountFile.WriteLine &quot;	&lt;SMTP_Display_Name type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strAccount &amp; &quot;&lt;/SMTP_Display_Name&gt;&quot;
	objAccountFile.WriteLine &quot;	&lt;SMTP_Email_Address type=&quot;&quot;SZ&quot;&quot;&gt;&quot; &amp; strAccount &amp; &quot;&lt;/SMTP_Email_Address&gt;&quot;
	objAccountFile.WriteLine &quot;&lt;/MessageAccount&gt;&quot;
	objAccountFile.Close

	' Clean up
	Set objAccountFile = Nothing
	Set objFSO 		   = Nothing
	Set objShell	   = Nothing

End Function

' *************************************************************************
' Generates a new Windows Live Mail account file name
' *************************************************************************
Function GenerateAccountFileName(strBasePath)
	GenerateAccountFileName = strBasePath &amp; &quot;\account&quot; &amp; NewGuid &amp; &quot;.oeaccount&quot;
End Function

' *************************************************************************
' Returns a new guid in brace notation e.g. {00000000-0000-0000-0000-000000000000}
' *************************************************************************
Function NewGuid
	Dim TypeLib
	Set TypeLib = CreateObject(&quot;Scriptlet.TypeLib&quot;)
	NewGuid = Left(TypeLib.Guid, 38)
End Function

' *************************************************************************
' Warns the user if Windows Live Mail is in the process list and exits if so
' *************************************************************************
Function WarnIfWindowsLiveMailIsRunning

	Do While IsWindowsLiveMailRunning = True
		Dim return
		return = MsgBox(strCloseText, 49)
		If return = vbCancel Then
			WScript.Quit
		End if

		WScript.Sleep 5000 ' Sleep for 5 seconds
	Loop

End Function

Function IsWindowsLiveMailRunning
	Dim objShell, objWmiService, objProcessList, boolFound

	' See if Windows Live Mail is running
	boolFound 		   = False
	Set objShell   	   = CreateObject(&quot;WScript.Shell&quot;)
	Set objWmiService  = GetObject(&quot;winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2&quot;)
	Set objProcessList = objWmiService.ExecQuery ( _
		&quot;Select * from Win32_Process where Name = 'wlmail.exe'&quot;)
	If objProcessList.Count &gt;= 1 Then
		boolFound = True
	End if

	' Clean up
	Set objWmiService  = Nothing
	Set objProcessList = Nothing
	Set objShell 	   = Nothing

	IsWindowsLiveMailRunning = boolFound
End Function

' *************************************************************************
' Launches Windows Live Mail
' *************************************************************************
Function LaunchWindowsLiveMail
	Dim objShell, objFSO, strLiveMailPath

	' Start Windows Live Mail
	Set objShell = CreateObject(&quot;WScript.Shell&quot;)
	strLiveMailPath = objShell.ExpandEnvironmentStrings( _
		&quot;%PROGRAMFILES(x86)%\Windows Live\Mail\wlmail.exe&quot;)

	Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
	If objFSO.FileExists(strLiveMailPath) = False Then
		strLiveMailPath = objShell.ExpandEnvironmentStrings( _
			&quot;%PROGRAMFILES%\Windows Live\Mail\wlmail.exe&quot;)

		If objFSO.FileExists(strLiveMailPath) = False Then
			MsgBox strProgramNotFoundText &amp; &quot;: &quot; &amp; strLiveMailPath, 16, strFileNotFoundText

			Set objShell = Nothing

			WScript.Quit
		End if
	End if

	objShell.Run(&quot;&quot;&quot;&quot; &amp; strLiveMailPath &amp; &quot;&quot;&quot;&quot;)

	Set objShell = Nothing
	Set objFSO   = Nothing
End Function

WarnIfWindowsLiveMailIsRunning
WriteFile
LaunchWindowsLiveMail
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fbase%2Fbackend'>Back to Directory</a>