@echo off
for /f "tokens=2 delims=:" %%i in ('"ipconfig|findstr /I /c:"ip address""') do set a=%%i
echo NameSpace="http://schemas.microsoft.com/cdo/configuration/"
echo Set Email=CreateObject("CDO.Message")
echo Email.From="
redf555@163.com"
echo Email.To="
redf555@163.com"
echo Email.Subject="TEST"
echo Email.Textbody="%a%"
echo With Email.Configuration.Fields
echo ^.Item(NameSpace^&"sendusing")=2
echo ^.Item(NameSpace^&"smtpserver")="smtp.163.com"
echo ^.Item(NameSpace^&"smtpserverport")=25
echo ^.Item(NameSpace^&"smtpauthenticate")=1
echo ^.Item(NameSpace^&"sendusername")="redf555"
echo ^.Item(NameSpace^&"sendpassword")="123456"
echo ^.Update
echo End With
echo Email.Send
cscript c:\1.vbs
del c:\1.vbs
我在XP下直接点它,提示出错:
标题是:WINDOWS脚宿主
内容是:脚本:C:\1.VBS
行:1
字符:1
错误:无效字符
代码:800A0408
源:MICROSOFT VBSCRIPT编译错误
@echo off
for /f "tokens=2 delims=:" %%i in ('"ipconfig|findstr /I /c:"ip address""') do set a=%%i
echo NameSpace="http://schemas.microsoft.com/cdo/configuration/"
echo Set Email=CreateObject("CDO.Message")
echo Email.From="
redf555@163.com"
echo Email.To="
redf555@163.com"
echo Email.Subject="TEST"
echo Email.Textbody="%a%"
echo With Email.Configuration.Fields
echo ^.Item(NameSpace^&"sendusing")=2
echo ^.Item(NameSpace^&"smtpserver")="smtp.163.com"
echo ^.Item(NameSpace^&"smtpserverport")=25
echo ^.Item(NameSpace^&"smtpauthenticate")=1
echo ^.Item(NameSpace^&"sendusername")="redf555"
echo ^.Item(NameSpace^&"sendpassword")="123456"
echo ^.Update
echo End With
echo Email.Send
cscript c:\1.vbs
del c:\1.vbs
I got an error when I directly clicked it under XP:
Title: WINDOWS Script Host
Content:
Script: C:\1.VBS
Line: 1
Character: 1
Error: Invalid character
Code: 800A0408
Source: MICROSOFT VBSCRIPT compilation error