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 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 だな 光沢液晶眺めながらヒゲ剃りも出来そうだ 410 名前：デフォルトの名無しさん mailto:sage [2008/11/14(金) 23:21:13 ] 予告 GetAsyncKeyState 411 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 07:43:01 ] OS：Win XP Pro SP3 WSH：v5.7 var s1 = "C:\\bin"; var s2 = "C:\\bin\\hoge"; if (s2.search(new RegExp(s1)) != -1) WScript.echo("一致"); else WScript.echo("不一致"); s1 = s1.replace("\\","");s2 = s2.replace("\\","")にしてやれば一致するのですが 上記のコードはなぜ不一致になるのでしょうか？ またvar s1 = "C:\\\\bin";var s2 = "C:\\\\bin\\\\hoge";にもしてみましたが結果は不一致のまま変わりませんでした 412 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 12:47:59 ] >>411 var s1 = "C:\\\\bin";  var s2 = "C:\\bin\\hoge";  s1に正規表現のためのエスケープが必要。 413 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 14:38:09 ] えんえんとえんをつづけるのかｗ 414 名前：デフォルトの名無しさん [2008/11/15(土) 17:59:30 ] 各国の通貨暴落なのに円だけが上がってるからな 415 名前：デフォルトの名無しさん mailto:sage [2008/11/15(土) 21:10:43 ] >>412 なるほど検索文字列だけエスケープしなきゃならなかったんですね やったと思ったらs2も\を足してから一致しなかったんですね ありがとうございました 416 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 03:12:34 ] 各Windowsコンポーネントのインストール状態の一覧を取得する方法ってありますか？ 417 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 04:09:12 ] はい、ありますよ 418 名前：デフォルトの名無しさん [2008/11/16(日) 10:22:21 ] >>416 俺が前したのと同じ質問かい！…ログ見てください、おながいします。 419 名前：デフォルトの名無しさん [2008/11/16(日) 20:18:07 ] 類似品でこんなやつならマイクロソフトのサイトにあった そのものズバリも探せばあると思うよ これ以上は興味ないから知らん(キッパリ) strHost = "." Const HKLM = &H80000002 Set objReg = GetObject("winmgmts://" & strHost & _ "/root/default:StdRegProv") Const strBaseKey = _ "Software\Microsoft\Windows\CurrentVersion\" objReg.EnumKey HKLM, strBaseKey, arrSubKeys strLine=Array() For Each strSubKey In arrSubKeys intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "DisplayName", strValue) If intRet <> 0 Then intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "QuietDisplayName", strValue) End If If (strValue <> "") and (intRet = 0) Then Push strLine,strValue End If Next Wscript.Echo Join(strLine,vbLf) 'scripting.cocolog-nifty.com/blog/2006/09/vbscriptarraypu_e6e8.html Sub Push(Items,Item) ReDim Preserve Items(UBound(Items)+1) Items(UBound(Items))=Item End Sub 420 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 20:23:37 ] コピペ間違ったｗ正しいのはこれ 上のは動かないよ 'www.microsoft.com/japan/technet/scriptcenter/resources/wmifaq.mspx strHost = "." Const HKLM = &H80000002 Set objReg = GetObject("winmgmts://" & strHost & _ "/root/default:StdRegProv") Const strBaseKey = _ "Software\Microsoft\Windows\CurrentVersion\Uninstall\" objReg.EnumKey HKLM, strBaseKey, arrSubKeys strLine=Array() For Each strSubKey In arrSubKeys intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "DisplayName", strValue) If intRet <> 0 Then intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _ "QuietDisplayName", strValue) End If If (strValue <> "") and (intRet = 0) Then Push strLine,strValue End If Next Wscript.Echo Join(strLine,vbLf) Sub Push(Items,Item) ReDim Preserve Items(UBound(Items)+1) Items(UBound(Items))=Item End Sub 421 名前：デフォルトの名無しさん [2008/11/16(日) 21:14:46 ] それは「アプリケーションの一覧」でしょうが。 >>380-381のと同じじゃない？つうか私が貼った奴だけど。 「Windowsコンポーネントの一覧」はこっち>>356な。つうか私が貼った奴だけど。 インストール状態だけ知りたいなら↓ >・Windowsコンポーネントのインストール状態については以下のレジストリに格納されてる。 >「HEKY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OC Manager\Subcomponents」 「アプリケーション」と「Windowsコンポーネント」ってそんなに間違いやすい？ まあ>>416からして間違えてる可能性もあるけどさ。 422 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 21:38:36 ] >>421 おいおい日本語読めねえのはお前の方じゃないのか これはそのものじゃない類似品にしか過ぎない そのものは自分で探してくれと明確に断わってるぞ 家庭で嫌なことがあったら2chで赤の他人に突っかかるのは悪い習慣だ 423 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 21:48:37 ] >>420を類似品というのは酷すぎるだろ常考…あえて言うならミスディレクション。 424 名前：デフォルトの名無しさん [2008/11/16(日) 21:57:33 ] いやいやお前がよく読まずに突っかかってきたのは事実だ まずそれを謝罪しろアホ これだけ明確に書いてるのに これが質問のものを貼ったと誤解したのは地球上でアホ＝>>421=>>423ひとり ｢類似品でこんなやつならマイクロソフトのサイトにあった そのものズバリも探せばあると思うよ これ以上は興味ないから知らん(キッパリ)｣ 425 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 22:21:31 ] そもそも大して役にたたない類似品貼ったぐらいでガタガタ騒ぐなよ。 バカじゃねーのか？ 426 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 22:29:56 ] こいつは>>421=>>423 以前に登場したとき>>338>>356からキモイやつだったんだな 文章のキモさから警戒されて前も誰もレスつけなかったｗｗ 427 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 22:32:56 ] >>425 スレ検索したらどないでっかあんさん そのものずばりを貼った人は過去に1人もいませんよ バカじゃねーのか？ 428 名前：デフォルトの名無しさん [2008/11/16(日) 22:34:01 ] >>421はこのスレにミスディレクションということで 429 名前：デフォルトの名無しさん [2008/11/16(日) 22:37:59 ] >>425 たいそうに演説するんだったらお前が貼れｗｗ 430 名前：デフォルトの名無しさん [2008/11/16(日) 22:40:13 ] ミスディレクションｗｗｗｗｗｗｗｗｗアホです 431 名前：デフォルトの名無しさん [2008/11/16(日) 22:42:56 ] 　　　　　　　☆ ﾁﾝ　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　　　　　　　　　　　　　　　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　☆　ﾁﾝ　　〃　∧＿∧ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣ 　　ヽ　＿＿_＼（＼・∀・）＜　ミスディレクションさんの反撃まだ？ 　 　 　 ＼＿／⊂　⊂＿)＿ ＼＿＿＿＿＿＿＿＿＿＿＿＿ 　 　 ／￣￣￣￣￣￣￣／| 　　 | ￣ ￣￣￣￣￣￣:|　 | 　　 |Winコンポーネント .|／ 　　 ￣￣￣￣￣￣￣￣ 432 名前：デフォルトの名無しさん [2008/11/16(日) 22:47:46 ] なんすかこの流れｗ 433 名前：デフォルトの名無しさん mailto:sage [2008/11/16(日) 23:12:26 ] 俺が見ても>>419-420が役立たずのアホ 434 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 00:32:24 ] 慈円 435 名前：デフォルトの名無しさん [2008/11/17(月) 00:43:23 ] 　　　　　　　☆ ﾁﾝ　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　　　　　　　　　　　　　　　　　　　　　ﾏﾁｸﾀﾋﾞﾚﾀ〜 　☆　ﾁﾝ　　〃　∧＿∧ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣ 　　ヽ　＿＿_＼（＼・∀・）＜　ミスディレクションさんの登場まだ？ 　 　 　 ＼＿／⊂　⊂＿)＿ ＼＿＿＿＿＿＿＿＿＿＿＿＿ 　 　 ／￣￣￣￣￣￣￣／| 　　 | ￣ ￣￣￣￣￣￣:|　 | 　　 |Winコンポーネント .|／ 　　 ￣￣￣￣￣￣￣￣ 436 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 00:45:28 ] >>427 　大　し　て　役　に　た　た　な　い　類似品 　〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜 理解できたか？ 437 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 00:45:44 ] 珍しく伸びてると思ったら・・・ 438 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 05:44:19 ] フルパスからフォルダ作成(存在しない親フォルダも作成)をできるだけにスマートにvbsで書くとどうなりますか？ 439 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 07:01:33 ] こいつはスレ出入り禁止 >>421=>>423=>>338=>356 こいつの文章は特徴があるからすぐわかる 440 名前：デフォルトの名無しさん mailto:sage [2008/11/17(月) 07:09:42 ] >>438 フォルダが作成される。

---

---

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

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