□やりたいこと
2台のXP環境で、WSHを使用してリモートスクリプトを実行させたい
(ローカルサーバAからリモートサーバBでJBSを実行)
□事象
サーバAのVBS(rmt_local.vbs)を起動したところ、
CreateScript実行時に以下のエラーとなります。
【エラーメッセージ】
429 ActiveX コンポーネントはオブジェクトを作成できません。
□質問
原因と対応方法を知りたい。
下記の設定以外になにが影響しているのか?
□環境
【ローカルサーバA】
OS:WindowsXP Professional Version 2002 SP3
WSH:Version5.8
ドメイン:WORKGROUP
【リモートサーバB】
OS:WindowsXP Professional Version 2002 SP3
WSH:Version5.8
ドメイン:WORKGROUP
【スクリプト配置】
ローカルサーバAのC:\TESTにのみスクリプト(1)と(2)を格納している
リモートサーバBにはC:\TESTのフォルダのみ作成している
□設定関連
●ローカルとリモートで設定
ファイアウォール設定(DCOM、wsdcript.exeを通す)
ドメインプロファイルの設定でリモート管理の例外を許可
実行ユーザをAdministratorsグループに追加
●ローカルのみ設定
COMセキュリティのアクセス許可で「ANONYMOUS LOGIN」のリモートアクセスを許可
●リモートのみ設定
レジストリ:HKEY\LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa
の下のforceguest(文字列値)に0を設定
レジストリ:HKEY\LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings
の下にRemote(文字列値) を作成して1を設定
COMセキュリティのアクセス許可でEveryoneグループの「リモートアクセス」を許可
COMセキュリティの起動許可でAdminstratorsグループの「リモートからの起動」と
「リモートからのアクティブ化」を許可
================================================================
□スクリプト(1)
【rmt_local.vbs】
Option Explicit
On Error Resume Next
Dim objWshCtrl ' WshController オブジェクト
Dim strRemotePC ' リモートのコンピュータ名
Dim strScript ' 実行するスクリプトファイル
Dim objExecCmd ' 実行コマンド情報
Set objWshCtrl = WScript.CreateObject("WshController")
If Err.Number = 0 Then
strRemotePC = "B"
strScript = "rmt_remote.vbs"
Set objExecCmd = objWshCtrl.CreateScript(strScript, strRemotePC)
If Err.Number <> 0 Then
Set objExecCmd = Nothing
WScript.Echo "エラー: CreateScript " & Err.Description
WScript.Echo "異常終了しました。"
Else
WScript.Echo strRemotePC & " で " & strScript & " を実行します。"
objExecCmd.Execute
Do While objExecCmd.Status = 1
WScript.Sleep(100)
Loop
WScript.Echo "正常終了しました。"
End If
Else
WScript.Echo "エラー: CreateObject " & Err.Description
End If
Set objExecCmd = Nothing
Set objWshCtrl = Nothing
================================================================
□スクリプト(2)
【rmt_remote.vbs】
Option Explicit
On Error Resume Next
Dim objFSO ' FileSystemObject
Dim objFile ' ファイル書き込み用
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\TEST\test.log", 8, True)
objFile.WriteLine Now()
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
ワークグループ内のWindows XP Pro SP2同士で、WSHのリモート操作を行う(別のコンピュータにスクリプトを送って実行する)実験に成功した経験があります。
私は下記の@ITの記事を見て設定しました。WshControllerオブジェクトの詳細
http://www.atmarkit.co.jp/fwin2k/operation/wsh09 …
wscript -regserver コマンドは実行されているでしょうか。Windows XPにはバグがあるようです。
http://support.microsoft.com/kb/311269/ja
その他「wscript regserver」で検索してみて下さい。
また、レジストリのforceguestは文字列値 REG_SZではなくDWORD値 REG_DWORDです。
SHIMAPEEさん
回答と指摘をありがとうございます
上記の内容+下記の設定をすることで
成功するようになりました。
リモート側で「ローカル セキュリティ設定」の
「ネットワークアクセス: ローカルアカウントの共有とセキュリティモデル」を「クラシック ローカルユーザがローカルユーザとしてログオンする」に設定
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
exeファイルを実行するとコマン...
-
メッセージを他のPCに出したい
-
【VB.NET】exeを実行すると「発...
-
これってパソコンの最適化が完...
-
バッチファイルの内容を表示さ...
-
Accessの最適化について DBengi...
-
エクセルVBAで、バッチ処理を起...
-
VBAのコマンドプロンプトでpaus...
-
Excelのセルの内容をコマンドプ...
-
COBOLのイニシャライズとバリュ...
-
VBScriptでコマンドプロンプト...
-
VBscriptが起動しない?
-
NASに移したBATファイルからセ...
-
PDFファイルを開き、印刷し、閉...
-
ネットワーク名が見つかりません
-
コマンドプロンプトをウインド...
-
[teraterm] waitコマンドで停止...
-
複数のbatファイルを自動実行し...
-
Excel(エクセル) VBA プロシー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
コマンドプロンプトのエラーに...
-
exeファイルを実行するとコマン...
-
[teraterm] waitコマンドで停止...
-
「読み取りと実行」と「読み取...
-
これってパソコンの最適化が完...
-
VBscriptが起動しない?
-
ネットワーク名が見つかりません
-
hostファイル
-
バッチファイルの内容を表示さ...
-
エクセル フォルダの画像を画...
-
PDFファイルを開き、印刷し、閉...
-
バッチファイルで以下のような...
-
Excel(エクセル) VBA プロシー...
-
VScodeのエラー解決法 Pythonの...
-
NASに移したBATファイルからセ...
-
pythonスクリプトを管理者権限...
-
Excel VBA ステップインが途中...
-
バッチファイルが不正終了して...
-
16進数の変換処理
-
複数のbatファイルを自動実行し...
おすすめ情報