- ベストアンサー
WshShell.Runの使い方(書き方)
WshShell.Runを使ってスケジュール用の atコマンドを実行させたいのですが "で区切るとダメみたいなのですが どうすれば良いのでしょうか? ダメな記述 WshShell.Run("runas /user:aaa "at 11:11 /every:M,T,W,TH,F,S,Su "c:\\aaa.exe"""); 初歩的な質問ですみません。
- kokuryu
- お礼率4% (3/65)
- JavaScript
- 回答数1
- ありがとう数1
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
JavaScriptなんだから文字列中のダブルクォーテーションは\"では?
関連するQ&A
- WshShell.Runでサーバにアクセスできません。
拡張子が「js」のファイルでWshShell.Runでサーバにアクセスできません。 var WshShell= new ActiveXObject("WScript.Shell"); WshShell.Run("runas /user:ドメイン名\\administrator \\サーバ名\Adobe Reader9をサイレントインストールする.bat"); while(!WshShell.AppActivate("runas.exe")){ WScript.Sleep(100); } ・ ・ ・ どなたかご教授お願いします。
- 締切済み
- JavaScript
- VBScript
下記、プログラムを実行すると、コマンドプロンプトの画面が 消えずに、そのまま残ってしまいます。 どうしたら、画面を消すことができるでしょうか。 お力添えをお願いいたします。 Set WshShell = Wscript.CreateObject("WScript.Shell") Set WshEnv = WshShell.Environment("user") WshEnv("C:\NET\aaa.txt") = "administrator" Wshshell.Run("cmd.exe") WScript.Sleep(500) WshShell.SendKeys("runas /user:administrator " + chr(34) + "xcopy D:\NET\aaa.txt C:\NET\aaa.txt" + chr(34)) WshShell.SendKeys("{Enter}") WScript.Sleep(500) WshShell.AppActivate "C:\WINDOWS\system32\runas.exe" WshShell.SendKeys("XXXXX") WshShell.SendKeys("{Enter}") WScript.Sleep(500)
- ベストアンサー
- その他(プログラミング・開発)
- jscriptの質問
拡張子が「js」のファイルでWshShell.Runでサーバにアクセスできません。 var WshShell= new ActiveXObject("WScript.Shell"); WshShell.Run("runas /user:ドメイン名\\administrator \\サーバ名\Adobe Reader9をサイレントインストールする.bat"); while(!WshShell.AppActivate("runas.exe")){ WScript.Sleep(100); } ・ ・ ・ WshShell.Run("runas /user:ドメイン名\\administrator \\サーバ名… を WshShell.Run("runas /user:ドメイン名\\administrator cmd にすると上手くいきました。 たぶん、「\\サーバ名」の「\」の部分がうまくいってないような気がします どなたかご教授お願いします。
- ベストアンサー
- その他(プログラミング・開発)
- VBS runas実行時のパスワードを隠す方法について
VBS runas実行時のパスワードを隠す方法について こんにちわ! いつもお世話になっております。 VBSでIPアドレスを変更するスクリプト(netshコマンドを実行する)を作成しました。 このコマンドを実行するためには管理者権限が必要なため、runasコマンド+SendKeys にて、自動的にパスワードを入力して実行するような形になっております。(下記) -----・-----・-----・-----・-----・-----・-----・-----・-----・-----・----- shshell.Run "cmd.exe", 0 WshShell.Run "runas /user:%computername%\administrator ""コマンド""" WshShell.SendKeys("{Enter}") WScript.Sleep(1500) WshShell.AppActivate "C:\Windows\System32\runas.exe" WshShell.SendKeys("パスワード") WshShell.SendKeys("{Enter}") -----・-----・-----・-----・-----・-----・-----・-----・-----・-----・----- [質問] このスクリプトのパスワードの部分を隠すまたは暗号化する方法を教えてください。 [背景] このスクリプトを作成者と使用者が違います。作成者は、管理者のパスワードを 把握していますが、使用者には管理者権限のパスワードを知られたくありません。 つまり、スクリプトを見れば分かってしまうという状況は避けたいのです。 [調査状況] ・ネットワーク上にパスワードを格納したテキスト等を置いておき、それを 読み取る。⇒これは、今回実行するスクリプトがIPアドレスを変更するもの であるため、ネットワーク上の端末から情報を得ることができません。 ・タスクに登録する。⇒タスクに登録するために使用者のコンピュータ上に スクリプトをおく必要があるため、これも不可です。 ・スクリプト自体を暗号化する。⇒最終手段として考えてはいますが、できれば スクリプト内で処理を行いたいというのが現状です。(監督者の要望のため) [実行環境] ・Windows7 皆様、お忙しいとは思いますが、ご教授いただけると助かります。 以上 よろしくお願い致します。
- ベストアンサー
- その他(プログラミング・開発)
- Runasの指定について
お世話になります、runasの使用時にパスの指定の仕方について教えてください。 以下のようにパスを指定し、Runas後にスクリプトを実行しようとしていますが、objexeccmdの部分で引っかかってしまい、先に進むことが出来ません。 お手数ですが、よろしくお願いいたします。 objExecCmd = \"runas /user:Bunseki \\\"cscript.exe \\\\server\\\\log.wsf\" \'実行パスを記入 Set WshShell = WScript.CreateObject(\"WScript.Shell\") WshShell.run objExecCmd, 1, true
- 締切済み
- その他(プログラミング・開発)
- コマンドプロンプトで削除したいのですが。
D:\a.txtというファイルを毎日22:00に削除するようにするにはどのように記述すればいいのでしょうか? at 22:00 /every:m,t,w,th,f,s,su del d:\a.txt と打ってもその時間に削除すらされません・・・ また、起動時に毎回d:\a.txtを削除というコマンドはどのように記述すればよいのでしょうか? 分かる方お願いします。
- ベストアンサー
- Windows XP
- net useで接続したファイルをrunasでxcopyできない
こんにちは。VBScriptに関する質問です。 net useで接続した先のファイルをローカルの同名ファイルに 管理者権限で(runasを使用)xcopyを利用してコピーしたいのですが ネットワークに接続はされるのですが、コピーができません。 ちなみに、ローカルからローカルでは成功しています。 ※下記のバッチを流した場合にエラーはでません。 ※ローカルからの変更点は、Call文を利用してる2行を追加したのと xcopyの送り先をnet useで接続した先に変えただけです。 ※DOSコマンドで行った場合は成功しています。 環境:Windows XP and Windows 2000 Set WshShell = Wscript.CreateObject("WScript.Shell") Call WshShell.Run("net use l: \\DDD\** /user:DDD\[ログオンID] [ログオンPW]") Set WshEnv = WshShell.Environment("user") WshEnv("C:\TEST\b.txt") = "USER01" Wshshell.Run("cmd.exe") WScript.Sleep(500) WshShell.SendKeys("runas /user:USER01 " + chr(34) + "xcopy l:\TEST\b.txt C:\TEST\b.txt /Y" + chr(34)) WshShell.SendKeys("{Enter}") WScript.Sleep(500) WshShell.AppActivate "C:\WINDOWS\system32\runas.exe" WshShell.SendKeys("XXXXXX") WshShell.SendKeys("{Enter}") Call WshShell.Run("net use l: /delete /Y") WshShell.SendKeys("exit") WshShell.SendKeys("{Enter}") 手詰まりになってしまい、困っています。 どなたか、お力添えをいただけると助かります。 よろしく、お願いいたします。
- ベストアンサー
- その他(プログラミング・開発)
- コマンドプロンプトのatコマンド
コマンドプロンプトのatコマンドを使って、指定時刻にテキストファイルを表示するようにしたいのですが・・・。 at 22:50 /interactive /every:M,T,W,Th,F,S,Su "C:\Users\○○\test.txt" と、このように入力しても、指定時刻にテキストファイルが表示されません。 これは、何がいけないんでしょうか?
- ベストアンサー
- その他(Windows)
- 緊急です。Wscriptで・・・
IIS上にあるASPファイルからWscriptを呼び出して、VBで作成したEXEを実行させたいのですが、上手くいきません。コマンドプロンプトから実行させると上手くいくのですが、どうしてでしょうか?ASPはIIS上にあり、test.exeを実行すると別サーバにファイル(例 \\サーバ名\bbb\OK.txt)を作成するといったプログラムです。UNCパス指定だからでしょうか?よろしくお願いします。 ASPファイル内容--------- <%@ language="VBScript"%> <html> <body> テストASP <% Dim WshShell Set WshShell = Server.CreateObject("WScript.Shell") WshShell.Run "\\サーバ名\aaa\test.exe" , 0 , false Set WshShell = Nothing %> </body> </html>
- ベストアンサー
- Microsoft ASP
- VBscriptのobjWShell.Run
OFFICE2003で、リソースキットでインストールするソフト(Wordなど)の種類や設定をカスタマイズして、MSTファイルを作成し、そのパラメータをセットアッププログラムに渡すことでカスタマイズされたOffice2003を社内に配布すためのスクリプトを考えております。 コマンドプロンプトから G:\setup.exe TRANSFORMS="G:\setupfile.mst /qd-" を入力するとセットアッププログラムは起動するので、 下記通りobjWShell.Runの記述で、setup.exe 後ろにパラメータを記述したいのですが、エラーとなってしまいます。 objWShell.Run "G:\setup.exe TRANSFORMS="G:\setupfile.mst /qd-", vbNormalFocus, True どのようにすれば、いいのでしょうか?
- ベストアンサー
- その他(プログラミング・開発)
お礼
そうでした・・・。 ありがとうございます。