デスクトップの表示 拡張子:txtvbswsfjsphpjavahtmlutf8sjis echo Set sh=CreateObject("shell.application"):sh.ToggleDesktop>%temp%\_.vbs&wscript.exe %temp%\_.vbs パス環境変数をパス毎に表示する 拡張子:txtvbswsfjsphpjavahtmlutf8sjis @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 シャットダウンダイアログの表示 拡張子:txtvbswsfjsphpjavahtmlutf8sjis echo Set sh=CreateObject("shell.application"):sh.ShutdownWindows>%temp%\_.vbs&wscript.exe %temp%\_.vbs GUIDをクリップボードにセット 拡張子:txtvbswsfjsphpjavahtmlutf8sjis echo Set TypeLib=CreateObject("Scriptlet.TypeLib"):Wscript.echo TypeLib.Guid>%temp%\_.vbs&cscript.exe /NOLOGO %temp%\_.vbs | clip SendToフォルダをエクスプローラで開く 拡張子:txtvbswsfjsphpjavahtmlutf8sjis echo Set obj=CreateObject("Shell.Application"):Set objFolder=obj.NameSpace(9):obj.Explore(objFolder.Self.Path)>%temp%\_.vbs&wscript.exe %temp%\_.vbs
echo Set sh=CreateObject("shell.application"):sh.ToggleDesktop>%temp%\_.vbs&wscript.exe %temp%\_.vbs
@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
echo Set sh=CreateObject("shell.application"):sh.ShutdownWindows>%temp%\_.vbs&wscript.exe %temp%\_.vbs
echo Set TypeLib=CreateObject("Scriptlet.TypeLib"):Wscript.echo TypeLib.Guid>%temp%\_.vbs&cscript.exe /NOLOGO %temp%\_.vbs | clip
echo Set obj=CreateObject("Shell.Application"):Set objFolder=obj.NameSpace(9):obj.Explore(objFolder.Self.Path)>%temp%\_.vbs&wscript.exe %temp%\_.vbs