清空iis log 中自己登录ip的vbs

Option Explicit 
 
Dim sourcefile,ipaddress,objargs   

const destfile="tempfile"   
Const ForWriting = 2   

Dim Text   
Dim fso,objNet,ServiceObj   
Dim txtStream, txtStreamOut   

Set objArgs = WScript.Arguments   
If objArgs.Count = 2 Then   
sourcefile=objArgs(0)   
ipaddress=objargs(1)   
Else   
wscript.echo "Parameter Error"+ vbcrlf   
wscript.Echo "USAGE:KillLog.vbs LogFileName YourIP."   
wscript.Quit 1   
End If   


Set fso = CreateObject("Scripting.FileSystemObject")   
if fso.FileExists (sourcefile) then   
Set objNet = WScript.CreateObject( "WScript.Network" )   
Set ServiceObj = GetObject("WinNT://" & objNet.ComputerName & "/w3svc")   
Set objNet=nothing   
ServiceObj.stop   
wscript.sleep 6000   
Set txtStream = fso.OpenTextFile(sourcefile)   
Set txtStreamOut = fso.OpenTextFile(destfile, ForWriting, True)   
Do While Not (txtStream.atEndOfStream)   
Text = txtStream.ReadLine   
if instr(Text,ipaddress)=0 then   
txtStreamOut.WriteLine Text   
end if   
Loop   

Set txtStream = Nothing   
Set txtStreamOut = Nothing   

WScript.Echo "The log file-- " & sourcefile &" has cleaned your IP!"   
Else   
WScript.Echo "The Log file-- " & sourcefile & " has not found!"   
Wscript.quit   
End If   
fso.Copyfile destfile, sourcefile   
fso.deletefile destfile   
Set fso=Nothing   
ServiceObj.start   
Set ServiceObj = Nothing  