0

シェルコマンドをすばやく簡単に実行するために、次のSubを設定しました。このスクリプトは、私の会社のログインスクリプトで必ず機能します。私は現在、ドメインに大量のユーザーを追加するためのスクリプトを開発しています。新しいスクリプトでこのSubを使用すると、ファイルが見つからないというエラーが表示されます。このstackoverflowの投稿で修正を使用しようとしましたが、このコードでも同じエラーが発生します。 VBScript WScript.Shell Run（）-システムは指定されたファイルを見つけることができません

私が困惑しているのは、ドメインコントローラーのnetlogonフォルダーから実行すると、このサブが正常に機能することです。私は何が間違っているのですか？

ありがとう、

Sub runcommand(strCommand)
Dim objWshShell, intRC
set objWshShell = WScript.CreateObject("WScript.Shell")
intRC = objWshShell.Run(strCommand, 0, TRUE)
call reportError(intRC,strCommand)
set objWshShell = nothing 
end Sub

function reportError(intRC, command)
if intRC <> 0 then 
 WScript.Echo "Error Code: " & intRC 
 WScript.Echo "Command: " & command 
end if
end function
4

1 に答える 1

1

strCommandの以前の値にはスペースがなく、非常に単純でした。新しいスクリプトは、より複雑な変数をSubに渡すため、上記の共謀（つまり、「コメント/ソリューション」）でAlex K.が指摘したように、追加の条件付き処理が必要です。上記のAlexK.のサンプルは完璧なので、今夜はポイントピンプであるため、解決策として投稿します。

objWshShell.Run("cmd /k echo Hello World", 1, TRUE)
于 2012-10-26T07:18:10.420 に答える