[[デスクトップの表示]]
@DIV
echo Set sh=CreateObject("shell.application"):sh.ToggleDesktop>%temp%\_.vbs&wscript.exe %temp%\_.vbs
@END

[[パス環境変数をパス毎に表示する]]
@DIV
@echo off
cmd /c echo Set ws=WScript.CreateObject("WScript.Shell"):Set wv=ws.Environment("SYSTEM"):pt=wv("PATH"):ad=Split(pt,";"):For I=0 To Ubound(ad):Wscript.echo ws.ExpandEnvironmentStrings(ad(I)):Next>%temp%\_.vbs&cscript.exe /NOLOGO %temp%\_.vbs
cmd /c echo Set ws=WScript.CreateObject("WScript.Shell"):Set wv=ws.Environment("USER"):pt=wv("PATH"):ad=Split(pt,";"):For I=0 To Ubound(ad):Wscript.echo ws.ExpandEnvironmentStrings(ad(I)):Next>%temp%\_.vbs&cscript.exe /NOLOGO %temp%\_.vbs
@END

[[シャットダウンダイアログの表示]]
@DIV
echo Set sh=CreateObject("shell.application"):sh.ShutdownWindows>%temp%\_.vbs&wscript.exe %temp%\_.vbs
@END

[[GUIDをクリップボードにセット]]
@DIV
echo Set TypeLib=CreateObject("Scriptlet.TypeLib"):Wscript.echo TypeLib.Guid>%temp%\_.vbs&cscript.exe /NOLOGO %temp%\_.vbs | clip
@END

[[SendToフォルダをエクスプローラで開く]]
@DIV
echo Set obj=CreateObject("Shell.Application"):Set objFolder=obj.NameSpace(9):obj.Explore(objFolder.Self.Path)>%temp%\_.vbs&wscript.exe %temp%\_.vbs
@END