获取外网IP并发送到指定邮箱的vbs代码[已测].doc

　　如名称所见，获取外网IP并发送到指定邮箱，这个脚本比较短小，但不如脚本之家提供的au3脚本功能强大，不过每次电脑开机记录一下还是不错的
　　代码如下:
　　''getIP
　　set http=createobject("Microsoft.XMLHTTP")
　　ipp="
　　http.open "get",ipp,false
　　http.send
　　ss=bytes2BSTR(Http.responsebody)
　　intStrA = InStr(1,ss,"[",1)+1
　　sss=mid(ss,intStrA)
　　intStrB = InStr(1,sss,"]",1)-1
　　ss=mid(ss,intStrA,intStrB)
　　'wscript.echo ss
　　Function bytes2BSTR(vIn)
　　strReturn = ""
　　For i = 1 To LenB(vIn)
　　ThisCharCode = AscB(MidB(vIn,i,1))
　　If ThisCharCode < &H80 Then
　　strReturn = strReturn & Chr(ThisCharCode)
　　Else
　　NextCharCode = AscB(MidB(vIn,i+1,1))
　　strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
　　i = i + 1
　　End If
　　Next
　　bytes2BSTR = strReturn
　　End Function
　　''SendEmail
　　NameSpace = "
　　Set Email = CreateObject("CDO.Message")
　　Email.From = "发送邮箱"
　　Email.To = "接收邮箱"
　　Email.Subject = "主题"
　　Email.Textbody = ss&date() 'ss为获取到的ip
　　'Email.AddAttachment "附件的路径例如：C:\foo.zip"
　　With Email.Configuration.Fields
　　.Item(NameSpace&"sendusing") = 2
　　.Item(NameSpace&"smtpserver") = "" 'smtp服务器地址
　　.Item(NameSpace&"smtpserverport") = 25
　　.Item(NameSpace&"smtpauthenticate") = 1
　　.Item(NameSpace&"sendusername") = "账户名，发送邮箱的"
　　.Item(NameSpace&"sendpassword") = "密码"
　　.Update
　　End With
　　Email.Send
　　注意代码中的参数设置。