SQLの窓

2009年10月07日


VBS : コマンドプロンプト用、PATH 環境変数をフォルダ毎に表示

Pl
( 前半はシステム環境変数、後半はユーザ環境変数 )

pl.bat
呼び出し用のバッチファイルです
@echo off
cscript.exe //NOLOGO %~dp0pathlist.vbs
pathlist.vbs
処理本体です。
直接動かすと、Wscript.exe が呼び出されるので、
メッセージボックスが表示されます

直接呼び出し1 : エクスプローラからダブルクリック等
直接呼び出し2 : コマンドプロンプトで pathlist と入力

Pl
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshSysEnv1 = WshShell.Environment("SYSTEM")
Set WshSysEnv2 = WshShell.Environment("USER")
strOut = ""
strPath = WshSysEnv1("PATH")
aData = Split(strPath,";")
For I = 0 To Ubound(aData)
	if Trim(aData(I)) <> "" then
		if strOut <> "" then
			strOut = strOut & vbCrLf
		end if
		strOut = strOut & aData(I)
	end if
Next
strPath = WshSysEnv2("PATH")
if Trim( strPath ) <> "" then
	strOut = strOut & vbCrLf
	aData = Split(strPath,";")
	For I = 0 To Ubound(aData)
		if Trim(aData(I)) <> "" then
			if strOut <> "" then
				strOut = strOut & vbCrLf
			end if
			strOut = strOut & aData(I)
		end if
	Next
end if

WScript.Echo strOut

関連する記事
laylaClass バッチ処理支援パッケージ ( バッチ処理 )


posted by lightbox at 2009-10-07 15:09 | VBScript | このブログの読者になる | 更新情報をチェックする
バッチ処理

Microsoft Office
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
CSS ドロップシャドウの参考デモ
Google Hosted Libraries
cdnjs
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり