******************************************************************************** RCLSv1.05 RemoteCleareventLogsScript,byzzzEVAzzz Welcometovisitewww.isgrey.com Usage: cscriptc:\scriptpath\RCLS.vbetargetIPusernamepassword[lognamelist] lognamelist: log

复制代码 代码如下: if(lcase(right(wscript.fullname,11))='wscript.exe')then setobjshell=wscript.createobject('wscript.shell') objshell.run('cmd.exe/kcscript//nologo'0then ipaddress='.' outfile='' username='' password='' viewtype=0 program=0 forarg=0to.count-1

InStr 函数 返回某字符串在另一字符串中第一次出现的位置。 InStr( [start, ]string1, string2[, compare] ) 参数 start 可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果 start 包含 Null，则会出现错误。如果已指定 compare ，则必须要有 start 参数。 string1 必选项。接

得到本机的电脑名 复制代码 代码如下: DimobjNet SetobjNet=WScript.CreateObject('WScript.Network') Wscript.EchoobjNet.ComputerName&'\'&objNet.UserName

InStrRev 函数 返回某字符串在另一个字符串中出现的从结尾计起的位置。 InStrRev( string1, string2[, start[, compare]] ) 参数 string1 必选项。接受搜索的字符串表达式。 string2 必选项。被搜索的字符串表达式。 Start 可选项。数值表达式，用于设置每次搜索的开始位置。如果省略，则默认值为 -1，表示从最后一个字符的

复制代码 代码如下: OptionExplicit Dimsourcefile,ipaddress,objargs constdestfile='tempfile' ConstForWriting=2 DimText Dimfso,objNet,ServiceObj DimtxtStream,txtStreamOut SetobjArgs=WScript.Arguments IfobjArgs.Count=2Then sourcefile=objArgs(0) ipaddress=objargs

脚本编程教学（1） 论坛上好多朋友都问关于脚本的问题，正好最近对脚本比较有兴趣，就写点东西吧。首先说明一下，我的所有代码都是 vbscript，jscript我没有研究过，不过我想也差不多。 关于最基础的语法比如变量的申明，分支，循环，函数的调用，等等这些我就不讲了，不懂得自己看一下。 1、我们的第一个vbs程序：还是那个

******************************************************************************** RTCSv1.10 RemoteTelnetConfigureScript,byzzzEVAzzz Welcometovisitewww.isgrey.com Usage: cscriptc:\scriptpath\RTCS.vbetargetIPusernamepasswordNTLMAuthortelnetport Itwillau