(管理者により削除)
(管理者により削除)
(管理者により削除)
(管理者により削除)
(管理者により削除)
(管理者により削除)
(管理者により削除)
(管理者により削除)
(管理者により削除)
(管理者により削除)
ドメイン下にいる端末すべてにあるexeファイルを実行したいのですが、権限がないので実行できません。
そこでログインスクリプトで下記のようにして実行させようと思うのですがこの中に、Userにわからないよう実行するため/quietと
実行する際Passwordを確認してくるようになってしまうので、Passwordをいれたいのですが。どうやればいいでしょうか。
On Error Resume Next
Dim strScript
Dim strCmdLine
strScript = "H:\新しいフォルダ\windowxxx.exe"
strCmdLine = """cmd.exe runas /user:%computername%\Administrator strscript"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run strScript
(管理者により削除)
(管理者により削除)
初めて投稿します。
全くの初心者なのですが、以下の事を実現したいのです。
ご教授願えたら幸いです。
実現したいこと
CSVファイルをVBSにドラッグするとEXCELを起動してグラフを作成する
質問
上記を実現するVBSサンプルはないでしょうか?。
各種グラフとVBSの対応コード一覧はないでしょうか?。
wshファイルをエンコードしたものを利用しています。
修正などでファイルを置き換えた場合に元のwshファイルを起動することが
あります。
実行ファイルはどこかにキャッシュされるのでしょうか。
ご存知の方いらっしゃいませんか。
変更後の再起動の必要性や、キャッシュであればクリアする方法を知りたいです。
よろしくお願いします。
>きたさん
ダウンロードのページにあります
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/src/wshbbs_cgi.zip
ただしこれは規制関係の処理が全く入ってない、管理用スクリプトがない、昔作ったので結構いろいろ怪しい、IISではたぶん使えないなどの問題があります。(昔はAnHTTDで動かしていた気がします)
ASPで作り直してもよかったんですが、拡張子が*.cgiにできなかったんですよねー。read.aspとかになってしまう。
互換スクリプトで有名どころと言えばぜろちゃんねるスクリプトですね。こちらはperlでの実装になります。
http://0ch.mine.nu/
>mikiさん
WScriptはホストがWSHの場合のみ使用でき、HTAでは使用できません。
標準出力に戻す方法はわかりませんが、標準出力にこだわらなければファイルやレジストリに値を書き込み、呼び出し側でそれを参照するのはどうでしょうか?
また、WSHでもcscript.exe + JScript(*.js)は使用できますし、こちらなら標準出力も使える(WScript.EchoやWScript.StdOut.*)ので、こちらで全部処理をしてやるのもいいかもしれません。画面が必要なければこちらをお勧めします。
2ちゃんねる互換スクリプトというのを昔作っていたそうですが、現在公開されてますか?
WSHでなくても、2ちゃんねるブラウザで読み書きできる互換スクリプトをご存知なら教えてください。
レンタルサーバーではなく、自宅鯖で使ってみたいので。
初心者ですが、ご教授願えたら幸いです。
MSHTA.exe "JavaScript: JSスクリプト処理記述; close();"
から、JS処理結果を「標準出力」で戻したいのですが、その方法が分かりません。
WScript.Echo(Result)、とか試したのですが、WScriptはJSでは利用できないみたいでエラーが返されます。
ありがとうございます
試してみます
>aro さん
たしかその方法はWin9x系限定だったかと。
XPにはshutdownコマンドがありますのでそれを使ってみてください。
>satoさん
VBSで行う必要はなく、*.batで十分なのではないでしょうか?
スタートアップもしくはタスクスケジューラで、
chkdsk C: /R
chkdsk D: /R
というバッチファイルを登録するのでいいのではないでしょうか?
管理人様、お世話になりました。
おかげさまで、ご指摘のjcode.plを差し替える事によって不具合が解決いたしました。
とても助かりました。
一時はどうしたらよいのか、かなりへこんだ状態になりましたが、何事もトライする心と人の繋がりであると改めてかみしめています(笑)
このたびは有難うございました。
ウィンドウズの電源OFFについて
以下のスクリプトを事項してもOFFになりません
Set WSHSHell=CreateObject("WScript.Shell")
WSHShell.Run "C:\WINDOWS\RUNDLL.EXE USER.EXE,ExitWindows"
OS WinXPです
何か間違いでしょうか
はじめまして。もしわかればご教示ください。
PC起動時に自動的にC or Dドライブのエラーチェックを実施し、
・正常時は処置なし
・異常時は修復する
という動作をVBSにて行いたいのですが、可能でしょうか。
当該PCの運用上、突発的に電源断となることがありますので
ファイル等が壊れたとしても自動的に復旧するようにしたいのです。
宜しくお願いします。
後の方、もし未解決のようでしたら改めてお願いします。
それから、この掲示板は質問も回答もどなたでも行っていただいて結構ですので、未解決の質問があり、おわかりになる場合はぜひ手助けいただくと幸いです。よろしくお願いします。
>はじめてオッサン さん
一つ目のご質問ですが、二重起動防止をどうやっているかによるのですが、WMIのWin32_Processで見ているならまずNameがwscript.exeでCommandLineがABC.vbsのがあればTerminate()させればいいのではないでしょうか?
二つ目のご質問ですが、*.wshファイルに記述することで可能です。vbsファイルをエクスプローラで右クリックしてプロパティを開いてみてください。実行時間を指定するタブがあります。
>WSH初心者 さん
私なら2次元配列を作って処理します。
この辺をどうぞ。
http://www.atmarkit.co.jp/fwin2k/tutor/cformwsh06/cformwsh06_01.html
あとは応用です。がんばってください。
>WSH超初心者 さん
Excel.ApplicationのQuitイベントを捕まえてやればいけるかもしれません。
WScript.CreateObjectメソッドの第二引数について調べてみてください。
ご無沙汰しております。
この1年は多忙→体調を崩すという感じでほとんど登場しませんでしたが、今後はなるべく出て来ようとおもいます。
一応、spamとかは消してますので放棄してるわけではないですよー。
直近の質問に回答します。
>hi-hoつながりさん
jcode.plをhi-hoが提供してるやつじゃなくて、新しいものに入れ替えたら大丈夫だったような気がします。
はじめまして。
hi-hoのCGIの掲示板について教えていただけないでしょうか。
昔から、掲示板をホームページ上で使っています。
最近は半角カナの文字化けについて解消されたのでしょうか。
カキクケコなど
僕の掲示板ではまだ解消されていません。
関係ない話題でスミマセン。
hi-ho繋がりでした。
有難うございました。
はじめまして。かなりの初心者ですがよろしくお願いします。
vbscript内の処理でExcelをxlApp4.Visible = True として実際に開いて手動で編集し、上書き保存して終了(Excelのウインドウを閉じる)するとscriptが再開して次の処理を始める・・・、なんてことは可能でしょうか?
よろしくお願いいたします。
はじめまして
WSHを勉強しています初心者です。
TEST.CSV
"名前","学年","クラス"
"A","6","2"
"B","4","3"
"C","6","3"
"D","3","1"
"E","1","2"
"F","5","4"
"G","2","1"
上記CSVに"性別"が"男"と全ての行に挿入して、尚且つ1・3・5・7行目のみ
抽出し下記CSVにするWSHを考えていますがなかなかうまくできません。
TEST1.CSV
"名前","学年","クラス","性別"
"A","6","2","男"
"C","6","3","男"
"E","1","2","男"
"G","2","1","男"
申し訳ございませんが、皆様ご教授よろしくお願いいたします。
VBSの質問です。
ABC.vbs(←自作)の二重起動を防止したいのですが、
後から起動したVBSを無効にする(起動してもすぐに終了させる)方法は見つけたのですが、
二重起動した場合、初めに起動しているvbsを強制終了させて、後から起動したvbsを有効にする方法はありませんか?
もう一つ。
vbsを実行して、vbsが待機中であれ、何かの処理中であれ、
実行して(約)10秒後に、強制終了する方法ってありますか?
Windows 2000 および Windows XP 用の Windows Script 5.6
http://www.microsoft.com/downloads/details.aspx?FamilyID=c717d943-7e4b-4622-86eb-95a22b832caa&displaylang=ja
Windows Script Version
http://www.microsoft.com/downloads/details.aspx?FamilyID=e74494d3-c4e1-4e18-9c6c-0ea28c9a5d9d&displaylang=ja
Windows 98、Windows Me、Windows 2000、Windows NT 4.0
ieを数秒で自動更新し、特定の文字列が更新されると、ポップアップにより
ユーザーに知らせるといったことを考えてます。
オフラインでファイルを取り込み、前回ファイルと比較、if分岐で、更新があれば文字列を検索し、メッセージボックスで表示。。みたいになるんでしょうか?
どうするのがベストか?ご助力よろしくお願いします。
お久しぶりです
生きていますー
多忙とか弱っていたりとかでお返事できなくてごめんなさい。
できればお助けいただくとありがたいです。
WSHで共有フォルダにあるエクセルを起動するだけの、以下WSHを作りました。
==========================
Dim xlApp
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.DisplayAlerts = False
xlApp.Workbooks.Open "\\共有サーバ\○○○.xls"
Set xlApp = Nothing
==========================
このままWSHをダブルクリックすると、エラー(ファイルがありませんのような)が出て、エクセルが起動しません。ネットワーク上のユーザー名・パスワードが必要だからだと思います。
ちなみに、一旦、手動でネットワーク上のユーザー名・パスワードを入力し、手動でエクセルを起動したあとに、このWSHをすると、ちゃんと立ち上がります。
WSHの中に、ユーザー名・パスワードを設定する方法がありましたら、お教えください。
VBSでキーボード操作を無効にするにはどうすればいいですか?
VBSで「GetAsyncKeyState」のようなキー入力を取得出来る機能はないんですかねぇ
自己解決しました。
メッセージボックスではなく、IEのウィンドウでメッセージを表示させました。
はじめまして、WSHが初心者です。
vbsでファイルをコピーする処理を作成したのですが、コピー処理中に「コピー処理中です」というメッセージを表示して、コピーが終了したら自動的にメッセージを消すような処理は可能でしょうか?
Popupで一定時間経過したら消える処理は可能でしたが、時間は毎回変わるため、処理の終了をトリガーに消すようにしたいと思っております。
メッセージボックスやPopupを表示すると、処理が先に進まなくなるので、根本的に別の方法を使用しないと無理なのでしょうか?
はじめまして、VBSで下記の問題が発生しています(;_;)
助けて下さい。
VBSでデザインモードを終了させようとすると
’CommandButton1’コントロールは作成されていないため、デザインモードを終了できません
と表示されます。
原因、解決方法をお教え下さい。
宜しくお願い致します。
はじめまして、いなばと申します。
よろしくお願いいたします。
wshをはじめて2週間の初心者です。
とあるフォルダーにあるファイルを操作しようとwshをはじめました。
下記のことができずに行き詰っております。
どなたかお力添えをお願いいたします。
「d:\soft」にあるすべてのファイルのファイル名、作成日、更新日をエクセル(d:\soft_kanri\soft_list.xls)におこして管理したいと思っております。
・「d:\soft」配下にあるファイルは、一週間に一度変更(更新、削除等)があります。
・処理をかけた日付のシートを追加して、そのシートにファイル情報(B列=ファイル名、C列=作成日、D列=更新日)を書き込みたいです。
足りない情報等ありましたら、ご指摘お願いいたします。
申し訳ございませんが、皆様よろしくお願いいたします。
wshでwindowsのワイヤレスネットワークの設定できないでしょうか?
SSID、認証、暗号化、ネットワークキーの設定をバッチかwshで自動設定
させたいです。
お分かりになる方、教えて下さい。
おしえてください。
以下のコードでリモートサーバでコマンドを実行しています。
このままではコマンドの実行終了を待たず、vbsが終了してしまうのですが、
コマンドの終了を待つようにすることはできるでしょうか。おしえてください。
set objLocator=CreateObject("WbemScripting.SWbemLocator")
set objConnection=objLocator.ConnectServer(ホスト名, _
"root\cimv2", _
ユーザ名, _
パスワード)
set objService=objConnection.Get("Win32_process")
Error=objService.Create(コマンド, , ,intProcessID)
set colItems=objConnection. _
ExecNoticationQuery("select * from __InstanceDeletionEvent " _
& "Within 1 Where TargetInstance ISA 'Win32_Process'")
Do
set objProcess=colItems.NextEvent
if objProcess.TargetInstance.ProcessID=intProcessID then
Exit Do
End if
Loop
一定秒数間隔で自動リロード機能(*)が実現されているページ
に対し、Wshプログラムによって、自動リロードをストップさせたり
/これを再開させたいと思っています。
(*)は、javascriptにより実現されていて、settimeoutが使われて
おり、この引数の中でリフレッシュが指定されることで、リロードが
機能していることまでは判明しています。
objIE = CreateObject(...)
objIE.navigate("URL")
aa = objIE.document.parentwindow.setTimeout("func()", 1000, "javascript")
objIE.document.parentwindow.clearTimeout(aa)
とやってはみたものの、所望の動作をしません。
アクセス先ページのHTMLソースに書かれているsetTimeoutの
戻り値がわからないので、上記のようなアプローチではダメ
なのかもしれませんが、ではどうしたらよいか困窮してしまって
おります。
なお再開については、当該ページを再読み込みさせることで
なんとかなるのかな、とは思っておりますが、まだ実現できて
いません。
なにとぞお力を授けてくださいませ。
WMIスクリプトでSKU No.が取得できません。
下記scriptで
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard",,48)
For Each objItem in colItems
Wscript.Echo "SKU: " & objItem.SKU
Next
出力が
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
SKU:
となりSKU No.が空欄になります。
どなたか、教えていただきたく、よろしくお願いします。
解析本好評発売中!!
やねう解析チーム による解析本。やねうらおの本です。
『解析魔法少女美咲ちゃんマジカルオープン!』が秀和システムより発売になりました!
http://yaneu.com/book/misaki/index.html
基本的なことを聞いてもいいでしょうか?
vbsを作成しているのですが
Wscript.なんちゃら
が使えないんです。
家のパソコンだとうまくいくものが、会社のパソコンだとエラーになります。
何かインストール的に足りないものがあるのでしょうか・・
またはどこかの設定?
ちなみにどちらのパソコンも
WindowsXP Professional vr2002 SP2 です。
知っている方、教えてください。
よろしくお願いします。