清空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

(0)

相关推荐

  • 清空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) ipaddr

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

    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) ipa

  • SqlServer服务中利用触发器对指定账户进行登录ip限制提升安全性操作

    转眼间上次写文章已经是 2022年12月15日的事情啦,本来从2022年7月份开始写作之后保持着每周一篇,然而从12月15日后断更了这么久,经历了,隔离.阳.过年.从今天开始继续坚持写作,本片文章给大家分享 SqlServer服务中利用触发器对指定账户进行登录ip限制从而提升账户的安全性,这样可以灵活的限制每个账户的允许登录IP,类似于 PostgreSQL 中 pg_hba.conf 配置文件的功能,MySQL 则是在创建账户时可以配置账户允许登录IP,下面记录一下 SQLServer 如何实

  • Vue中设置登录验证拦截功能的思路详解

    目录 一.解决思路 二.让浏览器存储服务器返回的token 三.在请求中设置访问权限 四.封装登录验证 Hello,你好呀,我是灰小猿,一个超会写bug的程序猿! 今天在做vue和springboot交互的一个项目的时候,想要基于前端实现一些只有登录验证之后才能访问某些页面的操作,所以在这里总结一下实现该功能的一个解决方案, 首先说一下我是如何判断是否已经登录的, 一.解决思路 由于在我的springboot后台采用的shiro+Jwt安全框架,所以会在登录之后反馈给前端一个token,并且前端

  • vue项目中微信登录的实现操作

    1.下载组件 wxlogin npm install vue-wxlogin --save 2.引入组件,给组件传参 3.重定向的url应该是微信登录官网中的微信授权作用域 4.如果url里面有端口号,微信授权作用里面也要有 5.重定向的url:需要在http://tool.chinaz.com/tools/urlencode.aspx中转码 6.微信登录成功后,会自动重定向到新地址,此时的地址栏中就有code参数 7.如果报错说不能从组件跳到页面,那就找到wxlogin组件里面的iframe标

  • 深入浅析C#中单点登录的原理和使用

    什么是单点登录? 我想肯定有一部分人"望文生义"的认为单点登录就是一个用户只能在一处登录,其实这是错误的理解(我记得我第一次也是这么理解的). 单点登录指的是多个子系统只需要登录一个,其他系统不需要登录了(一个浏览器内).一个子系统退出,其他子系统也全部是退出状态. 如果你还是不明白,我们举个实际的例子把.比如我们首页:https://www.jb51.ne ,和我们的搜索http://so.jb51.net .这就是两个系统(不同的域名).如果你登录其中一个,另一个也是登录状态.如果

  • jQuery实现弹出窗口中切换登录与注册表单

    当点击页面中的登录或注册按钮时,将会弹出一个模态窗口,就是一个弹出层,我们可以在弹出层上轻松的切换登录与注册表单,极大的方便用户,不需要关闭层再去点击转向其他操作,在很多网站上已经广泛应用. 本文结合实例,通过使用jQuery以及CSS3和HTML5技术实现这一效果. HTML 我们现在主页面上设置两个链接按钮,即登录和注册按钮. <nav class="main_nav"> <ul> <li><a class="cd-signin&

  • JSP开发中在spring mvc项目中实现登录账号单浏览器登录

    JSP开发中在spring mvc项目中实现登录账号单浏览器登录 在很多web产品中都需要实现在同一时刻,只能允许一个账号同时只能在一个浏览器当中登录.通俗点讲就是当A账号在 浏览器1当中登录了,此时在浏览器2中登录A账号.那么在浏览器1中的A账号将会被挤出去,当用户操作浏览器1的页面,页面会 跳到登录页面,需要重新登录.那么我们怎么实现这样的功能呢?下面将给大家进行详细的介绍: 原理 用户A使用账号a在浏览器当中登录,然后用户B在另外一台电脑上的浏览器登录账号a,当用户B登录验证成功时,将会触

  • 清空所有表中的数据的存储过程

    复制代码 代码如下: --******************************************************* --* 清空所有表中的数据 * --* 撒哈拉大森林 * --* 2010-6-28 * --******************************************************* if exists (select * from sysobjects where type='P' and name=N'P_DeleteAllData'

  • WinForm中的登录实现

    在一般的C/S系统中,登录功能基本上是必备功能, 总结了三种C# Winform登录功能的实现方法. 第一种:在应用程序设置代码里(Program.cs)将应用程序入口改成系统主窗口 听起来有点绕,就是说,在应用程序初始化时,第一个加载的页面是我们登录后的主页面. 1.在Program.cs文件中设置Application.Run: 复制代码 代码如下: Application.Run(new FormMain());//设置应用程序运行时加载的窗口 2.添加登录按钮事件private void

随机推荐