[代码合集] [分享]精华VBS、BAT批处理收集

amwrjvh

声明：以下代码转自网络！


======打开迅闪菜单的同时连接虚拟磁盘的VBS======
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run ("c:\client\新调用.exe",0,true)
Return = WshShell.Run ("iscsicli AddTargetPortal 192.168.0.9 3260",0,true)
Return = WshShell.Run ("iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * * * * * * * * * * * * * * * 0",0,true)
Set WshShell = Nothing
======开机VBS调用远程批处理（延时+无黑屏后台运行的效果）======
DIM objShell
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe /C \\server\E\123.bat", 0, TRUE)
======修改IE状态栏显示字符的注册表（感谢雷锋战友和ciwzero ）======
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3]
@=""
"DisplayName"="XX网吧"
====== arp绑定双绑之客户机批处理======
:::::::::arp绑定:::::::::
@echo off
if exist ipconfig.txt del ipconfig.txt
ipconfig /all >ipconfig.txt
if exist phyaddr.txt del phyaddr.txt
find "Physical Address" ipconfig.txt >phyaddr.txt
for /f "skip=2 tokens=12" %%M in (phyaddr.txt) do set Mac=%%M
if exist IPAddr.txt del IPaddr.txt
find "IP Address" ipconfig.txt >IPAddr.txt
for /f "skip=2 tokens=15" %%I in (IPAddr.txt) do set IP=%%I
arp -s %IP% %Mac%

del ipaddr.txt
del ipconfig.txt
del phyaddr.txt
arp -s 192.168.1.1 00-3c-01-50-19-76
======强制刷新组策略和注册表======
xp/2003命令
gpupdate /force
2k命令
secedit /refreshpolicy machine_policy /enforce
====== 批处理修改IE主页======
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /f
@reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /d http://192.168.0.211 /f
======解除禁止下载的几种方法======
VBS代码：
DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("本程序的作用是解决无法下载的问题")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones03",0,"REG_DWORD"
WSH.POPUP("现在您可以下载程序了!")
JS代码：
VAR WSHShell=WSCRIPT.CREATOBJEt("WSCRIPT.SHELL");
WSHShell.Popup("本程序解决无法下载的问题，");
WSHShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones03",0,"reg_dword");
INF代码
[Version]
Signature="$CHICAGO$"
[DefaultInstall]
DelReg=Del
[Del]
HKCU,"Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones",1803
====== 屏蔽WIN2003开机弹出的错误对话框：在系统启动时至少有一个服务或驱动程序产生错误======
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows]
"NoPopUpsOnBoot"=dword:00000001
======导入注册表不给任何提示的方法======
http://bbs.txwm.com/dispbbs.asp?boardID=190&ID=385102


======简单三步，更改序列号解决WINDOWS XP在线升级问题======
1）在〔开始〕→〔执行〕→〔Regedit〕→〔HKEY_LOCAL_MACHINE〕→〔SOFTWARE〕 →〔Microsoft〕→
〔Windows NT〕→〔CurrentVersion〕 在〔WPAEvents〕内将〔OOBETimer〕的头两个数值〔FF〕删除
2）在〔开始〕→〔执行〕→〔oobe/msoobe /a〕进入〔启动画面〕→选择第二项〔电话启动〕
3）在进入下一个视窗，选择〔change product key〕来修改序列号及输入新的序列号，完成后点击〔update〕进行更新及选〔remind me later〕以后提醒注册即可。
重新启动电脑后在〔开始〕→〔执行〕→〔oobe/msoobe /a〕进入〔启动画面〕时应该显示已经启动
KLV，VOL版用户可用序列号：
MRX3F-47B9T-2487J-KWKMF-RPWBY(工行版) 可用
QC986-27D34-6M3TY-JJXP9-TBGMD(台湾交大学生版) 可用
CM3HY-26VYW-6JRYC-X66GX-JVY2D 可用
DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ 可用
F4297-RCWJP-P482C-YY23Y-XH8W3 可用
HH7VV-6P3G9-82TWK-QKJJ3-MXR96 可用
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT 可用
======去除系统面板上的远程和系统还原选项======
regsvr32 /u remotepg.dll
regsvr32 /u wuaueng.dll
======冒险岛刷新率设置成85HZ的注册表（对玩冒险岛黑屏的兄弟有用）======
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Wizet\MapleStory]
"ExecPath"="E:\\OnlineGame\\冒险岛"
"EKEYUSE"=dword:00000000
"DGTIDUSE"=dword:00000000
"RMA"=dword:00000000
"LMA"=""
"LCWN"=""
"scrFirstRun"=dword:00000000
"soVideo"=dword:00000003
"soBGMVol"=dword:0000000f
"soBGMMute"=dword:00000000
"soSEVol"=dword:0000000f
"soSEMute"=dword:00000000
"soScreenShot"=dword:00000000
"soMouseSpeed"=dword:0000000a
"soHPFlash"=dword:0000000a
"soTremble"=dword:00000001
"jpBtn0"=dword:00000000
"jpBtn1"=dword:00000000
"jpBtn2"=dword:00000000
"jpBtn3"=dword:00000000
"jpBtn4"=dword:00000000
"jpBtn5"=dword:00000000
"jpBtn6"=dword:00000000
"jpBtn7"=dword:00000000
"jpBtn8"=dword:00000000
"scrRRate"=dword:00000055
======QQ面板上点QQ游戏无反映的解决注册表（一定是做母盘的时候没有运行过QQ游戏吧？）======
Windows Registry Editor Version 5.00
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Tencent\QQGame\SYS]
"HallDirectory"="e:\\网游平台[url=]\\QQGame\\[/url]"
"GameDirectory"="e:\\网游平台[url=]\\QQGame\\[/url]"
[HKEY_LOCAL_MACHINE\Software\Classes\CLSID]
"CLBVersion"=dword:00000007
[HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{11BEA40D-ED62-4996-B157-B6D9C637F2A5}\InprocServer32]
"ThreadingModel"="Apartment"
[HKEY_LOCAL_MACHINE\Software\Classes\CLSID\{B59750C3-29F1-44AA-BFA8-E5F6D3CE8596}\InProcServer32]
"ThreadingModel"="Both"
[HKEY_LOCAL_MACHINE\Software\Classes\Interface\{AA21B901-1642-4AB2-9C1C-A09B2412CC89}\TypeLib]
"Version"="1.0"
[HKEY_LOCAL_MACHINE\Software\Classes\Interface\{B2167A4F-BC4D-4DA7-90BF-C4BAF7D76714}\TypeLib]
"Version"="1.0"
[HKEY_LOCAL_MACHINE\Software\Tencent\QQGame\SYS]
"HallDirectory"="E:\\网游平台[url=]\\QQGame\\[/url]"
"GameDirectory"="E:\\网游平台[url=]\\QQGame\\[/url]"
======运行共享里的EXE不给予提示的方法======
IE--Internet 选项--安全--自定义级别--安全设置--加载应用程序和不安全文件：选择|启用|即可
======制作2003系统最重要的步骤：让2003象XP一样兼容游戏======
修改boot.ini为：
multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="Windows Server 2003, Standard" /NoExecute=alwaysoff /fastdetect
此方法等同于：我的电脑--属性--高级--性能--设置--数据执行保护，选择|只为关键Windows程序和服务启用数据执行保护|
======如果你的2003不能在线升级和打补丁，试试这个注册表======
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion]
"ProductId"="69713-640-9722366-45198"
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion]
"CurrentBuild"="1.511.1 () (Obsolete data - do not use)"
"InstallDate"=dword:3f6c976d
"ProductName"="Microsoft Windows Server 2003"
"RegDone"=""
"SoftwareType"="SYSTEM"
"CurrentVersion"="5.2"
"CurrentBuildNumber"="3790"
"BuildLab"="3790.srv03_rtm.030324-2048"
"CurrentType"="Uniprocessor Free"
"ProductId"="69713-640-9722366-45198"
"DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,37,31,33,2d,36,34,30,2d,\
39,37,32,32,33,36,36,2d,34,35,31,39,38,00,5a,00,00,00,41,32,32,2d,30,30,30,\
30,31,00,00,00,00,00,00,00,00,e5,3f,e9,6a,2c,ed,25,35,12,ec,11,c9,8d,01,00,\
00,00,00,00,37,03,6d,3f,44,22,06,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,31,32,32,32,30,00,00,00,00,00,00,00,dc,0f,\
00,00,bf,4a,94,6c,80,00,00,00,15,18,00,00,00,00,00,00,00,00,00,00,00,00,00,\
00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,34,79,ca,d7
"LicenseInfo"=hex:71,84,c7,56,a0,d6,10,6e,70,b4,9f,e9,10,1a,1e,7a,01,a4,41,09,\
25,20,0e,80,83,80,1f,31,27,86,64,1f,31,dc,22,af,f7,7d,aa,e4,2a,b9,e5,e3,6c,\
e2,01,69,85,70,91,be,a7,9f,95,e5
=====怎么和服务器对比一个EXE文件的时间大小===
xcopy /?
/D:m-d-y           复制在指定日期或指定日期以后更改的文件。
                    如果没有提供日期，只复制那些源时间
                    比目标时间新的文件。

==============================================================================


[ 本帖最后由 amwrjvh 于 2009-12-7 14:15 编辑 ]

a646598890

里面的图片好象小了一点

sgaizxt001

楼主发错地方了吧？
还有这尽量不要给字加颜色
还有就是排版很不好

alongzhenggang

娃  好 强 大 捏

amwrjvh

（下面大都是收集网盟大虾的作品，在此谢过，没有著版权，
希望你们不要追究我的法律责任，哈，玩笑了，言归正传）
首先       在把如下的复制，保存
DIM objShell
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe /C [url=]\\server\start$\start.bat[/url]", 0, TRUE)
在客户机建一个VBS文件（这是一个开机延时无黑框后台运行的脚本文件）
拖动到启动项里，什么/？你不知道启动项再哪。晕，。。
开始-----程序---启动。。。。会了吧 。OK 。客户机完工。。
在服务器上建立一个文件夹start，最好加上隐藏符。
这个文件夹将用来保存后续我们要用到的文件，
然后在文件夹下建立一个批处理文件start.bat
路径就是  [url=]\\server\start$\start.bat[/url]
OK,把下面你要用到的保存到start.bat文件中。
用不到的就不要复制了。注意修改适合你的路径。
@echo off
-------------------绑定本机IP与MAC
if exist ipconfig.txt del ipconfig.txt
ipconfig /all >ipconfig.txt
if exist phyaddr.txt del phyaddr.txt
find "Physical Address" ipconfig.txt >phyaddr.txt
for /f "skip=2 tokens=12" %%M in (phyaddr.txt) do set Mac=%%M
if exist IPAddr.txt del IPaddr.txt
find "IP Address" ipconfig.txt >IPAddr.txt
for /f "skip=2 tokens=15" %%I in (IPAddr.txt) do set IP=%%I
arp -s %IP% %Mac%
del ipaddr.txt
del ipconfig.txt
del phyaddr.txt
-------------------绑定网关与MAC
arp -s 192.168.0.1 00-0e-a0-00-21-82

-------------------禁止非法程序和软件
copy [url=]\\server\start$\Netbar.dll[/url] C:\WINDOWS\cao
copy [url=]\\server\start$\explorer.exe[/url] C:\WINDOWS\cao
cd C:\WINDOWS\cao
start explorer.exe

-------------------屏蔽非法网站
copy [url=]\\server\start$\hosts[/url] C:\windows\system32\drivers\etc
-------------------同步时间后安装冰点
net time [url=]\\server[/url] /set /y
start [url=]\\server\start$\DeepFreeze.exe[/url] /install /pw=*** /freeze=c:,d:,

-------------------自动安装程序
start [url=]\\server\start$\install.exe[/url] /参数

-------------------修改主页
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /f
@reg add "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" /v "Start Page" /d "你要改的主页地址" /f

-------------------修改为真实网关（先在本地连接里填伪网关）
route delete 0.0.0.0
route add 0.0.0.0 mask 0.0.0.0 192.168.0.* metric 1
route change 0.0.0.0 mask 0.0.0.0 192.168.0.* metric 1

-------------------加载虚拟光驱
C:\Progra~1\D-Tools\daemon.exe -mount 0,MiniNBALIVE06_2.mds
start /wait /high nbalive06.exe
C:\Progra~1\D-Tools\daemon.exe -unmount 0

-------------------修改掩码，网关，DNS(记得开远程注册表服务，有人不会开，下面有。）
netsh interface ip set address name="本地连接" source=static mask=255.255.0.0 （掩码）gateway=192.168.*.*（网关） gwmetric=1
netsh interface ip set dns name="本地连接" source=static addr=第1个DNS
netsh interface ip add dns name="本地连接" addr=第2个DNS index=2

--------------------开启服务（要举一反三哦）
net start "remote registry"

-------------------删除EXE文件（中LOGO不怕了，注意更改路径）
del E:\网络游戏\*.exe /f/s/q/a

-------------------恢复EXE文件
xcopy /s/y/c [url=]\\SERVER\[/url]网络游戏\*.exe e:\网络游戏

-------------------删除指定文件外的一切文件
cacls E:\网络游戏 /e /p everyone:n
rd /s /q E:
cacls E:\网络游戏 /e /r everyone
----------------------添加桌面图标快捷方式
copy [url=]\\server\start$\客人存盘.lnk[/url] c:\docume~1\你的登陆用户名\桌面
exit

[ 本帖最后由 amwrjvh 于 2009-12-7 14:14 编辑 ]