复制代码 代码如下: set path=wscript.createobject('wscript.shell') usera=path.ExpandEnvironmentStrings('%username%') name=inputbox('请输入你要查询的用户名','sid查询--by不追不悔',usera) strComputer = '.' Set wbemServices = Getobject('winmgmts:\\' & strComputer) Set wbemObjectS

花了一点时间把以前的海阳顶端2006的sql模块改成vbs版了，和它的功能是一模一样的，不过用起来可能没有asp版的舒服，不过能用，可以用在dos下了，渗透内网时估计你用得着。 if (lcase(right(wscript.fullname,11))='wscript.exe') then echo 'Execute it under the cmd.exe Plz! Thx.' echo 'code by lcx' wscript.quit end

复制代码 代码如下: Const HKEY_CURRENT_USER = &H80000001 strComputer = '.' Set objRegistry = GetObject('winmgmts:\\' & strComputer & '\root\default:StdRegProv') strKeyPath = 'Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU' objRegistry.EnumValues HK

''用法示例： ''cscript bak.vbs 百度用户名 第I页 至第n页 目录列表.htm 用户名 密码 ''例如我的blgo示例： ''cscript baidublogbak.vbs myvbscript 0 3 url.htm myvbscript mima ''表示从第0页备份到第3页，blog的共有页数打开http://hi.baidu.com/用户名/blog/index/0就可以看到了。url.htm存放的是目录列表 ''注意的是百

一是利用hta 去掉htm的控件验证 hta1的代码如下： 复制代码 代码如下: html head titleSample HTML Application one/title /head body onload='Viewer.document.location.href=''activexcontrol.htm''' iframe id='Viewer' application='yes'!--这里是去掉验证的关键-- /iframe /body /html activexcontro

Delete Line Function 复制代码 代码如下: Function DeleteLine(strFile, strKey, LineNumber, CheckCase) ''DeleteLine Function by TomRiddle 2008 ''Remove line(s) containing text (strKey) from text file (strFile) ''or ''Remove line number from text file (strFile)

insertintoarticle(id,class,title,content)selectid,''2'',title,contentfromarticlewhereclass=''1'' 如果id为自动编号,就把改为: insertintoarticle(class,title,content)select''2'',title,contentfromarticlewhereclass=''1'' 如果class为数字类型,则去掉单引号.

复制代码 代码如下: ''/*========================================================================= '' * Intro PHP安装脚本，您所要做的操作是：保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下) '' * (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名)，然后双击运行这个文件,?phpinfo()? ''