2 Way SMS脚本的一个例子

 
on error resume next 
  
Set Args = WScript.Arguments 
    For I = 0 to Args.Count - 1 
       if (I > 0) Then 
         LogTxt = LogTxt & " " 
       End if 
       LogTxt = LogTxt & Args(I) 
    Next 
Set Args = nothing 
  
writelog(LogTxt) 
  
public function writelog(logstr) 
     Dim fsl,flog 
     Set fsl=CreateObject("Scripting.FileSystemObject") 
         if Not (fsl.FileExists("c:\temp\NowSMS.log"))=true Then 
          Set flog=fsl.CreateTextFile("c:\temp\NowSMS.log",true) 
          flog.WriteLine(now() & " - " & logstr) 
          flog.Close 
     Else 
          Dim fll 
          Set fll=fsl.OpenTextFile("c:\temp\NowSMS.log",8,true) 
          fll.WriteLine(now() & " - " & logstr) 
          fll.Close 
          Set fll=Nothing 
     End if  
     Set flog=nothing 
     Set fsl=nothing 
End function