VBS常用脚本 好东西

2016年07月27日 96 阅读

将 域用户或租添加到本地组 SetobjGroup=GetObject（WinNT://./Administrators） SetobjUser=GetObject（WinNT://testnet/Engineers） objGroup.Add（objUser.ADsPath） 修改本地管理员密码 Setobjcnlar=GetObject（WinNT://./administrator,user） objcnla.SetPasswordP@ssW0rd ...

Vbscript写注册表的方法

2016年07月27日 87 阅读

分类:程序 早些年用过DOS系统的用户都知道，MS-DOS操作系统允许普通用户编写批处理文件来实现简单的编程。它有效地简化了我们的工作，带给我们许多方便。当时甚至出现了一些专门编写批处理文件的程序员呢。 事实上，操作系统除了提供易于操作的使用界面外，还应当有一套内建的Script（脚本）语言才算完整。从某种角度来说，批处理文件可以说就是MS-DOS下的脚本语言。到了Windows时代，虽然Windows系统仍然保留了批处理，但是批处理在Windows中...

[vbs]每一行的最后一个字符转换成_

2016年07月27日 94 阅读

保存为do.bat复制代码 代码如下:@echooff rentmp.txttmp_bak.txt cd.>tmp.txt setlocalEnableDelayedExpansion for/f"tokens=*"%%iin（tmp_bak.txt）do（ setName=%%i echo！Name:~0,-1！_>>tmp.txt） starttmp.txt 使用方法：建个tmp_bak.txt，然后输入多行内容，运行do.bat即可...

FileSystemObject 示例代码

2016年07月27日 93 阅读

在本节描述的示例代码，提供真实的例子来示范在FileSystemObject对象模式中可用的许多功能。该代码显示了如何一起使用对象模式的所有功能，以及如何在您自己的代码中有效地使用这些功能。 请注意，由于该代码是极一般的，所以要使该代码能够真正在您的机器上运行，可能需要一些其他代码和小小的变更。这些改变之所以必要，是因为在ActiveServerPages和WindowsScriptingHost之间，为输入和输出给用户采用了不同的方法。 要在Ac...

bytes2BSTR

2016年07月27日 92 阅读

复制代码 代码如下:Functionbytes2BSTR（vIn） strReturn="" Fori=1ToLenB（vIn） ThisCharCode=AscB（MidB（vIn,i,1）） IfThisCharCode<&H80Then strReturn=strReturn&Chr（ThisCharCode） Else NextCharCode=AscB（MidB（vIn,i+1,1）） strReturn=strReturn&Chr（CLn...

vbs/js脚本编程教学（1）

2016年07月27日 89 阅读

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

vbs/js脚本编程教学（2）

2016年07月27日 85 阅读

脚本编程教学2 我们来看一看怎么利用fso来进行文件操作。Fso时vbs里进行文件操作的核心。作为黑客，不管学习什么语言，对文件的操作都应该是要了如指掌的，所以请大家仔细学习。 不说废话，先看fso由哪几个对象组成： drive对象：包含储存设备的信息，包括硬盘，光驱，ram盘，网络驱动器 drives集合：提供一个物理和逻辑驱动器的列表 file对象：检查和处理文件 files集合：提供一个文件夹中的文件列表 folder对象：检查和处理文件夹 fol...

脚本编程3 关于文件的读写

2016年07月27日 90 阅读

使用vbscript来读写文件，十分的方便，废话少说，切入正题。 1、打开文件 使用opentextfile方法 setfs=createobject（“scripting.filesystemobject”） setts=fs.opentextfile（“c:1.txt”,1,true） 注意这里需要填入文件的完整路径，后面一个参数为访问模式 1为forreading 2为forwriting 8为appending 第三个参数指定如果指定文件不存在...

脚本编程 4 驱动器

2016年07月27日 88 阅读

驱动器的编程对黑客编程来说至关重要。好在vbs给我们提供了方便的集合，使得工作变得很简单。 1、检查驱动器 使用filesystemobject的driveexists方法 例如： setfs=createobject（"scripting.filesystemobject"） iffs.driveexists（"h"）then ...... 2、获得驱动器属性 可以使用getdrive方法，然后可以通过drive对象的属性或的驱动器的属性。常用属性有 d...

利用WSH里的MapNetworkDrive方法脚本蠕虫的传播方式

2016年07月27日 96 阅读

我近日在网络上看到了一些关于局域网脚本蠕虫的传播方式的一些讨论，这里提供一些思路。 1．利用WSH里的MapNetworkDrive方法。该方法是将网络驱动器映射到本地。 MapNetworkDrive方法： object.MapNetworkDrive（strLocalName,strRemoteName,[bUpdateProfile],[strUser],[strPassword]） 参数 object WshNetwork对象。 strLocalN...

VBS脚本病毒原理分析与防范

2016年07月27日 107 阅读

网络的流行，让我们的世界变得更加美好，但它也有让人不愉快的时候。当您收到一封主题为“ILoveYou”的邮件，用兴奋得几乎快发抖的鼠标去点击附件的时候；当您浏览一个信任的网站之后，发现打开每个文件夹的速度非常慢的时候，您是否察觉病毒已经闯进了您的世界呢？2000年5月4日欧美爆发的“爱虫”网络蠕虫病毒。由于通过电子邮件系统传播，爱虫病毒在短短几天内狂袭全球数百万计的电脑。微软、Intel等在内的众多大型企业网络系统瘫痪，全球经济损失达几十亿美元。而去年爆发...

ipclear.vbs源代码

2016年07月27日 92 阅读

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

whoami.vbs源代码

2016年07月27日 85 阅读

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

RCLS.vbs使用帮助

2016年07月27日 87 阅读

******************************************************************************** RCLSv1.05 RemoteCleareventLogsScript,byzzzEVAzzz Welcometovisitewww.isgrey.com Usage: cscriptc:scriptpathRCLS.vbetargetIPusernamepassword[lognamelist...

远程或本地获取系统信息的脚本RGIS.vbs

2016年07月27日 89 阅读

******************************************************************************* RGISv1.03 RemoteGetInfomationScript,byzzzEVAzzz Welcometovisitewww.isgrey.com&www.h4h4.com Usage: cscriptrgis.vbs[/rtargetIPusernamepassword][/ofilena...

远程开启/关闭目标telnet服务的windows脚本RTCS.vbs

2016年07月27日 91 阅读

********************************************************************************RTCSv1.10RemoteTelnetConfigureScript,byzzzEVAzzzWelcometovisitewww.isgrey.comUsage:cscriptc:scriptpathRTCS.vbetargetIPusernamepasswordNTLMAuthortelnet...

可以得到当前系统信息的脚本sysinfo.vbs

2016年07月27日 85 阅读

复制代码 代码如下:if（lcase（right（wscript.fullname,11））="wscript.exe"）then setobjshell=wscript.createobject（"wscript.shell"） objshell.run（"cmd.exe/kcscript//nologo"&chr（34）&wscript.scriptfullname&chr（34）） wscript.quit endif withwscript.arg...

RCMD使用说明

2016年07月27日 88 阅读

******************************************************************************* RCMDv1.03 RemoteexecutionScript,by黑嘿黑 Welcometovisitewww.xyhack.91i.net QQ:123230273E-mail:cnhacker521@hotmail.com Usage: cscriptD:vbs cmd.vbstargetIP...

远程启动终端服务的windows脚本ROTS.vbs

2016年07月27日 89 阅读

******************************************************************************* ROTSv1.05 RemoteOpenTerminalservicesScript,byzzzEVAzzz Welcometovisitewww.isgrey.com Usage: cscriptc:scriptpathROTS.vbstargetIPusernamepassword[port][...

解锁注册表的vbs脚本

2016年07月27日 84 阅读

保存为jiesuo.vbs运行即可复制代码 代码如下:dimwsh setwsh=Wscript.CreateObject（"Wscript.Shell"） wsh.popup（"正在为你解锁注册表"） wsh.regwrite"HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools",0,"REG_DWORD" wsh.sendkeys"^{ESC}{U}{...