脚本之家,脚本语言编程技术及教程分享平台!
分类导航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服务器之家 - 脚本之家 - VBS - 用vbs清空iis log 中自己登录ip的记录

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

2020-07-22 13:45VBS教程网 VBS

作用就是清除iis中的自己登陆ip的记录,方便黑友们使用

  1. Option Explicit   
  2. Dim sourcefile,ipaddress,objargs  
  3.  
  4. const destfile="tempfile"  
  5. Const ForWriting = 2  
  6.  
  7. Dim Text  
  8. Dim fso,objNet,ServiceObj  
  9. Dim txtStream, txtStreamOut   
  10.  
  11. Set objArgs = WScript.Arguments   
  12. If objArgs.Count = 2 Then   
  13. sourcefile=objArgs(0)  
  14. ipaddress=objargs(1)  
  15. Else  
  16. wscript.echo "Parameter Error"+ vbcrlf  
  17. wscript.Echo "USAGE:KillLog.vbs LogFileName YourIP."  
  18. wscript.Quit 1  
  19. End If  
  20.  
  21.  
  22. Set fso = CreateObject("Scripting.FileSystemObject")  
  23. if fso.FileExists (sourcefile) then  
  24. Set objNet = WScript.CreateObject( "WScript.Network" )  
  25. Set ServiceObj = GetObject("WinNT://" & objNet.ComputerName & "/w3svc")  
  26. Set objNet=nothing  
  27. ServiceObj.stop  
  28. wscript.sleep 6000  
  29. Set txtStream = fso.OpenTextFile(sourcefile)   
  30. Set txtStreamOut = fso.OpenTextFile(destfile, ForWriting, True)  
  31. Do While Not (txtStream.atEndOfStream)   
  32. Text = txtStream.ReadLine   
  33. if instr(Text,ipaddress)=0 then  
  34. txtStreamOut.WriteLine Text   
  35. end if  
  36. Loop  
  37.  
  38. Set txtStream = Nothing   
  39. Set txtStreamOut = Nothing  
  40.  
  41. WScript.Echo "The log file-- " & sourcefile &" has cleaned your IP!"  
  42. Else  
  43. WScript.Echo "The Log file-- " & sourcefile & " has not found!"  
  44. Wscript.quit  
  45. End If  
  46. fso.Copyfile destfile, sourcefile  
  47. fso.deletefile destfile  
  48. Set fso=Nothing  
  49. ServiceObj.start  
  50. Set ServiceObj = Nothing  

延伸 · 阅读

精彩推荐