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

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

345:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/09/30 23:59:55
うしろだけでもよいかも
"::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}"

347:デフォルトの名無しさん
08/10/01 00:11:47
>>346
うん、それはダメだった。理屈は良く分からんが。

348:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/10/06 21:32:14
hard to close

351:349
08/10/07 03:20:31
自己解決しました。
検索したら、そういう動作をするサンプルプログラムがありました。
でもハード側もそれに対応してないと動かない、ということでした。

結論は：開く｢閉じる｣をするVBscriptのプログラムはあるが、すべてのハードでは出来ない

ﾟ　　　　　　　(_ヽ　　　　　　+
　' *　　／⌒ヽ.| ｜　　+　　　　　対応してないハードでそれを使っても
　　 .　（＾ω＾ / /　　　　　　　｡　←ガタン！と出たままになると
　 + 　y'_　　　ｲ　　　　*
　　　〈_,)l　　　｜ *　　　　　　。
ｶﾞﾀﾝ lll./　/ｌ　｜ lll　

352:デフォルトの名無しさん
08/10/07 08:57:42
原理的にはコードを逆に書けば逆の動作をするはず。

)"noitacilppA.llehS"(tcejbOetaerC = llehSjbo teS
)"\:D"(ecapSemaN.llehSjbo = evirDjbo tes
metI.smetI.evirDjbo = metIjbo teS
")J&(し出り取" breVekovnI.metIjbo

353:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/10/07 18:46:10
>>353
AppActivate

355:デフォルトの名無しさん
08/10/07 21:14:56
>>354
それだと、まずいんだ・・・
FEZero_Client.exeを起動している間にも、ブラウザーで作業したりするから。

356:デフォルトの名無しさん
08/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:デフォルトの名無しさん
08/10/07 22:40:11
>>339以降は関係ない話だから役に立つはずがない。

358:デフォルトの名無しさん
08/10/10 01:16:11
>>353 tasklist.exe

359:デフォルトの名無しさん
08/10/10 07:57:28
>>358
nprotectによってFEZero_clinet.exeがごっそり消えてる。
タスクマネージャーを使っても、ＷＭＩをつかっても、Tasklistをつかっても、結果は同じだった。

360:デフォルトの名無しさん
08/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入れたから？うーん。

URLﾘﾝｸ(www1.u-netsurf.ne.jp)
> Windows98 SecondEdition は 5.1
> Windows 2000 SP3 は 5.1
> WindowsXP は 5.6

361:デフォルトの名無しさん
08/10/11 11:53:54
> それともIE6.0 SP1入れたから？

多分それだと思う。

URLﾘﾝｸ(www.microsoft.com)

＋よく寄せられる質問

使用中の 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:デフォルトの名無しさん
08/10/11 14:46:39
Version 5.6 だった
で、それがなんなの
｢うーん｣なんて書くほどのことかよアホ

363:デフォルトの名無しさん
08/10/11 14:55:49
わざわざ3行もレスするような事かよアホ

364:デフォルトの名無しさん
08/10/11 15:20:47
>>362
違いがわからない奴が無理してレスする必要は無い

365:デフォルトの名無しさん
08/10/11 17:49:09
ダバダ～

366:デフォルトの名無しさん
08/10/11 18:34:16
　　　　　　　　　＿＿＿
　　　　　　　 / 　　　　　ヽ　　　　｢うーん｣
　　　　, -‐ (_).⌒ l￣| ⌒ |　　　　　＿＿ｏ
　　　ｌ_ｊ_ｊ_ｊと)　ﾉ─|　　ﾉ　　　　　　　　|　二|二''　　＿
　　　　/ 　 /　　　　　　　ヽ　　　　　　ノ　　　|　　ヤ　　　ｯ
　　　〈　ノ　　　　　　　　 |

367:デフォルトの名無しさん
08/10/11 19:02:31
マンダム

368:デフォルトの名無しさん
08/10/11 19:08:46
この３人は40代(以上)の中年プログラマー
　　↓↓↓
>>364 >>365 >>367

369:デフォルトの名無しさん
08/10/11 19:44:07
ネタ元の分かるお前もなｗ

370:デフォルトの名無しさん
08/10/11 20:59:36
この３人はN88BASICで育った世代
　　↓↓↓
>>364 >>365 >>367

371:デフォルトの名無しさん
08/10/11 21:41:26
初体験はTK-80だったわ(ﾎﾟｯ

372:デフォルトの名無しさん
08/10/11 23:06:40
>>361
丁寧にコピペまでサンクスです
お陰でWSHのバージョンに関係しそうな要素が掴めました
こんなところかな。ちゃんと管理していこうと思ってます。それでは失礼
・導入OS
・IEバージョンうｐ
・WSHバージョンうｐ

373:デフォルトの名無しさん
08/10/11 23:16:01
TKとはトレーニングキットの意味じゃなく小室哲哉のことね。これ常識中の常識。

374:デフォルトの名無しさん
08/10/16 14:48:58
ドラッグアンドドロップした画像をペイントで開くにはどうすればいいですか？

375:デフォルトの名無しさん
08/10/16 15:34:24
WScript.Shellでmspaint.exeをRun

376:デフォルトの名無しさん
08/10/23 22:33:22
Windows Script Host の実行の失敗しました。（この操作を完了するのに十分な記憶域がありません。）
ってエラーが出るのですがなんでしょうか？ある程度調べてみたのですが改善されませんでした。
どなたかご教授お願いします。

377:デフォルトの名無しさん
08/10/24 14:18:54
>>376
ファイル名を変えろ or フルパスで指定しろ

378:デフォルトの名無しさん
08/10/24 14:27:59
>フルパスで指定しろ
だめ

379:デフォルトの名無しさん
08/10/24 20:05:31
>>377,378
ありがとうございました

380:デフォルトの名無しさん
08/10/30 18:40:50
すみません。
プログラムの追加と削除やスタートメニューを見てインスコされているアプリの一覧を作りたいです。
教えて下さい。

381:デフォルトの名無しさん
08/10/30 19:54:34
URLﾘﾝｸ(www.microsoft.com)

382:デフォルトの名無しさん
08/10/30 19:57:47
dir /s /b c:\*.exe

383:デフォルトの名無しさん
08/10/30 20:51:11
format c:

384:３８０
08/10/30 22:30:06
すみません。真面目に訊いてるんですけど。。。
アプリの件は皆さんがふざけている間にPCViewっていうフリーソフトで事故怪傑しました。
その他にインスコされてるフォント名の一覧が欲しいです。
これが最後☆チャンスです。皆さんの役に立つとこ見せて下さい。

385:デフォルトの名無しさん
08/10/30 22:36:55
>>384
おれは真面目に>>381って返したつもりなんだけどな。無視ですかそうですか。ちょっと泣けちゃう。フォント名の一覧？知るかばーか。

386:デフォルトの名無しさん
08/10/31 12:00:21
>>382 >>383 すれ違い
>>384 フリーソフトさがせ

387:デフォルトの名無しさん
08/10/31 12:40:02
appwiz.cpl中のhtaで使ってるobjectは利用できないのかね？

388:３８０
08/10/31 13:12:23
>>385
こっちは教えてくれって頭下げてんですよ。>>381の一覧見てどうしろってんですか。
もったい付けてないでちゃちゃっとスプリクト教えてくれさえすれば良いだけなのに、
どうしてプログラムの人ってまともにコミュニケーション取れないのばかりなんだろう。

389:デフォルトの名無しさん
08/10/31 13:17:54
>>387
cplってhtaなん？

390:デフォルトの名無しさん
08/10/31 13:55:55
>>388
お前馬鹿？
ソース書いてあるじゃん。

> >>381の一覧

一覧って書いてるところからして、もしかして手打ちでURL入れて最後の#以降を入れなかった
せいでページの目次部分を見てるとか？
もしそうなら超バカかつ超失礼な奴だな。381にちゃんと謝っとけ！

391:３８０
08/10/31 14:42:27
はいはいｗ結局こんな簡単なスプリクトも組めないんですねお前らｗ言い訳乙

392:デフォルトの名無しさん
08/10/31 16:25:16
>>391
>>381の意味するところが分からないようなら自力では無理。
素直にコンパネ開いて手作業で写しなさい。あんたの場合それが一番早いやり方。

393:３８０
08/10/31 17:32:26
もしも～し？
自力で何とかなるなら最初からこんなキモスレで質問なんかしませんよ～
日本語通じてますかぁ～
私は、どうせ暇なあんた達にたまには人の役に立てるチャンスを与えてやっただけ

394:デフォルトの名無しさん
08/10/31 18:24:46
悪いが人間の定義から手取り足取り教えてやるほど親切じゃないｗ

395:デフォルトの名無しさん
08/10/31 18:28:56
"ヒント貰っても"自力で出来ないならってことなんだが
日本語通じてないのはどっちかな（￣ー￣）ﾆﾔﾘ

それにオマエは与える側ではなく物乞う側だ
答えそのものを与えるも、ヒントだけ与えるも、こちらの自由
俺等の掌の上で哀れに乞い踊り、弄られ怒り狂う様を
ニヤニヤ眺められるだけのピエロでしかない

もちろんこれを否定するのは勝手だが
オマエは目的のことを教えて貰えず困っており
こちらはなんら困ってないという事実が全てを物語ってしまっている

396:デフォルトの名無しさん
08/10/31 18:39:18
res://appwiz.cpl/default.hta

397:デフォルトの名無しさん
08/10/31 18:53:55
>>384
dir c:\windows\fonts

398:デフォルトの名無しさん
08/10/31 19:01:11
ヒント
createobject("shell.application").namespace("shell:fonts")

399:デフォルトの名無しさん
08/10/31 20:03:18
スプリクト（笑）

400:デフォルトの名無しさん
08/10/31 20:09:53
まぁ正直わからんでもないな
聞いてる方の態度もアレだがそれを抜きにしても
ちょっとなんだかなぁってのが多いのはなんなんだろうな

401:デフォルトの名無しさん
08/10/31 20:14:06
即答されてるんだから、後はどうでもいいだろ。

402:デフォルトの名無しさん
08/10/31 21:44:38
新しいスプリクト言語が開発された噂のスレはこちらですか？

403:３８０
08/10/31 22:07:04
なに必死になっちゃってんの？顔真っ赤ですよぅｗキモオタどもダサ過ぎｗ
あ～はいはい困ってまちゅよぅ大変だぁこれで満足ですかｗｗｗ

404:デフォルトの名無しさん
08/10/31 22:23:14
満足だから、もうどっかに逝け。

405:デフォルトの名無しさん
08/10/31 22:23:59
スクリプトだろｗ
大人なら、もうちょっとストリクトに書けよな
と思ったら、なんだ幼児でちたか

406:デフォルトの名無しさん
08/10/31 22:30:24
>>380
＞なに必死になっちゃってんの？顔真っ赤ですよぅｗ

光沢モニタってのはなかなか便利なものだな。

407:デフォルトの名無しさん
08/10/31 22:47:42
はいはいでもして事故怪傑してくださいな

408:デフォルトの名無しさん
08/11/01 00:08:19
はいはいスプリクトスプリクト

409:デフォルトの名無しさん
08/11/01 10:23:04
>>406
だな

光沢液晶眺めながらヒゲ剃りも出来そうだ