「SQL\INSTANCE」という名前のキーをレジストリに作成したいのですが、円マークを入れると階層化されてしまうので、困っています。
カンタンな質問かもしれませんがどなたか教えてください。
以下、VBSで作成
Option Explicit
On Error Resume Next
Dim objWshShell ' WshShell オブジェクト
Set objWshShell = WScript.CreateObject("WScript.Shell")
If Err.Number = 0 Then
objWshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\SQL\INSTANCE", "SQL", "REG_SZ"
WScript.Echo "ODBC設定変更:完了"
Else
WScript.Echo "エラー: " & Err.Description
End If
Set objWshShell = Nothing
No.1ベストアンサー
- 回答日時:
RegWriteの仕様なのでどうしようもない。
別な方法をとるべし。(RESOLUTIONのコード参考)
http://support.microsoft.com/kb/281309/en-us
#実際にRESOLUTIONを試してみたわけじゃないので
#うまくいくかどうかは知らない
回答ありがとうございます。
やっぱり仕様なのでどうしようもないってところですか・・・
以下で行ってみたら、あっさりできました。
Const HKEY_LOCAL_MACHINE = &H80000002
Dim lRC
Dim sPath
Dim objRegistry
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
sPath = "SOFTWARE\ODBC\ODBC.INI"
lRC = objRegistry.SetStringValue(HKEY_LOCAL_MACHINE, sPath, _
"SQL\INSTANCE", "SQL")
If (lRC = 0) And (Err.Number = 0) Then
WScript.Echo "Write successful!"
Else
WScript.Echo "An error occurred. The return code is " & lRC & "."
End If
これからは、WSHとWMI併用でやりくりしていきます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PHP DBのハッシュ化したパスワードをpassword_verifyで戻し照合したのですが上手く行きません 2 2023/02/06 13:24
- PHP PHP MySql ページング 2 2022/09/20 06:38
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- PHP 重複を防ぐ記述について教えて下さい。 3 2023/04/03 14:35
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- PHP php テーブルが作成できない 1 2022/11/17 23:41
- C言語・C++・C# c言語の問題です 3 2023/01/10 16:15
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- PostgreSQL 画像とカテゴリーを出力したいのですが、取得の条件を付ける方法がわかりません。 2 2022/05/01 18:03
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
VBAで既に開いている別アプリケ...
-
「Columns("A:C")」の列文字を...
-
VBからPDFファイル自動生成...
-
実行時エラー 3265「要求された...
-
VBAからPDFファイルにパスワー...
-
Excel VBAでWordの複数ファイル...
-
Word、VBAでの取り消し線文字の...
-
エクセルのVBAの標準モジュール...
-
(初心者です)VBAについて。「実...
-
PowerPointVBAでスライドマスタ...
-
findメソッドの変数について
-
Excel VBAでIEにアクセスするプ...
-
AccessVBAで「dim dbs as datab...
-
VBAで別のシートに図形描画
-
UserForm1.Showでエラーになり...
-
[VBA]CDOメッセージ送信エラー
-
VB6 エクセルに画像貼り付け
-
Accessフォームから指定のExcel...
-
VBAで作成するメール(開封確認...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
Excelでフィルタをかけると警告...
-
VBAで既に開いている別アプリケ...
-
エクセルマクロエラー「'Cells'...
-
テキストボックス中の文字列の...
-
VBAで Set wb = Sheets(1).Cop...
-
ある文字列が全て数字であるか...
-
VBAからPDFファイルにパスワー...
-
VBScriptでファイルの日時順(降...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
エクセルVBAで2つの画像を比較...
-
PowerPointVBAでスライドマスタ...
-
UserForm1.Showでエラーになり...
-
上下の位置揃えについて
-
VBAについてです。 初心者です...
-
VBAで作成するメール(開封確認...
おすすめ情報