VBScript : Outlook Express 配置

 

　上个周末因走访朋友，如何发送电邮的VBScript未与大家分享，网上也有相当多的资料，大家去Google一下，便有答案。

　　　今天要分享的是新鲜出炉的脚本（刚刚写完），主要功能是自动设置OE，已经过测试，能满足基本需求。没想到多年之后，居然要研究Outlook Express，800多台PC的Office Outlook面临下岗，综合老虑了大家的使用习惯，最终决定使用Windows XP系统自带的Outlook Express来收取邮件，可上千个用户的设置，如果手动设置岂不是要搞到手抽筋？

　　　下午抽空研究了一下OE，发现当我配置账号信息的时候，会向注册表写入一些信息，根据这些信息，我写了个脚本，用于自动配置Outlook Express，大家可以在此基础上自由去发挥。

 

'***********************************************************************
' Script        : Outlook Express automation Setting Script
' Last Modified : 2010-08-17
' Version       : 0.1
'***********************************************************************


Set WShell     = CreateObject("wscript.shell")
Set objNetwork = CreateObject("wscript.network")
Set objFSO     = CreateObject("scripting.FileSystemObject")
Set objSysInfo = CreateObject("ADSystemInfo")

strUserPath    ="LDAP://" & objSysInfo.UserName  '连接Active Directory
Set objUser    = GetObject(strUserPath)

strComputer    = objNetwork.ComputerName         '返回当前计算机名
UserName       = objNetwork.UserName             '返回当前用户名
DisplayName    = objUser.DisplayName             '返回当前用户在AD中Display Name属性
MailAddress    = UserName & "@domain.com"        '邮箱地址

POP3Server     = "pop.domain.com"
SMTPServer     = "smtp.domain.com"

AccountName    = WShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Account Name")

If AccountName > "" And AccountName < 8 Then
    AccountName = "0000000" & AccountName
End If

strKeyPath     = "HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"& AccountName & "\"

WShell.RegWrite strKeyPath & "Account Name","Linux Mail","REG_SZ"   'Add Account Name
WShell.RegWrite strKeyPath & "Connection Type","3","REG_DWORD"      'Add Connection Type
WShell.RegWrite strKeyPath & "POP3 Server",POP3Server,"REG_SZ"      'Add POP3 Server
WShell.RegWrite strKeyPath & "SMTP Server",SMTPServer,"REG_SZ"      'Add SMTPServer
WShell.RegWrite strKeyPath & "POP3 User Name",UserName,"REG_SZ"     'Add POP3 Username
WShell.RegWrite strKeyPath & "SMTP Display Name",DisplayName,"REG_SZ"  'Add SMTP Display Name
WShell.RegWrite strKeyPath & "SMTP Email Address",MailAddress,"REG_SZ" 'Add SMTP Email Address

　　吃饭。