请问如何建立vbs脚本指定每次开机后自动运行，向指定邮箱发一封固定格式的邮件？

linmi***

windbells888的原文如下：“ 如果要确认是否成功唤醒，可以写个简单的vbs脚本，指定每次开机后自动运行，向指定邮箱发一封固定格式的邮件，当然这里有兴趣也可以提取用户名、IP等一些信息作为邮件主题或正文。那怎么知道是否有新邮件提醒呢，邮件短信、彩信通知，很多邮件服务商都提供，移动的139邮箱就有免费通知，还支持wappush、PushMail提醒,很不错，这样你可以即刻知道是否成功唤醒电脑。”

利用tomato远程监控并自动报警、拍照并短信通知（图解）https://www.right.com.cn/forum/viewthread.php?tid=32289&extra=&page=1


问题：请问如何制作vbs脚本。已经脚本中的内容是怎么样的！已经vbs脚本工作流程是怎么样的！

mye***

mark

指的是Windows下面的开机脚本，搜搜便知。

linmi***

说的对我难度太大!有教程就好了.或者一步一步学习.
现在连怎么个流程都不知道

畅游***

我也有性趣啊

windbe***

不好意思，希望LZ还能回来看到，将下面文本里需要替换的内容换成你自己的，复制到记事本，保存为.vbs放到启动菜单里就可以了。
sina这个邮箱是用来发送邮件的，你可以换成其他的。139邮箱是用来接收提醒邮件并免费发送wap-push提醒到手机的

'By YYQ


strIPPattern = "((2[0-4]\d|25[0-5]|1?\d\d?)\.){3}(2[0-4]\d|25[0-5]|1?\d\d?)"
Set objNet = createobject("Wscript.Network")
Set objRegExp = New RegExp
objregexp.Pattern = strIPPattern
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
    If Not IsNull(IPConfig.IPAddress) Then
        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
                        If InStr(IPConfig.Caption(i),"VMware") = 0 And InStr(IPConfig.Caption(i),"Microsoft") = 0 Then
                        If InStr(IPConfig.Caption(i),"169.254") = 0 And InStr(IPConfig.Caption(i),"0.0.0.0") = 0 Then
                                If objregexp.Test(IPConfig.IPAddress(i)) = True Then        
                                    strIP = IPConfig.IPAddress(i)
                            End If
                    End If
            End If
        Next
    End If
Next
strUser = objnet.UserName


On Error Resume Next
f="用户名@sina.com"
smtp="smtp.sina.com"
u="用户名"
p="密码"
t="目标邮件地址"
m="通知内容文本"
msg= "用户名:" & strUser & vbCrLf & "IP地址:" & strIP
'j="C:\test.rar"
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = createObject("CDO.Message")
Email.From = f
Email.To = t
Email.Subject = m
Email.Textbody = msg
'Email.AddAttachment j


WScript.Sleep 1000


With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = smtp
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = u
.Item(NameSpace&"sendpassword") = p
.update
End With
Email.Send


'MsgBox " 开机信息已通知电脑主人 "

buy***

很简单。

不过我用的是  blat  发送邮件

包括外部路由的公网IP  其实
你可以使用如果你建立的ftp 将结果上传到ftp就可以了  

电脑上做个连接  一键就可以登陆ftp 看一下就知道情况了。
如果你路由有www服务那就更简单了。

buy***

windbells888 你的代吧如果加上ssl支持就好了

现在smtp基本都需要ssl加密了