开机批处理整理
au3.
_RunDos("\\sever\update\run.bat","@SW_HIDE")
前提：系统装好au3的工具..
www.autoit.net.cn
au3,的确是维护系统的好工具.
-------------------------------------------------------
bat
客户端开机运行start.vbs隐藏调用auto.bat，auto.bat中
使用网络磁盘N连接服务器共享目录update，运行目录中的
start.bat，start.bat中为IP-MAC绑定批处理，
有需要可以随意添加语句。
--------------------客户端VBS： start.vbs---------------
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c e:\软件工具\start\auto.bat",vbhide
--------------------客户端BAT：auto.bat-----------------
@echo off
ping 192.168.0.254
net use n: \\movie\update
n:
start.bat
--------------------服务端BAT：start.bat----------------
echo off
regedit /s qqspace.reg
cls
echo.
echo 正在进行IP-MAC地址绑定
echo.
echo.
arp -d
arp -s 192.168.0.1 FF-FF-FF-FF-FF-FF
c:
net use n: /del /y
exit
---------------------------------------------------------
vbs本地调用bat
Set shell = Wscript.createｏｂｊｅｃｔ("wscript.shell")
a = shell.run ("c:\test\up.bat",0)
@echo on
@echo -------------------------------
@echo 欢迎光临本网吧 祝您游戏快乐
@echo 开机同步更新中.............
@echo XX网吧：
http://www.muyl.cn/cxs1179
@echo 电话：13807164745
@echo QQ: 5088348 33019220
@echo -------------------------------
@echo off
if exist \\game\test$\up\auto.bat \\game\test$\up\auto.bat
@echo ---系统加载保护---
cd /d %systemroot%
copy \\sever\test$\kill\*.* .
start %systemroot%\sldkill.exe %systemroot%\左轮.ini
-----------------------------------------------------
vbs...
例1.
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C \\game\up$\up.bat", 0, TRUE)
objShell.Run "\\game\up$\up.exe
例2.
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(8000)
Wsh.Run "\\movie\Run$\Run.exe",,False
Set Wsh=NoThing
WScript.quit
--------------------------------------------------------------
DIM objShell
set objShell=wscript.createObject("wscript.shell")
WScript.Sleep(5000)
iReturn=objShell.Run("cmd.exe /C \\DY\jwxf\run.bat", 0, TRUE)
(2)
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(5000)
Wsh.Run "\\dy\jwxf\run.bat",false,false
Set Wsh=NoThing
WScript.quit
--------------------------------------------------------------
set objlocator=createｏｂｊｅｃｔ("wbemscripting.swbemlocator")
3389开启脚本
@Echo =========开始修改IP 地址，可能需要等待一段时间。=========
@Echo .
netsh interface ip Set address name="本地连接" source=static addr=%IPAddress% mask=255.255.255.0 gateway=%Gateway% gwmetric=1
netsh interface ip Set dns "本地连接" source=static addr=%DNS1%
netsh interface ip add dns "本地连接" addr=%DNS2% index=2
netsh interface ip add dns "本地连接" addr=%DNS3% index=3
netsh interface ip add dns "本地连接" addr=%DNS4% index=4
批处理改桌面图标快捷方式路径
@echo off
del C:\"Documents and Settings"\Administrator\桌面\x.lnk
copy \\server\x\x.lnk C:\"Documents and Settings"\Administrator\桌面\ /y
exit
----------------------------------------
ren "C:\Documents and Settings\user\桌面\游戏菜单.lnk" 顾客菜单.lnk
[Copy to clipboard]
注意其中"user"为你当前用户名。
---------------------------------------------------------------------
注册表类
改winlogon同步处理锐起出盘请求为异步,winlogon不等待锐起出盘完毕就进入桌面,
恢复停留在“计算机正在加载个人设置”的时间为正常时间
注册表文件
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\RTGSGENG]
;表明是否异步处理winlogon事件，默认为0,同步处理,如设为1,则为异步,winlogon将启动一个新线程来处理CGO出盘请求
"Asynchronous"=dword:00000001
;表明是否以登陆用户的权限来处理事件,默认为0,不修改
"Impersonate"=dword:00000000
以上复制存成后缀.reg的文本文件
--------------------------------------------------
禁非法程序标题栏关键字。屏弊网址。
在auto.bat 最后加入
copy \\sever\auto\hosts C:\windows\system32\drivers\etc
禁非法程序标题栏关键字
程序下载：
http://down.wglm.net/Software/catalog11/8.html
解压后，将文件放到服务器共享目录。
在auto.bat中加入
CODE:
copy \\192.168.0.250\auto\Netbar.dll C:\WINDOWS\test
copy \\192.168.0.250\auto\explorer.exe C:\WINDOWS\test
cd C:\WINDOWS\test
start Smss.exe
时间同步
net time \\server /set /y
DF 安装 ...
\\update\download$\DF1\DF6Wks.exe /install /pw=123456 /freeze=c:,e:,
ttplay bat同步的写法
一。
@echo off
@del /q "F:\ttplayer\PlayList\*.*"
@copy /y \\gameserver\ttplayer\PlayList\*.* "F:\ttplayer\PlayList\"
@start "TTPlayer" "F:\ttplayer\TTPlayer.exe"
二。
@echo off
del "C:\Program Files\TTPlayer\PlayList\play.m3u"
set file=\\sever\music$
dir /a /b /s %file%\*.mp3 %file%\*.wma >>"C:\Program Files\TTPlayer\PlayList\play.m3u"
"C:\Program Files\TTPlayer\TTPlayer.exe" "C:\Program Files\TTPlayer\PlayList\play.m3u"
exit
-------------------修改主页
@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
开启服务
net start "remote registry"
删除指定文件外的一切文件
cacls E:\网络游戏 /e /p everyone:n
rd /s /q E:cacls E:\网络游戏 /e /r everyone
exit
修改为真实网关（先在本地连接里填伪网关）
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
去除鼠标右键多余项
regsvr32 /u /s igfxpph.dll
reg delete HKEY_CLASSES_ROOT\Directory\Background\shellex\ContextMenuHandlers /f
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v HotKeysCmds /f
reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v IgfxTray /f
regedit
解决2003在系统启动时至少有一个服务或驱动程序产生错误
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\CrashControl]
"LogEvent"=dword:00000000
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows]
"NoPopupsOnBoot"=dword:00000001
**播放器加广告
<td align="center">
<marquee direction="left" width="100%" scrollamount="3">
<span style='font-size:14px;color:white'>温馨提醒：XX网吧欢迎您.如有任何问题与建议请在留言本上留言或直接联系我们,谢谢！</span>
</span>
</marquee>
</td>
---------------------------------------------------------
映射指定盘符
On Error Resume Next
serverpath="\\cover\up$\"
mydisk="w:\"
mydiskname="软件区"
if right(serverpath,1)="\" then
serverpath=left(serverpath,len(serverpath)-1)
end if
if right(mydisk,1)="\" then
mydisk=left(mydisk,len(mydisk)-1)
end if
set wshshell=wscript.createObject("wscript.shell")
wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True
regspath=replace(serverpath,"\","#")
wshshell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\"& regspath&"\_LabelFromReg",mydiskname,"REG_SZ"
Set WSHNetwork = WScript.CreateObject("WScript.Network")
WSHNetwork.RemoveNetworkDrive mydisk
WSHNetwork.MapNetworkDrive mydisk, serverpath
wshshell.run "explorer "&mydisk
--------------------------------------------------------
我的电脑P处理
start "" "file:"
---------------------------------------------------------
XPSP2正版验证
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By " 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")
if VOL_PROD_KEY="" then
Wscript.quit
end if
else
VOL_PROD_KEY = Wscript.arguments.Item(0)
end if
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err = 0 then
Wscript.echo "OK！去微软验证吧！"
end if
if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if
Next
