VBScript でインストーラを作成する

' 管理者権限で実行させる

Dim shApp
Set shApp = WScript.CreateObject("Shell.Application")
Dim args
Set args = WScript.Arguments

If args.Count > 0 And args.item(0) = "startAdmin" Then
	' 管理者権限モードで再実行中なら何もしない
Else
	' 管理者権限モードで再実行する
	Dim strArgs, i
	Set strArgs = ""
	For i = 0 To args.Count - 1
		strArgs = strArgs&" "&args.item(i) ' 配列に格納された引数を文字列に展開
	Next
	shApp.ShellExecute "CScript.exe", WScript.ScriptFullName&" startAdmin"&strArgs, "", "runas", 1
	WScript.Quit
End If

' レジストリの読み書き

Dim shell
Set shell = WScript.CreateObject("WScript.Shell")

' キーの存在を確認
Err.Clear
shell.RegRead "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\"
If Err.Number = 0 Then
	WScript.Echo "キーは存在します。"
Else ' -2147024894
	WScript.Echo "キーは存在しません。"
End If

' 値の取得
Dim version
version = shell.RegRead("HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.5\Version")
WScript.Echo ".NET Framework 3.5 version="&version

' 値の設定（キーの作成）
shell.RegWrite "HKLM\SOFTWARE\Test\Version", "1.00", "REG_SZ"

' 値の削除、キーの削除
shell.RegDelete "HKLM\SOFTWARE\Test\Version" ' 値の削除
shell.RegDelete "HKLM\SOFTWARE\Test\" ' キーの削除

' 64bit / 32bit 判定

Dim os
Err.Clear
shell.RegRead("HKLM\SOFTWARE\WOW6432Node\")
If Err.Number = 0 Then
	os = 64 ' 64bit
Else
	os = 32 ' 32bit
End If

' プログラム・コマンドの実行

Dim cmd

' プログラムの実行
cmd = ".\Setup.exe"
shell.Run cmd, 0, True

' 内部コマンドの実行
cmd = "cmd.exe /c copy /Y src dest"
shell.Run cmd, 0, True

' 作業ディレクトリの取得
Dim crrtDir
crrtDir = shell.CurrentDirectory
WScript.Echo crrtDir

' 自身の場所を取得
Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Dim myDir
myDir = fso.getParentFolderName(WScript.ScriptFullName)
WScript.Echo myDir

' 作業ディレクトリの変更
shell.CurrentDirectory = myDir

' ファイルの読み書き

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' 書き込み
Dim fp
set fp = fso.OpenTextFile("test.txt", 8, True)
fp.WriteLine("test" & vbCrLf & "test2")
fp.Close

' 読み込み
Dim line
set fp = fso.OpenTextFile("test.txt", 1, True)
Do While fp.AtEndOfStream <> True
	line = fp.ReadLine
	WScript.Echo line
Loop
fp.Close

' インストールログ

Dim fso
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' ログファイル名の日付文字列生成
Dim dateStr
dateStr = Replace(Replace(Replace(Now(), "/", ""), ":", ""), " ", "")

' ログファイルオープン
Dim logfp
Err.Clear
set logfp = fso.OpenTextFile("install_"&dateStr&".log", 8, True)
If Err.Number <> 0 Then
	WScript.Echo "->errno=" & Err.Number & ":" & Err.Description
End If

' テキストメッセージ出力＋ログ出力
echoLog "テストメッセージ 1"
echoLog "テストメッセージ 2"

' ポップアップメッセージ出力＋ログ出力
popLog "title", "テストメッセージ 3"
popLog "title", "テストメッセージ 4"

logfp.Close
WScript.Quit 0


' テキストメッセージ出力＋ログ出力関数
Function echoLog(msg)
	WScript.Echo msg
	logfp.WriteLine(msg)
End Function

' ポップアップメッセージ出力＋ログ出力関数
Function popLog(title, msg)
	MsgBox msg,,title
	logfp.WriteLine(msg)
End Function

' プログラム・コマンド実行

Dim rc
rc = cmdExec("cmd.exe /c dir", "dir コマンドでエラーが発生しました。")
If rc <> 0 Then
	WScript.Quit rc
End If

WScript.Quit 0


' プログラム・コマンド実行関数
Function cmdExec(cmd, errMsg)
	echoLog cmd
	Err.Clear
	shell.Run cmd, 0, True
	If Err.Number <> 0 Then
		echoLog "->errno=" & Err.Number & ":" & Err.Description
		popLog errMsg
		cmdExec = Err.Number
		Exit Function
	End If
	cmdExec = 0
End Function