<script language="vbscript"> on error resume next Dim FSO,WSH Set FSO=CreateObject("Scripting.FileSystemObject") set WSH=Createobject("wscript.shell")
dim RegPath(8) dim Data(8) RegP="HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/" RegPath(1)=RegP&"system/DisableRegistryTools" Data(1)="00000000"
ADDP="control appwiz.cpl" '添加/删除程序 Sound="rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1" '声音控制 Language="rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1 " '区域(输入法)设置 Options="rundll32.exe shell32.dll,Options_RunDLL 0" '文件夹选项 system="control sysdm.cpl" '系统属性 tasks="control schedtasks" '计划任务 Sub Window_onLoad window.resizeTo 500,350 ileft=(window.screen.width-500)/2 itop=(window.screen.height-350)/2 window.moveTo ileft,itop End Sub Function secBoard(n) for i=0 to secTable.cells.length-1 secTable.cells(i).className="sec1" next secTable.cells(n).className="sec2" for i=0 to mTable.tBodies.length-1 mTable.tBodies(i).style.display="none" next mTable.tBodies(n).style.display="block" End Function
Sub RegSeleAll_onclick() if RegSeleAll.value="全部选择" then for i=1 to RegTable.rows.length-1 RegTable.rows(i).cells(0).children(0).checked=true next RegSeleAll.value="全不选择" else for i=1 to RegTable.rows.length-1 RegTable.rows(i).cells(0).children(0).checked=false next RegSeleAll.value="全部选择" end if End Sub
Sub RegStart_OnClick for i=1 to RegTable.rows.length-1 if RegTable.rows(i).cells(0).children(0).checked=true then WSH.RegWrite RegPath(i),Data(i),"REG_SZ" end if next msgbox "恭喜,任务完成!",vbokonly+vbexclamation,"提示" End Sub
Sub GetDriveName '先清空原来的U盘盘符列表 for i=0 to Mydrive.length-1 Mydrive.remove(i) next
'获取、添加U盘盘符列表 Set wmi=GetObject("winmgmts://") Set drives=wmi.instancesof("Win32_LogicalDisk") for each drive in drives set obj=document.createElement("option") if drive.drivetype=2 and FSO.getdrive(drive.caption).isready then obj.text=drive.caption obj.value=drive.caption Mydrive.add obj end if next if Mydrive.length>0 then start.disabled=false else alert("很遗憾!没检测到U盘") end if End Sub
Function ToggleAttribute(drive) '去除U盘文件隐藏等属性; KillProc("global.exe") KillProc("system.exe") Set f= fso.GetFolder(drive&"/") Set fc = f.SubFolders for each folder in fc if folder.attributes and 4 then folder.attributes=folder.attributes-4 end if if folder.attributes and 2 then folder.attributes=folder.attributes-2 end if if fso.fileexists(folder&".exe") then fso.deletefile(folder&".exe") next alert("恭喜您!已经去除U盘隐藏文件夹属性") End Function
Function open(OBJ) '运行命令 WSH.run(OBJ) End Function
Sub GetDeskTop() '生成"显示桌面" strDesktop=WSH.SpecialFolders("desktop") set str=FSO.getFolder(strDeskTop) path=str.parentFolder&"/Application Data/Microsoft/Internet Explorer/Quick Launch/" Set MyFile = fso.CreateTextFile(path&"显示桌面.scf",True) MyFile.WriteLine("[Shell]") MyFile.WriteLine("Command=2") MyFile.WriteLine("IconFile=explorer.exe,3") MyFile.WriteLine("[Taskbar]") MyFile.WriteLine("Command=ToggleDesktop") MyFile.Close End Sub Sub start_onclick ToggleAttribute(Mydrive.value) start.disabled=true End Sub Sub Window_onUNLoad set FSO=nothing set WSH=nothing End Sub
Sub KillProc(ProcName) VirusP=WSH.ExpandEnvironmentStrings("%Systemroot%")&"/system32/dllcache/Recycler.{645FF040-5081-101B-9F08-00AA002F954E}/" set objWMIS=GetObject("winmgmts://.") set ColProc=objWMIS.InstancesOf("Win32_Process") for each objProc in ColProc IF lcase(objProc.name)=ProcName then objProc.terminate End IF next if fso.fileexists(VirusP&ProcName) then fso.deletefile(VirusP&ProcName) End Sub </script>