[vbs]読込むファイルの文字列置換とファイル書き込みのサンプル

'変数の宣言漏れを防ぐために明示的に変数を宣言する事を記述する
Option Explicit

'変数を宣言する
Dim objFileSys
Dim strScriptPath
Dim strOpenFile
Dim strWriteFile
Dim objTextStream
Dim objWriteStream
Dim strText
Dim strText2
Dim icnt

'--------------------------------------
' Scripting.FileSystemObjectオブジェクトを作成する。
'--------------------------------------
Set objFileSys = CreateObject("Scripting.FileSystemObject")

'--------------------------------------
' 置換する文字列は「ファイルのフルパスを取得」
' 検索する文字列は「ファイル名」
' 置換する文字列は「""（空)」で上書きする事でドライブ名から\までのカレントパスを取得する
'--------------------------------------
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

'--------------------------------------
' ドライブ名から\までと作成したいファイル名「TestData.txt」の２つのパス情報を
' 繋げて１つのパス情報を作成する
'--------------------------------------
strOpenFile = objFileSys.BuildPath(strScriptPath,"reg_query_DisplayName.txt")
strWriteFile = objFileSys.BuildPath(strScriptPath,"reg_query_DisplayName_mod.txt")

'--------------------------------------
' objTextStreamは読込むファイル
' objWriteStreamは書き込むファイル
' 引数1：ファイル名
' 引数2：1は読込専用、2は上書き
' 引数3：Trueはファイルがなければ作成する
'--------------------------------------
Set objTextStream = objFileSys.OpenTextFile(strOpenFile, 1)
Set objWriteStream = objFileSys.OpenTextFile(strWriteFile, 2, True)

'--------------------------------------
' 行数をカウントするためのicntの初期化
'--------------------------------------
icnt = 1

'--------------------------------------
' 読み込み処理全体をDo Until～Loopの繰り返しで作成しました。
' 繰り返し終了（＝読み込み終了）の条件は、AtEndOfStreamプロパティがTrueになったときです。
'--------------------------------------
Do Until objTextStream.AtEndOfStream = True

'--------------------------------------
' ファイルを1行ずつ読込む
'--------------------------------------
strText = objTextStream.ReadLine

'--------------------------------------
' 引数1の文字列内にある引数2の文字列を引数3で置換する
'--------------------------------------
strText2 = Replace(strText," DisplayName REG_SZ ","")

'--------------------------------------
' 行数で処理を変える
' objWriteStream.WriteLineだと最終行に改行されるため
' objWriteStream.Write(書込みの際に改行無し）を利用する。
' 2行目以降は書込む際に事前に改行を入れる。
'--------------------------------------
If icnt = 1 Then

'--------------------------------------
' 置換した文字列をファイルに書き込む
'--------------------------------------
objWriteStream.Write strText2

Else

'--------------------------------------
' 置換した文字列の前に改行を入れファイルに書き込む
'--------------------------------------
objWriteStream.Write vbCrLf & strText2

End If

'--------------------------------------
' icntのインクリメント（行数のカウント）
'--------------------------------------
icnt = icnt + 1

Loop

'--------------------------------------
'テキストファイルを閉じます。
'--------------------------------------
objTextStream.Close
objWriteStream.Close

'--------------------------------------
'変数を空にする
'--------------------------------------
Set objTextStream = Nothing
Set objWriteStream = Nothing
Set objFileSys = Nothing
Set icnt = Nothing


※参考サイト
■VBScriptとWSHを使おう
http://www.happy2-island.com/vbs/cafe02/
■VBScriptで改行コードを変換する！
http://www.ilovex.co.jp/Division/ITD/archives/2008/10/vbscript.html

[bat]インストールされているプログラムの一覧取得

アンインストールできるプログラムの一覧をレジストリから取得する方法

■レジストリの位置
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall

■対象の一覧取得
reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" /s | findstr "\<DisplayName" | findstr /V "(KB"


※DisplayNameのみ取得し、Windowsの更新をはじく



※参考サイト
http://symfoware.blog68.fc2.com/blog-entry-518.html

[電話]各回線キャリア工事・故障情報URL

・NTT東日本故障情報
　工事・故障情報
　https://www.ntt-east.co.jp/disclosure/construction.html
・NTT西日本故障情報
　工事・故障情報
　http://www.info-construction.ntt-west.co.jp/info-report/ku010/kU010010/
・NTTCommunications
　工事・故障情報
　http://support.ntt.com/maintenance/

・KDDI
　障害・メンテナンス情報
　http://www.kddi.com/business/notice/

・SoftBankテレコム
　障害・メンテナンス情報
　http://tm.softbank.jp/nwcondition/

・NTTdocomo
　重要なお知らせ（通信障害）
　https://www.nttdocomo.co.jp/info/network/
・au
　通信障害等に関するお知らせ
　http://www.au.kddi.com/information/notice_mobile/network/
・SoftBank モバイル
　通信障害
　http://www.softbank.jp/mobile/info/personal/important/


※総務省
　電気通信番号の利用・指定
　http://www.soumu.go.jp/main_sosiki/joho_tsusin/top/tel_number/index.html
　電話番号に関するQ&A
　http://www.soumu.go.jp/main_sosiki/joho_tsusin/top/tel_number/q_and_a.html#q6