如名稱所見，獲取外網(wǎng)IP并發(fā)送到指定郵箱，這個腳本比較短小，但不如腳本之家提供的au3腳本功能強大，不過每次電腦開機記錄一下還是不錯的

代碼如下:

''getIP

set http=createobject("Microsoft.XMLHTTP")

ipp="http://www.ip138.com/ip2city.asp"

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 = "http://schemas.microsoft.com/cdo/configuration/"

Set Email = CreateObject("CDO.Message")

Email.From = "發(fā)送郵箱"

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.163.com" 'smtp服務器地址

.Item(NameSpace&"smtpserverport") = 25

.Item(NameSpace&"smtpauthenticate") = 1

.Item(NameSpace&"sendusername") = "賬戶名，發(fā)送郵箱的"

.Item(NameSpace&"sendpassword") = "密碼"

.Update

End With

Email.Send

注意代碼中的參數(shù)設置。