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

1 名前：デフォルトの名無しさん [2008/04/23(水) 20:00:50 ] (　´ゝ`)　誰か詳しい情報ｷﾎﾞﾝﾇ ●過去スレ WSH(・∀・)ｽﾚｯﾄﾞ! pc11.2ch.net/test/read.cgi/tech/1055075469/ WSH(・∀・)ｽﾚｯﾄﾞ! Part 2 pc11.2ch.net/test/read.cgi/tech/1176698934/ ●関連スレ お前ら、wsh使ってますか? Part7 pc11.2ch.net/test/read.cgi/win/1190548945/ HTAをもっと流行らせる計画 pc11.2ch.net/test/read.cgi/tech/1124559962/ ★WSHでCGI★JScriptVBScript pc11.2ch.net/test/read.cgi/php/1059745064/ ●公式サイト Windows Script www.microsoft.com/japan/msdn/scripting/ ●個人サイト Windows Scripting Host homepage3.nifty.com/aya_js/wsh/index.htm Windows Scripting Host Laboratory www.roy.hi-ho.ne.jp/mutaguchi/wsh/ Windows Script Wiki winscript.s41.xrea.com/wiki/index.php 335 名前：デフォルトの名無しさん mailto:sage [2008/09/29(月) 02:32:11 ] >>333 このスレがグルジアでの米ロ軍事衝突を食い止めてたの知らないなんて どんだけにわかなんだよ 336 名前：デフォルトの名無しさん mailto:sage [2008/09/29(月) 20:22:48 ] >>335 米ロが衝突とかどうでもイイからさ、 インストール済のWindowsコンポーネントの一覧をテキストファイルに落とす方法を教えてくれよ。 いや教えてください。お願いします。この通りです。 337 名前：デフォルトの名無しさん mailto:sage [2008/09/29(月) 21:54:22 ] Windowsコンポーネント？ その中でWSHから使えるのなんて極一部(ActiveXコンポ)だぞ ActiveXコンポのみなら、各種オブジェクトブラウザで一覧出来るので リスト取得ツールでも使ってテキストに落とせば良い WSHから使えないものも含めて、Windowsコンポ全てを網羅したいならスレ違い スクリプトで取得したいなら、レジストリを嫁 レジストリの内容取得は、WshShell使う方法はWSHヘルプに載ってるし WMI使う方法なら、そこら辺にサンプルがごろごろ転がってる レジストリの内容解釈に付いてはスレ違いなので伏せる 338 名前：デフォルトの名無しさん mailto:sage [2008/09/29(月) 22:06:02 ] ちっがああああぅｗ コンパネの[プログラムの追加と削除]から[Windowsコンポーネントの追加と削除]って 選べるでしょ。あれの一覧。IISとかインストールするのに使うでしょ。 あの中から、どんなコンポーネントが選べるのか、 実際にインストールされているのはどれなのか？を テキストファイルに吐き出したい。それだけ。 米ロが衝突する前に教えてほしい。君の１レスが世界を救うんだ、頼む！ 339 名前：デフォルトの名無しさん mailto:sage [2008/09/30(火) 00:01:49 ] 質問とは関係ないけどVistaだとこんなのもできた。 Set sh = WScript.CreateObject("Shell.Application") Set cpl = sh.NameSpace(3) For Each i in cpl.Items If i.Name = "プログラムと機能" Then For Each j in i.GetFolder.Items s = s & j.Name & vbNewLine Next End If Next MsgBox s 340 名前：デフォルトの名無しさん mailto:sage [2008/09/30(火) 17:49:44 ] If i.Name = "プログラムと機能" Then msgbox i.path してみて、次からsh.NameSpace()に指定すればいいんじゃない？ 341 名前：デフォルトの名無しさん mailto:sage [2008/09/30(火) 21:05:19 ] Wscript.CreateObject("WindowsInstaller.Installer") 342 名前：デフォルトの名無しさん [2008/09/30(火) 21:15:48 ] おい、おまえらXPでも動くようなのを書けよ 小出しにするなまとめろ 343 名前：デフォルトの名無しさん [2008/09/30(火) 22:19:33 ] ていうかコンパネの一覧表か 要らんわ 344 名前：デフォルトの名無しさん mailto:sage [2008/09/30(火) 23:29:48 ] ほう助３３世 345 名前：デフォルトの名無しさん mailto:sage [2008/09/30(火) 23:49:30 ] >>340 なるほろ！Pathか。 ParseName("プログラムと機能") しても引っ掛からなかったんで廻してしまったよ。 Set cpl = WScript.CreateObject("Shell.Application").NameSpace("::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}") For Each i in cpl.Items s = s & i.Name & vbNewLine Next MsgBox s 346 名前：デフォルトの名無しさん mailto:sage [2008/09/30(火) 23:59:55 ] うしろだけでもよいかも "::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}" 347 名前：デフォルトの名無しさん mailto:sage [2008/10/01(水) 00:11:47 ] >>346 うん、それはダメだった。理屈は良く分からんが。 348 名前：デフォルトの名無しさん mailto:sage [2008/10/01(水) 01:58:58 ] 数字はないか？一覧してみ On Error Resume Next Set Shell=CreateObject("Shell.Application") For k=0 To 100 Set Folder=Shell.NameSpace(k) WScript.StdOut.WriteLine Join(Array(k,Folder.Self.Name,Folder.Self.Path),vbTab) Next 349 名前：デフォルトの名無しさん mailto:sage [2008/10/06(月) 21:22:19 ] ﾟ 　 　　　　　　(_ヽ　　　　　　+ 　' *　　／⌒ヽ.| ｜　　+ 　　 .　（ ＾ω＾ / /　　　　　　　｡ 　 + 　y'_　　　 ｲ　　　　* 　　　〈_,)l　　　｜ *　　　　　　。 ｶﾞﾀﾝ lll./　/ｌ　｜ lll　　　　+ VBScriptで、こんな感じでドライブの取り出しはOKですが、逆の｢閉じる｣は出来ませんか？ ２ｃｈに集う墓でも無理？ Set objShell = CreateObject("Shell.Application") set objDrive = objShell.NameSpace("D:\") Set objItem = objDrive.Items.Item objItem.InvokeVerb "取り出し(&J)" 350 名前：デフォルトの名無しさん mailto:sage [2008/10/06(月) 21:32:14 ] hard to close 351 名前：349 mailto:sage [2008/10/07(火) 03:20:31 ] 自己解決しました。 検索したら、そういう動作をするサンプルプログラムがありました。 でもハード側もそれに対応してないと動かない、ということでした。 結論は：開く｢閉じる｣をするVBscriptのプログラムはあるが、すべてのハードでは出来ない ﾟ 　 　　　　　　(_ヽ　　　　　　+ 　' *　　／⌒ヽ.| ｜　　+　　　　　対応してないハードでそれを使っても 　　 .　（ ＾ω＾ / /　　　　　　　｡　←ガタン！と出たままになると 　 + 　y'_　　　 ｲ　　　　* 　　　〈_,)l　　　｜ *　　　　　　。 ｶﾞﾀﾝ lll./　/ｌ　｜ lll　 352 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 08:57:42 ] 原理的にはコードを逆に書けば逆の動作をするはず。 )"noitacilppA.llehS"(tcejbOetaerC = llehSjbo teS )"\:D"(ecapSemaN.llehSjbo = evirDjbo tes metI.smetI.evirDjbo = metIjbo teS ")J&(し出り取" breVekovnI.metIjbo 353 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 09:17:44 ] objShell.Run """C:\\ProgramData\\Microsoft\\Windows\Start Menu\\Programs\\Fantasy Earth Zero\\Fantasy Earth Zero.lnk""",1,1 Do Set ProcessSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Process where Name='FEzero_Client.exe') WScript.Sleep 1000 '１秒間待機 Loop While ProcessSet.Count > 0 ’処理 FEzero_Client.exeが終了したら、適当なプログラムを実行させたいのだが、FEzero_Client.exeがnprotectによって隠蔽されているせいでうまくいかない。 そこでウィンドウが存在するかどうかを判定することによってFEzero_Client.exeが起動しているかどうかを調べる方法をとりたい。 でも、いくら探しても、見つからない。 ウィンドウ名が存在しているかどうかを調べる方法があったら教えてほしい。 354 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 18:46:10 ] >>353 AppActivate 355 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 21:14:56 ] >>354 それだと、まずいんだ・・・ FEZero_Client.exeを起動している間にも、ブラウザーで作業したりするから。 356 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 22:25:24 ] >>338 亀＆自己レスだが、「Windowsコンポーネントの一覧＆インストール状態」の取得デキタ。 レスはあまり参考にならなかった（すまん！）が、一応此処で聞いたって事でフィードバックしておく。 ちなみにXPSP2な。2003でもいけると思う。 ・コンパネから起動する「Windowsコンポーネントの追加と削除」は以下のコマンドで起動されてる。 「c:\windows\system32\sysocmgr.exe /y /i:c:\windows\inf\sysoc.inf」 ・上のコマンドの引数の「sysoc.inf」ファイルの「Components」セクションで他の*.infファイルへの参照が列挙されてる。 *.infファイルが明記してなかったり「hide」に設定されてる行は無視される。 ・具体的なコンポーネントの名称、説明、「Windowsコンポーネントの追加と削除」画面での階層構造とかは 個々の*.infファイルの方を見る。 ・Windowsコンポーネントのインストール状態については以下のレジストリに格納されてる。 「HEKY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OC Manager\Subcomponents」 ・個々の*.infファイルの「Optional Components」に列挙されているコンポーネント名が、 上のレジストリキー配下のプロパティに対応してる。 以上。プログラムはinfファイルやレジストリを読むだけのダルいものなのであえて載せないｗ え？WSH関係ない？そうだよちきしょう。 357 名前：デフォルトの名無しさん mailto:sage [2008/10/07(火) 22:40:11 ] >>339以降は関係ない話だから役に立つはずがない。 358 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 01:16:11 ] >>353 tasklist.exe 359 名前：デフォルトの名無しさん mailto:sage [2008/10/10(金) 07:57:28 ] >>358 nprotectによってFEZero_clinet.exeがごっそり消えてる。 タスクマネージャーを使っても、ＷＭＩをつかっても、Tasklistをつかっても、結果は同じだった。 360 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 03:01:54 ] Windows 2000 SP4、IE6.0 SP1、WindowsUpdateは一通り入れた状態でcscript > C:\Documents and Settings\Administrator>cscript > Microsoft (R) Windows Script Host Version 5.6 > Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. WSH5.6を入れた記憶は無いんだけど SP4は5.6がデフォ？それともIE6.0 SP1入れたから？うーん。 www1.u-netsurf.ne.jp/~tomo_c/tips/R23_002.html > Windows98 SecondEdition は 5.1 > Windows 2000 SP3 は 5.1 > WindowsXP は 5.6 361 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 11:53:54 ] > それともIE6.0 SP1入れたから？ 多分それだと思う。 www.microsoft.com/japan/technet/security/bulletin/MS02-009.mspx ＋よく寄せられる質問 使用中の VBScript のバージョンはどのように分かるのですか? VBScript.dll ファイルは 2 つのソフトウェア製品 (Internet Explorer および Microsoft Windows Script) に同梱されています。 ・Internet Explorer 6.0 : Internet Explorer 6.0 を実行しているお客様については、 　使用しているプラットフォームに関係なく、Windows Script 5.6 が既定でインストー 　ルされています。Windows Script 5.6は Internet Explorer 6.0 に同梱されています。 ・Internet Explorer 5.5 : Internet Explorer 5.5 を実行しているお客様については、 　使用しているプラットフォームに関係なく、Windows Script 5.5 が既定でインストー 　ルされています。Windows Script 5.5 は Internet Explorer 5.5 に同梱されています。 ・Internet Explorer 5.01 : Internet Explorer 5.01 を実行しているお客様については、 　使用しているプラットフォームに関係なく、Windows Script 5.1 が既定でインストール 　されています。 Internet Explorer のバージョンを 6.0 または 5.5 にアップグレードしていないお客様は、 次のバージョンの Windows Script を実行している高い可能性があります。 ・Windows 2000 : Windows Script 5.1 ・Win ME : Windows Script 5.5 # ちなみに、Windows Script 5.1 は、元々 Windows Script 2.0 と呼ばれていた。 362 名前：デフォルトの名無しさん [2008/10/11(土) 14:46:39 ] Version 5.6 だった で、それがなんなの ｢うーん｣なんて書くほどのことかよアホ 363 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 14:55:49 ] わざわざ3行もレスするような事かよアホ 364 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 15:20:47 ] >>362 違いがわからない奴が無理してレスする必要は無い 365 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 17:49:09 ] ダバダ〜 366 名前：デフォルトの名無しさん [2008/10/11(土) 18:34:16 ] 　　　　　　　　　＿＿＿ 　　　　　　　 / 　　 　　　ヽ　　　　｢うーん｣ 　　　　, -‐ (_).⌒ l￣| ⌒ |　　　　　＿＿ｏ 　　 　 ｌ_ｊ_ｊ_ｊ と)　ﾉ─|　　ﾉ　　　　　　　　|　二|二''　　＿ 　　　　/ 　 /　　　　　　　ヽ　　　 　　　ノ　　　|　　ヤ　　　ｯ 　　　 〈　 ノ　　　　　　　　 | 367 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 19:02:31 ] マンダム 368 名前：デフォルトの名無しさん [2008/10/11(土) 19:08:46 ] この３人は40代(以上)の中年プログラマー 　　↓↓↓ >>364>>365>>367 369 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 19:44:07 ] ネタ元の分かるお前もなｗ 370 名前：デフォルトの名無しさん [2008/10/11(土) 20:59:36 ] この３人はN88BASICで育った世代 　　↓↓↓ >>364>>365>>367 371 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 21:41:26 ] 初体験はTK-80だったわ(ﾎﾟｯ 372 名前：デフォルトの名無しさん mailto:sage [2008/10/11(土) 23:06:40 ] >>361 丁寧にコピペまでサンクスです お陰でWSHのバージョンに関係しそうな要素が掴めました こんなところかな。ちゃんと管理していこうと思ってます。それでは失礼 ・導入OS ・IEバージョンうｐ ・WSHバージョンうｐ 373 名前：デフォルトの名無しさん [2008/10/11(土) 23:16:01 ] TKとはトレーニングキットの意味じゃなく小室哲哉のことね。これ常識中の常識。 374 名前：デフォルトの名無しさん mailto:sage [2008/10/16(木) 14:48:58 ] ドラッグアンドドロップした画像をペイントで開くにはどうすればいいですか？ 375 名前：デフォルトの名無しさん mailto:sage [2008/10/16(木) 15:34:24 ] WScript.Shellでmspaint.exeをRun 376 名前：デフォルトの名無しさん mailto:sage [2008/10/23(木) 22:33:22 ] Windows Script Host の実行の失敗しました。（この操作を完了するのに十分な記憶域がありません。） ってエラーが出るのですがなんでしょうか？ある程度調べてみたのですが改善されませんでした。 どなたかご教授お願いします。 377 名前：デフォルトの名無しさん mailto:sage [2008/10/24(金) 14:18:54 ] >>376 ファイル名を変えろ or フルパスで指定しろ 378 名前：デフォルトの名無しさん mailto:sage [2008/10/24(金) 14:27:59 ] >フルパスで指定しろ だめ 379 名前：デフォルトの名無しさん mailto:sage [2008/10/24(金) 20:05:31 ] >>377,378 ありがとうございました 380 名前：デフォルトの名無しさん mailto:sagｅ [2008/10/30(木) 18:40:50 ] すみません。 プログラムの追加と削除やスタートメニューを見てインスコされているアプリの一覧を作りたいです。 教えて下さい。 381 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 19:54:34 ] ttp://www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx#EABAE 382 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 19:57:47 ] dir /s /b c:\*.exe 383 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 20:51:11 ] format c: 384 名前：３８０ mailto:sagｅ [2008/10/30(木) 22:30:06 ] すみません。真面目に訊いてるんですけど。。。 アプリの件は皆さんがふざけている間にPCViewっていうフリーソフトで事故怪傑しました。 その他にインスコされてるフォント名の一覧が欲しいです。 これが最後☆チャンスです。皆さんの役に立つとこ見せて下さい。 385 名前：デフォルトの名無しさん mailto:sage [2008/10/30(木) 22:36:55 ] >>384 おれは真面目に>>381って返したつもりなんだけどな。無視ですかそうですか。ちょっと泣けちゃう。フォント名の一覧？知るかばーか。 386 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 12:00:21 ] >>382 >>383 すれ違い >>384 フリーソフトさがせ 387 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 12:40:02 ] appwiz.cpl中のhtaで使ってるobjectは利用できないのかね？ 388 名前：３８０ mailto:sagｅ [2008/10/31(金) 13:12:23 ] >>385 こっちは教えてくれって頭下げてんですよ。>>381の一覧見てどうしろってんですか。 もったい付けてないでちゃちゃっとスプリクト教えてくれさえすれば良いだけなのに、 どうしてプログラムの人ってまともにコミュニケーション取れないのばかりなんだろう。 389 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 13:17:54 ] >>387 cplってhtaなん？ 390 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 13:55:55 ] >>388 お前馬鹿？ ソース書いてあるじゃん。 > >>381の一覧 一覧って書いてるところからして、もしかして手打ちでURL入れて最後の#以降を入れなかった せいでページの目次部分を見てるとか？ もしそうなら超バカかつ超失礼な奴だな。381にちゃんと謝っとけ！ 391 名前：３８０ mailto:sagｅ [2008/10/31(金) 14:42:27 ] はいはいｗ結局こんな簡単なスプリクトも組めないんですねお前らｗ言い訳乙 392 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 16:25:16 ] >>391 >>381の意味するところが分からないようなら自力では無理。 素直にコンパネ開いて手作業で写しなさい。あんたの場合それが一番早いやり方。 393 名前：３８０ mailto:sagｅ [2008/10/31(金) 17:32:26 ] もしも〜し？ 自力で何とかなるなら最初からこんなキモスレで質問なんかしませんよ〜 日本語通じてますかぁ〜 私は、どうせ暇なあんた達にたまには人の役に立てるチャンスを与えてやっただけ 394 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:24:46 ] 悪いが人間の定義から手取り足取り教えてやるほど親切じゃないｗ 395 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:28:56 ] "ヒント貰っても"自力で出来ないならってことなんだが 日本語通じてないのはどっちかな（￣ー￣）ﾆﾔﾘ それにオマエは与える側ではなく物乞う側だ 答えそのものを与えるも、ヒントだけ与えるも、こちらの自由 俺等の掌の上で哀れに乞い踊り、弄られ怒り狂う様を ニヤニヤ眺められるだけのピエロでしかない もちろんこれを否定するのは勝手だが オマエは目的のことを教えて貰えず困っており こちらはなんら困ってないという事実が全てを物語ってしまっている 396 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:39:18 ] res://appwiz.cpl/default.hta 397 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 18:53:55 ] >>384 dir c:\windows\fonts 398 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 19:01:11 ] ヒント createobject("shell.application").namespace("shell:fonts") 399 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 20:03:18 ] スプリクト（笑） 400 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 20:09:53 ] まぁ正直わからんでもないな 聞いてる方の態度もアレだがそれを抜きにしても ちょっとなんだかなぁってのが多いのはなんなんだろうな 401 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 20:14:06 ] 即答されてるんだから、後はどうでもいいだろ。 402 名前：デフォルトの名無しさん [2008/10/31(金) 21:44:38 ] 新しいスプリ ク ト言語が開発された噂のスレはこちらですか？ 403 名前：３８０ mailto:sagｅ [2008/10/31(金) 22:07:04 ] なに必死になっちゃってんの？顔真っ赤ですよぅｗキモオタどもダサ過ぎｗ あ〜はいはい困ってまちゅよぅ大変だぁこれで満足ですかｗｗｗ 404 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:23:14 ] 満足だから、もうどっかに逝け。 405 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:23:59 ] スクリプトだろｗ 大人なら、もうちょっとストリクトに書けよな と思ったら、なんだ幼児でちたか 406 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:30:24 ] >>380 ＞なに必死になっちゃってんの？顔真っ赤ですよぅｗ 光沢モニタってのはなかなか便利なものだな。 407 名前：デフォルトの名無しさん mailto:sage [2008/10/31(金) 22:47:42 ] はいはいでもして事故怪傑してくださいな 408 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 00:08:19 ] はいはいスプリクトスプリクト 409 名前：デフォルトの名無しさん mailto:sage [2008/11/01(土) 10:23:04 ] >>406 だな 光沢液晶眺めながらヒゲ剃りも出来そうだ

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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