每天定时自动发邮件通知teamviewere使用情况

1、在安装teamviewer的电脑上新建文本文件，输入如下内容，保存后修改文件名为*.batrem rename logfilesmove c:\12\*.txt c:\12\logbackmove“c:\Program Files\TeamViewer\Connections_incoming.txt”c:\12\Connections_incoming.txt

2、再新建一个文本文件，输入如下内容，并把文件名改为*.vbsDim fsoSet fso=WS罕铞泱殳cript.潮贾篡绐CreateObject("Scripting.FileSystemObject") const main="c:\12\"y ="c:\12\Connections_incoming.txt"h ="User List:*@*.com"if fso.FileExists(main&"Connections_incoming.txt") thenNameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "*@*.com" Email.To = "*@*.com"Email.Subject = "teamview01前日有登录记录" email.textbody =h Email.AddAttachment yWith Email.Configuration.Fields .Item(NameSpace&"sendusing") = 2 .Item(NameSpace&"smtpserver") = "你的邮箱服务器IP地址" .Item(NameSpace&"smtpserverport") = 25.Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") =“*@*.com” .Item(NameSpace&"sendpassword") = "邮箱密码" .Update End With Email.Send elseNameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From = "*@*.com" Email.To = "*@*.com"Email.Subject = "teamview01前一日无登录记录" With Email.Configuration.Fields .Item(NameSpace&"sendusing") = 2 .Item(NameSpace&"smtpserver") = "邮箱服务器IP" .Item(NameSpace&"smtpserverport") = 25.Item(NameSpace&"smtpauthenticate") = 1 .Item(NameSpace&"sendusername") = "*@*.com" .Item(NameSpace&"sendpassword") = "邮箱密码" .Update End With Email.Send END IF

3、在C盘新建一个资料夹命名为12，打开任务计划程式，新建两个任务，一个是执行第一步的*.bat文件，程式会自动先将之前的记录打包转存，然后将teamviewer前一日登陆的信息拷贝到C盘12资料夹里面。第二个任务是执行*.vbs文件，会将C盘12资料夹里的远程登陆清单发送邮件通知。