WSH(・∀・)ｽﾚｯﾄﾞ!

WSH(・∀・)ｽﾚｯﾄﾞ! ..

449:デフォルトの名無しさん
05/12/10 07:58:12
>>445
もうTeraTermとか、マクロを持っている通信ソフトに任せろYO

450:デフォルトの名無しさん
05/12/11 01:22:51
ActivePerlはバイナリが扱えるのが大きいな。
python？布団はｼﾗﾈ

451:デフォルトの名無しさん
05/12/17 10:03:42
WSHで作成したシェアウェアってあるの？

452:デフォルトの名無しさん
05/12/17 10:34:00
あるよ

453:デフォルトの名無しさん
05/12/20 05:16:03
WSHはスクリプトを実行する環境であってそれを使って何かを作成するわけじゃない

454:デフォルトの名無しさん
05/12/24 10:26:03
WindowsAPIのSendMessage関数を利用してWM_COPYDATAメッセージを用いて
目的のウィンドウにデータを飛ばす方法はあるでしょうか・・
検索して、DLLファイル（この場合、user32.dll?）を利用する方法があるらしいとは判明したのですが・・
URLﾘﾝｸ(homepage3.nifty.com)

どうすればよいでしょうか。
指定ウィンドウにデータを渡すのに、上記以外にも良い方法がありましたら解説を伺えれば幸いです。

455:デフォルトの名無しさん
05/12/24 11:15:21
>>454
そこにも｢DLLの一部の関数を使うことができます。｣と書いてある通り、
全ての関数がその方法で呼べる訳じゃない。
とりあえず引数に構造体を使う(ことがある)関数は呼べないと思った方がいい。

SendMessageを使いたければDynaCallなどを利用して関数を呼ぶとか
SendMessage関数を呼べるCOMを導入するとかしな。

456:デフォルトの名無しさん
05/12/24 11:25:07
>>455
ご回答ありがとうございます。

>とりあえず引数に構造体を使う(ことがある)関数は呼べないと思った方がいい。

そうなんですか。。
WSHの標準機能のみでは、その回避できない問題なのでしょうか。。

>SendMessageを使いたければDynaCallなどを利用して関数を呼ぶとか
>SendMessage関数を呼べるCOMを導入するとかしな。

検索していると、DynaCallの文言を時々見かけました。
内容が記述されているところを探して見ます。
ありがとうございました。

457:デフォルトの名無しさん
05/12/24 11:28:18
run()やexec()を用いてアプリケーションを起動する時に、
アプリへの引数に文字数制限はあるのでしょうか？

458:デフォルトの名無しさん
05/12/24 11:33:06
>>457
WSHとは関係ない普通のコマンドラインの制限だけだろ。

459:デフォルトの名無しさん
05/12/25 02:41:44
255

460:デフォルトの名無しさん
06/01/06 23:26:34
VBSでMSIEのCOMを使用した際の、質問をさせてください。
OSはWindows2000 SP4で、使用したのはWSH ver5.6です

documentオブジェクトからallコレクションを取得したいのですが
document内でname=allを使用したエレメントがあるため

document.all で allコレクションではなくて
そのエレメントが取得されてしまいます
最終的にdocument.all.tagsが使いたいのですが
document.all以外の方法で
全エレメントのコレクションを取得する方法はありますか？

質問スレが見当たらなかったのですが
もっと適切なスレがあれば教えてください。
よろしくお願いいたします。

461:デフォルトの名無しさん
06/01/07 00:36:51
>>460
これじゃ代わりにはならない？
URLﾘﾝｸ(msdn.microsoft.com)

462:460
06/01/07 01:11:27
>>461
リンク先を読んだところ、childnodesを辿ればできそうです。
ありがとうございました！

463:デフォルトの名無しさん
06/01/09 17:17:09
WSHのいい開発環境が何かあれば、教えてください。

464:デフォルトの名無しさん
06/01/09 17:26:29
メモ帳最強

465:デフォルトの名無しさん
06/01/09 17:38:28
>>463
おまえが実際に使ってみて"いい開発環境"だと思った物が
おまえにとって"いい開発環境"だ。

俺にとって（･∀･）ｲｲ!!ものが､おまえにとっても（･∀･）ｲｲ!!ものだとは限らないので
具体的なソフト名は伏せておく。

466:デフォルトの名無しさん
06/01/09 19:35:06
>>463
Microsoft Visual Web Developer 2005 Express Edition

467:デフォルトの名無しさん
06/01/09 21:19:03
>>465
> おまえが実際に使ってみて"いい開発環境"だと思った物が
> おまえにとって"いい開発環境"だ。

ダウト!! でしょ。

もっといい環境を知ってしまったら、それまでいい環境と思っ
てたものが糞環境になってしまう。

っていう経験はしたことないのか？

まあ、後半は同意だが。

468:デフォルトの名無しさん
06/01/09 22:05:14
ﾜﾛﾀw
こんなｱﾌｫもいるのか

469:デフォルトの名無しさん
06/01/09 23:28:02
同意

470:デフォルトの名無しさん
06/01/09 23:45:01
救命胴衣

471:デフォルトの名無しさん
06/01/11 08:07:39
これは救えない

472:デフォルトの名無しさん
06/01/11 08:23:16
ホント､467みたいなバカってどこにでも居るのな

473:デフォルトの名無しさん
06/01/11 08:31:37
467は日本の恥。人間の屑。地球のゴミ。大宇宙の神秘。

474:デフォルトの名無しさん
06/01/11 12:34:00
ヤバい。>>467ヤバい。まじでヤバイよ、マジ(r

475:デフォルトの名無しさん
06/01/13 08:59:53
自然数 N が与えられたとき、
1 から N までの数字を N 個並べる組み合わせをすべて
列挙するプログラムは WSH で書くとどうなりますか？

例えば N = 3 のとき
1 2 3
1 3 2
2 1 3
2 3 1
3 1 2
3 2 1
となるようにです。
よろしくおながいします。

476:デフォルトの名無しさん
06/01/13 09:07:30
>>475
何処ににどう並べたいのか知らないけど
普通に乱数使ってやればいいだけの話

それが解らないようだとこの板にくるのは30分早い
まあ､頭のデキ次第では｢数年早い｣かもしれないがな
予備知識が無くたって､並の知能を持ってれば
この程度のことは30分も調べればわかる

477:デフォルトの名無しさん
06/01/13 09:50:03
>>476
組み合わせをすべて列挙するのに乱数要るのか・・・？

478:デフォルトの名無しさん
06/01/13 10:05:26
ごめん､別スレで煮た質問有ったんで勘違いしてた
乱数じゃなくて二進数だな
どっちにしろわけないものだがな

479:デフォルトの名無しさん
06/01/13 10:07:09
>475
順列を全て書き出したいって事？
「順列アルゴリズム」で検索すればいろいろヒットすると思うが。
WSHにこだわらなければ↓とか。
URLﾘﾝｸ(www.vector.co.jp)

480:デフォルトの名無しさん
06/01/13 12:11:13
では >>478 のプログラムを拝見しましょうか。

481:デフォルトの名無しさん
06/01/13 12:18:48
で?

482:デフォルトの名無しさん
06/01/13 12:49:44
定期的に起動するVBSを書いています。
VBSの中でMSIEのCOMを使用してIEを開いているのですが、
その時にウインドウのフォーカス（？）がとられてしまいます。
これを回避する方法はないでしょうか？

OSはWindowsXP SP2です。
Dim objIE
Set objIE = CreateObject("InternetExplorer.application")
objIE.Offline = true
objIE.Navigate LoginURL
Do While objIE.Busy = True
Loop
Do While objIE.readyState <> "4"
Loop

483:デフォルトの名無しさん
06/01/13 21:10:41
もう一度自分にフォーカスすればいいんじゃない？

484:デフォルトの名無しさん
06/01/14 05:27:28
Offlineである必要がどうしてもあるなら妥協せざるをえない

485:デフォルトの名無しさん
06/01/14 15:12:49
>>479
糞ソフトの宣伝乙

486:デフォルトの名無しさん
06/01/14 17:12:56
>475
基本をちゃんと理解しておけば後は簡単、パズルみたいなもんだ。
分からないところがあったら、こまめに教官に聞きに行け。
授業料払ってるんだから分かるまで何度でも聞きに行け。

487:デフォルトの名無しさん
06/01/14 18:24:26
>>475
素直に組めばこんなもんかな

Option Explicit

Permutation 9

Private Sub Permutation(N)
WScript.Stdout.WriteLine "N = " & CStr(N)
Dim A(): ReDim A(N - 1)
Dim I: For I = 0 To N - 1: A(I) = I + 1: Next
PermutationSub A, 0, N - 1
End Sub

Private Sub PermutationSub(A, N, M)
If N <= M Then
Dim I
For I = N To M
Swap A(N), A(I):PermutationSub A, N + 1, M: Swap A(N), A(I)
Next
Else
WScript.Stdout.WriteLine Join(A, " ")
End If
End Sub

Private Sub Swap(X, Y)
Dim W: W = X: X = Y: Y = W
End Sub

うちの環境だと、N が 568 以上だとスタックオーバーフローするけどな。

488:デフォルトの名無しさん
06/01/17 09:04:37
選択した文字を右クリックメニューからＷｅｂ検索するものを作る事は可能ですか。ＷＳＨで

489:デフォルトの名無しさん
06/01/17 09:21:14
> 選択した文字を右クリックメニューから
どこで選択した文字を､何の右クリックメニューから検索したいのか知らないけど
選択した文字列をスクリプトで取得出来るならどうにでもなる。
ブラウザ上の右クリックとかなら簡単に出来るし。(具体的な方法はググれ)

490:デフォルトの名無しさん
06/01/20 19:45:28
何かいい方法がありませんでしょうか？

wshでVBScriptを動かし、
VBScriptのループ内でsqlplusを使用してinsertを繰り返し行いたいとします。

まずVBScriptの始めに
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "sqlplus aaa/bbb@dbname"
を行い、sqlplusを起動、DBコネクトを行います。
その後、sqlplusに対して、コマンド(insert文)を実行させたいのですが、
やり方がわかりません。

491:デフォルトの名無しさん
06/01/20 19:52:11
オラクルの使い方はDB板で聞けよ。

492:デフォルトの名無しさん
06/01/20 19:56:42
>>491 ＤＢ版で逆のことを言われました。
DBとは直接関係ないので質問の形式を変えます。

wshで起動したDOSプロンプトにコマンドを渡すやりかたはないですか？

493:デフォルトの名無しさん
06/01/20 19:58:35
だな
wshと言うより､VB構文+DBって感じだし

494:デフォルトの名無しさん
06/01/20 20:05:34
>>490
sqlplus xxx/xxx@xxx < ファイルとリダイレクトを使うか、
sqlplus xxx/xxx@xxx @ファイルでコマンドをわたせる。
どっちにしろいったん中間ファイルに書き出す必要がある。

495:デフォルトの名無しさん
06/01/20 20:12:47
>>494
１つのファイルを読み込んで、INSERTを何回も行う仕様なんですよ。
でもSQLローダーではできないんですよ（ちょっとファイル形式が複雑で）。
で、PL/SQLも仕様できない（DBサーバー上にファイルがあるわけではないので）。

なので、VBScriptでファイルを読んで、SQL部分はsqlplus経由で行おうとしてます。
sqlplus使わないでODBCでやるなら簡単なんですけど、事情があって、sqlplus経由でやりたい。

INSERT一回ごとにコネクト開閉するわけにもいかないし、
一旦コネクトしておいて、そこで何度もSQL実行できればいいのですが。。。

496:デフォルトの名無しさん
06/01/20 20:33:32
>>495
標準入出力をスクリプトから制御したいならこの辺だな。
URLﾘﾝｸ(www.microsoft.com)

497:デフォルトの名無しさん
06/01/21 11:36:37
↓のように１行ごとにInsert発行せずに
　insert into t1(col1, col2, col3) values ('A', 'B', 'C')　実行
　insert into t1(col1, col2, col3) values ('D', 'E', 'F')　実行
１回の実行で複数件Insertした方がいいのでは？
　insert into t1(col1, col2, col3)
　select 'A', 'B', 'C' from dual
union all
　select 'D', 'E', 'F' from dual　実行

498:デフォルトの名無しさん
06/01/21 12:12:34
>>497
すでにWSHは何の関係もないね。
ついでなんで答えると無名プロシージャでまとめて送るのが普通。
他のDBでも複数の命令をまとめて送るバッチ送信モードがあるから探してみたらいい。
sqlplus　やldrの使い方はoracleスレにいってね。

499:デフォルトの名無しさん
06/01/21 17:20:36
IEを操作したいと奮闘中です
xxx という名前がついたテキストボックスがあるのですが、
状態によっては hidden になり、入力の必要がない場合があります
xxxがテキストボックスなのかhiddenなのかを判別する方法はありますでしょうか？
よろしくお願いいたします

500:デフォルトの名無しさん
06/01/21 19:44:00
>>499

<input id="inputText" type="text" />
<input id="inputHidden" type="hidden" />
<script>
alert(inputText.type); 　 // text
alert(inputHidden.type); // hidden
</script>

501:デフォルトの名無しさん
06/01/31 11:46:34
IEを立ち上げた時、ほかのアプリやブラウザの陰にならず、IEが必ず見える
ようにするにはどうすればよいでしょうか?

502:デフォルトの名無しさん
06/01/31 11:59:38
>>501
つ AppActivate

503:488
06/01/31 14:33:08
ＩＥ上で選択した文字が取得できません＞＜getとかヘルプ検索したけど＞＜

504:デフォルトの名無しさん
06/01/31 14:50:16
>>503
document.selection.createRange().text
かな

505:デフォルトの名無しさん
06/01/31 22:31:46
IEでコンテンツ上のテキストとかを選択できなくしたいのですが、
できますか？

506:デフォルトの名無しさん
06/01/31 22:40:50
>>505
<div unselectable="on">……</div>
のようにする。

507:デフォルトの名無しさん
06/01/31 23:02:59
>>505
そろそろスレ違いですよ
URLﾘﾝｸ(www.microsoft.com)

508:デフォルトの名無しさん
06/02/01 00:15:48
>>506
ありがとうございます

>>507
何のことだかわかりません
誰かと勘違いされてますか？

509:デフォルトの名無しさん
06/02/01 02:36:21
>>508
ここで聞くことじゃない

510:デフォルトの名無しさん
06/02/02 23:22:23
wshをこれから使う予定なんですが、エディタなにがいいっすか？？

511:デフォルトの名無しさん
06/02/02 23:26:54
めもてふ

512:デフォルトの名無しさん
06/02/02 23:28:08
>>510
[スタートメニュー]→[プログラム]→[アクセサリ]→[メモ帳]

513:デフォルトの名無しさん
06/02/02 23:41:25
WSHって言うからには、窓ＯＳでしか使えないんですよね？

514:デフォルトの名無しさん
06/02/03 00:17:35
>>513
おぬしががんばって他のＯＳでインタプリタつくればできるかもしれん。ぞ。

515:デフォルトの名無しさん
06/02/03 00:31:42
>>510
Microsoft Visual Web Developer 2005 Express Edition

516:デフォルトの名無しさん
06/02/03 00:43:48
>>510
有料のやつですね。

4千程度なら買ってもいいんですが、無料エディタの中で良いものないでしょうか？？
現在terapad使ってるんですが

517:デフォルトの名無しさん
06/02/03 00:49:08
>>515のは無料
URLﾘﾝｸ(www.microsoft.com)

518:デフォルトの名無しさん
06/02/03 01:57:41
>>517
どこからダウンロードしていいのかわかりません。
どこでしょうか？？

519:デフォルトの名無しさん
06/02/03 03:15:55
そんな餌に俺様が

520:デフォルトの名無しさん
06/02/03 04:52:04
>>516
俺が良いと感じるものを､お前が使って良いと感じるとは限らない。
結局自分で試さないと｢良い物｣なんて見つからないわな。

つーかググればすぐ出てくるソフトの名前教えて貰って､落とすところがわからないとか
こいつは､自分で探そうとか試そうとかいう気が全く無いんだな。

以後放置しましょうか。

521:デフォルトの名無しさん
06/02/03 10:03:35
落とすところがわからないって…
さすがにそこまで来ると、どこか悪いんじゃないかと心配になったり。

522:デフォルトの名無しさん
06/02/06 19:48:27
それは出来ないんじゃないか？
ライセンスしてくれなかったはず。

523:デフォルトの名無しさん
06/02/07 08:29:16
はっきりと「頭が悪い」と言わない>>521の優しさに惚れそうでつ

524:デフォルトの名無しさん
06/02/16 14:59:52
いまVBSでVISIOを操作しようとしているんですが、
対象ファイルが既に起動済みの場合の対処で困っています

起動済みのファイルが既に立ち上がっていた場合
その立ち上がっているファイルを操作するには
どうしたら良いでしょうか？

GetObjectでファイルを指定しても操作できず
Visio.ApplicationもエラーでGETできませんでした

やっぱり起動済みの場合はMsgbox等で警告して
終了してから実行するしかないでしょうか？

携帯からですいませんが、助言をお願いします

525:542
06/02/16 18:21:39
普通にできました
ただの勘違いでした
スレ汚しすんません

526:デフォルトの名無しさん
06/02/26 20:17:50
ひつもんです。

現在アクティブなCOMオブジェクトをリアルタイムに
ブラウジングするツールのようなものは無いでしょうか？
できればフリーでダウンロード可能なツールがいいんですが。
とろしくお願いします。

527:52あ6
06/02/26 20:21:45
すいまえん検索したらこんなのがありましたが

Oleview.exe: OLE/COM Object Viewer
URLﾘﾝｸ(www.microsoft.com)

これ無料ダウンロードして誰でも使っていいもんでしょうか？

528:52あ6
06/02/26 20:27:40
すいません。フリーダウンロードってかいてありました。
日本語版は無いんですよね？
おさわがせして失礼しました。

529:デフォルトの名無しさん
06/02/26 21:17:59
>>528
>日本語版は無いんですよね？
パッチなら
URLﾘﾝｸ(hp.vector.co.jp)
注意：バージョンが合うかどうか不明。

530:デフォルトの名無しさん
06/02/26 21:21:15

　質問する　 →　検索する

　　　　↑　　　　　　　　↓

　新たな疑問　 ←　自己解決

無限ループって怖くね？

531:デフォルトの名無しさん
06/02/26 21:25:22
>>530
じゃあ、最初にもっと根本的なところの疑問から解決していこうよ。
まず、いい開発ツールってない？
デバッグできる奴がほしいんだけど。

532:デフォルトの名無しさん
06/02/26 23:25:36
>>531
あるよ

でもこの手のこと言い出す奴って､｢Aが出来るツール｣って言っても､
Aだけ出来れば満足ってことではなく､今使ってるツールに対する
不満点がAなわけだから､Aが出来るツールを教えても､今まで使ってた
ツールで出来てたBが出来なくなれば､今度はそこに不満を感じるわけで､
教えても虚しい結果に終わるだけだから具体的なソフト名は伏せる。

｢いい開発ツール｣の｢いい(良い)｣ってのも､同じものでも人によって評価の変わる
非常に曖昧な表現だし。
まぁ､この板の住人なら最終的には必要な物は自分で作れってことでFAだからな。

533:デフォルトの名無しさん
06/02/28 12:47:06
WSHからimagemagick使ってるんですが
URLﾘﾝｸ(images-jp.amazon.com)
この画像を変換（リサイズ）しようとするとエラー吐いて止まっちゃう。
ほとんどのファイルは大丈夫なんだけど特定のファイルはだめみたい。
これは画像のデータが壊れているということ？

URLﾘﾝｸ(www.hawk.34sp.com)
スクリプトはここのをほぼそのまま使ってるんですが
エラーを吐くのはImagemagickのようです。
エラーの出る条件がよくわかりません。どなたか・・・

534:533
06/02/28 12:59:09
画像をDLしなおしたらできた
DLの失敗かもしれないので上は無かったことにして下さい

結構頻繁に起きるので解決にならないけど・・・

535:533
06/02/28 16:34:43
WSHから呼んでいるときにwaitかけてないからエラーがでるのかな・・・
javascriptでwaitってどうやってかけるんだろう

vbs使ってsleep使うしかないのか

</チラシの裏>

536:デフォルトの名無しさん
06/02/28 20:21:35
<package>
<job id="vbs">
<script language="VBScript">
WScript.Sleep 100
</script>
</job>

<job id="js">
<script language="JScript">
WScript.Sleep(100);
</script>
</job>
</package>

537:デフォルトの名無しさん
06/03/10 01:02:29
WSHでcmdやnetshのようなシェルプログラムを実行させるにはどうしたらいいでしょうか
例えば、以下のような複数行のコマンドを実行する場合などです。
cd　c\temp
temp.exe

538:デフォルトの名無しさん
06/03/10 05:09:34
>>537
cmd.exeやnetsh.exeのような実行ファイルを実行したいという意味なら、
URLﾘﾝｸ(msdn.microsoft.com)

cdしたいという意味ならCurrentDirectoryに値を代入。
URLﾘﾝｸ(msdn.microsoft.com)

標準入出力を操作したいというなら、
URLﾘﾝｸ(msdn.microsoft.com)

539:デフォルトの名無しさん
06/03/11 22:14:27
>>538
知りたかったのは3番目の方法です。
ありがとうございました。

540:http://www.vector.co.jp/soft/win95/util/se072729.html
06/03/18 21:37:53
TextSS　のWindowsXP(Professional)64bit化おながいします

もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？

そういや64bitにネイティブ対応している２ｃｈブラウザてありましたっけ？

541:デフォルトの名無しさん
06/03/18 22:03:16
マルチもここまで多くのスレで展開されるとある意味感心する。
但しマルチ質問には答えないのが慣わしなんで､知ってるが回答は控えておくことにする。

542:デフォルトの名無しさん
06/03/27 23:45:04
VBSファイルの置いてあるパスを取得するというか
自分自身のファイルパスを取得するにはどうしたらいいですか

543:デフォルトの名無しさん
06/03/28 00:08:30
URLﾘﾝｸ(msdn.microsoft.com)

544:デフォルトの名無しさん
06/03/29 19:06:08
*.lnkで起動するファイルがあるディレクトリの親ディレクトリを開きたいんだけど、
これをスクリプトでできないですか？
とりあえず、*.lnkファイルをエディタで開いて中身を見てみようとしたけど、これを開くと
リンク先のファイルが開かれて、*.lnk自体の中身を見ることができない、、
フォーマットが分からないとどうしようもない。
というより、スクリプトに渡しても、リンク先のファイルを渡したことになるのかな。
どうにかなりませんか？

545:デフォルトの名無しさん
06/03/29 19:28:17
TargetPath
ParentFolder

546:デフォルトの名無しさん
06/03/31 00:00:05
>>544
ファイルの中身を覗きたいならバイナリエディタを使え

547:デフォルトの名無しさん
06/04/07 21:24:50
>>546
lnkファイルってこんな構造だったの？w
おれずっとエディタで読めると思ってた、勘違いしてたよw
㌧

548:デフォルトの名無しさん
06/04/08 23:14:29
Set xh = CreateObject("MSXML2.XMLHTTP")
On Error Resume Next
If Err <> 0 Then
Err.Clear
　　Set xh = CreateObject("Microsoft.XMLHTTP")
End If
xh.Open "GET", Url, False
xh.Send
If Err <> 0 Then Exit Function

上記Scriptでxh.Sendを実行してから次のステップに進むまで4秒くらい（URLはyahooやInfoseekなどどのサイトでも）
かかりますがみなさんもそのくらい、時間がかかりますか？

OSはWinXPです。

549:デフォルトの名無しさん
06/04/09 00:37:23
>>548
Windows板いきな

550:548
06/04/09 00:41:53
>>549
そうします

551:デフォルトの名無しさん
06/05/03 16:55:59
スマン、誰かMSXMLのSAX使う方法教えてくれ。
Set reader = CreateObject("MSXML2.SAXXMLReader)
迄は分かるんだが、
reader.contentHandler = ←ここがわからん
reader.parseURL("...")

探し方が悪いのか見つけきれない……orz

552:デフォルトの名無しさん
06/05/03 17:13:18
> Set reader = CreateObject("MSXML2.SAXXMLReader)
> 迄は分かるんだが、
全然わかってないってことじゃんw
Set reader = CreateObject("～")
は調べるまでもなくわかることだし。

まあとりあえずリファレンスでも読んでこい。
リファレンス読んで解らないなら､ここで説明しても理解できないだろうし。

553:551
06/05/03 22:06:15
スマン自己解決……というか「出来ない」ってのが分かった。

>>552
> 全然わかってないってことじゃんw
> まあとりあえずリファレンスでも読んでこい。
説明足らなかった。ゴメン。
サンプルとしてMSDNのJumpStart for Creating a SAX2のVB版とC++版が有ったんだが、IVBSAXContentHandler(ISAXContentHandler)継承(VBはImplements)したクラスをSAXXMLReaderのcontentHandler(putContenthandler())に渡してたのよ。
これWSHでどうやるのかな、と。
勝手に実装したクラス作って渡してみても『型が違う』って怒られるし。

調べてみたら『出来ない』って。しょうがない、DOMでやるか。

554:デフォルトの名無しさん
06/05/08 02:46:20
夜更けですみません。
WindowsのVersionを調べるのってWSHから可能でしょうか？

555:デフォルトの名無しさん
06/05/08 05:52:08
>>554
Versionつっても具体的にどーゆーVersion？
95/98/Me/NT/2000/XP/2003 みたいな区別を付けたいの？
ビルド番号やSPを知りたいの？
英語版/日本語版/International版みたいな違いを知りたいの？
質問する時はもっと明確質問してくれないと、困るよ君ぃ。

556:デフォルトの名無しさん
06/05/08 08:25:04
「困るよ君ぃ」と言いたいだけなんちゃうかと

557:デフォルトの名無しさん
06/05/08 10:34:05
｢Version｣は95/98/Me/NT/2000/XP/2003 みたいな区別
ビルド番号は｢ビルド番号｣
SPは｢サービスパック適用状態｣
英語版/日本語版/International版みたいな違いは｢言語区分｣

558:デフォルトの名無しさん
06/05/08 10:49:20
で？

559:デフォルトの名無しさん
06/05/08 10:53:03
「困るよ君ぃ」

560:デフォルトの名無しさん
06/05/08 14:08:02
違いが判別できればええんとちゃう？

561:デフォルトの名無しさん
06/05/08 14:49:51
ていうか、１００や２００も回答があるわけじゃないんだし
たかが、３つや４つなら、それぞれの回答を書いてやれば良いじゃんｗ

漏れは調べないと分かんないから、そこまでしてやる気はないが

562:554
06/05/08 18:59:29
すみません。Yahoo検索 - Windows*バージョン*取得で方針が見えてきました。
ExcelVBAからなら、Windowsのバージョンを取得できるみたいなので、
Excelオブジェクトを宣言して使えばとりあえず対応できそうです。

9x系かNT系かで、内部処理を変えたかったもので…。

ちなみに今までは、If WScript.CreateObject("WScript.Network").ComputerName = "～" Then
で、根気よく対応していました。

わざわざMeに、Excelインストールするのが面倒なので、IEオブジェクトでも、似たのが
なかったか探してみます。

レスありがとうございました。

563:デフォルトの名無しさん
06/05/08 19:04:06
>>562
> 9x系かNT系かで、内部処理を変えたかったもので…。

そのくらいなら環境変数 ComSpec で判断すればいいと思うけど。

564:デフォルトの名無しさん
06/05/12 23:23:58
>>529
糞ソフトの宣伝乙

565:562
06/05/21 11:16:51
>>563
WScript.CreateObject("WScript.Shell").Environment.Item("COMSPEC")
できました。ありがとうございましたー

566:デフォルトの名無しさん
06/06/02 00:39:07
wshを最近始めた者です。

CreateObject("Scripting.FileSystemObject").GetFolder(パス).SubFolders
からFor Each　文を使用してサブフォルダのリストを取得出来ますが
For Eachを使わずに・・SubFolders.Item(1)のような形で同じようにパスの
取得をすることは可能でしょうか？
ググってみましたが、For Eachの方法しか見つかりませんでした。

567:デフォルトの名無しさん
06/06/02 01:15:05
コレクションと配列は似ているようで微妙に違うからなぁ
一旦配列に入れてみるとかしか思いつかないや

568:デフォルトの名無しさん
06/06/02 01:19:22
ちょっと調べたところ、Foldersコレクションのキーはフォルダ名になってる模様

569:566
06/06/02 01:35:49
ありがとうございます。

自分も検索して
Folders.Item("MyFolder")のようにフォルダ名を入れれば取得出来ることは確認出来た
のですが・・フォルダ名ではなく整数型で取得は出来ないものかと思っています。

570:デフォルトの名無しさん
06/06/02 01:43:44
できないよ。
やりたいのなら配列に入れ直せ。

571:566
06/06/02 01:52:14
そうですか
ありがとうございました。

572:デフォルトの名無しさん
06/06/02 18:33:56
vbsを勉強したいのですが、みんな何の本で勉強しました？
本屋に行ってもイマイチ良さそうなのが無いので

573:デフォルトの名無しさん
06/06/02 18:42:54
今更 VBS と言うのも……

574:デフォルトの名無しさん
06/06/02 19:46:55
全部ネットで勉強できた

575:デフォルトの名無しさん
06/06/02 20:45:06
>>572
vbs ⊂ WSH … って考えたら（ここ "WSH(・∀・)ｽﾚｯﾄﾞ! " だし）
ｽﾚﾘﾝｸ(win板:2-5番)
大概は
URLﾘﾝｸ(download.microsoft.com)
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
あたりなのかな？

WSHを始めよう－＠IT
URLﾘﾝｸ(www.atmarkit.co.jp)
なんてのも始まったネ。

576:デフォルトの名無しさん
06/06/03 12:12:47
>>572
おれはここから始めたよ

＠IT：運用　Windows管理者のためのWindows Script Host入門
URLﾘﾝｸ(www.atmarkit.co.jp)

577:デフォルトの名無しさん
06/06/04 13:06:02
>>575-576
糞サイトの宣伝乙

578:デフォルトの名無しさん
06/06/04 13:49:16
>>577
内容が理解できない＝糞サイト？

579:デフォルトの名無しさん
06/06/04 15:00:24
＠ITが糞サイトとか言ってる香具師がいるぞ

580:デフォルトの名無しさん
06/06/04 22:51:43
糞サイトだろ？

581:デフォルトの名無しさん
06/06/04 23:32:43
@ITは結構他では扱っていない内容もカバーしてるから
俺もあそこの情報は重宝してるが、質については弁護できんな。

582:572
06/06/05 09:35:25
レス遅れましたが有難うございました。
紹介して頂いたページで勉強してみます

583:デフォルトの名無しさん
06/06/16 16:38:03
WSHで同じワークグループ内のコンピュータ名を
取得する方法はないのでしょうか？

具体的には、ネットワーク内のあるコンピュータの起動状況を確認して
起動していればネットワークドライブに接続するスクリプトを書きたいのですが・・・

584:デフォルトの名無しさん
06/06/16 17:33:58
> WSHで同じワークグループ内のコンピュータ名を
> 取得する方法はないのでしょうか？
あるよ。

つ Google

585:デフォルトの名無しさん
06/06/16 18:49:26
ググっても見つからなかったのですがorz

とりあえずcscriptの方で動かしてます。

586:デフォルトの名無しさん
06/06/17 10:35:27
URLﾘﾝｸ(www.codecomments.com)

587:デフォルトの名無しさん
06/06/17 11:53:06

set wbemServices = GetObject("winmgmts:{impersonationLevel=impersonate}")

この行のあるプログラムをcscriptで実行しようとしたとき、(実行者はAdministrator)
Server 2003 では問題出ないのですが、2000 Server 上では

(ソースファイル名)(上の行の番号) SWbemServices: アクセスは拒否されました

というメッセージが出て止まってしまいます。
wbemServices や impersonate で検索してみたのですが、

impersonate が権限を取得出来る可能性が高いので推奨

というくらいのことしか分かりませんでした。

何か解決策をご存知の方はいらっしゃいますでしょうか？

588:デフォルトの名無しさん
06/06/17 12:02:58
自己レスです

検索してたら

「SeSecurityPrivilegeが割り当てられている必要があります」
「ない場合は、"Access Denied"がアプリケーションに返されます」

という記述が見つかりました
もう少し調べてうまくいったらご報告します

589:デフォルトの名無しさん
06/06/17 18:12:41
Aフォルダの中にあるファイルとフォルダを全て削除する。
ただしBフォルダ以外。

上記の操作をWSHで可能ですか？
色々調べたんですが、一時的にBフォルダを別の場所に移動
してから一括削除する方法位しか思いつかなくて・・・

590:デフォルトの名無しさん
06/06/17 18:32:51
>>586
さんくす

591:デフォルトの名無しさん
06/06/17 18:54:56
>>589
Aフォルダ自体に削除処理を掛けることばかり考えずに
Aフォルダ以下のSubFolders､Filesをループで削除する処理を作って
そのループの中でBフォルダの名前に一致した場合は削除処理を行わないようにすれば良い。

つーか
> 時的にBフォルダを別の場所に移動
> してから一括削除する方法
に何か問題でもあるの?
別パーティションに移動するとかなら移動処理に時間が掛かるだろうが
Bフォルダのパスを2回書き換えるだけで実際には移動せずに済むんだから､
そういう不都合も無いでしょ。いったい何が不満なの？

592:デフォルトの名無しさん
06/06/17 19:28:36
FAT32なのかもしれん

593:デフォルトの名無しさん
06/06/17 19:33:13
Win2000をサービスパックとか何も入れずに使っているのですが、
何やらXPだとかサービスパックだとかの場合、ADODBが殺されて使えない、
というような話を聞いたのですが本当なのでしょうか？

ADODBを使ったスクリプトを他人のコンピュータ(特にXP)でも動作させたいのですが、どういう状況なのか教えてくださいませ。

594:デフォルトの名無しさん
06/06/17 19:42:58
「Win2000をサービスパックとか何も入れずに」

しね

595:デフォルトの名無しさん
06/06/17 23:17:29
Dim SettingFile1
Set SettingFile1 = ～
Dim SettingFile2
Set SettingFile2 = ～
みたいなのを動的に増やしていきたいのですが、
どうすればいいのでしょうか？

596:デフォルトの名無しさん
06/06/17 23:24:41
配列にする

597:589
06/06/18 04:42:54
>>591
Bフォルダの容量が大きいので、移動は避けたかったんですよ。
で、教えて頂いた通りにやってみるとできました！

objStartFolder =

ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)

For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
ShowSubFolders Subfolder
If not objFolder = objStartFolder & "Bフォルダ" Then
objFSO.DeleteFolder(objFolder),true
End If
Next

End Sub

598:デフォルトの名無しさん
06/06/18 19:49:21
Windows板のスレから移動してきました。質問させてください。

変数に格納されている文字列を元にした名前を持つグローバル関数を定義したいのですが
WSH ではグローバル変数・関数が集まっているオブジェクトって存在するのでしょうか？
（ブラウザでのJavaScript実行環境における window にあたるオブジェクト）

具体的には InternetExplorer のイベントを監視する為に
function observe(s, f) { window["InternetExplorer_On" + s] = f; }
のようなコードを書きたいのです。

Global オブジェクトかな、とも思ったのですが、うちの環境（Windows XP sp2）では
参照しようとするとエラーがでてしまいます。なんで…（´・ω・）
eval を使う手も考えましたが、実行されるのが関数の中なのでグローバルにできません…。

599:デフォルトの名無しさん
06/06/18 20:11:12
マルチ乙

600:598
06/06/18 20:28:20
>>599
いえ、マルチとならないよう、向こうのスレで質問を中止する旨を書き込んだのですが
まずかったのでしょうか…。こちらのスレに移動する、という事も書きました。

601:デフォルトの名無しさん
06/06/18 21:42:38
>>598
代用法はあるが､そのものの方法は無い。

602:デフォルトの名無しさん
06/06/19 19:03:27
開発環境はメモ帳ですか？

603:デフォルトの名無しさん
06/06/19 20:36:15
VS2005

604:デフォルトの名無しさん
06/06/19 23:44:16
おいらはメモ帳派

605:デフォルトの名無しさん
06/06/20 02:26:33
インターネット上のファイル（URLﾘﾝｸ(......)）のタイムスタンプを調べて、
更新されていればダウンロードし、「ファイル名+日付.pdf」リネームする
するスクリプトを作りたいんですが、他の部分はともかくネット上のファイルに
アクセスする方法がわからないのですが、何かよい方法はあるでしょうか？

606:デフォルトの名無しさん
06/06/20 03:57:24
取りあえず HTTP で公開されてるファイルには XMLHTTP とか使う。
そもそもそのサーバが最終更新日時をヘッダに含めてくれるのか？　とか。
If-Modified-Since ヘッダを使えばできるかもな。

607:605
06/06/21 00:15:12
>>606
XMLHTTPでなんとかアクセスできるようにはなりましたけど、
タイムスタンプの取得がうまくいきませぬ。

If-Modified-Sinceヘッダに関しては、
URLﾘﾝｸ(www.su-jine.com)
こんなサイト発見して、目的のサーバが対応してるところまでは
調べれましたが、問題はそのヘッダをどうやって送るかが、わかりませぬ。

もちろんググッてはみたもののヘッダ送信に関する資料が見つからず・・・。
あればできそうなのに・・・。HTTPの仕様に関する資料とか探せばいいのかな？

とにかく助言ありがとうございました。

608:デフォルトの名無しさん
06/06/21 00:56:28
last_modified = XMLHTTP.getResponseHeader("Last-Modified");

XMLHTTP.setRequestHeader("If-Modified-Since", last_modified);

> もちろんググッてはみたもののヘッダ送信に関する資料が見つからず・・・。

XMLHTTP ヘッダー
でググったら一発で見つかったけど・・・？

609:605
06/06/21 01:08:36
ぐは！本当だ。申し訳なかとです、修行が足りませなんだ・・・。orz

おかげでなんとか出来そうです。
ありがとうございました。

610:デフォルトの名無しさん
06/06/24 15:49:45
スクリプトだと実行できてEXEだと実行できないような状態ってありますか？

611:デフォルトの名無しさん
06/06/24 15:59:39
状態？　なんの？

612:デフォルトの名無しさん
06/06/24 18:15:18
>>594
教えてくれたら死にます。なので教えて下さい。

原因はおそらくADODBがIObjectSafetyをサポートしているのでIEから使えてしまう事が原因だと思いますが、これの対策としては

1. ADODBをIObjectSafety非サポートに変更
2. ADODBのレジストリ登録を削除
3. ADODBのモジュール自体を削除

のいずれかだと思います。MSが取った対策はどれですか？

#・・・しかしスクリプトな人達って疲れる・・・（＾＾；）

613:デフォルトの名無しさん
06/06/24 18:17:56
スクリプトもexeの実行だよ。
関連付け設定していれば､スクリプトファイル(コードを書いたファイル)を実行してるように感じるかもしれないが､
その実､Wscript.exeを実行して､スクリプトファイルを渡すという処理が行われている。
exeが実行できなかったら､.vbsや.jsを実行(ダブルクリック､Enter)したって何も起きない。

614:デフォルトの名無しさん
06/06/24 18:28:19
> 教えてくれたら死にます。なので教えて下さい。
教えたら死ぬという確かな証拠と､
あなたの死後､死んだことを証明するものを提示する手段を明らかにしてください。

>教えてくれたら死にます。
という前提があって
> なので教えて下さい。
という欲求があるのだから､当然前提は明確にしないとね。

615:デフォルトの名無しさん
06/06/24 21:59:11
>>614
お前みたいなレスは一番(ﾟ⊿ﾟ)ｲﾗﾈ

616:デフォルトの名無しさん
06/06/24 22:02:14
>>615
オマエモナー

617:デフォルトの名無しさん
06/06/24 22:11:49
>>615
ID出ない板は便利だね(￣ー￣)ﾆﾔﾘｯ

618:605
06/06/25 00:26:49
遅レスでスマソ。
とりあえず、ファイルの更新日時をチェックする部分はできますた。

url = "URLﾘﾝｸ(......)
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET",Url,False)
objHTTP.send
Last_Modified = objHTTP.getResponseHeader("Last-Modified")

　　　s = split(Last_Modified)
　　　strWeekday = s(0)
　　　strDay = s(1)
　　　strMonth = s(2)
　　　strYear = s(3)
　　　strTime = s(4)

こんな感じで更新日時はゲットできますた。
教えていただいた方にまずは感謝です。
ｱﾘｶﾞﾄ!(´▽｀)

あとはダウンロードするだけですが、
HTMLとかテキストデータをDLする方法はいくつか見かけたのですが、
バイナリファイルのダウンロードの方法はどんな方法があるのでしょうか？

619:デフォルトの名無しさん
06/06/25 00:32:47
おいおい、それくらいちょっと調べればすぐ出てくるだろ？
てか XMLHTTP だけでも（アップロードだが）バイナリデータのがトップだ。

620:デフォルトの名無しさん
06/06/25 00:58:49
普通に取ってデコードする

621:605
06/06/25 01:22:52
>>619
XMLHTTPだけでも～～～
って、ことはXMLHTTPを使えばできるってことですよね？
うーん、.ResponseTextメソッドとか.ResponseBodyメソッドとかを
使うってことですか？

>>620
普通に取ってデコードするってことは、
上記のような方法で取ってきたデータを
なんらかのデコード処理をしたあとでファイルに書き出すということでしょうか？

レスありがとうございました。
まだまだ検索が甘かったようなので、もう一度探しに行っていきます。

622:デフォルトの名無しさん
06/06/25 23:02:37
>>621
バイナリはADODB.Streamで保存する
別にデコードはいらんだろ

623:デフォルトの名無しさん
06/06/26 00:05:45
ADODB.Stream使わないで保存できないの？

624:605
06/06/26 00:28:41
ADOBO.Streemで検索を掛けていたら、
ここにそのまんまな解決方法が載っていました。
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)

ためしにサンプル通りに作ってみたところ見事ダウンロードできました。うはっ！！

もうあまりにまんまでなぜ見つけられなかったか、
自分の不甲斐なさに涙が出てきました。

レスして頂いた方々へ→本当にありがとうございました。m(__)m

625:612
06/07/01 20:28:54
私は以下の掲示板で活動してるＡＫ○という者なんですが、教えていただけないでしょうか？

URLﾘﾝｸ(www.roy.hi-ho.ne.jp)

別のスレや掲示板で聞き直してもいいのですが、たくさんそういう事をすると検索の時に引っ掛かって邪魔だ、とよく言われるので。

626:デフォルトの名無しさん
06/07/10 01:40:01
>625
アロンのトコじゃねぇか、ソコの住人の方が詳しいんじゃね？

627:デフォルトの名無しさん
06/07/29 21:16:12
>>625
糞掲示板の宣伝乙

628:デフォルトの名無しさん
06/08/02 19:47:22
JScript の Array オブジェクトを、VBArray に変換する方法を教えてください

629:628
06/08/02 20:12:57
自己解決。
DynWrap Helper にまんまそのとおりのコードがありました。

630:デフォルトの名無しさん
06/08/15 11:45:30
Microsoft.XMLDOMを利用してxmlファイルを作る場合なのですが
ただ単にappendChildで追加していってSaveすると
<root><item>a</item><item>b</item></root>
というファイルが出来るのですが､これを改行やインデントを入れて
<root>
　　<item>a</item>
　　<item>b</item>
</root>
とするには､何をすれば良いのですか？
まさか自前で文字列解析するなんてことはないだろうから
XMLDOMのプロパティなりなんなりでこの辺の設定が出来ると思うのですが
具体的にどうすれば良いのか解りません。ご教示お願いします。

631:デフォルトの名無しさん
06/08/15 15:01:49
>>630
改行や空白もテキストノードの一種だから、データとしては前者の改行が無いものが正しいんだよね。
どうしても整形したいならXSLTで変換かなぁ。勘だけど。

632:デフォルトの名無しさん
06/08/15 19:37:59
>>631も言ってるようにそこはデータだから勝手に整形しちゃいかん。
やるんだったらこう。
<root
　　 ><item>a</item
　　 ><item>b</item
></root>

633:デフォルトの名無しさん
06/08/15 20:00:52
>>632
それは完全に間違い。

634:デフォルトの名無しさん
06/08/15 20:52:52
>>633
脊髄反射するな。

635:デフォルトの名無しさん
06/08/15 23:05:23
>>630
それらしきプロパティはあって、使えるかと思って以前試したけど
それほど簡単ではなかった。

DOMDocument には PreserveWhitespace というプロパティがあって、これが
falseのとき、ドキュメント内の空白は保存時に自動的にインデントされる仕様。

ところが、インデントする対象が "ドキュメント内の空白" なため、
以下のような既存文書を読んだ場合、
<root>
　　<item>a</item>
</root>
<root>と<item>の間、</item>と</root>の間は空白扱いなので、
書き込むときも(空白=>インデント変換によって)同様にインデントされるが、
新規に
<root><item>a</item></root>
というデータを作成してsaveしても途中に空白がないので、保存しても
そのままではインデントしてくれない。

仕方がないので、要素をルートから再帰的にたどってタグとタグの間に
テキスト要素がなければ問答無用で1つの空白を挿入するという補助関数
を作って保存前に呼んでた。

636:630
06/08/16 09:50:58
>>631
> 改行や空白もテキストノードの一種だから、データとしては前者の改行が無いものが正しいんだよね。
> そこはデータだから勝手に整形しちゃいかん。
それは違うと思います。確かに改行や空白はテキスト要素として扱われます。
だから<root>をテキストノードとして扱い､余計な改行や空白が入っては拙い場合は､前者の書き方が正しいと言えますが
<root>がエレメントノードであり､テキスト要素を利用しない場合は､テキスト要素に何が入ろうと間違いも問題もありません。
つまり改行や空白を入れれば､それらもテキスト要素として取得されるという仕様なだけの話であり､
テキスト要素に改行や空白を使ってはいけないなんてことはないので､改行や空白が取得されては困る場合だけ避ければ良いことだと思います。
少なくとも>>630後者の記述は､仕様に沿った正しいXMLファイルとして扱えています。

>>633
間違いでは無いと思いますよ。
>>632も>>630後者も､どちらもXMLの仕様には違反していません。
ただ条件付きで>>630後者は､<root>のテキスト要素に改行や空白は入っては拙い場合は不都合があるというだけです。

>>635
ありがとうございます。理想通りに改行&インデントされました。
やはりこういう記述を正式にサポートしてたのですね。

次ページ