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

1、在安装teamviewer的电脑上新建文本文件，输入如下内容，保存后修改文件名为*.bat

rem rename logfiles

move c:\12\*.txt c:\12\logback

move “c:\Program Files\TeamViewer\Connections_incoming.txt”c:\12\Connections_incoming.txt

2、再新建一个文本文件，输入如下内容，并把文件名改为*.vbs

Dim fso

Set fso=WScript.CreateObject("Scripting.FileSystemObject")

 

const main="c:\12\"

 

y ="c:\12\Connections_incoming.txt"

 

h ="User List:*@*.com"

 

if fso.FileExists(main&"Connections_incoming.txt") then

 

NameSpace = "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 y

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

 

else

NameSpace = "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资料夹里的远程登陆清单发送邮件通知。