Set ADSysInfo = CreateObject ("ADSystemInfo")
Set currComp = GetObject ("LDAP://" & ADSysInfo.ComputerName)
Set CurrUser = GetObject ("LDAP://" & ADSysInfo.UserName)
if CurrComp.operatingSystem = "Windows 2000 Server" or _
CurrComp.operatingSystem = "Windows Server 2003" then
' send email via whatever SMTP server/etc you have in place
' this will be different depending on the server so i can't give code
' CurrUser.sAMAccountName - user account name
' CurrComp.cn - name of server being logged on to
endif
如果是 Server 2008,创建一个 sch 任务并使用“on an event”定义一个触发器。您很可能希望使用 528 作为您的事件,然后您的操作将是“发送电子邮件”。您需要一个 SMTP 服务器。
http://technet.microsoft.com/en-us/library/cc787567(WS.10).aspx用于事件 ID。
我在域根级别的 GPO 中为此使用了登录脚本。简化版本可能类似于:
您需要找出通过 TechNet 上的脚本发送电子邮件的方法,以查找其中的缺失部分