脚本仓库（转）

万象sicent密码SiCeNt110119114MyScre117U cacls d: /g everyone:f 所有本地用户的D盘设置成完全访问权限 convert d: /fs:ntfs 将磁盘转换成ntfs格式 将Himem.sys和smartdrv.exe拷贝在同一目录，然后在这个目录上建Config.sys，在其中加入这样一句：device=himem.sys ,以后就可以运行smartdrv.exe了 copy nul 1.txt /y 另类删除法(利用nul将文件变0字节)对文件夹无效 copy /b 图片1.gif + 密码文本.txt 图片2.gif 合并(图片2用notepad打开会看到文本内容) attrib +s +h 文件名 给文件加系统保护 echo %computername% 显示计算机名 echo y|format a: /s /q /v:system 自动格式化A盘 dir c:;d:e:;f: 分号命令相当于 dir c:dir d:dir e:dir f: net use i: \192.168.0.251更多游戏 映射网络硬盘 explorer i: 打开目录 net use \192.168.0.251ipc$ "zqhappy" /u:"zquser" 远程登录密码帐号 xcopy e:wdm f:wdm /s /k /y /d >f:1.txt 复制更新文件并记录 for /f %%i in (f:1.txt) do xcopy "%%i" f:wdm /s /k /y /d 复制记录中的文件 for /f "delims=," %%i in (z:1.txt) do rd "z:\%%i" /q/s 其中的"delims=,"指分隔符集。这个替换了空格和跳格键的默认分隔符集。 rd 目录名 /q /s 删除目录树（不能删系统属性的文件夹） del pagefile.sys /q /a 删除隐藏文件 attrib +s 文件夹 给文件夹+上系统属性 dir /b >1.txt 显示文件列表并记录（只显文件名）（/s 显示子文件列表） ntsd -c q -p PID 关闭进程 route change 0.0.0.0 mask 0.0.0.0 *.*.*.* 修改网关(重启后失效) for %%a in (*.rm) do ren %%a *.rmvb 批量修改文件名(未试过) con、nul是MS系统的保留名，它不能做为文件名！检查你的web空间是不是M$ 系统，可以建一个con的文件夹试试 '后台运行vbs set ws=wscript.createｏｂｊｅｃｔ("wscript.shell") ret=ws.run ("notepad" ,0) '关机vbs set ws=wscript.createｏｂｊｅｃｔ("wscript.shell") ws.sendkeys "^{ESC}u{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{down}~" wscript.sleep 1000 '延时vbs 1000=1秒 rem 自动关闭进程bat @echo off c:pv | find /v "lsass" | find /v "smss" | find /v "explorer" | find /v "winlogon" | find /v "services" | find /v "svchost" | find /v "Clsmn" | find /v "BarClient" | find /v "internat" | find /v "conime" | find /v "WinMgmt" | find /v "cmd" | find /v "pv" | find /v "find" > c:1.txt for /f "tokens=2" %%a in (c:1.txt) do ntsd -c q -p %%a rem 注意：explorer,lsass跟一些系统相关的进程是不能关的，find.exe虽然不是系统进程，但关闭会导至命令出错。 rem pv的全称是Process Viewer 是dos下查看进程的工具 '重启vbs,若要远程重启,则变量内容"."修改成远程计算机名。 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\" & strComputer & " ootcimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Reboot() Next '关机vbs（2K下不能关闭电源） Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Win32Shutdown(1) Next 'dos下改变ip地址vbs '设置IP地址 if Wscript.arguments.count<3 then wscript.echo "纵情网络-瞌睡虫店" wscript.echo "DOS格式：cscript ip.vbs IP地址 子网掩码 网关" wscript.quit end if setIp=Wscript.Arguments(0) SubnetMask=Wscript.Arguments(1) GateWay=Wscript.Arguments(2) '机器名，.代表本机 strComputer="." Set objWMIService = GetObject("winmgmts:\"&strComputer&" ootcimv2") Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress=Array(setIp) strSubnetMask=Array(SubnetMask) strGateway=Array(GateWay) strGatewayMetric=Array(1) For Each objNetAdapter in colNetAdapters errEnable=objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways=objNetAdapter.SetGateways(strGateway, strGatewaymetric) If errEnable=0 Then Wscript.Echo "IP,子网掩码及网关修改成功" Else Wscript.Echo "IP,子网掩码及网关修改成功" End If Next rem 游戏更新bat @echo off if exist d:datecs1.6-11-18 goto bye start \192.168.0.249更多游戏游戏安装单机联网游戏安装Cs1.6中文版.exe rem 自解压要做成解压完成后运行gx.bat echo md d:datecs1.6-11-18 > D:联网游戏gx.bat :bye '更改计算机名为数字vbs dim WSH Set WSH = CreateObject("Wscript.Shell") dim cmpname cmpname = Trim(InputBox("请输入计算机名："+chr(10)+chr(13)+"2k不许改计算机名为数字，用这个可以","计算机名更改vbs")) IF cmpname = "" THEN MSGBox "没有输入计算机名："+chr(10)+chr(13)+"网管小卫",40,"计算机名更改vbs" Wscript.Quit END IF WSH.RegWrite "HKEY_LOCAL_MACHINESYSTEMControlSet001ControlComputerNameComputerNameComputerName",cmpname,"REG_SZ" WSH.RegWrite "HKEY_LOCAL_MACHINESYSTEMControlSet001ControlComputerNameActiveComputerNameComputerName",cmpname,"REG_SZ" WSH.RegWrite "HKEY_LOCAL_MACHINESYSTEMControlSet001ServicesTcpipParametersNV Hostname",cmpname,"REG_SZ" WSH.RegWrite "HKEY_LOCAL_MACHINESYSTEMControlSet001ServicesTcpipParametersHostname",cmpname,"REG_SZ" WSH.RegWrite "HKEY_LOCAL_MACHINESYSTEMControlSet003ControlComputerNameComputerNameComputerName",cmpname,"REG_SZ" WSH.RegWrite "HKEY_LOCAL_MACHINESYSTEMControlSet003ServicesTcpipParametersNV Hostname",cmpname,"REG_SZ" WSH.RegWrite "HKEY_LOCAL_MACHINESYSTEMControlSet003ServicesTcpipParametersHostname",cmpname,"REG_SZ" '解决D盘不还原安全问题vbs set ws=wscript.createｏｂｊｅｃｔ("wscript.shell") ret=ws.run ("开访问.bat",0,true) '开访问bat【echo y|cacls d: /g sicent:f】 ret=ws.run ("D:游戏.exe",1,true) ret=ws.run ("关访问.bat",0,true) '关访问bat【echo y|cacls d: /d sicent】 rem dos下更改网络配置(必须开启Remote Registry Service服务) rem Remote Registry Service服务功能是允许远程注册表操作。 netsh -c interface dump >c:1.txt 注：备份网络配置到c:1.txt netsh -f c:1.txt 注：根据c:1.txt更改网络配置 netsh interface ip set address "本地连接" static IP地址 子网掩码 网关 跃点数 注：更改网络配置 netsh interface ip show config 注：查看网络配置 netsh interface ip set address "本地连接" dhcp 注：将指定适配器的静态地址切换为DHCP地址 rem 网克后自动更改网络配置bat ipconfig -all|find "Phy">1.txt for /f "tokens=12" %%a in (c:1.txt) do @md c:\%%a if exist c:0-E0-4C-77-55-40 netsh -f c:macmac1.txt rem 先用netsh -c interface dump >c:mac1.txt做好每台机子的网络配置信息 常用的FTP命令： 　　1. open：与服务器相连接； 　　2. send(put)：上传文件； 　　3. get：下载文件； 　　4. mget：下载多个文件； 　　5. cd：切换目录； 　　6. dir：查看当前目录下的文件； 　　7. del：删除文件； 　　8. bye：中断与服务器的连接。

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-123857/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10294527/viewspace-123857/