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

1 名前：デフォルトの名無しさん [03/06/08 21:31] (　´ゝ`)　無ので立ててみた。 誰か詳しい情報ｷﾎﾞﾝﾇ 152 名前：デフォルトの名無しさん mailto:sage [05/03/03 04:52:36 ] pc5.2ch.net/test/read.cgi/tech/1086143976/ pc5.2ch.net/test/read.cgi/tech/1046576456/ 153 名前：デフォルトの名無しさん mailto:sage [05/03/05 06:11:22 ] すみません。Irvineスレで聞くべきなんですが、全く、反応が無いんです。 IrvineのRegistDateやSuccessDateのフォーマットって何なのかご存知の方、いらっしゃいますでしょうか？ 154 名前：デフォルトの名無しさん mailto:sage [05/03/11 03:28:55 ] ここ何のスレだっけ？ 155 名前：デフォルトの名無しさん mailto:sage [05/03/11 07:33:15 ] ソフト起動は以下のコマンドでやっているのですが。 ソフトを終了させるのは、どのように記述すればいいのでしょうか。 set ws = CreateObject("WScript.Shell") ws.Run "　　　" 初歩的な質問で恐縮なんですが、よろしくお願いします。 156 名前：デフォルトの名無しさん mailto:sage [05/03/11 07:44:47 ] >155 終了を待つことはできるけど、終了させることはできない。 SendkeysでALT+F4とか。 157 名前：デフォルトの名無しさん mailto:sage [05/03/11 08:12:13 ] RunでなくてExec使えば？ Terminateあるよ。 158 名前：デフォルトの名無しさん mailto:sage [05/03/11 10:34:44 ] >>156 >>157 ありがとうございます。それでやってみます。 159 名前：デフォルトの名無しさん mailto:sage [05/03/12 03:31:39 ] IISでCGIの処理にWSHを使おうと思っているのですが、 スクリプトは正常に動いているのにURLから実行すると CGI Error The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are: CScript エラー: 設定の読み込みに失敗しました。 (アクセスが拒否されました。 ) というエラーが出てきてしまいます。 IIS側の設定でスクリプトマッピングは 拡張子 .XXX 実行ファイルのパス C:\winnt\system32\cscript.exe //nologo %s みたいにしているのですが・・・ 160 名前：デフォルトの名無しさん mailto:sage [05/03/12 07:04:38 ] IUSR_XXXX IWAM_XXXX をAdministratorsに汁 ttp://www.users.gr.jp/ml/archive/viewer.aspx?name=asp&no=18872 ttp://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list68.shtml 161 名前：153 mailto:sage [05/03/12 09:20:14 ] >154 どうもすみません。それでは質問を少し変えさせていただきます。 RegistDateというのは、ダウンロードの開始日時を表すdouble値なのですが、例えば、 38387.3075909722 というのが、Irvineの画面では 2005/02/04 07:22:55 と表示されています。 38394.2332972222 の場合が 2005/02/11 05:35:56 と表示されます。 おそらく、いつか特定の年月日からの経過秒数とかそういう値だと思うのですが、longでなくdoubleだというのが私には謎です。 日時を扱ったことのあるプログラマの方々、double形式が出てくることに何か心当たりはないでしょうか・・・？ 162 名前：デフォルトの名無しさん mailto:sage [05/03/12 09:34:35 ] (02/11 05:35) - (02/04 07:22) = 6日と22時間 (38394.23329) - (38387.30759) = 6.927 163 名前：デフォルトの名無しさん mailto:sage [05/03/12 09:45:56 ] >161 date型は内部的にはdouble型で扱ってる。 dbldate=38387.3075909722 call msgbox(CDate(dbldate)) 164 名前：デフォルトの名無しさん mailto:sage [05/03/12 22:41:56 ] >>162-163 「何でdoubleを使ってるのか？」 という質問の答えになっていないと思う。 165 名前：デフォルトの名無しさん mailto:sage [05/03/13 01:00:37 ] >>164 long だと 2038年1月18日までしか数えられないから。 こんなカンジの答えを希望？ 166 名前：161 mailto:sage [05/03/13 06:08:57 ] CDate()で変換できるのですか！ うーん、奇妙！ ビット数の関係でdoubleなのでは、とは思っていましたが・・・ WSH(VBScript?)のdoubleって何バイトでしたっけ？ どうもありがとうございました。 167 名前：デフォルトの名無しさん mailto:sage [05/03/13 10:28:55 ] >166 64bit 168 名前：デフォルトの名無しさん mailto:sage [05/03/13 18:28:40 ] >>166 8バイト 169 名前：デフォルトの名無しさん [05/03/16 05:41:48 ] 自分で作ったアプリを WSH で制御しようとおもったら， あらかじめ決められたインターフェイスを持った COM オブジェクトにしないとダメってことですか？ ってことは， C# で作っているアプリを WSH で制御できるようにするのは難しい？ 170 名前：デフォルトの名無しさん [05/03/16 05:55:19 ] HWNDを元に考えられる限りの窓遠隔操作機能を持ったCOMを誰か作ってくれないかな。 171 名前：デフォルトの名無しさん mailto:sage [05/03/17 09:34:26 ] DynaCall 172 名前：デフォルトの名無しさん mailto:sage [05/03/20 05:27:53 ] 私、VBSしかわからないんですが、DateオブジェクトってどうしてJSでしか使えないんですか？ 173 名前：デフォルトの名無しさん mailto:sage [05/03/20 10:38:22 ] >>172 使えますよ。 <job> <script language="JScript"> dt = new Date(); </script> <script language="VBScript"> MsgBox dt.toUTCString() </script> </job> 174 名前：デフォルトの名無しさん mailto:sage [05/03/20 16:02:18 ] >>43 XULのこと？HTAとは激しく別物かと思いますよ HTAは通常のDHTMLを使ったWebページと同じくscriptタグ中に埋め込まれた JScriptやVBSを呼び出すことで動作を表現する。 XULはそれ自体がXML準拠の構文でプログラムの動作を記述したもので Mozillaのコアエンジンを通して実行される と解釈してるが 175 名前：デフォルトの名無しさん mailto:sage [2005/03/26(土) 14:25:44 ] >>173 同じ例に汁。 176 名前：デフォルトの名無しさん mailto:sage [2005/04/03(日) 14:18:22 ] >>173 1年前の書き込みにレスしてどうする 177 名前：デフォルトの名無しさん mailto:sage [2005/04/03(日) 14:19:04 ] アンカーミス>>733→>>734 178 名前：デフォルトの名無しさん mailto:sage [2005/04/03(日) 23:39:59 ] >177 いつへのアンカーなんだよｗ 179 名前：デフォルトの名無しさん mailto:sage [2005/04/04(月) 08:56:57 ] このペースだと6年後くらいだな。 180 名前：176 mailto:sage [2005/04/04(月) 17:04:29 ] はずぃ>自分 181 名前：デフォルトの名無しさん [2005/04/05(火) 23:58:34 ] 取得した文字列の中身が全部 US ASCIIかどうかチェックしたいのですが、何かいい方法ないでしょうか？ CだとIsAscii()があるのですがWSHだとないので。。。。 182 名前：デフォルトの名無しさん mailto:sage [2005/04/06(水) 13:13:55 ] >>181 アルファベットまたは数字、いくつかの記号 にマッチするか調べればいいんじゃない？ 183 名前：デフォルトの名無しさん [2005/04/07(木) 01:05:54 ] 181だけど事故解決しました 面倒くさがらずに自分で作らないとだめだね CHRつかうのとREGEXP使うのとどっちがパフォーマンスいいのかなあ どぴゅ 184 名前：デフォルトの名無しさん [2005/04/09(土) 00:02:19 ]  ( ﾟдﾟ)ノ　ハイ！質問です！ msgbox 2^64 を実行すると 1.84467440737096E+19 と表示されます。 １５桁を超えるものは指数を使って表示されるようですが、整数で表示する事は出来ますか？ 185 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 00:45:39 ] 文字列に変換 186 名前：184 [2005/04/09(土) 00:50:30 ] >>185 文字列に変換は、Cstr() ですか？ Cstrは試して見ましたが、表示に変化はありませんでした。 それとも他の方法でしょうか？ 187 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 01:43:09 ] 多倍長整数使えよ 188 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 11:05:17 ] 変換したら加工せにゃ 189 名前：デフォルトの名無しさん [2005/04/16(土) 15:48:13 ] 質問です。 あるﾌｫﾙﾀﾞ２つのファイルを比較します。 ２つのﾌｫﾙﾀﾞの拡張子は例としてtxtとvbsです。 拡張子がちがう同じファイル名のファイルの 最終更新日時を比較します。ファイル名は大量の為特定できません。 比較してvbsのほうが日付が古ければ ｴﾗｰとしてﾃｷｽﾄファイルに書き出す という、vbsを作りたいのですがどなたかわかりますか？ 190 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 16:23:36 ] >189 １．フォルダAとフォルダBがある。 　　（フォルダAには拡張子vbsのファイルが、フォルダBには拡張子txtのファイルが入っている） ２．フォルダAからファイルをひとつ取り出す ３．フォルダBから拡張子を除いた部分の名前が同じファイルを探す ４．フォルダAとフォルダBのファイルの更新日時を比較して、 　　フォルダAのファイルが古ければテキストファイルにエラーを出力。 ５．フォルダAのファイルが無くなるまで２〜４を繰り返す こういうフローでいいならできる。 191 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 17:52:35 ] >>190 できたら作ってくれませんか？m(__)m 192 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 17:56:50 ] >>191 逝ってよし。 193 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 21:48:46 ] 　　　　　　　　　　　 _,ノ‐''''''^^^¨¨¨⌒￣⌒^^''¬-､,_ 　　　　　　　　._v-''¨｀　　 .,,vｰ─-､　　　 .,,vｰ─-､ .¨'ｰu_ 　　　　　　_ノ'″　　 　　./′　　　 ¨┐ .／　　　　 ﾞ┐　 .ﾞ'┐ 　　　　 ,／′　　　　　 ./￣''''-¬,,,,__.ﾐ .i |,,,,＿＿_　..）　　　ﾞ＼ 　　　 ,/′　　　　 λ 　|　　　　 （ ･ )|　｝　.¨'ｰu,,　　|　　　　　＼ 　　 ./′　　 　　　八,､-ﾐ.ノ‐''''''^^￣./¨ﾚ　　　 　　 .人,_　　　　　ミ 　 .,ﾉ′　　　 　._ノＵ'　　 ＼_　　 ._,rlﾄ冖へy　　　_／　 ¨'‐u　　　.ﾞlr 　.,i′　　　　　／ｰ-v､.,,_　　 ¨^^¨´〔　　　 〕.¨^^¨′　　__.,､ ﾞ＼.　 ｛ 　〕　　　　　 ./′　　　　.⌒'''''　　　 ＼,,,,,,ノ′　 v-ｰ'''¨　.λ　　ﾞ┐ ｝　　　　＿＿＿＿＿＿＿＿＿＿ 　|　　　　　 ﾉ　 .λ───ｰ　　　　　　｝　　　　　 __,,.,､v;（_）ｰ''　 ｛..］　　／ 　|　　　　　:|　　 | |　　　　　　　　　　　　.!　　　　　 ｀　　　 　　　　 .｝｝ ＜　きがるにいってくれるなあ。 　｝　　　　 .|　　 .Ｕ-:;:冖^￣　　　　　　 .|　　　　　 ¨¨¨¨¨￣¨¨′ ﾐ｝　　＼ 　.|　 　　　.｝　　　　　　　_,,,,,ｖｖl''''¨¨|^^⌒|¨¨''''lｖｖ,_　　　　　　　　 ｝　　　　￣￣￣￣￣￣￣￣￣￣ 　 ).　.　　　〕　　　 ,,､-v~|　　 .|　　　|　　 |　 　|''Ｔ＾i-,,_　　　　　　/ 　 .｛　 　　　). ., r'z::''''~ﾞ(~~￣￣￣￣￣￣~~~`^^^^''''¬;;;＿　　 ﾉ 　　 ﾐ.　　　 `i,　　　　　　 　　　　　　　　　　　　　　　　　 ,　`''　/ 　　　ﾞ).　　　 `i,　　　　　　 　 　　　　　　　　　　　　　　 　　　.,ﾉ　　λ 　　　　＼　　　 },　　　　　′　　　　　　　　　　　　　　　.　　／　　　| | 　　　　 .　＼　　＼　　 　　　　　　　　　　　　　　　　.　　,／　　　　 ∪ 　　　　　　 （¨¨¨¨¨¨¨¨¨¨¨¨¨¨ﾞソ冖干ｱ^^^^^^^^^^^^^ｒ'′ 　　　 　　／~~~~~~~~i¬冖'''''7′　　　∨¬ｰｰz─-―「＼ 　　　　　/　　　　　_ﾉ　　　　　厂¨丁¨¨ﾌ　　　　.ﾐ､　　　　ﾞ＼ 194 名前：デフォルトの名無しさん mailto:sage [2005/04/17(日) 16:22:30 ] 質問です。 XPを使っているのですが、デスクトップからスタンバイに移行するのに Dim objShell Set objShell = WScript.CreateObject("Shell.Application") objShell.Suspend というコードを使えばできると書いてあったんですが、 スタンバイに移行できません。 このコードはXPでは使えないのでしょうか? 195 名前：デフォルトの名無しさん mailto:sage [2005/04/18(月) 02:05:49 ] >>191 せっかくアルゴリズムまでは教えてくれてるんだからヘルプファイル読みながらでも 自分で作んなさいよ 196 名前：191 mailto:sage [2005/04/20(水) 11:13:48 ] 行き詰まってつい・・・・。でも、なんとかできました。 190さん、ありがとう。 197 名前：191 mailto:sage [2005/04/21(木) 06:45:27 ] できたのですが、ファイルがたくさんある場合に今どれくらい 進んでいるのか進捗状況を表示させられたらいいと思っているのですが、 今何％進んでいるか(プログレスバー？)を表示させるには どうすればいいですか？検索とかしてるんですが、みつかりません。 無理なんでしょうか？ 198 名前：デフォルトの名無しさん mailto:sage [2005/04/21(木) 07:12:56 ] >>197 プログレスバーは無理な希ガス cscriptから起動させて、文字列出力させたら？ 199 名前：191 mailto:sage [2005/04/21(木) 07:37:13 ] >198氏 朝早くありがとうございます。無理ですか・・・。 しかたないのであきらめます。 200 名前：デフォルトの名無しさん mailto:sage [2005/04/24(日) 23:25:02 ] この文なんですが mLocation = FindFromText( pos, html, "<td valign=""top""><strong>■", "</strong><br>", "" ) 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑　　　　　　　　　↑ 矢印で示した部分のコンマに当てはまる文字列を変数posとhtmlにそれぞれ返すいうことですか？ 201 名前：デフォルトの名無しさん mailto:sage [2005/04/24(日) 23:53:46 ] >>200 書いたやつに聞けよ・・・ "<td valign=""top""><strong>■" と、 "</strong><br>" にはさまれている文字を mLocation に返すみたいだが・・・ 202 名前：デフォルトの名無しさん mailto:sage [2005/04/25(月) 01:17:55 ] >201 そうだな サンクス 203 名前：デフォルトの名無しさん mailto:sage [2005/05/08(日) 14:40:39 ] すいません，VBScriptでレジストリ操作をしたいんですが， あるレジストリキーが存在するかどうかを確認する方法はありますか？ RegReadで存在しない値を参照してエラーが出てしまうんですが 回避方法がわからないんです． 204 名前：キー列挙ならWMIの方が楽だよ mailto:sage [2005/05/08(日) 15:02:33 ] >>203 On Error Resum Nextじゃダメ？ 205 名前：204 mailto:sage [2005/05/08(日) 15:02:56 ] Resum→Resume 206 名前：デフォルトの名無しさん mailto:sage [2005/05/08(日) 15:06:25 ] >>204 それはアレですよね，エラー無視． 最初はそれにしてたんですが 他の部分でエラー出たりすることもあるしどうかなぁ　と． というか，エラー無視で強引に進めるのって怖くありません？ 207 名前：デフォルトの名無しさん mailto:sage [2005/05/08(日) 15:09:39 ] ちなみにHTAを使って割りと複雑な操作をするんで VBScript+HTAじゃないとダメっぽいです． RegDeleteもサブキーがあるとエラーとかいう意味不明な仕様ですが あれも何とかならんでしょうか。 今は　oWsh.Run("reg delete "HKCR\.dat" /f)　とこんな事をしてます． でもreg.exeを使うと動作にタイムラグが・・・＿|￣|○ 208 名前：デフォルトの名無しさん mailto:sage [2005/05/08(日) 19:03:25 ] ttp://www.microsoft.com/japan/technet/scriptcenter/scripts/os/registry/osrgvb10.mspx 209 名前：デフォルトの名無しさん mailto:sage [2005/05/09(月) 02:20:54 ] >>203 >>208 の手段でも良いし、条件分岐させれば良いだけじゃないのか。 210 名前：デフォルトの名無しさん mailto:sage [2005/05/09(月) 03:00:18 ] >>208，209 そうですね，208ので全部消していくかな． 条件分岐っていうのは？ レジストリキーが存在するかどうかが調べられないのに どう条件分岐させるんですか？ 211 名前：デフォルトの名無しさん mailto:sage [2005/05/09(月) 20:16:32 ] >>210 当初 >>203 で言っていた「あるレジストリキー」というのがいくらかでも 特定されたものであれば、レジストリキーの有無で条件分岐できるだろうと いうこと。今回言っているように、どのようなキーが存在するかさえ不明で あれば >>208 の示した手段がベター。 212 名前：デフォルトの名無しさん mailto:sage [2005/05/09(月) 20:56:52 ] >206 エラーの出そうな操作の直後に if err<>0 then 　〜 end if でエラーの場合の動作を（msgboxとかexit doとか）。 213 名前：デフォルトの名無しさん mailto:sage [2005/05/09(月) 23:32:34 ] >>211 すいません、レジストリキーの有無ってどうやって調べるんですか？ 214 名前：デフォルトの名無しさん mailto:sage [2005/05/11(水) 21:46:18 ] キーをオープンしてみれば分かる 215 名前：デフォルトの名無しさん mailto:sage [2005/05/11(水) 21:46:36 ] >>213 そのくらい調べりゃすぐ分かるだろ 自分で調べろよ 216 名前：デフォルトの名無しさん mailto:sage [2005/05/14(土) 10:59:37 ] すいません、キーはどうやってオープンすればいいのか… 217 名前：デフォルトの名無しさん mailto:sage [2005/05/14(土) 18:33:51 ] キーを読み取ってみてエラーが発生したら分岐させる？ 218 名前：デフォルトの名無しさん mailto:sage [2005/05/16(月) 18:58:29 ] 急速にスレの質が低下してまいりました 219 名前：デフォルトの名無しさん mailto:sage [2005/05/17(火) 14:07:51 ] 急速という割には、ペース遅すぎな希ガス 220 名前：デフォルトの名無しさん mailto:sage [2005/05/20(金) 13:45:42 ] スレッドストッパーの俺様が来ましたよ 221 名前：デフォルトの名無しさん mailto:sage [2005/05/20(金) 22:35:57 ] そこでｽﾚｯﾄﾞﾘﾊﾞｲﾊﾞｰの漏れ様の登場ですよ 222 名前：デフォルトの名無しさん [2005/05/20(金) 23:09:32 ] そこでﾊｲﾊﾟｰｽﾚｯﾃﾞｨﾝｸﾞな俺様の登場ですよ！！ 223 名前：デフォルトの名無しさん [2005/05/23(月) 01:18:56 ] おまいらちっとはwsh使へ 224 名前：デフォルトの名無しさん mailto:sage [2005/05/23(月) 23:05:05 ] いやぷぅ(~o~) 225 名前：デフォルトの名無しさん mailto:sage [2005/05/24(火) 23:12:11 ] バッチファイルと違って、タスクマネージャくらいからしか強制終了できないのが辛い。 あとは時間指定ぐらいですかね？ でも、環境によって実行時間が違ってくるから時間による終了は入れたくないなぁ。 226 名前：デフォルトの名無しさん mailto:sage [2005/05/25(水) 02:25:23 ] バッチで強制終了させりゃいいじゃん。 バッチでできんことはWSHにやらせて。 227 名前：デフォルトの名無しさん mailto:sage [2005/05/25(水) 19:59:47 ] 向き不向きを考えて使えって事か。 そりゃそうか。 バッチファイルで何行も同じようなこと書きたくないなぁと思って vbsならスマートかな、と思ってやってみたんですた。 まぁコマンドプログラム呼び出すたびにアクティブなウインドウがそっちに移るんで それも困ってたﾄｺなんでやっぱバッチのほうが向いてるかも 228 名前：デフォルトの名無しさん mailto:sage [2005/05/26(木) 05:03:19 ] >225-227 cscript.exe もちゃんと使おうな 229 名前：225=227 mailto:sage [2005/05/26(木) 19:59:30 ] ttp://www.atmarkit.co.jp/fwin2k/operation/wsh02/wsh02_02.html コマンドラインスクリプトのことかーーーー！！！ 初めて知りました。 多謝でつ。 230 名前：デフォルトの名無しさん mailto:sage [2005/05/27(金) 12:38:44 ] WSHは略だけど CScriptも略してCSHとは言わんな 231 名前：デフォルトの名無しさん mailto:sage [2005/05/27(金) 22:27:43 ] wshはwscript.exeの略じゃないし 232 名前：デフォルトの名無しさん [2005/06/01(水) 13:26:13 ] JScriptでショートカットのファイルを吐き出したいです どうすれば出来ますか？ 233 名前：デフォルトの名無しさん mailto:sage [2005/06/01(水) 14:11:25 ] >>232 www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wsmthcreateshortcut.asp 234 名前：デフォルトの名無しさん mailto:sage [2005/06/01(水) 15:51:26 ] >>233 ありがとう 235 名前：デフォルトの名無しさん [2005/06/01(水) 18:24:40 ] 一定の間隔をおいて標準入力をテキストファイルに出力するにはどーしたらいい？ おしえてー 236 名前：デフォルトの名無しさん mailto:sage [2005/06/01(水) 22:30:52 ] >235 一定の間隔とは行間のことだと勝手に想像して書いてみる んでもって言語の指定ないから勝手にJScript var ROW_SPACES=1; var a=WScript.StdIn.ReadAll().split("\r\n"); var f=new ActiveXObject("Scripting.FileSystemObject").CreateTextFile("outfile.txt"); for(var i=0;i<a.length;i++){ f.WriteLine(a[i]); for(var c=0;c<ROW_SPACES;c++)f.WriteLine(); } f.Close(); 237 名前：デフォルトの名無しさん mailto:sage [2005/06/02(木) 01:45:36 ] 間隔っつったらやっぱ時間じゃねえの？ while (!WScript.StdIn.AtEndOfStream) { WScript.StdOut.Write(WScript.StdIn.ReadAll()); WScript.Sleep(10000); } 238 名前：236 mailto:sage [2005/06/02(木) 02:20:20 ] >237 標準入力→テキストファイル、ってあるから 多分行間じゃないかなあと予測した 逆なら劣化ページャみたいな物と予測したのだけど あと StdIn.AtEndOfStream() は試したら 存在しないみたいでエラー出たから ReadAll() 239 名前：デフォルトの名無しさん mailto:sage [2005/06/02(木) 03:24:38 ] 時間だとすると標準入力をテキストファイルに出力するのに一定の間隔を空ける意味が良く分からん 240 名前：236 mailto:sage [2005/06/02(木) 15:24:26 ] >239 そう、私もそれが言いたかった、ごめん＿|￣|○ てか、StdIn.AtEndOfStream てプロパティだから 括弧付けると駄目なのね…逝って来る＿|￣|○ 241 名前：デフォルトの名無しさん mailto:sage [2005/06/03(金) 17:59:10 ] ひょっとしてこういうことがしたいのかも do while True do while (not WScript.StdIn.AtEndOfStream) WScript.StdOut.Write(WScript.StdIn.ReadAll()) loop WScript.Sleep(5000) loop 242 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 17:59:02 ] >241 ReadAllなのにAtEndOfStreamを待つのか？ 243 名前：デフォルトの名無しさん mailto:sage [2005/06/05(日) 20:51:29 ] tail -f みたいな動きをさせるためじゃないかな 244 名前：デフォルトの名無しさん [2005/06/10(金) 09:57:18 ] 「デヴァイスマネージャ」の 「USBルートハブ」を無効にして 再度，有効にするという操作を WSH にしてみてください 245 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 12:35:24 ] msgbox "USBハブのコード抜け" msgbox "抜いたらもう一回挿せ" 246 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 12:50:41 ] >>245 【ご主人様】メイドさんスクリプト【ご命令を】 pc8.2ch.net/test/read.cgi/tech/1115218878/ 247 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:01:26 ] Private Sub Command1_Click() Dim UsbSet As SWbemObjectSet Dim Usb As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set UsbSet = Service.ExecQuery("Select * From Win32_USBHub") For Each Usb In UsbSet MesStr = MesStr + "USBハブの名前：" + Usb.Description + vbCrLf + _ "USBハブのデバイスID：" + Usb.DeviceID + vbCrLf Next MsgBox "USBハブの情報です。" + vbCrLf + _ vbCrLf + MesStr + vbCrLf + "ですよ。" Set UsbSet = Nothing Set Usb = Nothing Set Locator = Nothing Set Service = Nothing End Sub 248 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:03:22 ] Private Sub Command1_Click() Dim UsbSet As SWbemObjectSet Dim Usb As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set UsbSet = Service.ExecQuery("Select * From Win32_USBController") For Each Usb In UsbSet MesStr = MesStr & Usb.Name & vbCrLf Next MsgBox "USBコントローラの一覧です。" & vbCrLf & _ vbCrLf & MesStr & vbCrLf & "ですよ。" Set UsbSet = Nothing Set Usb = Nothing Set Service = Nothing Set Locator = Nothing End Sub 249 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:10:00 ] ttp://www.microsoft.com/japan/whdc/system/pnppwr/default.mspx 250 名前：デフォルトの名無しさん mailto:sage [2005/06/10(金) 14:44:59 ] >>244 UWSC使ってみ ttp://www.h7.dion.ne.jp/~umiumi/ 251 名前：デフォルトの名無しさん [2005/06/15(水) 10:03:13 ] ご存知の方いらしたらご指導お願い致します var oShell = WScript.CreateObject("Shell.Application"); var oFolder = oShell.NameSpace("ftp://192.168.*.**/保存/"); var desktop = oShell.NameSpace(0); var objFolderItems = desktop.Items(); for(var i = 0; i < objFolderItems.Count; i++) { var ofitem = objFolderItems.Item(i); if(ofitem.Name == "日報.xls") { oFolder.CopyHere(ofitem); WScript.Sleep(6000); break; } } 日報.xlsをサーバーにFTPを使ってコピーするプログラムを作成しました 前日の同名ファイルに上書きして毎日保存しているのですが ファイルの上書き確認ダイアログが出てしまうの非表示にして自動的に 上書きしたいのですが、よろしくお願い致します。 252 名前：デフォルトの名無しさん mailto:sage [2005/06/15(水) 10:17:31 ] ふつうにftpコマンド使った方がよくね？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef