VBScript レジストリ書き込み サンプル2

VBScriptでレジストリに書き込みをするサンプル2です。

' レジストリの書き込み
' 失敗した場合は5回リトライ
'regpath レジストリキー
'regname キー名
'regval レジストリ値
'regtype レジストリのタイプ(REG_SZ、REG_DWORD)
'**************************************************
Function RegWrite(regpath, regname, regval, regtype)
    'レジストリ書き込み用オブジェクト生成
    On Error Resume Next
    Call CreateObject("WScript.Shell").RegWrite(regpath & "\" & regname, regval, regtype)
    If (Err.Number = 0) Then
        WScript.Echo "RegWrite >" & ":" & regname & "を" & regval & "にセットしました。"
        RegWrite = True
    Else
        WScript.Echo "RegWrite >"  & ":" & regname & "の変更に失敗しました。"
        RegWrite = False
        '5回リトライを実行する。
        Dim count
        WScript.Echo "RegWrite >"  & ":書き込みに失敗したためリトライします。"
        For count = 0 To 4
                Call CreateObject("WScript.Shell").RegWrite(regpath & "\" & regname, regval, regtype)
            If (Err.Number = 0) Then
                WScript.Echo "RegWrite >"  & ":" & regname & "を" & regval & "にセットしました。"
                RegWrite = True
                Exit For
            Else
                WScript.Echo "RegWrite >"  & ":" & regname & "の変更に失敗しました。"
                WScript.Sleep(1000)
            End If
        Next
    End If
End Function

Bookmark this on Yahoo Bookmark
Bookmark this on Google Bookmarks
Share on LinkedIn
LINEで送る
Pocket