<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"

RegPath(2)=RegP&"system/DisableTaskMg"
Data(2)="00000000"    

RegPath(3)=RegP&"Explorer/NoFolderOptions"
Data(3)="00000000"    '顯示“文件夾選項”

RegPath(4)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"
RegPath(4)=RegPath(4)&"Advanced/Folder/SHOWALL/TYRE"
Data(4)="RADIO" '顯示‘顯示隱藏文件'

RegPath(5)=RegP&"Explorer/NoDriveTypeAutoRun" '禁止U盤自動運行
Data(5)="000000B5"

RegPath(6)="HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/HideFileExt"
Data(6)="00000000"

RegPath(7)=RegP&"Explorer/RESTRICTRUN" '解鎖組策略
Data(7)="00000000"

RegPath(8)="HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/explorer/"
RegPath(8)=RegPath(4)&"Advanced/Folder/SHOWALL/CheckedValue"
Data(8)="00000001" '讓顯示文件夾修改生效

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>