ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
VBScriptを使った少々変わったバッチ(ファイル)処理
日時: 2013/02/17 03:59
名前: lightbox



デスクトップの表示
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
GUIDをクリップボードにセット
echo Set TypeLib=CreateObject("Scriptlet.TypeLib"):Wscript.echo TypeLib.Guid>%temp%\_.vbs&cscript.exe /NOLOGO %temp%\_.vbs | clip
SendToフォルダをエクスプローラで開く
echo Set obj=CreateObject("Shell.Application"):Set objFolder=obj.NameSpace(9):obj.Explore(objFolder.Self.Path)>%temp%\_.vbs&wscript.exe %temp%\_.vbs
メンテナンス


日時: 2013/02/17 03:59
名前: lightbox