07/12/12 23:32:17
自分の子の親は普通、自分だけど、例外もあるかも
401:デフォルトの名無しさん
07/12/12 23:36:14
子供のidは分かるけど自分のidは分からんらしい
402:デフォルトの名無しさん
07/12/12 23:39:07
URLﾘﾝｸ(scripting.cocolog-nifty.com)
403:デフォルトの名無しさん
07/12/13 00:04:35
自分探しって大変なんだな
404:デフォルトの名無しさん
07/12/13 00:04:48
>>402
子プロセスを起動してその親プロセスIDを取るのか
スゲー力技
405:デフォルトの名無しさん
07/12/13 00:08:44
>>400
'子の親(=自分)を調べる方法でgetpid()を作ってるサイトがあったので
'そちらを参考(丸写しともいう)にして >>302 を改良
'URLﾘﾝｸ(www.vector.co.jp)
'URLﾘﾝｸ(www.vector.co.jp)
set swl = wscript.createobject("wbemscripting.swbemlocator")
set s = swl.connectserver
set rs = s.execquery("select * from win32_process where processid=" & getpid())
for each r in rs
wscript.echo r.caption
p = r.parentprocessid
set prs = s.execquery("select * from win32_process where processid=" & p)
for each g in prs
wscript.echo g.caption
next
next
function getpid()
set ws = createobject("wscript.shell")
set e = ws.exec("mshta.exe -")
p = e.processid
set o = getobject("winmgmts:root\cimv2")
set ps = o.execquery("select * from win32_process where processid=" & p)
if ps.count <> 1 then
e.terminate
err.raise 9
end if
for each p in ps
getpid=p.parentprocessid
next
e.terminate
end function
406:デフォルトの名無しさん
07/12/13 00:13:16
なんでメインとサブでわざわざ違うやり方してんの？
407:デフォルトの名無しさん
07/12/13 00:13:35
そこまでしてわかったところでどうする？
cscriptで起動しなおしたって別ウィンドウが開くだけだ
408:デフォルトの名無しさん
07/12/13 00:29:41
もう充分だよ
409:デフォルトの名無しさん
07/12/13 00:31:33
>>407=382だろ？
だから、まずできるところまでやってんだろ。
よくいるんだよな。自分では何もしないで人のしてる事にケチをつける奴。
410:デフォルトの名無しさん
07/12/13 00:33:07
>>405
すげーな。そんな方法思いもよらなかった。
411:デフォルトの名無しさん
07/12/13 01:46:48
超手抜きだけど、環境変数で判別するって方法もあるよ。
Ｃドライブのカレントディレクトリが =C: という変数に入ってるなら cmd
無ければ explorer から起動したとみなす。
かなり乱暴なやりかただけど。Win XP 以外でうまくいくかどうかわワカラン。
Dim WshShell,Environment
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Environment = WshShell.Environment("PROCESS")
If Environment("=C:") = "" Then
MsgBox "エクスプローラから起動されました"
Else
MsgBox "コマンドプロンプトから起動されました"
End if
412:デフォルトの名無しさん
07/12/13 06:07:15
PROMPT=$P$G
も使えそうだね
消されてたらだめかな
413:デフォルトの名無しさん
07/12/13 06:09:08
>>411
DドライブにOS入れててCドライブが無い変態さんもいるかも知れない
414:デフォルトの名無しさん
07/12/13 19:02:27
If Environment("=" & left(wscript.fullname,2)) = "" Then
415:デフォルトの名無しさん
07/12/14 06:45:12
凄腕プログラマーな皆様！！！！！
おいらの悩みを聞いてください
replaceで " の入っている文章を置換したんですがどうすれば良いんでしょうか
具ぐってもサンプルコードばかりで解決策が見つかりません
416:デフォルトの名無しさん
07/12/14 07:01:34
エスケープでググロ
417:デフォルトの名無しさん
07/12/14 17:43:49
replace('"', 'hoge')
418:デフォルトの名無しさん
07/12/14 17:47:37
～.replace(/"/g, """);
419:デフォルトの名無しさん
07/12/14 20:45:55
vbs だと " の1個手前に " を置いてエスケープする。
"" の中に " を書きたいときは "" と書く。（Ｃ言語の \" のようなもの）
つまり、
s = "今日は""楽しい""遠足"
s = Replace(s, """", "うんこ")
となる。
420:デフォルトの名無しさん
07/12/14 23:00:32
ソースキボンヌ
その仕様自体は知っているのだけれど、
スクリプトのヘルプには何故かその記述が見当たらなかったような……
421:デフォルトの名無しさん
07/12/15 02:30:04
SQL と似てるね。たとえば What's the vbScript という文字列をインサートするには、' を２回重ねて
INSERT INTO MYBOOKS SET ID=1, TITLE='What''s the vbScript';
としなきゃならない。
422:デフォルトの名無しさん
07/12/15 10:28:15
>>415
"""それは言えないな"""
"""こ、この不自然な二重引用符は何でもないんだからね"""
423:デフォルトの名無しさん
07/12/15 16:09:35
>>420
なんでそんなもんがいるんだ？
424:デフォルトの名無しさん
07/12/15 18:46:31
>>423
'に挟まれた'を挟み込む'ではなくて文字列の'にするため
425:デフォルトの名無しさん
07/12/15 22:02:40
いや、>>423のいう「そんなもん」は「ソース」のことではないかと。
ついでに野暮なツッコミをしておくと、>>424の書き方だと
シングルクォーテーション("'")を単なる文字として読ませる工夫をしていないので
「に挟まれた」を挟み込む「ではなくて文字列の」にするため
と読めてしまうな。
426:デフォルトの名無しさん
07/12/15 22:06:50
ちなみに、ややこしいようなら
JavaScript では "\x22"、VBScript では Chr(34) と書く方法もある。
(ダブルクォーテーションの場合ね)
427:デフォルトの名無しさん
07/12/15 22:52:18
JavaScriptだったら '"' とか "\"" とかの方が良くね？
428:デフォルトの名無しさん
07/12/16 13:48:01
ダブルクォートを定数で作っておくのが親切ってもんです
429:デフォルトの名無しさん
07/12/16 13:54:46
>>428
ﾔﾒﾚ ｷｼｮｸﾜﾙｲ
430:デフォルトの名無しさん
07/12/17 06:03:14
こんなおいらにいろいろ教えて頂いてありがとうございました。
''か""""かChr(34) でOKって事ですね
陳宮ベリーマッチでした
431:デフォルトの名無しさん
07/12/17 16:31:39
Const vbQuote = """"
432:デフォルトの名無しさん
07/12/17 19:32:56
ふつうに書けば
a = "おまいは""アホ""か！"
でもこんな書き方する人もいるの？
Const vbQuote = """"
b = "おまいは" & vbQuote & "アホ" & vbQuote & "か！"
ダサ・・・
433:デフォルトの名無しさん
07/12/19 01:27:40
ダサいのは可読性を考慮しないオナニー専門のお前
434:デフォルトの名無しさん
07/12/19 03:35:02
CLSIDはあってもPROGIDがないものはどうやってCreateObjectする？
435:デフォルトの名無しさん
07/12/19 08:57:54
アルファがベータをカッパらったらイプシロンした。なぜだろう？
436:デフォルトの名無しさん
07/12/19 16:23:23
>>434
一覧で全部体当たりする
437:デフォルトの名無しさん
07/12/19 16:47:09
wsf or wsc or htaで<object>使うしかないだろ
vbsやjsでは無理だろ
438:デフォルトの名無しさん
07/12/19 20:45:57
無理と言うか、出来る方が問題やん
439:デフォルトの名無しさん
07/12/19 21:20:53
ほなwsf wsc htaも問題やな
440:デフォルトの名無しさん
07/12/19 21:58:41
>>438
問題のあることやっててゴメンナサイ
441:デフォルトの名無しさん
07/12/19 23:23:27
そもそもそんな必要性がないだろ
442:デフォルトの名無しさん
07/12/20 00:08:25
>>433
可読性？？wara
「"」の読み方も知らんの？ダサ～～ｗ
おしえてあげよっか～～～～？
やだよ～～ん。おまいの熊度が気に入らないから教えてあげんよ～～だ。
443:デフォルトの名無しさん
07/12/20 01:10:50
煽りの返しレスはすぐにつけないと、ただのキモい粘着野郎としか扱われませんよ
要約：KY
444:デフォルトの名無しさん
07/12/20 01:11:32
さんご礁は黙ってろ
445:デフォルトの名無しさん
07/12/20 01:47:30
>>434
自分専用スクリプトなら、適当にレジストリエディタでProgIDをでっち上げればいいｗ。
446:デフォルトの名無しさん
07/12/20 02:04:59
getobject("new:{ clasid... }")
447:デフォルトの名無しさん
07/12/20 11:52:43
new:なにこれ？
448:デフォルトの名無しさん
07/12/20 19:35:47
>>443
で。「"」 の読み方はわかんのかい？
449:デフォルトの名無しさん
07/12/20 19:51:05
queue moniker
queue:/new:classid or progid
450:デフォルトの名無しさん
07/12/21 18:49:10
vbsかwsfでftpの処理をして処理内容をリダイレクトしようとしています。
ftpのコマンドを書いたファイルを読み込ませているのですが、うまく処理できません。
コメントを切り替えて下記10通りのパターンで試してみたのですが、
一つ目のRun以外動作していないようです。
ftpもできないしログも吐かないし、エラーも出ません。
その後のEchoは表示されます。
------------------
Dim objShl
Set objShl=Wscript.CreateObject("WScript.Shell")
objShl.Run "ftp -s:crp.ftp", 0, true
'objShl.Run "ftp -s:crp.ftp > ftp.log", 0, true '×
'objShl.Run "ftp -s:crp.ftp >> ftp.log", 0, true '×
'objShl.Run "ftp -s:crp.ftp > ftp.log", 1, true '×
'objShl.Run "ftp -s:crp.ftp > C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:crp.ftp >> C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:C:\db\wsh\crp.ftp >> C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:C:\db\wsh\crp.ftp > C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:/db/wsh/crp.ftp >> /db/wsh/ftp.log", 0, true '×
'objShl.Run "ftp -s:/db/wsh/crp.ftp > /db/wsh/ftp.log", 0, true '×
WScript.Echo "完了"
------------------
OSはWindows2003 Serverです。
上記をコマンドプロンプトで実行すると、ftpもログも正しく処理できています。
違っているところや、別の対処方法等教えてください。
よろしくおねがいします。
451:デフォルトの名無しさん
07/12/21 18:54:12
cmd.exe /c ftp....
452:450
07/12/21 19:04:49
>>451 ありがとーーーーー！！ヽ(・∀・ )ﾉ できました！
453:デフォルトの名無しさん
07/12/21 23:29:39
objShl.Exec
454:デフォルトの名無しさん
07/12/28 13:37:03
ＷＳＨでドライバインストールって出来ませんか？
著名確認画面で止まるのを自動で進みたいんですが。
455:デフォルトの名無しさん
07/12/28 16:24:02
>>454
マウスクリックするだけじゃん。
どんだけズボラなんだよ。
スクリプト書く方がはるかに手間がかかるよｗ
なんて冗談はさておき、たぶん、自分のＰＣなら自分で
マウスをクリックすればいいだけな話だが
キミやりたいのは、不特定多数の他人のＰＣにインストールしたい
ということなんだろ？
たぶん sendkeys って命令を使えばいいんだと思う。
（誰か詳しいひとがフォローしてくれるはず）
それはそれとして、いったい何のための署名なのか。よく考えて欲しい。
システムに深刻な障害を与える可能性のあるソフトを
何の確認もせずに自動インストールできてしまう機能がＯＳに
備わっていたら？それはセキュリティーホールだよね。
ウイルス作成ハッカーの格好の餌食じゃん。
456:デフォルトの名無しさん
07/12/28 18:41:26
>>455
>それはそれとして、いったい何のための署名なのか。よく考えて欲しい。
親切で言ってるとは思うが、余計なお世話だろ。
>>454
出す情報少な杉。ダイアログを自動で操作したいだけなら455の言うとおり
ウインドウハンドルを取得してsendkeys使えばいい。
457:デフォルトの名無しさん
07/12/28 20:18:55
>>455
SendKeysは知っていますが・・・
それから、著名確認を無効にする事がWindowsでは出来ますよ。
貴方の言うように著名確認が無いならそれはセキュリティホールだというなら、どうして
そのような機能がWindowsについているのでしょうか？
>>456
すみません。携帯電話からだったのでつい・・・・。
今度はPCから書いています。 確かにSendKeysを使えば良いのでしょうが、確認ダイアログ
が出るかどうかが分からないとか、 AutoHotKeyの IfWinExist みたいな 指定したタイトルの
ウィンドウが存在するかどうかチェックとか、そういった事はWSHでは出来ないのかなぁと。
要するに、SendKeysだとAppActivateと組み合わせても、タイミングによってはユーザの介入
によって上手くいかない可能性もあるので、そういった不安要素を取り除いて確実なスクリプト
にしたいなぁと思ったのですが、無理っぽいですねぇ・・・・
マニュアルを "存在するか" とか "ドライバ" とか 色々検索してみたのですが、どうも
なさそうでした・・・・。
458:デフォルトの名無しさん
07/12/28 20:36:01
>>457
本筋とは関係ないが、「著名」じゃなくて「署名」だよ。
459:デフォルトの名無しさん
07/12/28 21:23:03
「しょめい」じゃどう変換しても「著名」にはならんから
ずっと「ちょめい」と読んでいたんだろうね。
460:456
07/12/28 21:27:53
>>457
突っ込みどころが多杉。
>>455がsendkeys出したのは、情報小出しのおまえが悪いんだろ。
それに対して礼も言わずにバカにしたようなレスはどーなのよ。
携帯電話なんてそっちの事情はしらねーんだよ。
>AutoHotKeyの IfWinExist みたいな 指定したタイトルの
できるが、「確認ダイアログが出るかどうかが分からない」って事じゃ
使いようがないだろ。
ある程度知ってる人ならスマートな解決方法がわからないまでも、この流れで
2種類の解決方法が思い浮かぶだろうな。
ブチむかついたので、以上。
461:デフォルトの名無しさん
07/12/28 21:27:59
>>458
うっはｗ 指摘ありがとうございます。
超恥ずかしいOTL オレバカす・・・・・
それはそうと、スクリプトはどんなコンピュータで実行されるか分からないじゃないですか？
ハードウェアのインストールウィザードで一旦止まりますが、要はユーザがそれを見て
よく分からずに「インストール停止」を選べないように、出てきた瞬間にインストールを選択
させてインストールしたいのです。
最悪かなり重いマシンで実行する事を想定すると Wscript.Sleep 10000で10秒ぐらいは待って
それから objWshShell.SendKeys "{Left}" Wscript.Sleep 100 objWshShell.SendKeys "{Enter}"
ってやらないと、まだハードウェアのインストールウィザードが出てきてないのに
SendKeysしてしまうと失敗しますよね。
ではそのように作ったスクリプトを高速なマシンで実行した場合はどうなるか・・・
ハードウェアのインストールウィザードは出ているのにしばらく停止したまま。その間にユーザが
インストール停止を選択してしまうかもしれない。そうでなくても無駄に待ち時間が長いのは問題。
だから、出てきたらすぐインストールを選択させたいんです。無駄な待ち時間をなくしたい。
そうするにはどうすればいいのでしょうか？
AutoHotKeyだと IfWinExist タイトル で そのタイトルが存在するかどうかチェックとか
そういった事が出来たのですが、WSHではどうするのかなぁと。
存在しないタイトルを objWshShell.AppActivate タイトル ってやってアクティブにしようとして
存在しないのだから多分 Falseが帰ってくるから、それがTrueになるまで1秒ずつ実行するような
無限ループでも作ればいいのでしょうか？こんな感じ
Do While objWshShell.AppActivate("ハードウェアのインストール") <> True
Wscript.Sleep 1000
Loop
しかしこうするとなんらかの原因で永遠にAppActivateするプログラムが立ち上がってこなかったら
無限ループに陥ってしまうし・・・どうしたらいいんでしょう？
462:461
07/12/28 21:35:15
>>460
すみませんでした。 ただ、署名を無効にするオプションが存在するのに署名無視でインストール
なんて出来るとセキュリティホールでしょ？って言っていたので、それはおかしいなと思って
レスしたまでです。で、携帯電話からってのは確かに、貴方には知る由もありません。申し訳ございませんでした。
＞できるが、「確認ダイアログが出るかどうかが分からない」って事じゃ
方法をぜひご教示願えませんか？
＞ある程度知ってる人ならスマートな解決方法がわからないまでも、この流れで
＞2種類の解決方法が思い浮かぶだろうな。
向学のために2種類の解決方法とスマートな解決方法をご教示願えませんか？
＞ブチむかついた
"ブチ"って、山口県辺りの人ですか？
463:デフォルトの名無しさん
07/12/28 22:14:01
>>461
>無限ループに陥ってしまうし・・・どうしたらいいんでしょう？
有限ループにする
464:461
07/12/28 23:48:48
>>463
なるほど・・・
i = 0
Do While objWshShell.AppActivate("ハードウェアのインストール") <> True
WScript.Sleep 1000
i = i + 1
If i >= 10 Then
WScript.Popup "エラー！ドライバのインストールに失敗しました", 5
WScript.Quit
End If
Loop
こんな感じですかね。。。
それともう1つ聞きたいのですが、指定した名前のドライバがきちんとインストールされているか
どうかIfで分岐する事はできませんか？
もう具体的に出した方が分かりやすいと思いますので言いますが UltraVNC のVNC Hook Driver
のインストールをしたいのです。 もしインストールされてなければインストールを実行（全自動）
インストールされていればインストールはせずにスクリプトを終了させる
といった分岐です。
465:デフォルトの名無しさん
07/12/29 11:38:43
もう全部手作業でやった方がいいと思うよ。
466:デフォルトの名無しさん
07/12/29 15:19:42
>>462
「署名を無効にするオプションが存在する」 なら、無効にしとけばいいじゃん！頭悪っ
467:デフォルトの名無しさん
07/12/29 15:29:01
あーあ、言っちゃったよ
468:461
07/12/29 18:09:53
>>466
そういう設定に変えちゃらめぇ～～～！
469:デフォルトの名無しさん
07/12/30 01:12:43
方法があるのに「らめぇ～」ってどういう事だよ。もう付き合いきれん。
470:デフォルトの名無しさん
07/12/30 08:43:10
らめぇ～って何？
日本語の乱れ？
471:デフォルトの名無しさん
07/12/30 08:53:40
>>470
お前は萌えを知らんのか？
472:デフォルトの名無しさん
07/12/30 10:27:00
萌えは知っているがみさくらなぞ知らん!
473:デフォルトの名無しさん
07/12/30 12:37:18
MSはWSHというものが
Windowsの自動操作を行えると主張するが
AppActivate+SendKeysはWindowの基本設計とは完全に矛盾しており
システムのクラッシャーになりかねない
OLE対応アプリ/機能以外は操作できないというのは
実質WSHには自動操作はできないという事を示している
474:デフォルトの名無しさん
07/12/30 13:34:25
「Windowsの」ここ重要
決して「Windowsアプリケーションの」とは言っていない。
475:デフォルトの名無しさん
07/12/30 13:37:55
もちろん、ドライバのインストールはWindowsに関わることだけど、
上にもあるようにセキュリティに関わることだから、
自動化に制約がかかるのは勘弁してやれ。
476:デフォルトの名無しさん
07/12/30 15:00:30
でもさ、市販ソフトのインストーラでも、うらでダイアログポチポチしてるよね。
Windowsってなんなの？って感じ。
477:デフォルトの名無しさん
07/12/30 17:56:40
VBSと組めばバッチなんていらんくね？
478:デフォルトの名無しさん
07/12/30 20:31:53
WScript.ShellのPopUpの秒指定、ExcelやIEやHTAで効かないんだけど
使えているひともいるみたいで、環境依存なの？
URLﾘﾝｸ(www.vbalab.net)
479:デフォルトの名無しさん
07/12/30 20:33:11
そう思うなら、
COPY *.TXT A:\
と同等の機能をVBSで書いてみろよ。
適材適所で使い分けの出来ないヤツは役に立たん。
480:デフォルトの名無しさん
07/12/30 22:51:01
>>478
既知の問題で､(おそらく)環境依存で､原因不明で､解決法無し(不明)です
スレ違いなので詳しくは書きませんが代用法もあるわけですし
問題が起きるようならキッパリ諦めてください
481:デフォルトの名無しさん
07/12/31 04:06:48
>>479
Option Explicit
Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "*.txt" "A:\"
Set objFSO = Nothing
こんな感じでしょうか？
482:デフォルトの名無しさん
07/12/31 04:49:23
前から思ってたんだがWScript.つけてるコードって
どこソースなんかね
タイピング増やしたくない俺は滅多に使わないんだが
483:デフォルトの名無しさん
07/12/31 05:15:55
Scripting Guyですよ
484:デフォルトの名無しさん
07/12/31 05:16:47
どこソースって､MSDN(WSHヘルプファイル)には
object.CreateObject(strProgID[,strPrefix])
object
WScript オブジェクトです。
って書かれてるわけだが
485:デフォルトの名無しさん
07/12/31 05:19:20
ちゅーか別物だよね
486:デフォルトの名無しさん
07/12/31 05:26:43
Scripting.FileSystemObjectのインスタンス作る場合に置いては別物じゃないよ
大元は一緒でラップの仕方が違うだけだし
487:デフォルトの名無しさん
07/12/31 05:42:27
クライアントサイドはCreateObject()
サーバサイドはServer.CreateObject()
って記述してる
488:デフォルトの名無しさん
07/12/31 09:02:11
>>487
それはまた全然別の話だよw
489:デフォルトの名無しさん
07/12/31 16:43:29
>>481
ブッブーーッ！はいダメ。
無理すんな。素直にバッチファイル書けよ。
490:デフォルトの名無しさん
07/12/31 18:28:02
ダメな理由くらい書け
491:デフォルトの名無しさん
07/12/31 18:49:49
↑
なぜダメか一人でずっと悩んでろ！
492:デフォルトの名無しさん
07/12/31 18:56:41
じゃあ俺は駄目だと思わないから481を使うね。
493:デフォルトの名無しさん
07/12/31 20:43:42
>>489
"*.txt" と "A:\" の間にカンマがないのがダメってこと？
494:デフォルトの名無しさん
07/12/31 20:54:13
CreateObject("Scripting.FileSystemObject").CopyFile "*.txt", "A:\"
495:デフォルトの名無しさん
07/12/31 21:11:40
>>479がダントツで役立たずだな
496:デフォルトの名無しさん
07/12/31 22:14:00
対話的じゃないとかいうオチか？
497:デフォルトの名無しさん
08/01/01 00:29:29
>>478
WScript.Shellという名前からしてWSH専用だろ
498:デフォルトの名無しさん
08/01/01 00:32:29
>>479はCopyFileで*.txt使えること知らずに複数行になるはずと
勘違いしてたに１票
499:481
08/01/01 01:18:11
あっちゃーやっちゃった。すみません。
objFSO.CopyFile "*.txt", "A:\"
↑こうですね・・・・。。。
500:デフォルトの名無しさん
08/01/01 02:35:00
500ゲット！あけおめ
501:デフォルトの名無しさん
08/01/01 13:01:20
>>499
はいそのとおり。
バッチなら COPY *.TXT A:\ で済む、バイトの女の子さえミスしようがない超超超簡単なことさえ
ＷＳＨで書くとミスっちゃうだろ？
ミスの確立が増える。そういうこと。
だから、ＷＳＨがあればＢＡＴはいらない、などとイキガッテないでさ、適材適所で使い分けれ。
それにしても、超～～思うツボだな。わざとミスってくれたのかと思ったよ。
天然だったんだねｗ
502:デフォルトの名無しさん
08/01/01 13:08:20
(ﾉ∀`) ｱﾁｬｰ
503:デフォルトの名無しさん
08/01/01 13:10:06
>ミスの確立が増える。
狙って書いてるのか？ｗ
504:デフォルトの名無しさん
08/01/01 13:20:23
天然だろ
505:デフォルトの名無しさん
08/01/01 14:11:33
>>501
かんじで かくと みすっちゃう だろ？
いきがって ないで ひらがなで かけ。
506:481
08/01/01 14:35:00
>>501
はい、今回WSHで書いて、確かにBatで書いた方が良い場面もある事を痛感しました。
WSHとBatを混合させると言うのはどうなんでしょうか？
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Exec "copyFile.bat"
みたいな。でもこうすると処理が複雑になったときにbatとWSHと行き来するような事になると
なんかバグが出てきそう・・・。その時修正が大変じゃないですかねぇ・・・。
それに出来れば1つのスクリプトファイルで済ませたいし・・・
>>505
ワラタｗ
507:デフォルトの名無しさん
08/01/01 15:02:00
>>503-505
ネット初心者？
508:デフォルトの名無しさん
08/01/01 16:08:59
氏ね
それはこういうやつだろ。「確立」は単なる間違い。
>>506
バッチファイル内のCALLで他のバッチファイルを呼んだ方が解り易いかと。
基本バッチファイルで、足りない機能をWSHでフォローって感じで
書いていけばいいんじゃないかな。
無論、内部・外部コマンドが殆ど不必要なら、直接WSHで書いてしまえばいいし。
509:デフォルトの名無しさん
08/01/01 17:08:23
>>478
リンク先の代替法はSendKeys使っててもひとつやね
VBSファイル作って呼び出すのが確実
510:デフォルトの名無しさん
08/01/01 20:18:13
>>506
おもしろい発想だけど、たとえばＣ言語でこんな・・・
main()
{
system("MKDIR \"C:\\Program Files\\MyApp\"")
system("COPY *.* \"C:\\Program Files\\MyApp\"");
system("ECHO インストールが完了しました。||PAUSE");
}
こんなの書いて、「オレ、Ｃ言語でプログラムかいたおｗ。スゴイでそ！」
なんて言ったら笑われるだけ。他の言語でも同じこと。
511:デフォルトの名無しさん
08/01/01 21:54:49
C言語が使いこなせてるわけではないが
C言語でプログラム書いたというのは事実なわけだが
512:デフォルトの名無しさん
08/01/01 22:43:12
笑われるのもまた事実というわけだ
513:デフォルトの名無しさん
08/01/02 01:32:04
JScriptのマクロ変数の値を出すことできる？
WScript.Echo(@if (@_Win32) 'Y' @else 'N' @end);
はできても、
WScript.Echo(@_Win32);
はできない
514:デフォルトの名無しさん
08/01/02 01:37:34
スレ違い
515:デフォルトの名無しさん
08/01/02 02:13:13
>>513
@変数は、JScript コードでは使えませんよ。
@setや@ifの中でしか使えない仕様です。
>>514
プログラム板で有名な基地害さんじゃありませんかｗ
516:デフォルトの名無しさん
08/01/02 02:53:29
>>513
@_win32じゃね？
>>514
それ見ていつも思うけど
誘導先が書いてないんじゃ無意味なレスじゃね？
517:デフォルトの名無しさん
08/01/02 05:05:50
そうでもないか
518:デフォルトの名無しさん
08/01/02 12:01:50
>>510
ちょｗｗｗｗそれはないですｗｗｗｗｗ さすがにそれはひどい・・・・。
519:デフォルトの名無しさん
08/01/02 15:06:44
で、ドライバがインストールされているかどうかで処理を分岐させることはＷＳＨではどうすれば良いのでしょうか？
520:デフォルトの名無しさん
08/01/02 15:10:57
If Then Else End If
521:デフォルトの名無しさん
08/01/02 19:17:49
>>520
いや、その構文を使うのはわかるけど、 If の後に書く内容ですよ。
どういう風に書いて真偽を返させればいいのかが全く検討がつきません。
If ドライバがインストールされている Then
MsgBox ドライバインストールされてるよ～
Else
MsgBox ドライバインストールされてないよ～
End If
の"ドライバがインストールされている" と言う判定をどう書けばいいのかをお聞きしています。
522:デフォルトの名無しさん
08/01/02 19:27:25
インストールされた状態とされていない状態の差分を調べろ。
レジストリでも覗いとけ。それ以上はこのスレの範囲外。
523:デフォルトの名無しさん
08/01/02 20:45:49
・複数のバイナリファイルの文字列を置換したい。
・置換リストを作って置換したい。
・CUIでもいい。
これらを実行したい場合は、WSHで出来ますか？
524:デフォルトの名無しさん
08/01/02 21:27:49
>>523
WSHとCOM(標準のものだけで事足りる)で出来ますよ
525:デフォルトの名無しさん
08/01/02 22:11:30
バイナリはpowershellのほうが楽
526:デフォルトの名無しさん
08/01/02 22:30:03
>>524
COMとはCOMMAND.COMのことですか？
>>525
win2kは未対応のようで、うちでは使えません。
527:デフォルトの名無しさん
08/01/03 05:08:06
よくActiveXコントロールの事
ActiveXって言う人いるよね。
もちろんActiveXが何かは殆どわかってない人が多い
528:デフォルトの名無しさん
08/01/03 12:46:44
特撮ヒーローの名前だ間違いない
529:デフォルトの名無しさん
08/01/03 16:09:38
>>526
win2kではCMD.EXEだな
530:デフォルトの名無しさん
08/01/03 16:22:51
WSHでバイナリは読めても書くのが大変だから、PowerShell使え
win2kでも誤魔化せば使えるらしい
531:デフォルトの名無しさん
08/01/03 16:38:06
つVBA
532:デフォルトの名無しさん
08/01/03 16:57:36
>>529
そういうボケはいらん
COMコンポーネントだろ
533:デフォルトの名無しさん
08/01/03 17:05:17
そういうボカシタ話はいらん
具体的なProgIDを書け
しらんなら書くな
534:デフォルトの名無しさん
08/01/03 17:32:01
CreateObjectすんのにProgIDとか使わんがな
535:デフォルトの名無しさん
08/01/03 17:40:10
ProgID使わないでどうやってCreateObjectするんだよ。
っていうかググればADODB.Stream使うってすぐ出て来るよね。
536:デフォルトの名無しさん
08/01/03 17:42:03
ADODB.Streamにバイナリ書き込むのが面倒だって
537:デフォルトの名無しさん
08/01/03 18:18:04
WSHでも理論上はできそうだな。
俺は面倒臭がりだからC#で書くけど。
538:デフォルトの名無しさん
08/01/03 20:22:49
>>522
レジストリを覗く・・・それぐらいしか手が無いとは・・・・OTL
539:デフォルトの名無しさん
08/01/03 20:55:40
>>538
WSHはそういうもの
痒いところに手を伸ばすにはダルシムレベルの修行が必要
540:デフォルトの名無しさん
08/01/03 22:37:30
wmi
541:デフォルトの名無しさん
08/01/04 00:19:04
残念ながらそれはハズレだ
542:デフォルトの名無しさん
08/01/04 03:12:15
>>539
別にWSHがそうだから、
とかいう問題じゃなくね？
543:デフォルトの名無しさん
08/01/04 10:01:01
きっとWSH以外ならもっと簡単な方法があるんだろう
僕にもその方法を教えてください
544:デフォルトの名無しさん
08/01/04 11:46:40
そういえばWindowsXPの「プログラムの追加と削除」ってHTAじゃなかったっけ
545:デフォルトの名無しさん
08/01/04 14:37:11
WSHでアイドル時の検出とか出来ませんか？
Windowsのタスクスケジューラでアイドル時検出試してみたのですが
とりあえず1分アイドル時間が続いたら hoge と表示してpauseしてそれから終わらせるスクリプト
をスケジュール登録してみたのですが、 負荷が小さい処理、例えばメモ帳に文字列を
打ち込んでいたり、こうやって2chを見たりしていると、操作しているからアイドルではないのですが
CPUから見るとアイドル状態なので、スケジュールが実行されてしまいます。
やりたい事は パソコンを切るのをしょっちゅう忘れる愚息のパソコンに仕込む事による
省エネ対策です。 1時間以上パソコンを全く触ってないならshutdownさせると。
しかし先ほど述べたように1時間以上2chを見てたりネットサーフィンしている状態だと
操作しているにも関わらずアイドル検出されてしまってシャットダウンされてしまうのでダメです。
MSNメッセンジャの「退席中」表示みたいな、指定時間全くマウスもキーボードも操作しなかったとき
（Inputが全く無い時）にスクリプトを発動させたいのですが、WSHでアイドル時間を取得できませんか？
546:デフォルトの名無しさん
08/01/04 14:40:42
コントロールパネルの電源オプションでよくね？
547:デフォルトの名無しさん
08/01/04 14:41:16
電源管理使えよ
548:デフォルトの名無しさん
08/01/04 15:08:21
レスありがとうございます。
電源オプションのプロパティ ウィンドウを見てみましたが、シャットダウンがありません。
まぁ休止状態で代用してもいいかな？とは思いますが
システム休止状態 の所の 1時間後 にすると、アイドル時間（CPUがアイドルではなく
ユーザによるマウスやキー入力が一切無いアイドル）が1時間経ったら勝手に休止になる
のでしょうか？スレチ？
549:デフォルトの名無しさん
08/01/04 15:13:03
システム休止状態1分で 何もせずに2chブラウザだけ立ち上げた状態で
放置してみましたが、休止状態になりませんでした。
これじゃダメなようです・・・・
550:デフォルトの名無しさん
08/01/05 00:38:59
コントロールパネルの電源
休止状態でOK
551:デフォルトの名無しさん
08/01/05 02:46:07
CPU使用率がとれるとかとれないとか
552:デフォルトの名無しさん
08/01/05 02:49:11
あとDATが定期更新されてるんじゃね
553:デフォルトの名無しさん
08/01/05 20:52:09
HTMLファイル内にWSH(拡張子.vbs）を埋め込んで、ブラウザから機能を実行する事は出来ませんか？
WSH HTML 等で検索してみたのですが、イマイチそういうことを紹介しているページが
見つかりません。
もしくは.vbsファイルの内容をテキストコピーして、 HTMLファイル内に貼り付けて
そのコードを実行させるとかそういうことは出来ませんか？
554:デフォルトの名無しさん
08/01/05 21:02:44
？？？良く分からないんだけど、HTAみたいなのを望んでるのかな。
とエスパーしてみる。
555:デフォルトの名無しさん
08/01/05 21:09:43
ちなみに、WSH関係なく単にVBScriptを書きたいだけなら、
JScript同様、script要素の中に書けるぞ。現状ではIE限定になるが。
556:デフォルトの名無しさん
08/01/05 22:39:11
できません。そんなことできたらずぼずぼの脆弱性だ
557:デフォルトの名無しさん
08/01/05 22:48:54
>>555
<script language="VBScript">
<!--
MsgBox "ハロー"
<--!
</script>
↑みたいな感じでHTMLで実行させる事についての詳細が知りたいのですが、
>>556が言っているように出来ないのでしょうか？
ブラウザでそういうことしたいならJava Scriptとか書くしかないのでしょうか？
でも >>555はできるって言っているし、どういうことなのん？？？
558:デフォルトの名無しさん
08/01/05 22:57:03
それはWSHではなく、VBScriptだろ
559:デフォルトの名無しさん
08/01/05 23:03:41
>>553
>WSH(拡張子.vbs）
このあたりに勘違いを感じる
560:デフォルトの名無しさん
08/01/05 23:47:11
>>557
それくらいは555に書いてあるとおり可能。languageよりtype使えな。
>>556
ネットワーク上に置いてあれば、
FileSystemObjectなどはセキュリティゾーンに従って制限を受ける。
JScriptで自由に使えたXMLHTTPなどはVBScriptでも同様に使える。
いずれにせよWSHは関係なくスレ違い。よそ行け。
561:デフォルトの名無しさん
08/01/06 03:55:36
WSHとIEは一応は別物
が、実際にHTMLでVBScriptが使用される事はまず無い。
VBとVBSも当然違うので
VBSの話がまともに扱われるのは
ここかお前らスレかHTAスレぐらいのものだろう
WSHもIEもHTAもスクリプトが実装されているモジュールは
完全に同一の物。
WSHのマニュアル、と言われているものも実際には
必ずしもWSHのマニュアルではなくWindowsスクリプト、
についてのマニュアル
562:デフォルトの名無しさん
08/01/06 05:30:06
残念､ハズレ
563:デフォルトの名無しさん
08/01/06 09:31:30
>>553 >>557
VBScript HTML で検索したらいいと思うよ。
既に言われてるようにWSHは関係ないので
WSH HTML では見つからないでしょ。
564:デフォルトの名無しさん
08/01/06 12:34:40
unko deta
kimochi ii
565:デフォルトの名無しさん
08/01/06 19:45:03
レジストリエディタを起動すると右側に"名前", "種類", "データ" と標示されますよね。
指定したレジストリキー以下の"名前"を全てフルパスで返して欲しいのですが
どのように記述すれば良いのでしょうか？
Set objShell = WScript.CreateObject("WScript.Shell")
ret = objShell.RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\VIDEO\*")
のようにしても、VIDEO\ 以下の名前の部分のパスは帰ってきませんでした。（何も帰ってこない）
かといって 最後の * を削除しても結果は同じで何も帰ってきませんでした。
On Error Resume Nextを上のほうに書いてあるからエラーにはなりませんが・・・。
やりたい事は、それによってフルパスが得られるなら、For Each文で全てのデータを覗いて
指定した文字列が含まれているかどうかをInStr関数等で検索すると言う事です。
よろしくお願いします。
566:デフォルトの名無しさん
08/01/06 19:53:22
>>565
ワイルドカード使えるなんて何処に書いてある？
ワイルドカードは使えないのが基本で､使えるメソッドにはその旨書いてある物だ
勝手に都合の良い仕様を妄想するな
君のやりたいことを実現するにはWMIを使えば良い
但し､ここはWSHのスレであって汎用コンポーネントのスレではないので後は自分で調べること
と言っても情報は腐るほどあるからググれば簡単に解決するけど
567:デフォルトの名無しさん
08/01/06 19:59:33
>>566
WSH厨ってなんでそんなに偉そうなんだ？
そのくせ関係ないスレに聞かれても無いスクリプト張りまくったりして気持ち悪いな。
568:デフォルトの名無しさん
08/01/06 20:04:29
汎用コンポーネントもこのスレでいいだろ
どうせ使うんだから
569:デフォルトの名無しさん
08/01/06 20:08:50
文句言うだけでサンプルコードのひとつも貼らない君等も同類だと気付いてる？
570:567
08/01/06 20:14:40
？
回答なら566で十分だろ？
俺はただ566が気持ち悪いって書きたかっただけだ。
同類にされたかないね！
571:デフォルトの名無しさん
08/01/06 20:26:49
ゴメン､それ以下だったようだねw
572:デフォルトの名無しさん
08/01/06 20:34:23
教える側はさぞ自分のほうが頭がいいと思い気持ちよくなる。
教えられる側はその代償に回答をもらう。
いいんじゃね？
ﾓﾚだったら表面上では偉そうな態度取らんが、それは人それぞれ。
573:デフォルトの名無しさん
08/01/06 20:39:56
>>572
恥ずかしくならない?
574:デフォルトの名無しさん
08/01/06 22:12:33
>>573
ﾓﾚは恥だと思うから、
＞ﾓﾚだったら表面上では偉そうな態度取らんが、それは人それぞれ。
って事ね。
575:デフォルトの名無しさん
08/01/06 22:13:47
>>566 は氏ねばいいと思いま～～す。
576:デフォルトの名無しさん
08/01/06 22:25:42
>>574
そういうの偉そうに書いちゃうのは恥ずかしくないの?
577:565
08/01/06 23:12:00
私が初歩的な質問をしてしまったばかりにスレが荒れてしまっているみたいで
申し訳ありません。
一応自己解決したので参考までに私がとった手段を書いておきますね。
WMIと言うのは一応調べてみたのですが、イマイチよく分からなかったので
WScript.CreateObject("WScript.Shell").Exec を使って
reg.exe を呼び出す事で処理しました。
reg query キー
とやると、指定したキー内の"名前", "種類", "データ"が全て列挙されるので
1行1行InStr関数にかけて目的のレジストリデータが存在するかどうかを調べる手段を
取りました。一瞬コマンドプロンプトの画面が立ち上がってくるのがちょっと気になりますが
これなら私にもかけました。
アドバイス下さった方、ありがとうございました。
578:デフォルトの名無しさん
08/01/06 23:24:39
>>576
楽しそうだね。
579:デフォルトの名無しさん
08/01/07 00:07:34
>>577
URLﾘﾝｸ(msdn2.microsoft.com)(VS.85).aspx
URLﾘﾝｸ(www.microsoft.com)
580:デフォルトの名無しさん
08/01/07 12:33:33
>一瞬コマンドプロンプトの画面が立ち上がってくるのがちょっと気になりますが
出てこなくする方法もあるけど
それが出ないのが気に入らないっていうひともいるだろうね
581:デフォルトの名無しさん
08/01/07 13:08:42
>>580
おお、そうなんですか？参考までに出てこないようにする方法を教えて頂けませんか？
IEの場合は
objIE.Visible = False
すれば見えなくなりますが、コマンドプロンプトの場合どうするんだろう・・・
582:デフォルトの名無しさん
08/01/07 16:36:53
cmd /?
583:デフォルトの名無しさん
08/01/08 01:46:31
>>562
どれをハズれと言ってるのかよくわからんのだが
まああれだ。
MSがいくら宣伝しても
VBSを使ってる人間は少数派。
というかもはや滅亡の道を歩んでおる
VBS < 壁 < javascript
.NET < 壁 < java
パワーシェル < 壁 < Perlなど
って事だ。
将来性を考えるんなら>>557もVBSはスルーして
JSにしときな
584:デフォルトの名無しさん
08/01/08 02:24:01
でもな、VBSのほうが断然早いんだ。特に配列。
たまにByRef受け取りなパラメータもあったりするし。
585:デフォルトの名無しさん
08/01/08 04:32:21
fsoで移動先に同名フォルダがある場合について質問です。
c:\test\test
というように同じフォルダ名で入れ子になっている環境で、
explorer上でc:\test\testを切り取り、c:\test内で貼り付けて上書きすると
二つのフォルダ内容が融合されますが、これをfsoで実現しようとしています。
Moveは移動先に同名アイテムが存在していてはダメということなので、
まずc:\test\testの中身を先にc:\testに移動させ、
c:\test\testが空になったら削除する。
この際に、
c:\test\test\foo.txt
c:\test\foo.txt
というように移動先のフォルダに同名ファイルが存在した場合、
まずc:\test\foo.txtを削除し、c:\test\test\foo.txtをc:\test\foo.txtに移動させる。
さらに同名フォルダの場合はそれぞれについて再帰的に処理していく。
というような手順を踏まなければならないのでしょうか？
もっとシンプルな方法があるなら教えてくれませんか？
586:デフォルトの名無しさん
08/01/08 05:09:32
>>585
質問は日本語でおねがいします
587:デフォルトの名無しさん
08/01/08 07:09:21
モールスぬるぽ銃乱射 URLﾘﾝｸ(www6.ocn.ne.jp)
1TGBIT ｶﾞｯｶﾞｯｶﾞｯｶﾞｯﾄﾞｶﾞｶﾞｯｶﾞｯ!!!!!
>z/':y★r” ドガガガガガッ ∴ ∧変∧
ル%#*ﾟ∀）＿__｡ ＼从/ ＿ _ ＿☆_ ＿★∴*．｀Д´）/
ノハ つ∞【〔ﾛ=：(∈(二(@ ＞‐― ‐★‐―☆∵*;：*; /
∧★∧
(*ﾟ∀ﾟ)φ―・ ・― ― ―・・― ・・―→ (モールスでｶﾞｯ!)
588:604
08/01/08 07:47:55
>>585
CopyFolderとかなら上書きに関するパラメータがあるみたいだけど。
なんでMoveにはないのかね？
589:604
08/01/08 07:49:08
未来からきてすみません
590:デフォルトの名無しさん
08/01/08 08:23:31
>>583
残念ながらハズレです
591:585
08/01/08 13:46:21
>>586
(´･ω･｀)
>>588
なんでですかねー？ >Moveの上書きパラ
CopyFolderの場合はあくまでCopyなので、後でコピー元を削除するとしても、
一時的に同一アイテムが階層違いで存在してしまうことになってしまいます。
この方法だとサイズの大きいアイテムのときに問題が出てきます。
となると、移動先の同名アイテムを先に削除してから移動させる、
という選択肢しかなくなってしまうと思うんです。
しかしそれがどう考えても複雑な処理になってしまう。
みなさんどうやってるんですか？
592:デフォルトの名無しさん
08/01/08 14:18:12
CopyFolder には上書きオプションがあって
Move には無い。
どこか抜けてるところが、いかにもマイクロソフトらしい。
593:デフォルトの名無しさん
08/01/08 14:31:42
moveは内部renameなのでrenameに上書きがないから
594:デフォルトの名無しさん
08/01/08 15:01:03
>>591
ShellオブジェクトのFolderオブジェクトを使えばできた。
以下、"F:\temp\test\test"を"F:\temp\test"へ上書きするサンプル。
Set objShell=Wscript.CreateObject("Shell.Application")
set objFol = objShell.NameSpace("f:\temp")
call objFol.MoveHere("f:\temp\test\test", &H10)
595:585
08/01/08 15:54:53
>>594
動作確認できました。
ありがとうございますm(_ _)m
しかしこのMoveHereって移動エラー発生時点で処理が中断されるっぽいですね。
スキップさせるにはやっぱり自分で書くしかないですね。
MoveHere.VBS
URLﾘﾝｸ(www.vector.co.jp)
けっこうみんな苦労してるっぽい
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
596:デフォルトの名無しさん
08/01/08 16:15:45
>>595
FolderItemオブジェクトのInvokeVerb使って、
"切り取り(&T)"して"貼り付け(&P)"という手もあると思いますが・・・。
まあ、エラーが出れば止まるのは同じでしょうね。
597:デフォルトの名無しさん
08/01/08 16:46:24
shellのmoveはcopy+deleteだから
598:デフォルトの名無しさん
08/01/08 16:52:30
fsoで
if folderexists then deletefolder
movefolder
がいいんじゃないの
on error使ってもいいけど
599:585
08/01/08 17:26:35
>>596
それって裏でMoveHereが動いてるのでは？
>>597
そのようですね。いろいろ実験してると分かりました。
>>598
それだとフォルダとフォルダのマージにはならないような。
移動先のかぶってないファイルも削除されてしまう。
600:デフォルトの名無しさん
08/01/08 17:29:09
movefileでぐるぐる
601:デフォルトの名無しさん
08/01/08 21:50:28
> まずc:\test\foo.txtを削除し、c:\test\test\foo.txtをc:\test\foo.txtに移動させる。
> さらに同名フォルダの場合はそれぞれについて再帰的に処理していく。
ファイル名とフォルダ名が同じだったらどうするんだろ
602:デフォルトの名無しさん
08/01/08 21:58:05
すきにしてくれ
603:デフォルトの名無しさん
08/01/08 22:24:30
つrobocopy.exe
604:585
08/01/09 06:53:12
>>601
そのへんは考えてあります。
MoveHereの標準動作を見ると
移動先に同名アイテムがない → 移動
移動元：ファイル → 移動先：ファイル → コピー先削除 → 移動
移動元：ファイル → 移動先：フォルダ → エラー（中断）
移動元：フォルダ → 移動先：ファイル → エラー（中断）
移動元：フォルダ → 移動先：フォルダ → マージ（再起処理へ）
ということみたいですが、
ファイル-フォルダ、フォルダ-ファイルの場合の中断は問題があるので
ダイアログでも出すか、スキップするかで対応。
605:デフォルトの名無しさん
08/01/09 16:41:28
cronNTで動かすスクリプトはネットワーク上のファイルにはアクセス出来ないのでしょうか？
var objFSO = new ActiveXObject("Scripting.FileSystemObject");
WScript.Echo((objFSO.DriveExists("\\\\Server\\SharedDocs")).toString());;
というスクリプトをcronNTで動かした場合、falseになります。
606:デフォルトの名無しさん
08/01/09 18:12:05
DriveExists？
607:デフォルトの名無しさん
08/01/09 20:35:09
>>605
それ、cronNTじゃない環境では動くの？
608:デフォルトの名無しさん
08/01/09 23:44:50
>>606
URLﾘﾝｸ(msdn.microsoft.com)
>>607
コピペミスで2行目に ; が1個余分に付いてしまったorz
foo.js というファイル名で保存して、コマンドプロンプトから cscript で実行させれば動きます。
共有フォルダに置いてあるDLL（AutoItX3.dll等）を regsvr32 した後、スクリプト中で
ActiveXObject() して使おうと思い、コマンドプロンプトからの動作確認ではうまく動いたので
cronNT に起動スケジュールを書いておいたら動いてはくれず、色々と調べていたら
共有フォルダへのアクセスに失敗している事が分った次第です。
もし、cronNT が原因で他の類似ソフトでは再現しない問題なら他に良い物が有れば
それに乗り換えようとも思ってます。
ただ、VMware Player の中で動かしている都合
（無料版はディスクイメージの容量を後から大きくするツールが付属しない）で、
しかも既に残り容量にも余裕が全く無い為、
Windows Services for UNIX Version
URLﾘﾝｸ(www.microsoft.com)
の様なのでは無く、もっと軽い物でないと無理です。
609:デフォルトの名無しさん
08/01/10 01:57:32
cronNT類似とか関係なく、例えばWSHとかHTML, HTAなど
他のActive Script実行環境でやるとどうなるか試してみろ。
610:デフォルトの名無しさん
08/01/10 09:00:52
>>608
ちょっとかなりスレ違いっぽいが
cronNTサービスのプロパティを開いて
ログオンをローカルシステムアカウントから自分のアカウントに変えてみて
611:デフォルトの名無しさん
08/01/10 11:28:47
Aというディレクトリに a,b,c,d,e というファイルがありました
それをBというディレクトリにmoveしますが途中で終了してしまい
a,b,cまでしかmoveされませんでした
その後もう一度AをBにmoveしたところ上書きしますか？と聞かれたので
「はい」で最後まで完了したのですがBのナカミを見たところ
d,eしかありませんでした
あるOSで実際に起こった出来事です
612:デフォルトの名無しさん
08/01/10 13:53:18
で？
613:デフォルトの名無しさん
08/01/10 15:46:01
＞それをBというディレクトリにmoveしますが途中で終了してしまい
「それ」 とは何か。具体的に書け。
614:デフォルトの名無しさん
08/01/10 16:54:33
>「それ」 とは何か。具体的に書け。
単数形だから「Aというディレクトリ」じゃね
615:デフォルトの名無しさん
08/01/10 17:24:00
>611
最初のmoveにより、ディレクトリAからファイルa,b,cが消えた。
その状態でディレクトリAを再びmoveさせれば、ディレクトリBにファイルd,eしかないのも別におかしくないだろ。
616:デフォルトの名無しさん
08/01/10 20:57:58
普通はディレクトリとその中身のファイルは別だからねぇ。
ディレクトリを移動（上書き）というのはディレクトリ自体の移動ではなく中身の移動のことだし。
中身の移動であるという観点から見れば、上書きが発生すること自体おかしな話だわな。
617:デフォルトの名無しさん
08/01/10 21:32:01
なぜ 「それ」 が問題なのかというと、
Aというディレクトリを move せずに
a,b,c,d,e というファイルを move すればよかったんだよ。
「それ」 が A なのか a,b,c,d,e なのかで結果が違ったんだね。
618:デフォルトの名無しさん
08/01/10 21:57:15
Macはどうでもいいよ。
619:デフォルトの名無しさん
08/01/11 17:16:43
a,b,c,d,e なら「それら」だろ
620:デフォルトの名無しさん
08/01/11 20:19:27
>>611
ご愁傷さま
621:デフォルトの名無しさん
08/01/11 20:56:54
URLﾘﾝｸ(www.microsoft.com)
を JScript に移植したくて以下のように書きましたが、実行すると
xxx.js(4, 1) SWbemServicesEx: 無効なクエリです。
というエラーで止まってしまいます。
どこが間違っているでしょうか？
var strComputer = ".";
var objWMIService = GetObject("winmgmts:\\\\" + strComputer + "\\root\\CIMV2");
var colMonitoredEvents = objWMIService.ExecNotificationQuery(
"SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " +
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " +
"TargetInstance.GroupComponent= " +
"'Win32_Directory.Name=\"c:\\\\scripts\"'");
while (true)
{
var objLatestEvent = colMonitoredEvents.NextEvent;
WScript.Echo(objLatestEvent.TargetInstance.PartComponent);
}
622:デフォルトの名無しさん
08/01/11 20:58:28
>>611
次から気を付けようなｗ
623:デフォルトの名無しさん
08/01/11 20:59:57
>>622
ここが間違ってる
var colMonitoredEvents = objWMIService.ExecNotificationQuery(
"SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " +
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " +
"TargetInstance.GroupComponent= " +
"'Win32_Directory.Name=\"c:\\\\scripts\"'");
624:621
08/01/11 21:09:46
>>623
すみません、書き方が悪かったです。
どこが間違ってるかはエラーメッセージが教えてくれているのでわかってました。
どう直せばいいんでしょうか？
625:デフォルトの名無しさん
08/01/11 21:41:29
デバッグくらい自分でしろ～
他人に投げるな～～
626:デフォルトの名無しさん
08/01/11 21:42:52
var colMonitoredEvents = objWMIService.ExecNotificationQuery(
"SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE "
+ "Targetinstance ISA 'CIM_DirectoryContainsFile' and "
+ "TargetInstance.GroupComponent= "
+ "'Win32_Directory.Name=\"c:\\\\\\\\scripts\"'");
627:デフォルトの名無しさん
08/01/11 22:38:22
wwww
628:621
08/01/15 17:17:28
>>626
ありがとう
629:デフォルトの名無しさん
08/01/18 06:33:04
CreateObject("ADODB.Stream")
上記でエラーがでます。
おそらく、ファイルが必要だと思うのですが、
それはどうやったら手に入りますか？
630:デフォルトの名無しさん
08/01/18 07:29:28
>>629
とりあえずエラーの内容書いてみ
631:デフォルトの名無しさん
08/01/18 21:42:53
>>629
MSからダウンロードに決まってるだろ
632:デフォルトの名無しさん
08/01/18 22:22:49
標準で入ってない環境、まだあったっけ？
633:デフォルトの名無しさん
08/01/19 09:49:15
FileSystemObjectとか称してテキストファイルの読み書きしか出来ないの？
fread,fwriteとかseekのメソッドを提供してるクラスって無いの？
634:デフォルトの名無しさん
08/01/19 09:59:08
出来ない
ADODB.Stream
635:デフォルトの名無しさん
08/01/19 15:46:30
ADODB.Stream ってファイル全体をいっぺんに読み込んでしまうよね？
デカイ動画ファイルの 最初の数バイトだけ 読み込んで処理したいけど
ファイル全体を読み込んでしまうため時間がかかってしょうがない。
何か良い手は無いですか？
636:デフォルトの名無しさん
08/01/19 16:18:25
FileSystemObjectで読む
637:デフォルトの名無しさん
08/01/19 22:25:52
PowerShellやC#に逃げる
638:デフォルトの名無しさん
08/01/20 01:04:11
↑
自分の殻に閉じこもる現実逃避型。
639:デフォルトの名無しさん
08/01/20 01:25:31
debugでダンプする
640:デフォルトの名無しさん
08/01/20 17:01:36
殻＝shell
641:デフォルトの名無しさん
08/01/20 22:13:18
basp21
642:デフォルトの名無しさん
08/01/20 22:46:52
客先のＰＣにbasp21がインストールしてあれば苦労しないよ
643:デフォルトの名無しさん
08/01/20 23:24:23
スクリプトをインストール(=使用準備なので何処かのディレクトリにスクリプト置くだけでインストールになる)は可能なのに
COMコンポーネントのインストールは不可なんて馬鹿げたことを言い出すような低レベルな奴など相手にするな
こんなこと言い出すのは､嫌レジストリ厨とか"インストール"の意味を分かってない奴とか､相当な初心者の類だが､
もし"客先"ってのが会社なら､そんな奴がシステム管理においての権限を持ってるなんてゾッとしないねw
まあそれ以前にWSHスクリプトを外注する会社ってのもアレだけどw
644:デフォルトの名無しさん
08/01/20 23:37:16
FileSystemObjectなら使えるだろうに、なぜ使わん？
645:デフォルトの名無しさん
08/01/21 00:12:46
スクリプトの中で COM みつからなかった初回のみ regsrvr32 すれば？
646:デフォルトの名無しさん
08/01/21 00:14:43
>>635
> デカイ動画ファイルの 最初の数バイトだけ 読み込んで処理したいけど
とのことだ。
バイナリは無理だろ。
647:デフォルトの名無しさん
08/01/21 00:15:20
>>646 は >>644 へのレスね。
648:デフォルトの名無しさん
08/01/21 01:28:09
OpenBinaryFile()
649:デフォルトの名無しさん
08/01/21 01:50:38
> バイナリは無理だろ。
何が？
650:デフォルトの名無しさん
08/01/21 01:55:19
FSOでってことだろ
651:デフォルトの名無しさん
08/01/21 04:47:12
ForBinaryReading
652:デフォルトの名無しさん
08/01/21 10:21:14
それは今回の用途とは違うわけで
653:デフォルトの名無しさん
08/01/21 16:21:14
baspをbase64してwsfに入れて実行時に登録
654:デフォルトの名無しさん
08/01/21 16:36:19
すなおにＶＢで作って納品４６
655:デフォルトの名無しさん
08/01/23 01:59:20
VBSファイルごとにアイコン変える方法おすえて
656:デフォルトの名無しさん
08/01/23 02:11:42
>>655
ショートカット作って、ショートカットのアイコン変えるとか
657:デフォルトの名無しさん
08/01/24 21:41:26
そういうアイコンハンドラを使えばいいんじゃね
なければ作ればいいんじゃね
658:sage
08/01/31 00:57:14
１．WSHを使って指定ＵＲＬをＩＥから立ち上げる
２．（１）のＵＲＬのＨＴＭＬに含まれるjavascriptを解析して
自動で実行したい
ＷＳＨで１．はできると思うのですが、２はできますでしょうか？
できるのであればヒントを教えていただけぬか
659:デフォルトの名無しさん
08/01/31 00:59:05
HTMLDocument
660:デフォルトの名無しさん
08/02/01 20:30:46
最近 WSH を始めた者です。
WSHShell の Run メソッドでアプリを起動して使おうとしているんですが、
普通にアイコンをダブルクリックして起動した場合と挙動が違って困っています。
とりあえずわかったことは、そのアプリは ¥Document and Settings¥ユーザ名¥
Application Data¥アプリ名 以下に一時ファイルを作るんですが、WSH から
起動した場合ファイルが生成されないようです。
WSH の場合でもちゃんと走るようになる為には何か別途設定がいるのでしょうか?
今は基本的に WSHShell.Run(アプリのバス, 4, True) を呼んでるだけです。
661:デフォルトの名無しさん
08/02/01 21:42:20
>>660
カレントディレクトリを設定しろ
設定仕方はWSHヘルプに載ってるので嫁
662:デフォルトの名無しさん
08/02/02 07:34:31
>>661
どうもです。
>WSHヘルプ
すみません、実はこれが何を指すのか分からん程度なんですがw
>カレントディレクトリを設定しろ
URLﾘﾝｸ(msdn.microsoft.com)
によると CurrentDirectory というプロパティがあるそうなのでこれを適宜セット
する、で正解ですか?
で、できたらどんな値にセットするかも教えていただけると助かるのですが...
もしかしたらWSHヘルプというものにそれが書いてあるんでしょうか。
逆に考えると、普通にダブルクリックで起動したアプリではカレントディレクトリが
適宜セットされているから動く、ということでしょうか? もしそうなら一体どんな値になって
いる? という疑問がわきますが...
663:デフォルトの名無しさん
08/02/02 08:38:11
右クリック-プロパティ
664:デフォルトの名無しさん
08/02/02 09:38:40
通常はダブルクリックしたものがあるディレクトリがカレントディレクトリとなる。
665:デフォルトの名無しさん
08/02/02 11:10:49
>>662で言ってる CurrentDirectoryって Windows2000にデフォルトで入ってるWSHでは
動きませんよねぇ。なんか代替のメソッド無いですかね？
666:デフォルトの名無しさん
08/02/02 13:14:22
>>665
Win2Kでも、WSH5.6なら、("Wscript.Shell").CurrentDirectryが使える。
インストール直後のバージョンは、どうだったかな‥
古いWSHでも、("Wscript.Shell").Run """ショートカットファイル.lnk""",,False なら
問題ない。False設定しか使えなくなっちゃうけども。
Wscript.ScriptFullName のほうは今回無関係ですかね。
667:デフォルトの名無しさん
08/02/02 16:33:34
そのスクリプトファイルのショートカットを作って作業フォルダを設定しろ
668:デフォルトの名無しさん
08/02/03 02:07:27
WSHでファイルを読み取り専用に変えることはできますでしょうか？
669:デフォルトの名無しさん
08/02/03 02:20:08
readonly属性をつけることならできるな
670:デフォルトの名無しさん
08/02/03 03:43:53
>>669
それです。教えてください。
671:デフォルトの名無しさん
08/02/03 17:41:54
Attributes=1
672:デフォルトの名無しさん
08/02/03 18:09:40
ヘルプみろ
673:662
08/02/04 06:06:35
>>664
なるほど。その値でうまくいくようです。ありがとうございます、
674:デフォルトの名無しさん
08/02/06 16:53:29
質問です。
現在、VBSCriptで各ディレクトリのアクセス権限を
テキストに書き出す仕組みを作成しています。
コマンドは下記のようになっております。
CACLS <ディレクトリ名> >> <出力ファイル>
ディレクトリ名、出力ファイル名はパラメータとして受け取り、
文字列を結合してWshShell.Runに渡しております。 ・・・【1】
ここで問題なのですが、【1】の文字列をコピペして
DOSプロンプトで実行すると、正しく出力がされているのですが、
WshShell.Runにて実行すると、正しく出力されません。
この部分のコードは下記のようになっております。----------*
Command = "CACLS " & DIRName & " > " & ExportFileName
objShell.Run Command ' WShellオブジェクトは生成済み
--------------------------------------------------------*
恐れ入りますが、どなたかこのような現象を経験されておりましたら、
解決策の指南のほどよろしくお願いいたします。
675:デフォルトの名無しさん
08/02/06 18:26:05
>WShellオブジェクトは生成済み
ソース全部貼るべき
「・・・【1】」って違う場所に書いてない？
676:デフォルトの名無しさん
08/02/06 18:27:44
＞WshShell.Runにて実行すると、正しく出力されません。
とはどうなるのだ？
677:デフォルトの名無しさん
08/02/06 19:11:25
Set objShell = WScript.CreateObject("WScript.Shell")
Command = "CACLS %cd% > out.txt"
objShell.Run Command
これで試してみたけど、うまくいかないね。
Command = "cmd /c cacls～
ではうまくいくけど。
678:デフォルトの名無しさん
08/02/06 20:04:10
%windir%\system32\cacls.exeと指定したらどう？
679:デフォルトの名無しさん
08/02/06 21:50:01
リダイレクトはシェル(cmd.exe)の機能。
680:デフォルトの名無しさん
08/02/07 06:34:50
フルパス指定でも無理
681:674
08/02/07 09:15:53
皆さんご回答ありがとうございます。
＞＞WshShell.Runにて実行すると、正しく出力されません。
＞とはどうなるのだ？
パラメータ無しで実行したCACLSのように、ヘルプが表示されます。
経過ですが、
>>677さんの"cmd /c cacls～"で試してみたところ、うまくいきました。
大変お世話になりました。
682:デフォルトの名無しさん
08/02/08 12:25:55
タクススケジューラの引数について質問です。
Windowsタクススケジューラで設定した引数が渡ってこない（WScript.Arguments.Count = 0）のです。
同じパス（コマンドライン）で作ったショートカットを実行すると引数が渡ってくる（WScript.Arguments.Count > 0 ）のです。
実際に試した記述は、「c:\test.vbs abc」と「c:\test.vbs "abc"」と「"c:\test.vbs abc"」です。
何か特別な記述方法などあるのでしょうか？
先輩方、よろしくご教授ください。
683:デフォルトの名無しさん
08/02/08 13:36:44
cmd /c c:\test.vbs abc
684:デフォルトの名無しさん
08/02/08 15:31:49
先輩！ありがとうございました！
685:デフォルトの名無しさん
08/02/08 21:29:01
ファイルをドラッグアンドドロップしたらパスを表示するスクリプトが動きません。
どこを直せばよいか教えてください。
var strArgument = new Array();
if ( WScript.Arguments.count() == 0 ) {
WScript.Echo ("コマンドライン引数が指定されていません。");
}
else {
for ( strArgument in WScript.Arguments ) {
WScript.echo ( strArgument[i] );
}
}
686:685
08/02/08 21:37:42
スクリプトをダブルクリックした時は正常作動しますが
ファイルをドロップすると何も表示されません。
スクリプトエラーも出ないので困っています。
687:デフォルトの名無しさん
08/02/08 22:03:46
コマンドライン引数が指定されているからに決まってるだろ
688:デフォルトの名無しさん
08/02/08 22:04:54
var strArgument = new Array();
if ( WScript.Arguments.count() == 0 ) {
WScript.Echo ("コマンドライン引数が指定されていません。");
}
else {
WScript.Echo ("コマンドライン引数が指定されました。");
}
689:デフォルトの名無しさん
08/02/08 22:18:40
for ( strArgument in WScript.Arguments ) {
WScript.echo ( strArgument[i] );
}
これ、なにしてるの？
690:デフォルトの名無しさん
08/02/08 22:42:40
>>688
var strArgument = new Array();
これ、なにしてるの？
691:デフォルトの名無しさん
08/02/08 22:52:48
URLﾘﾝｸ(msdn.microsoft.com)
692:デフォルトの名無しさん
08/02/08 23:25:21
>>685
// var strArgument = new Array();
if ( WScript.Arguments.count() == 0 ) {
WScript.Echo ("コマンドライン引数が指定されていません。");
} else {
for (i = 0; i < WScript.Arguments.length; i++ ) {
WScript.echo ( WScript.Arguments(i) );
}
}
.vbsファイルしか作った事がないけど、なんとなく.jsファイルはこれで動くんじゃないかなぁと・・？
693:デフォルトの名無しさん
08/02/08 23:56:38
>>692
> if ( WScript.Arguments.count() == 0 ) {
count はメソッドじゃなくプロパティ。
694:デフォルトの名無しさん
08/02/09 00:10:28
>>693
えー？
695:685
08/02/09 00:12:24
>>692
動きました。ありがとうございます。
只今WSHをJScriptで書こうと、vbsのスクリプトを翻訳しながら勉強中です。
でもJSのサンプルコードが少なくて困ってました。
今回は元コードに配列を使っているように見えたので、それらしく書き換えたけど動きませんでした。
なんでここまで違いが出るのか、まだ理解してませんw
↓元のサンプルコード
Option Explicit
Dim strArgument
If WScript.Arguments.Count = 0 Then
WScript.Echo "コマンドライン引数が指定されていません。"
Else
For Each strArgument In WScript.Arguments
WScript.Echo strArgument
Next
End If
696:デフォルトの名無しさん
08/02/09 00:28:24
>>695
実際にはいろいろな書き方ができるので、余計に混乱してるのかも。
元のスクリプトになるべく忠実に対応させるなら、以下のような書き方もできる。
if (WScript.Arguments.length == 0) {
WScript.Echo("コマンドライン引数が指定されていません。");
}
else {
var e = new Enumerator(WScript.Arguments);
for (; !e.atEnd(); e.moveNext()) {
WScript.Echo(e.item());
}
}
697:デフォルトの名無しさん
08/02/09 00:31:07
for (var e = new Enumerator(WScript.Arguments); !e.atEnd(); e.moveNext()) {
すっきり
698:デフォルトの名無しさん
08/02/09 00:41:48
>只今WSHをJScriptで書こうと、vbsのスクリプトを翻訳しながら勉強中です。
なぜ？遅いのに。いろいろ細かいことにうるさいのに。などなど
699:デフォルトの名無しさん
08/02/09 01:35:29
マイクロソフトの公用言語はＢＡＳＩＣ
ゲイツはＢＡＳＩＣ長者
ｊａｖａ には裁判で負けた恨みが有る
700:デフォルトの名無しさん
08/02/09 09:13:38
WSHは使うけど、今はもうVBScriptでは書かないなあ。
JavaScript(JScript)のある意味変態的な言語仕様に慣れてしまったら戻れない。
701:デフォルトの名無しさん
08/02/09 14:37:22
↑
変態
702:693
08/02/09 15:58:20
>>694
> >>693
> えー？
といわれてMSDN見てきた。
URLﾘﾝｸ(msdn.microsoft.com)
プロパティとメソッド、両方あるな……。
ふだんはJScriptで length 使うか Enumerator にして扱ってるんで、
確認不足で適当に書いてしまった。スマソ
703:デフォルトの名無しさん
08/02/09 16:38:49
＞プロパティとメソッド、両方あるな……。
プロパティを見るとメソッドになってて、メソッドしかないような
704:デフォルトの名無しさん
08/02/09 17:18:48
動きさえすればどっちでもいいよ
705:デフォルトの名無しさん
08/02/09 17:22:03
with (WScript.Arguments) {
WScript.Echo(Count());
WScript.Echo(length);
WScript.Echo(Count); // エラー
}
706:デフォルトの名無しさん
08/02/09 20:48:58
basp21のsocketって非同期通信できませんか？
データ取得できたらコールバック関数を呼びたいんですが。
接続できなかった場合とかタイムアウトになるまで
他の処理ができない
707:685
08/02/09 23:10:36
昨日教えてもらったスクリプトを、テキストに出力しようとしたら働きません。
また教えてください。
var objFso = new ActiveXObject("Scripting.FileSystemObject");
var objFile = objFso.OpenTextFile("testdirlist.txt", 8, true);
var path String();
objArgs = WScript.Arguments;
for (i = 0; i < objArgs.length; i++)
{
path = path + objArgs(i) + "\n";
}
//WScript.Echo(path);//←働く
objFile.WriteLine(path);//←働かない
objFile.Close();
708:685
08/02/09 23:13:59
×var path String();
○var path = String();
709:デフォルトの名無しさん
08/02/09 23:46:55
絶対パスにすれば
710:デフォルトの名無しさん
08/02/10 00:18:19
var path = "";
で
711:685
08/02/10 00:30:39
>>709
動きました！
712:デフォルトの名無しさん
08/02/11 12:28:54
WSH 5.1(Win2k)環境でカレントディレクトリを変更したいのですが
Set foo = WScript.CreateObject("WScript.Shell")
foo.CurrentDirectory =
と言った.CurrentDirectoryプロパティはWSH 5.6(WinXP)以降の環境でしか動作しません。
もちろんWin2kのWSHをバージョンアップすれば動くのですが、それは手間がかかる為
やらずに解決したいと思っています。
やりたい事は、WSHスクリプトファイル(仮にhoge.vbs)と同じ階層に scriptと言うフォルダがあり、
そのフォルダの中に var.bat と言うファイルがあるとして
Set objShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(".")
objShell.Run f.path & "\script\var.bat"
等として、他のフォルダ内の実行ファイルを実行したいのです。
しかし実際にコレをやると、指定されたファイルが見つかりません とエラーが表示されて実行できません。
確かにファイルは存在しますし、WScript.Echo f.path & "\script\var.bat" とかやってパスを確認しても
正しいパスです。
なので、カレントディレクトリを実行ファイルのある場所に移動しないと実行できないのかなと
考え、CurrentDirectoryを変更する方法を考えているのですが・・・
普通に考えてCurrentDirectoryを変更せずとも実行できるはずですよねぇ・・アドバイス頂けませんか？
713:デフォルトの名無しさん
08/02/11 12:37:49
パスをだぶるくぉーてーしょんで囲みなさい
714:デフォルトの名無しさん
08/02/11 14:26:29
>>713
レスありがとうございます。
strDrv = strCurrent & "driver\install.bat"
↑これで、カレントディレクトリ\driver\install.bat がstrDrv に入ります。
その後
objWshShell.Run strDrv
で、今までは出来ませんでした。なのでこれを" " で囲みます
objWshShell.Run "strDrv"
しかしこうすると、strDrvと言う文字列を起動しようとしてしまい、strDrvが変数として扱われず
単なる文字列として扱われるため動作しません。
objWshShell.Run ""strDrv""
として、"をエスケープしてみてもだめ～ とか考えてたら
strDrv = strCurrent & "driver\install.bat"
strDrv = """" & strDrv & """"
WScript.Echo strDrv
objWshShell.Run strDrv
これでいけました。最初の"が文字列の開始、 中2つの"が 文字列としての純粋な"を表し
(""で"を単なる文字列としてエスケープ)、最後の"が文字列の終了を表すダブルクォート・・・
結局 """" となり、非常に分かりにくいというか、混乱する形になったのですが、こんなもんなんでしょうか？
715:デフォルトの名無しさん
08/02/11 14:47:54
こんなもんです
716:デフォルトの名無しさん
08/02/11 16:13:45
>>714
Python がお勧め
717:デフォルトの名無しさん
08/02/11 16:15:22
strDrv = Chr(18) & strDrv & Chr(18)
718:デフォルトの名無しさん
08/02/11 17:42:26
>Set f = fs.GetFolder(".")
>objShell.Run f.path & "\script\var.bat"
objShell.Run ".\script\var.bat"
719:デフォルトの名無しさん
08/02/11 18:10:32
>>716
>>712
720:デフォルトの名無しさん
08/02/11 23:38:48
>>714
Ｃ言語やjavaだって "\"" みたいな、「たいへん分かりにくい混乱する表記」
になるから、こんなもんです。
もし、コードをスッキリさせたかったら、
Const QQ = """"
strDrv = QQ & strDrv & QQ
もしくは
strDrv = Q( strDrv )
Function Q(ByVal str)
Return """" & str &""""
End Function
みたいな方法がありますよ。（自分は後者をよくつかう）
721:デフォルトの名無しさん
08/02/12 01:25:32
Chr(34)は？
722:デフォルトの名無しさん
08/02/12 07:40:18
"自分は後者をよくつかう"って､使えるの､それ？
723:デフォルトの名無しさん
08/02/12 16:41:25
うん
724:デフォルトの名無しさん
08/02/12 16:56:37
＞みたいな
コードはイメージです
725:デフォルトの名無しさん
08/02/12 20:18:12
>>724
実際のコードとは異なる場合があります。
726:デフォルトの名無しさん
08/02/12 20:24:57
>>722
使えない
727:デフォルトの名無しさん
08/02/12 23:32:48
使わない
728:デフォルトの名無しさん
08/02/12 23:43:08
使われない
729:デフォルトの名無しさん
08/02/13 00:07:38
こんばんです。１つ質問させてください。
vbsでプログラムを組んでいるのですが、vbs親プログラムからvbs子プログラムを
起動は出来ないのでしょうか？
～～～～～vbs親プログラム内～～～～～～～～～
Set objWshShell = WScript.CreateObject("WScript.Shell")
strCmdLine = "sub_program.vbs str01 str02 "
objWshShell.Exec(strCmdLine)
この記述で「sub_program.vbs」を引数２つ与えて起動できると思うのですが出来ません。
尚、コマンドプロンプトで[sub_program.vbs str01 str02]実行すると正常に起動します
修正点がありましたらお教えいただけないでしょうか。
730:デフォルトの名無しさん
08/02/13 00:16:04
>>729
strCmdLine = "cscript sub_program.vbs str01 str02 "
または
strCmdLine = "wscript sub_program.vbs str01 str02 "
と記述する必要がある。
コマンドプロンプトでは、"たまたま" cscriptまたはwscriptが省略できる。
731:729
08/02/13 00:23:32
>>730
ありがとうございました。無事起動すること出来ました。
コマンドプロンプトでは"たまたま"省略可能なんですか・・・
732:デフォルトの名無しさん
08/02/13 07:49:15
という事はExplorerでアイコンをダブルクリックすれば起動するのも"たまたま"だね。
733:デフォルトの名無しさん
08/02/13 08:13:26
//H:でたまたまを切り替えられる。
734:デフォルトの名無しさん
08/02/13 09:19:40
どう考えても>>721が正解
735:デフォルトの名無しさん
08/02/13 16:36:06
たまたまだけど、これもできる
strCmdLine = "sub_program.vbs str01 str02 "
objWshShell.Run(strCmdLine)
736:デフォルトの名無しさん
08/02/13 21:57:32
>>735
おまえ､何も解ってないな
737:デフォルトの名無しさん
08/02/14 00:12:08
そうだな、解るように言ってやれ
738:デフォルトの名無しさん
08/02/15 21:53:59
var fso= WScript.CreateObject("Scripting.FileSystemObject");
var d = fso.GetDrive(fso.GetDriveName("Q:\\"));
if(d.IsReady){ ...
とやってDVD-ROMドライブが準備できているかどうか調べているのですが、
DVDを入れて認識している最中にIsReadyが実行されるとウィンドウズ自体が数秒止まってしまいます
バックグラウンドで動かしていてもフォアグラウンドアプリまで停止してしまうので困っているのですが
これを回避するにはどうしたらいいのでしょうか？
739:デフォルトの名無しさん
08/02/15 22:14:09
FSOで問題あるときはShell.Applicationを使ってみるのが定石
740:デフォルトの名無しさん
08/02/16 06:37:35
ドアラ グッドウィルドームに立つ!
再生：654,421 | コメント：123,256 | マイリスト：20,510
URLﾘﾝｸ(www.nicovideo.jp)
凄い勢いで踊るドアラ
再生：482,525 | コメント：28,129 | マイリスト：17,837
URLﾘﾝｸ(www.nicovideo.jp)
ドアラが異端になった経緯
再生：424,284 | コメント：36,521 | マイリスト：9,417
URLﾘﾝｸ(www.nicovideo.jp)
ドアラーズブートキャンプ
再生：241,338 | コメント：18,996 | マイリスト：7,229
URLﾘﾝｸ(www.nicovideo.jp)
741:デフォルトの名無しさん
08/02/16 13:36:40
>>738
ドライブ認識動作中にエクスプローラとかでドライブにアクセスしても凍るから
アクセスするタイミング悪いと凍るのは仕様じゃね？
>>739
Shell.ApplicationにIsReadyはないけどな
742:デフォルトの名無しさん
08/02/16 17:20:40
Shell.Applicationで取れる情報で変化するものを見つければ？
743:デフォルトの名無しさん
08/02/18 16:30:09
Sub プロシージャとFunction プロシージャの違いって
Function プロシージャが戻り値を返すのに対してSub プロシージャが値を返さないって言うだけですか？
744:デフォルトの名無しさん
08/02/18 16:51:11
End XXX
Exit XXX
がちがう
745:デフォルトの名無しさん
08/02/18 19:34:19
>>744
End Sub
End Function
が違うって言うのは分かりますし、Functionの場合のみ Function名 = 値 で値を返す事が出来る
のも分かりますが(Javaで言うコンストラクタに値代入したらreturn文みたいな振る舞いすんのな）
Exit Sub Exit Function というのがあるのですか？それはいったいどういう・・・？
単に終わらせるだけですか？ 呼び出し元に戻りますか？
746:デフォルトの名無しさん
08/02/18 21:25:12
Javaなんかのreturnみたいにプロシージャの呼出元へ戻るだけ。
747:デフォルトの名無しさん
08/02/18 21:50:22
>>745
ヘルプも見れないのか
748:デフォルトの名無しさん
08/02/19 22:10:48
WSH(拡張子.vbsのファイル)で
カレンダを表示するプログラムを作成しました。
出力はMsgBoxでしてます。
こんなかんじ
MsgBox strResult, , "カレンダ"
これを、携帯電話からも実行できるようにしたいと考えました。
携帯のカレンダがあるじゃないかと言われると困るのですが・・・
便宜上カレンダと言っているだけで、実際は他の物を出力するので。
イメージ的にはカレンダというと一番伝わりやすいので・・・。
で、そのアイディアとして、サイト上に掲載すればいいと考えました。
携帯のブラウザからそのサイトにアクセスした際に.vbsで作ったのと同じような出力が
得られれば良いのですが、これを実現するのに簡単な方法は無いでしょうか？
今のところ私に考え付くのは JavaScriptを勉強してJavaScriptに書き直して
やるぐらいかなぁと思っているのですが、そんな事しないとやっぱ出来ませんか？
そうなると関数とか文法とかいろいろ勝手が違うでしょうから覚え直しですかね？・・。
.vbsファイルの出力のWeb版を作りたいみたいな感じです。よろしくお願いします。
749:デフォルトの名無しさん
08/02/19 22:16:13
携帯もまだJavaScriptは実行できないぞ。
ASPと言って、Windowsサーバ上でVBScriptやJScriptをCGIのように実行する環境があった。
お前が欲しいのはきっとそれに違いない。
問題は、世間がASP.NETへ移行しつつあるということ。
ASP.NETはC#とかVB.NETとかを使うまた別物。
750:デフォルトの名無しさん
08/02/19 23:00:35
>>749
.vbsファイルを携帯に渡しても実行できるわけないし、じゃあ現状だと携帯でコレを実現
するのは難しいんでしょうか？
仮に携帯で実現するのが難しいとして、ブラウザに実装･･と言うか
第三者がWebブラウザでアクセスしてきた時に表示するようなのは
JavaScriptになりますかね？
751:デフォルトの名無しさん
08/02/19 23:01:39
すれ違い
よそへいけ
752:デフォルトの名無しさん
08/02/19 23:02:43
それって、なんか実行時に入力するパラメータあるんかな？
ないんならタスクマネージャで定期的に実行して、
TXTかHTMLに出力したのをサーバに自動アップするような環境をつくって、
携帯でそれを見に行けばいいような気がするが。
753:デフォルトの名無しさん
08/02/19 23:12:23
>>752
おお！なんか凄いアイディア聴けた！
えっとですね、1日に1回更新されるので、1日に1回実行してやればいいですね。
後はそれをTXT・・・には出来るのかなぁ・・・ ああ、そうか MsgBoxじゃなくてFileに出力
してやればいいんだ・・・ ああ、HTMLからそのTXTにリンクを貼るってのもありだし、
HTMLの中にそのTXTの内容を直接埋め込むのもありか！凄い！なるほど！
ちょっと試行錯誤してみます。ありがとうございましたっ！
754:デフォルトの名無しさん
08/02/19 23:27:45
>>752
ありがとうございました！
Dim objFso, txtFile
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set txtFile = objFso.OpenTextFile("hogehoge.txt", 2, True)
txtFile.Write strResult
txtFile.Close
Set txtFile = Nothing
Set objFso = Nothing
こんなコードで生成できました！後はこの.txtファイルにHTMLでリンク貼れば完璧！
本当にお世話になりました～
755:デフォルトの名無しさん
08/02/19 23:57:23
>>753-754
ただのテキストを吐き出すついでにHTMLにすればいいんじゃないの？
756:デフォルトの名無しさん
08/02/20 00:29:27
>>755
いやーそれが、やろうと思ったのですが、出来なくて・・・。
やろうと思ったらかなり大変だと思いますが、簡単に出来るもんでしょうか？
757:756
08/02/20 00:30:22
Replace strOutStrings, vbCrLf, "<br>"
とかやって、改行を<br>に置き換えようとかやってみたんですが、うまくいきませんでした。
758:デフォルトの名無しさん
08/02/20 00:47:19
>>756
With txtFile
.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""URLﾘﾝｸ(www.w3.org)"">"
.Write "<html lang=""ja"">"
...
End With
こんな感じで書き出せばいいだけだろ。
>>757
そのテキストをpre要素の中に入れてしまうというのはどうだ？
759:デフォルトの名無しさん
08/02/20 00:47:33
Dim objFso, txtFile
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set txtFile = objFso.OpenTextFile("hogehoge.htm", 2, True)
txtFile.Write "<HEAD><TITLE>うんこやろ～</HEAD></HEAD>"
txtFile.Write "<BODY>"
txtFile.Write "<CENTER>なんか文句あっか！</CENTER>"
txtFile.Write "</BODY>"
txtFile.Close
Set txtFile = Nothing
Set objFso = Nothing
760:デフォルトの名無しさん
08/02/20 00:51:57
そういえばむかし、こんなんやってたな。
10 OPEN "INDEX.HTM" FOR OUTPUT AS #1
20 PRINT #1,"<HEAD><TITLE>ハナクソ</TITLE></HEAD>"
30 PRINT #1,"<BODY>"
40 PRINT #1,"<CENTER>うんこちんちん！</CENTER>"
70 PRINT #1,"</BODY>"
90 CLOSE #1
100 SYSTEM
これを N88BASIC.EXE /T:RUN"HOGE.BAS" で定期的に動かして
コンテンツを更新してた。
古きよき時代。
761:756
08/02/20 16:22:22
>>758
それやろうとしたんですが、HTMLファイル中の" を ""と置き換えないといけないのが面倒でした。
HTMLって意外と"を使いますし。
それに.txtファイルに出力してしまって HTMLからリンクを貼るだけの方がとても楽だったので・・。
それにしてもWithステートメントかぁ、ヘルプを見て初めて知りましたが、こんな便利なのが
あったんですね。今までだったら txtFile. を何度も書かないといけなかったのに、これを知った
おかげで完全修飾しなくてすむからもっとコードが楽にスッキリかけそうです。ありがとうございます。
＞そのテキストをpre要素の中に入れてしまうというのはどうだ？
これもまた素晴らしいアイディアだと思います。考え付きませんでした。
確かにそれなら簡単ですね。なるほどなるほど・・・。
しかしどうして>>757のコードで 改行が <br> に置き換わらないのでしょうか？
>>759
＞txtFile.Write "<HEAD><TITLE>うんこやろ～</HEAD></HEAD>"
この行</HEAD>が2個あります。</TITLE>の間違いでしょうか(内側のHEAD)
>>760
へぇ・・・そんな時代があったんですかぁ～・・・。
762:デフォルトの名無しさん
08/02/20 16:34:20
Replaceは結果を戻り値に返すからこう使わないといけないはず。
strOutStrings = Replace(strOutStrings, vbCrLf, "<br>")
""がうざいのは、
ダブルクォーテーションではなくシングルクォーテーションを使うとか、
（属性はシングルでいい。でもDOCTYPEはわからない）
先頭（head要素が終わるまでくらい）をテキストに用意しておいて、
txtFileの頭にそれを書き出すとかでどう。
.Write objFso.OpenTextFile("c:\header.txt", 1).ReadAll
763:デフォルトの名無しさん
08/02/20 16:46:23
＞HTMLって意外と"を使いますし。
ならJScriptつかえよ
HTMLタグをつけるメソッドもあるし
764:デフォルトの名無しさん
08/02/20 17:58:02
>>763
DOMのことならVBScriptからでも使えるだろ。
765:デフォルトの名無しさん
08/02/20 18:18:23
Stringオブジェクトのことだろ
766:デフォルトの名無しさん
08/02/20 18:45:06
でもあまり使えるメソッドがないな
767:デフォルトの名無しさん
08/02/20 19:49:38
HTMLタグをつけるメソッドを付けた奴は、きっと浮かれ過ぎていたんだろうな。
後でcreat以上に恥ずかしい思いをしたに違いない。
768:デフォルトの名無しさん
08/02/20 20:09:23
JScriptだから好きなメソッドが追加できるよ
.quote()なんてのもいいんじゃね
769:デフォルトの名無しさん
08/02/20 20:15:50
anchor(anchorString), big(), blink(). bold(), fixed(),
fontcolor(colorVal), fontsize(intSize), italics(), link(linkstring),
small(), strike(), sub(), sup()
確かに今更これらを使う気にならない
770:756
08/02/20 22:51:33
>>762
＞strOutStrings = Replace(strOutStrings, vbCrLf, "<br>")
あ、なるほど、確かにそうだ・・・失敗失敗・・・。
＞先頭（head要素が終わるまでくらい）をテキストに用意しておいて、
txtFileの頭にそれを書き出すとかでどう。
なるほどねぇ・・・参考になります。
>>763
JScript使った事無いので全然知りません。
>>769
が言っている事がさっぱり分からない・・・
771:デフォルトの名無しさん
08/02/20 23:13:16
俺もJScriptは使わないけど、ヘルプはあるんでJScriptのヘルプより抜粋。
> anchor メソッド参 照
> link メソッド| String Object メソッド | String Object プロパティ
>
> 対象: String オブジェクト
> 必要条件
> バージョン 1
> String オブジェクトに格納されている文字列の前後に HTML の NAME 属性を指定する <A> タグを挿入します。
>
> strVariable.anchor(anchorString)
> 引数
> strVariable
> 必ず指定します。String オブジェクトの名前またはリテラルを指定します。
> anchorString
> 必ず指定します。アンカー タグの NAME 属性に挿入する文字列を指定します。
> 解説
> anchor メソッドを呼び出すと、String オブジェクトから名前付きアンカーが作成されます。anchor メソッドの使用例を次に示します。
>
> var strVariable = "これはアンカーです";
> strVariable = strVariable.anchor("Anchor1");
> 2 つ目のステートメントの実行後、変数 strVariable は次の値になります。
>
> <A NAME="Anchor1">これはアンカーです</A>
> このメソッドの実行時には、<A> タグが既に元の文字列内にあるかどうかの確認は行われません。
後の関数も似たようなもんだろ。さすがにこれはどうかね・・・
772:デフォルトの名無しさん
08/02/23 10:32:49
BASP21のSpaceメソッドほどではない。
# あれは馬場さん自身「作者の無知からくる全くのゴミメソッド」なんておっしゃってたな...
773:デフォルトの名無しさん
08/02/23 10:43:06
｜BASP21メソッド編
｜ 1. BASP21のSpaceメソッドはなんであるの
｜ えーとこれは、作者の無知からくる全くのゴミメソッドです。
｜ HTML でスペースをあけるのに全角のスペースを使うことがありますが、
｜ IMEでなぜか入力できなかったから（IMEのプロパティが半角スペースになっていただけ）。
｜ たぶん、誰も使ってないと思いますがどうでしょう。
babaq さんオッチョコチョイ杉ﾜﾛﾀ
せっかくだから今度どこかで無理矢理にでも使ってあげようっと
774:デフォルトの名無しさん
08/02/23 12:50:03
あれはあれで便利だからなくさないで欲しい
775:デフォルトの名無しさん
08/02/23 13:30:14
吉岡照雄のOn Error Resume Nextの正しい使い方とやらを読んだんだが、
こんな面倒なことをしないといけないのか・・・
776:デフォルトの名無しさん
08/02/23 15:11:12
>>775
On Error Resume Nextの正しい使い方教えて～
777:デフォルトの名無しさん
08/02/23 15:23:10
Subプロシージャを毎回作るのはいいけど、さらに複数行の時は入れ子。。。
Subプロシージャだらけになって大変すぎ
778:デフォルトの名無しさん
08/02/23 16:39:25
ファイルの日付をデータベース(ACCESS)に格納できねぇーー
strSQL = "INSERT INTO Log " & _
" (Name " & _
" ,Date " & _
" ,SIZE) " & _
"VALUES ('" & fol.Name & "'" & _
" ,#" & fol.DateCreated & "#" &_ '←ここがおかしいらしい
" ," & fol.Size & ")"
なんか
『Insert into ステートメント の 構文エラーです』
とか出るんだけどなにがおかしいのか・・・
779:デフォルトの名無しさん
08/02/23 17:27:26
文字列にフォーマットし直してから渡せ
780:デフォルトの名無しさん
08/02/23 18:51:51
はぁー？
781:デフォルトの名無しさん
08/02/23 18:55:22
問題はそのフォーマットだろ
782:デフォルトの名無しさん
08/02/23 19:22:20
SQLの構文に合った書式に変換されるとは限らないってこった。
一旦、年月日時分秒をバラバラにして、構文に合わせた書式に作り替えればいい。
書式は自分で調べてくれ。
783:デフォルトの名無しさん
08/02/23 20:40:43
#mm/dd/yyyy hh:mm:ss#
で渡すといいよ。VBScriptはFormat関数ないから面倒だ。
784:デフォルトの名無しさん
08/02/23 21:39:48
コードそのままで[地域のプロパティ] を変更するといいよ
785:デフォルトの名無しさん
08/02/23 22:21:37
capicom.dllが再頒布可能かどうかが調べてもさっぱり分からないんだが
786:デフォルトの名無しさん
08/02/23 22:31:22
WSHってマウスクリックも出来ないし、.SendKeysメソッドで日本語扱えないしで
やっぱりAutoHotKeyには到底かなわない？
787:デフォルトの名無しさん
08/02/23 22:40:13
>>785
URLﾘﾝｸ(www.microsoft.com)
このパッケージには、CAPICOM 2.1.0.1 の再頒布可能なファイルとそのサンプルが含まれています。
788:デフォルトの名無しさん
08/02/23 22:47:45
>>787
そこだけみると、間違いなく再頒布可能なファイル=CAPICOM.dllな気がするんだが、
DLしてライセンス(英語)を読むと、
再頒布可能なのは、REDIST.TXTに記載されたものと書いてあるが、
REDIST.TXTなんてどこにもない・・・
ググってもググってもはっきりどこにも書いてないorz
789:デフォルトの名無しさん
08/02/23 23:40:10
>>788
URLﾘﾝｸ(msdn2.microsoft.com)
ここだと「再配布可能な CAPICOM ActiveX control」と表現してる。
Platform SDK で CAPICOM で ActiveX control なのは capicom.dll しかないので限定できる。
The Platform SDK contains CAPICOM samples, API documentation, and the redistributable CAPICOM ActiveX control.
というか考えすぎと思う。
再配布して意味のあるものは capicom.dll しかないんだし。
790:デフォルトの名無しさん
08/02/23 23:43:07
>>779
#とか'とか何度もやったし
>>781
Accessに設定したフォーマットは、yyyy/mm/dd hh:mm:ssで、
DateCreatedも書式一緒だからそのままにした
>>782,783
Dim day, m, n, strDt, strEd
strDt = "2090/02/23 00:00:00"
day = Split(strDate, " ")
m = Split(day(0),"/")
n = Split(day(1), ":")
strEd = m(1) & "/" & m(2) & "/" & m(0) & " " & n(0) & ":" & n(1) & ":" & n(2)
WScript.Echo strCom
煩雑だ
>>784
[英国]とか[米国]でもダメだけどorz
フィールド名にDateはダメだったの？
Dateから日付に直したらできたよ
ふぉぉぉぉぉっふぉおおおっ！！
791:デフォルトの名無しさん
08/02/24 00:08:27
>>789
確かにそういうことですね。私の考えすぎでした。
これで、capicom.dllを一緒に配布できるってことか。
一緒に配布している例が見あたらなくって、
どうしてMicrosoftからDLさせるところばっかりなんだろう？と、思ってました。
どーもです。
792:デフォルトの名無しさん
08/02/24 00:26:28
>>791
>どうしてMicrosoftからDLさせるところばっかりなんだろう？と、思ってました。
これについてはセキュリティリスクが関係すると思う。
同梱は可能であっても、同梱してしまうとバグやセキュリティ問題で capicom が更新されたとき、
企業責任として製品自体の更新版を出すことを検討しなければならない。
別途ダウンロードさせる場合にはそれは必要ない。