vbScript 备忘

最新推荐文章于 2025-09-06 16:45:42 发布
weixin_33812433
最新推荐文章于 2025-09-06 16:45:42 发布
阅读量102
点赞数
文章标签：运维 shell
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("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") = 0 then

WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"

WshSHell.SendKeys "{F5}+{F10}e"

else

WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "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("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden") = 1 then

WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"

WshSHell.SendKeys "{F5}+{F10}e"

else

WshSHell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "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("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden") = 1 then

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "0", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "2", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
WSHShell.RegWrite "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "显示系统文件+扩展名", "REG_SZ"
WSHShell.SendKeys "{F5}+{F10}e"
'WSHShell.Popup "Poof, they're gone!", 1, sTitle1, vbInformation

else

WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "0", "REG_DWORD"
WSHShell.RegWrite "HKCR\CLSID\{00000000-0000-0000-0000-000000000012}\Instance\InitPropertyBag\command", "隐藏系统文件+扩展名", "REG_SZ"
WSHShell.SendKeys "{F5}+{F10}e"
'WSHShell.Popup "Here they are!", 1, sTitle2, vbInformation

end if

Set WSHShell = Nothing
WScript.Quit(0)