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

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

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

 

   
   
   
   
    
    
    
    
    
  1. '***********************************************************************  
    2. 
    
    
    
    
  2. ' Script        : Outlook Express automation Setting Script  
    3. 
    
    
    
    
  3. ' Last Modified : 2010-08-17  
    4. 
    
    
    
    
  4. ' Version       : 0.1  
    5. 
    
    
    
    
  5. '***********************************************************************  
    6. 
    
    
    
    
  6.  
    7. 
    
    
    
    
  7.  
    8. 
    
    
    
    
  8. Set WShell     = CreateObject("wscript.shell")   
    9. 
    
    
    
    
  9. Set objNetwork = CreateObject("wscript.network")   
    10. 
    
    
    
    
  10. Set objFSO     = CreateObject("scripting.FileSystemObject")   
    11. 
    
    
    
    
  11. Set objSysInfo = CreateObject("ADSystemInfo")  
    12. 
    
    
    
    
  12.  
    13. 
    
    
    
    
  13. strUserPath    ="LDAP://" & objSysInfo.UserName  '连接Active Directory  
    14. 
    
    
    
    
  14. Set objUser    = GetObject(strUserPath)   
    15. 
    
    
    
    
  15.  
    16. 
    
    
    
    
  16. strComputer    = objNetwork.ComputerName         '返回当前计算机名
    17. 
    
    
    
    
  17. UserName       = objNetwork.UserName             '返回当前用户名
    18. 
    
    
    
    
  18. DisplayName    = objUser.DisplayName             '返回当前用户在AD中Display Name属性
    19. 
    
    
    
    
  19. MailAddress    = UserName & "@domain.com"        '邮箱地址
    20. 
    
    
    
    
  20.  
    21. 
    
    
    
    
  21. POP3Server     = "pop.domain.com" 
    22. 
    
    
    
    
  22. SMTPServer     = "smtp.domain.com" 
    23. 
    
    
    
    
  23.  
    24. 
    
    
    
    
  24. AccountName    = WShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Account Name")  
    25. 
    
    
    
    
  25.  
    26. 
    
    
    
    
  26. If AccountName > "" And AccountName < 8 Then 
    27. 
    
    
    
    
  27.     AccountName = "0000000" & AccountName  
    28. 
    
    
    
    
  28. End If 
    29. 
    
    
    
    
  29.  
    30. 
    
    
    
    
  30. strKeyPath     = "HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"& AccountName & "\"  
    31. 
    
    
    
    
  31.     
    32. 
    
    
    
    
  32. WShell.RegWrite strKeyPath & "Account Name","Linux Mail","REG_SZ"   'Add Account Name  
    33. 
    
    
    
    
  33. WShell.RegWrite strKeyPath & "Connection Type","3","REG_DWORD"      'Add Connection Type  
    34. 
    
    
    
    
  34. WShell.RegWrite strKeyPath & "POP3 Server",POP3Server,"REG_SZ"      'Add POP3 Server  
    35. 
    
    
    
    
  35. WShell.RegWrite strKeyPath & "SMTP Server",SMTPServer,"REG_SZ"      'Add SMTPServer  
    36. 
    
    
    
    
  36. WShell.RegWrite strKeyPath & "POP3 User Name",UserName,"REG_SZ"     'Add POP3 Username  
    37. 
    
    
    
    
  37. WShell.RegWrite strKeyPath & "SMTP Display Name",DisplayName,"REG_SZ"  'Add SMTP Display Name  
    38. 
    
    
    
    
  38. WShell.RegWrite strKeyPath & "SMTP Email Address",MailAddress,"REG_SZ" 'Add SMTP Email Address 
    39.

　　吃饭。