closeCDRom.vbs Set Obj=CreateObject("WMPlayer.OCX.7") Set CD=Obj.CDROMCollection If CD.Count>=1 then For i=0 to CD.Count-1 CD.Item(i).eject Next For i=0 to CD.Count-1 CD.Item(i).eject Next End If HideExtendName.vbs Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") sTitle1 = "SSH=0" sTitle2 = "SSH=1" if WshSHell.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt") = 0 then WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "1", "REG_DWORD" WshSHell.SendKeys "{F5}+{F10}e" else WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "0", "REG_DWORD" WshSHell.SendKeys "{F5}+{F10}e" end if Set WSHShell = Nothing WScript.Quit(0) HideFile.vbs Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") sTitle1 = "SSH=0" sTitle2 = "SSH=1" if WshSHell.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden") = 1 then WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "2", "REG_DWORD" WshSHell.SendKeys "{F5}+{F10}e" else WshSHell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "1", "REG_DWORD" WshSHell.SendKeys "{F5}+{F10}e" end if Set WSHShell = Nothing WScript.Quit(0) openCDRom.vbs Set Obj=CreateObject("WMPlayer.OCX.7") Set CD=Obj.CDROMCollection If CD.Count>=1 then For i=0 to CD.Count-1 CD.Item(i).eject Next End If SuperHidden.vbs 'Show/Hide System Files Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") sTitle1 = "SSH=0" sTitle2 = "SSH=1" if WSHShell.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden") = 1 then WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden", "0", "REG_DWORD" WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "2", "REG_DWORD" WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "1", "REG_DWORD" WSHShell.RegWrite "HKCRCLSID{00000000-0000-0000-0000-000000000012}InstanceInitPropertyBagcommand", "显示系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" 'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation else WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden", "1", "REG_DWORD" WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHidden", "1", "REG_DWORD" WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedHideFileExt", "0", "REG_DWORD" WSHShell.RegWrite "HKCRCLSID{00000000-0000-0000-0000-000000000012}InstanceInitPropertyBagcommand", "隐藏系统文件+扩展名", "REG_SZ" WSHShell.SendKeys "{F5}+{F10}e" 'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation end if Set WSHShell = Nothing WScript.Quit(0)