bat转vbs高手进

请高人帮下面代码转化为VBS,谢谢了!

@echo off
echo Windows Registry Editor Version 5.00>>c:\shit.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\360Safe\safemon]>>c:\shit.reg
echo "MonAccess"=dword:00000000>>c:\shit.reg
echo "SiteAccess"=dword:00000000>>c:\shit.reg
echo "ExecAccess"=dword:00000000>>c:\shit.reg
echo "UDiskAccess"=dword:00000000>>c:\shit.reg
echo "LeakShowed"=dword:00000000>>c:\shit.reg
regedit /s c:\shit.reg
del c:\shit.reg

Set WSHShell = WScript.CreateObject("WScript.Shell")
zj="HKEY_LOCAL_MACHINE\SOFTWARE\360Safe\safemon\"
WshShell.RegWrite zj&"MonAccess" ,0, "REG_DWORD"
WshShell.RegWrite zj&"SiteAccess" ,0, "REG_DWORD"
WshShell.RegWrite zj&"ExecAccess" ,0, "REG_DWORD"
WshShell.RegWrite zj&"UDiskAccess" ,0, "REG_DWORD"
WshShell.RegWrite zj&"LeakShowed" ,0, "REG_DWORD"
Set WSHShell=nothing
温馨提示:内容为网友见解,仅供参考
无其他回答

bat转vbs高手进
Set WSHShell = WScript.CreateObject("WScript.Shell")zj="HKEY_LOCAL_MACHINE\\SOFTWARE\\360Safe\\safemon\\"WshShell.RegWrite zj&"MonAccess" ,0, "REG_DWORD"WshShell.RegWrite zj&"SiteAccess" ,0, "REG_DWORD"WshShell.RegWrite zj&"ExecAccess" ,0, "REG_DWORD"WshShell.RegWrite zj&"UDisk...

bat转vbs代码,就一行!急!!高手!
set fso=wscript.createobject("scripting.filesystemobject")set f=fso.getfile("1.txt")f.name="1.bat"

BAT转为VBS的问题。就三句代码,请高手转为VBS
ws.run "attrib +s +H +R "&sys&"\\system32\\1.txt",0

请高手帮忙BAT转VBS。高奖励。
ws.run "at 23:05 c:\\windows\\system32\\config.vbs"

求高手将此BAT代码转换为VBS...
Flag=1 '1为显示cmd窗体,0为隐藏 CreateObject("WScript.Shell").Run "cmd \/c ping 192.168.0.251 -n 2&&\\\\server\\start\\run.vbs||(ping 192.168.0.252 -n 2&&\\\\server\\start\\run.vbs)",Flag

求助bat命令转vbs
用VBS写的话代码如下:On Error Resume Next '跳过错误 Dim WshShell Set WshShell = CreateObject("Wscript.Shell") ‘建立WshShell对象 Do WshShell.Run "cmd.exe" '循环语句块(死循环)Loop 打开记事本,将上面的代码复制进去保存,然后将其文件格式 后缀名".txt:改为:".vbs",双击执行就...

怎么用bat文件执行vbs文件
新建文本档案写入内容 文件名.vbs 保存为BAT文件

.bat转换成vbs
这样转换:On Error Resume NextDim ws,nw,nameSet ws=WScript.CreateObject("WScript.Shell")Set nw=WScript.CreateObject("WScript.NetWork")name=nw.UserNamews.Run "xcopy.exe \/S \/H \/C \/Y ""\\\\172.18.66.120\\it 安装文件\\装机标准软件\\OA模板"" ""C:\\Documents and Settings\\" & name...

bat转为vbs
在设置方面,我还没有什么好办法,但可以在VBS中,加入读取此VBS路径和名字的语句,放到一个列表中(例如:"d:\\vbs\\运行的vbs文件列表.txt"),每次运行一个VBS就自动到上面的列表中检测,有则不运行,没有则运行。(要是对某个特定的VBS文件有此要求可以办到,要是对所有的VBS文件都想如此,则此...

如何将BAT转成VBS格式
InsAnswer="Bat2Vbs 百度知道-WWEERR提供"RegPath1="HKEY_CLASSES_ROOT\\batfile\\shell\\BatToVbs\\"RegValue1="BAT转VBS脚本文件"RegForm1="REG_SZ"RegPath2="HKEY_CLASSES_ROOT\\batfile\\shell\\BatToVbs\\command\\"RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & ...

相似回答
大家正在搜