お前ら、WindowsScripting使ってますか？ Part3

前スレ
#1 http://pc.2ch.net/test/read.cgi/win/1009175619/
#2 http://pc2.2ch.net/test/read.cgi/win/1022248379/
こんなことコンピュータにやらせろよ。そう思ったことはありませんか？
簡易的な実行環境も含めて普通のOSだったら当たり前に備わっている自動実行。
Windowsの標準に備わっているそれがWSH(Windows Script Host)です。
また、ここではWSHだけに限らずWMI、ADSIなどのネタもOKです。

掲示板一般の注意は包括の上、その他諸注意。

・煽りや荒らしは基本的に無視の方針でお願いしますが、ウイルス、ワーム等の投稿は拒めません。
この板はWindows板であって、プログラム一般に知識のない方も見る可能性があります。
ローカルおよびネットワーク等に害が加わるコードを発見しましたら、その投稿者を騙って何をするものなのかとか、無害化、有益化等の解説を加えて頂ければありがたいです。

・また、一レスに収まりきれないコード(30行以上)はソースアップ板でどうぞ。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177
ソースをアップ出来ましたら、そこの個別リンクを張り、それを元に話を進めていただけると便利かもです。

・ここでヒントを得て完成したスクリプトは皆さんにお披露目してください。
　同じことで悩んでいる人のためになります。

・質問する際は、OS及び使用するコンポーネントのバージョンもまず先に告げることをお忘れなく。

基本的にsage進行で、プログラムのことよりも「これが出来る」便利さを語るスレになったらいいなと思います。

また関連の>>1-4も見てください。

　森山 直太朗 　【さくら（独唱）】



　　　　　　　　　　　　　　　　　　　ｻｸﾗｯ
　　　ｻｸﾗｯ　　　　 　　ヽ(ﾟ∀ﾟ )ﾉ
　　　　　　　　　　彡　 　（桜 ）ヘ
　　　ヽ( ﾟ∀ﾟ)ﾉ　　　　　　<
　　　　 （ 桜）ﾍ 　　彡
　　　　　<

便利なリンク集(前スレまとめ)

WSH本体
http://www.microsoft.com/japan/msdn/scripting/default.asp
オンラインドキュメント
http://www.microsoft.com/japan/developer/library/default.asp?PP=/japan/developer/library/toc/script56/script560.xml&tocPath=script560&URL=/japan/developer/library/script56/vtoriMicrosoftWindowsScriptTechnologies.htm

オブジェクト内のメソッドプロパティがわからないときはVB、Officeがあるならオブジェクトブラウザを見ること。
持ってない人はOLE/COM Object Viewerを使う。
http://www.microsoft.com/com/resources/oleview.asp

WindowsXPには、コマンドラインツールとして、VBSファイルが結構あるみたいですね。
http://www.atmarkit.co.jp/fwin2k/xp_feature/013commandtool/commandtool.html
XPで追加・強化された、スクリプト関係の機能についてはこちら。
http://content.communities.msn.com/WindowsScript/windowsxp.msnw
ADSIの特集全文(?)が再掲されています。
http://www.galliver.co.jp/writing/nikkei_tokushu/wad002/index.html

Windows StartのWSH連載記事「Windows Scripter 2000」
http://www.netjoy.ne.jp/~tuya/RensaiHome.html

USERS Group過去ログ - WSH
http://www.users.gr.jp/ml/archive/wsh/

個人サイト
ttp://www.roy.hi-ho.ne.jp/mutaguchi/wsh/
ttp://member.nifty.ne.jp/aya/wsh/
ttp://www.hi-ho.ne.jp/tetsuzo/windows/wsh/

コンポーネント関連リンク
外部コンポーネント(MS)
DCOM(98/Me)
http://www.microsoft.com/japan/com/dcom/dcom98/dcom13.asp
DCOM(95)
http://www.microsoft.com/japan/com/dcom/dcom95/dcom13.asp

MDAC - データベース･メールボックス･WebDAV･バイナリの操作
http://www.microsoft.com/data/download.htm
WMI(95/98/NT4.0) - 統一されたコンピュータオブジェクト化モデルを提供するスクリプティングAPI、リモート管理
http://www.microsoft.com/downloads/release.asp?releaseid=23142
ADSI - Active Dictoryの機能を操作
http://www.microsoft.com/downloads/release.asp?releaseid=11093
SOAP - 非集中/分散環境におけるシステム間の構造化され型付けされた情報の交換
http://msdn.microsoft.com/downloads/default.asp?URL=/code/sample.asp?url=/msdn-files/027/001/580/msdncompositedoc.xml
MSXML - XMLパーサ、SAX･DOM API、XSLT変換、POST/HTTPダウンロード
http://msdn.microsoft.com/downloads/default.asp?url=/downloads/sample.asp?url=/msdn-files/027/001/766/msdncompositedoc.xml

外部コンポーネント(MS社製以外)
BASP21 - メール、ファイルエンコード、文字コード変換、FTP/HTTPアップ、その他
ttp://www.hi-ho.ne.jp/babaq/basp21.html
Doodle2 - グラフィック変換、操作、描画
http://www.vector.co.jp/soft/winnt/prog/se219120.html
DynaCall - Win32APIコール
http://www.borncity.com/WSHBazaar/WSHDynaCall.htm

WSH(COM)参考書籍

「はじめてのWindows Scripting Host」　(株)アンク著　技術評論社
http://www2.gihyo.co.jp/books/bookinfo.asp?ID=327

「VBScriptポケットリファレンス」
http://www2.gihyo.co.jp/books/bookinfo.asp?ID=616

「使いながら覚えるWindowsScriptingHost プログラミング入門」 竹田英雄著　エーアイ出版
http://www.ai-pub.co.jp/contents/book/os/win_scr_host.html

「Windows Scripting Host入門 with VBScript」　毎日コミュニケーションズ
http://book.mycom.co.jp/books/bookshelf/1998/09/win_sp/index.html

「WSHで楽しむWindows95/98/NT4.0版　ウィンドウズ・スクリプティング入門　VBScript編」　メディアテック出版

「WSHクイックリファレンス」　羽山博著　オライリー・ジャパン
http://www.oreilly.co.jp/BOOK/wsh/wsh.htm

「Rubyを２５６倍使う本　邪道編」　arton著　ASCII
http://www.ascii.co.jp/books/detail/4-7561/4-7561-3603-6.html

「ADSIスクリプトによるWindows2000システム管理 Windows2000管理者ガイドブック」ピアソン・エデュケーション　トーマス・エック 著
http://www.pearsoned.co.jp/washo/win/wa_win70-j.html　(どちらかというとVBによる操作本？)

「標準ASPテクニカルリファレンス」山田祥寛著　SOFTBANK
http://books.softbank.co.jp/bm_detail.asp?sku=4797314001

中途半端なスレタイ

Host

何はともあれ乙 >>1

.zip .cabファイルの圧縮展開はどうやればいいですか?
コマンドラインではなくCOMでやりたいのですが。

>1 乙
結構参考にしているのでスレ立って良かった！

今度こそゲット！

>3に追加してここもどうぞ。

Microsoft TechNet
http://www.microsoft.com/japan/technet/treeview/default.asp?url=/japan/technet/scriptcenter/default.asp

>>9
http://www.csdinc.co.jp/archiver/lib/activex/index.html
ここのActiveX DLLがWSHから使用できるはずです。

WindowsScriptingでぐぐると8件しか出てこない罠

アクセスでデータベースのデザインビューの説明の項目を
取得したいのですが、どうすればいいでしょうか。

>>11
できればOS標準の機能を使いたいのですが。

圧縮解凍ができるAPIとかあったっけ？

>>14
http://groups.google.com/groups?hl=ja&lr=&ie=UTF-8&inlang=ja&c2coff=1&selm=Oqs%24H3ioCHA.1636%40TK2MSFTNGP09
cabファイル作成なら、MakeCab.MakeCabというコンポーネントが使えるようです。
Win2000とXPのみらしいですが。
また、解凍ができるかどうかは調べてません。

WinXPにはzipファイルを作成する機能がOS標準で存在するので、
コンポーネントとして登録されているような気がしますがこれも未調査です。

http://groups.google.com/groups?hl=ja&lr=&ie=UTF-8&inlang=ja&c2coff=1&selm=3D7FDE08.CDA30007%40hydro.com
あまり関係ないですが、WMIを使ってファイルやフォルダに圧縮属性をつける方法が出てます。

>>11 殿
11時11分 おみごと！

1)WSH(VBS)でIEで表示しているページを印刷させたいのですが、どのようにすれば良いでしょうか？

2)また、現在表示してるページの文字列(ソース)を取得するにはどうすれば良いでしょうか？

教えて君で申し訳ないのですが、このような情報をどうやって調べるかも教えていただければ助かります。
会社の仕事で、トップページを指定すると全てのリンクをたどって印刷する必要があるのです。
宜しくお願いします。

１。ExecWB でできますがなにか？
２。innertextとか。。

答えてあげたので、漏れの答えもキボン

>>18
2) の回答です。Windows2000で動作確認。
------------------------------------------
set http = createobject("msxml2.xmlhttp")
sURL = "http://www.microsoft.com/ms.htm"
http.open "GET",sURL,false
http.send
sHtml = http.responsetext
msgbox sHtml
------------------------------------------

>>このような情報をどうやって調べるか
臆せずに英語サイトを徘徊すれば、すぐに見つかります。
今回は「vbscript htm get source」でぐぐりましたよ。

確かそれってUnicodeだよね？

unicode でまずければ、自分でコンバータを用意するんじゃない？
このへんで。
<http://search.microsoft.com/search/results.aspx?View=msdn&st=a&s=2&c=4&qu=AscW>

http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871244846
http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871244826
http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871244709
http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871247214
http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871244751
http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871260844
http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871244834
http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2120992&pid=871336660

まずいとは言ってないけど…

現在開いているIEのウインドウの右上の[X]が押されるのを認知してイベントを起こす方法、解る神様いらっしゃいませんか？？？

>>25
ウインドウハンドルを監視する。
もしくは、IEをスクリプトから起動すれば、終了後になんらかの処理が可能。

言語に関係なく、アルゴリズムで悩んでるやつ多すぎ。

Dim objIE
Set objIE = WScript.CreateObject("InternetExplorer.Application", "Event_")
objIE.Visible = True
objIE.GoHome()
Do
WScript.Sleep 100
Loop

Sub Event_OnQuit()
MsgBox "閉じるイベント"
End Sub

回答ありがとうございます。
回答いただいたスクリプトについてですが
これをIEのhtmソースに組み込む場合、Wscript.Sleepが使えないと思うのですが
どのようにしますか？

htmlでやるのなら、シンプルにbodyタグのonUnload属性ではダメなの？
ページ切り替え時もイベント起きるけどね。

結局それでやりました。age

http://homepage.mac.com/maki170001/

なんかインストの後しばらく使ってると、どこかが壊れてしまうのか
まともに機能しなくなって、ブラウザでサイト開いたときや
右クリックでスクリプト使うメニュー動かしたときにエラーがでるようになる。

その度に js56njp.exe や WindowsScript56JP.exe を当て直して
いちおうはエラーがでなくなるけど、ひと月くらいでまたおかしくなる。鬱…

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

未決あったんちょっと見逃した。悪い。解決したかもしれないが、とりあえずサンプルだけ書いとく。
>13
Const dbHiddenObject = 1
Const dbSystemObject = &H80000002

Set oFS = CreateObject("Scripting.FileSystemObject")
Set Application = CreateObject("Access.Application")
Application.OpenCurrentDatabase "C:\Documents and Settings\hogehoge\My Documents\toaru.mdb"
Set Database = Application.CurrentDb
For Each TableDef In Database.TableDefs
With TableDef
If ((.Attributes And dbSystemObject) Or (.Attributes And dbHiddenObject)) = 0 Then
sOutput = sOutput & .Name
On Error Resume Next
sOutput = sOutput & "/説明:" & .Properties("Description")
On Error GoTo 0
sOutput = sOutput & vbNewLine
End If
End With
Next
oFS.OpenTextFile("toaru.lst", 2, True).Write sOutput

スクリプトにもかかわらずタイプ量が無駄に多いのはいかがなものか。

これをCで書いたらどれくらいの長さになるもんだか…

>>35-36
たぶんどっちの言ってることも正しい（ｗ
スクリプトといえど目的によってはそれなりのコーディング量になってしまうのであれば、
スクリプトの魅力は半減だし、いっぽうで、言語でコーディングすれば、
やっぱりそれなりのコーディング量になるわけで。

「こんなことできないかな」が、スクリプト数行でできてしまうのは、スクリプトの醍醐味だし、
7行プログラミングじゃないけど、短くて実用的なものが書けたときはスクリプト冥利に尽きるね。

.chmファイルにキーワードを指定して開きたいんですが
コマンドライン引数の指定の仕方が分かりません。
どう指定すればいいですか？

>>38
開いてから
SendKeys('%(NW){END}+{HOME}{DEL}KEYWORD{ENTER}');
で流し込めば？

>>38
hh.exeを前提としているのであれば、引数にキーワード指定はないので
コマンドラインからの実行は諦めるしかない。

>>40
アプリはどうやってキーワードを渡してるんですか?

>>34

ありがとう。

見捨てられてるかとオモターヨ。
なぜか、漏れのAccessでは、
テーブル名しか取得できなかった。

多分、Fields コレクション取得してないのが
原因だと思うのだが、どうすればイイ？

たびたびスマソ。

>>41
HtmlHelpAPI

>42
Ifブロック中の最後の方で
For Each Field In TableDef.Fields
sOutput = sOutput & "フィールド: " & Field.Name & vbNewLine
On Error Resume Next
sOutput = sOutput & "/説明:" & Field.Properties("Description") & vbNewLine
On Error GoTo 0
Next

動作は確かめてないけど、こんな感じで良いんじゃないのかな。
ここいらを詳しく知りたいときはDAOのオブジェクトモデルを調べること。

>>44

サンクス。

今度はうまく逝ったようだ。

> ここいらを詳しく知りたいときはDAOのオブジェクトモデルを調べること。

DAOならアヤたんとこで知ってたんだが、Accessのオブジェクトから
取得する方法は知らなんだ。

勉強になたーヨ。

ShellUIHelperのAutoScan メソッドの使い方
を教えてください。

Win98/IE5.5sp2、WSH ver5.1を使ってます。
2chのお気に入りスレのログを定期的に保存するスクリプトを書こうと思っています。

2chサーバの場合、存在しないファイルにアクセスすると
404 Not Found でなく
302 Found と Location: ヘッダ等を返してきますが、
とりあえずVBScriptでこのようなものを書いてみて実行すると

---
Set xh = WScript.CreateObject("microsoft.xmlhttp")
xh.Open "HEAD", "http://pc2.2ch.net/hoge", False
xh.Send
Msgbox xh.Status
---

ステータスとして HTTP/1.1 302 Found を返してくれず、なぜか
Location で飛んだ先までアクセスして HTTP/1.1 200 OK を返してきてしまいます。
メソッドをHEADでなくGETにしても同じでした。

これは microsoft.xmlhttp の仕様なんでしょうか？
最初に返ってくるステータスを取得する方法はないでしょうか？
＃basp21 の W3get なら戻り値を使うだけですぐできますが、
＃なるべくそういった追加のソフトを使わないで実現したいのです…

Jet4.0SP7 あげ。

MDAC 入れると XML perser のバグ入りも入ります(windowsupdate で修正可)。
ttp://www.microsoft.com/japan/msdn/data/default.asp

そのパーサのバグってどんな内容ですか？

>46
ShellUIHelper::AutoScanなら板&ｽﾚ違い、APIかC++関係で聞いて下さい。
external.AutoScanメソッドならスクリプトがらみでこっちでも良いですけど。

>47
ウチの環境では取得できない場合、エラーが出る。(Win2k,IE6,WSH5.6,msxml3.dllのver8.30.9926.0)
だので想定の域を出ないのだが、Request-URIとContent-Locationを比較するってのは解決方法にはならないかな？

>48
MDACは修正効かない場合があるから逆じゃなくてよかった。

>>50
レスどうもです。
GetAllResponseHeaders メソッドを使って Content-Location ヘッダを探すということですか？
しかしレスポンスヘッダには Content-Location が見当たらないようです…


っと、書きながら気づきましたが、datを落とすのだけが目的なら
Content-Type が text/plain（2chのdatファイルの形式） か
text/html（2chの302エラーページはほとんどこの形式？） かで判断できそうです。
しかし場当たり的で気持ち悪い。

Perlでも導入してはどうです。
いろいろ出来ますし、他のOSに移行しても過去の資産が有効活用できます。

>>50
> external.AutoScanメソッドならスクリプトがらみでこっちでも良いですけど。
オブジェクトとしては同じなので、そちらで結構です。
（前者がVBScript、後者がJavaScript）
よろしくお願いします。

>>46>>50
ShellUIHelper::AutoScanのリファレンスはこちら。
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/external/reference/ifaces/ishelluihelper/ishelluihelper.asp

externalオブジェクトを経由するならこんな感じで使います。
（HTAはexternalオブジェクトにアクセスできないので、拡張子はhtmlにしてください）
<script language="vbscript">
external.AutoScan "2ch","",""
</script>

この例だと、www.2ch.co.jp→www.2ch.org→www.2ch.net→www.2ch.eduの順でWebサーバーへの
接続を試行します。最初に存在したドメインのindex.htmlに移動します。
（この例だと、www.2ch.net…じゃなかったりします）

実際の検索順は、HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\UrlTemplateで
指定された順になります。日本語版IE6ではデフォルトでは上記のようになってます。

二つ目の引数は、ドメインが見つからなかった場合に表示するページのアドレスで、
指定しない場合はres://C:\WINNT\system32\shdoclc.dll/dnserror.htmになります。
また、三つ目の引数は、結果を表示するターゲットフレーム名です。

WSHから使うとしたらこうでしょうか。
Set UIHelper=WScript.CreateObject("Shell.UIHelper")
MsgBox UIHelper.AutoScan ("2ch","","")

ただし、まったく無意味ですねコレ。
というのも、WSHは、Webページを表示するためのコントロールを持ちませんから。
おそらく、使えても無意味なため、ShellUIHelperスクリプトリファレンスの方には
載ってないんでしょう。
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/objects/shelluihelper/shelluihelper.asp

>>47
私も>50さんと同じ環境なため、やはり同じくxh.Sendの時点で「アクセスが拒否されました」という
エラーになります。

でもエラーというのもおかしな挙動だなぁ。IEで接続する限りは、ちゃんと302を返すんですが。
ちなみに、ドキュメントが無い場合404を返すWebサーバーなら、問題なくxh.Statusに404が入ります。
302とXMLHTTPは相性が悪い（？）んですかね。

私は半ば諦めモードで、httpを扱うときはBASP21に頼ってます。

で、datを取得するという目的に限定するならこんなのはいかがでしょう。

たとえばhttp://servername.2ch.net/dat/threadkey.dat の生存を確認するには、
http://servername.2ch.net/test/read.cgi/bbsname/threadkey/1 をGET（これは必ずHTTP/1.1 200 OKを返す）して、
レスポンスに「そんな板orスレッドないです。」という文字列があれば、
threadkeyは存在しない。
「このスレッドは過去ログ倉庫に格納されています。」という文字列があれば、
threadkeyはdat落ち。
その他ならスレは生存している。

のように判別する手もあります。もちろん決してスマートではないですが。
（あと、人大杉の時も使えない手だな）

Jet 入れたら walign を忘れずにね＞Win98系使ってる方(ｵﾚﾓﾅｰ

>>49-50
ttp://www.microsoft.com/japan/technet/treeview/default.asp?url=/japan/technet/security/bulletin/ms02-008.asp

うちの環境(98SE + IE6SP1)では MDAC2.6SP2 入れたら起きました。

スレ違いで申し訳無いのですけど、MDAC を入れると、素の状態よりも
リソースが増える気がするのは漏れだけ？

>55の補足ですが、2chのCGIを呼ぶときは、こちらのリクエストヘッダがデタラメだと、
容赦なく302を返してきます。
幸い、XMLHTTPはリクエストヘッダを省略時でもそこそこ適当に付けてくれるので、
デフォルトのままでも弾かれることは無いようですが。

GET / HTTP/1.1
Accept: */*
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; Q312461; .NET CLR 1.0.3705; .NET CLR 1.1.4322)
Host: 127.0.0.1
Connection: Keep-Alive

デフォルトではこんな感じです。User-AgentはsetRequestHeaderメソッドで上書きしない限り、
IEと同じになります。（.NET Framework 1.0に1.1を上書きしたのがバレますね）
IEのキャッシュに残ってればIf-Modified-Since:なんかも勝手に付けてくれます。

…それより、XMLHTTPが日本語テキストのレスポンスをまともに
デコードしてくれないという問題があることを忘れてた（ｗ

>>11さん

ありがとうございます。
いままでの疑問が氷解しました。

自分の場合は、.comのURLに飛ばされました。

いま応用とか考えていますが、IEのオブジェクト

（ShellWindowsやInternetExplorer.Application）

とかにこれを利用するには、どうすればいいでしょうか。

ダイヤルアップネットワークを制御することってWSHでできますか？
（接続したり、切断したり）

バッチですら出来まっせ。

rasphone.exe

ttp://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list12.shtml
を発見。これを参考にして↓を書いてみました。Win98用。
---
Set Shell = WScript.CreateObject("Shell.Application")
For Each oItem In Shell.NameSpace(17).Items

If oItem.Name="ダイヤルアップ ネットワーク" Then
Set oFolder=oItem.GetFolder
For Each oSubItem In oFolder.Items
If oSubItem="接続/切断したいプロバイダの接続設定名をここに入力" Then
If oFolder.GetDetailsOf(oSubItem,3)="接続" Then
oSubItem.InvokeVerb "切断(&I)"
Else
oSubItem.InvokeVerb "接続(&O)"
End If
End If
Next
Exit For
End If

Next
---
ただこれだと、切断は一発ですが、接続の時にダイアログの「接続」ボタンを押す必要が…
もう少しがんばってみます。
失礼しました。

入れ違いになってしまいました。
>>60
windowsのフォルダ内にはそのファイルがありませんでした。

win98では
rundll32.exe rnaui.dll,RnaDial エントリ
とやるんですね…無知で恥ずかしい。

Else
oSubItem.InvokeVerb "接続(&O)"
End If
だったところを
Else
oSubItem.InvokeVerb "接続(&O)"
Wscript.sleep 1000
WshShell.AppActivate("接続")
Wscript.sleep 1000
WshShell.SendKeys "~"
End If
で解決ですね…スレ汚し失礼しました。

見よう見まねでVBSをつかってますがWMIに突入しようとするといきなり訳わからなくなりますね・・・
やはりきちんとＶＢから勉強すべきなんでしょうか？
VB6.0とか.netとかありますけどどっちがいいですかね

MS03-033 あげ
MDAC2.5-2.7 が影響を受けるそうです(2.8 は影響を受けない)。

補足
ttp://www.microsoft.com/japan/technet/treeview/default.asp?url=/japan/technet/security/bulletin/MS03-033.asp

.NET Framework標準搭載なLonghornがでたら
wshの位置付けってどうなるんだろ。
尻すぼみになるのかね。

ショートカットのようにアプリ名、引数、ディレクトリを指定して
実行するにはどうすればいいですか?
WScript.ShellのExecやRunではディレクトリは指定できないようです。

>>69
その起動したいアプリにはディレクトリ指定するオプションはないの？

>69
全てを設定したショートカットを Run する

71補足
ショートカットはスクリプトで作成可能
（WshShell オブジェクトのCreateShortCutでWshShortcutオブジェクトを生成し、WorkingDirectoryプロパティ等を設定）

>>69
実行する前ににカレント ディレクトリを変えてあげれば良いのでは？

VBSで、ある特定のフォルダの共有設定をしたりその設定を解除したり
みたいなことは可能でしょうか。
(フルアクセスかリードオンリーかというような細かいところも含めて)

ヘルプファイルみたいなもの見つけて、「WSH ネットワーク管理者サンプル
スクリプト」って項目見てたら何だかそれっぽい解説がのってました。
ちょっとかじりついてみます。
失礼しました。

あと、DOSコマンドの NET SHARE を叩いてみるとか。
これはあんまり細かい設定はできないんだっけ。

難問ですが、IIS（ASP）のWEBに埋め込んだスクリプトから
Exchange（MAPI)にログオンして会議通知を出すことってできないでしょうか。
神様教えてください。

埋め込みスクリプトじゃなくて、サーバーサイドのASPから
BASP21でも叩いて単純にメール発射するだけじゃだめ？

あなたはBASPでMAPI操れるんですか。
そうでないとしたら、仕様要求が満たされてないです。
しかしなぜBASP？メールならIISの標準機能で間に合わせませんか？普通…

WEBに埋め込んだスクリプトっていまいち意味がわからんけど、
MAPI.Session でぐぐればちょこちょこ出てくるやつとは違うのか？

今まで焼いた動画を真空波動研に送り詳細コピー
ファイル名＋焼き.txtを作り貼り付け、元の動画を削除
とやっていたんですがWSHで一発で出来ませんか？
よろしくお願いします

あとリネームスレでエディタを使った
一括リネームのスクリプトがあったので載せておきました
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=40

>>81
一生手でやってろ。

>81
ちょっとまじめに考える。まだスクリプトは作らんけどね。
また、現時点では作るか作らないかの判断も保留にさせていただく。
手始めに要求仕様の分解から。

>今まで焼いた動画を
これは、誰か管理しているの? 管理していないのだとすればカタログから作る必要がある。
現データがHDDにあるという前提で一対一の関係? フォルダ構成は同一? その中のファイル構成は漏れ・別焼き等は無い?
こういった場合には、よくボリュームラベルがIDに使われる。同一のボリュームラベルは無い?
現状のカタログデータに参列していない場合の追加と削除はどのように考える?

>ファイル名＋焼き.txtを作り
スキーマはどうする? 特に指定が無ければMD5等のハッシュ、焼き先のフルネーム、更新日時が加算されたカタログを作成することになるだろう。
真空波動研というアプリがどういったスキーマを生じるさせるのか? 全てを列記する必要がある。
一対一の対応で無い場合の処理は?
また、こういった場合自分はXMLで定義するのが好き。上記程度は必須でいいけど
それ以上細かい打ち合わせしなくても大抵の場合先方で加工できるからね。

>元の動画を削除
同様に一対一の対応で無い場合の処理は?

ぱっと見考えられるのはこのぐらいかな。ルーチンワークといっても手作業と言えるところは全てチェックする。
またこういうものは択一化したほうが後で整理されていて見やすいと思えるから、できれば作業も固定してこれだと言えるやり方をもっておく。

DExploreをスクリプトから操作したいんですが、
スクリプトが終了すると作成したDExploreも終了してしまいます。
これをIEのようにスクリプトが終了しても作成したプロセスが残るようにする方法はあるんでしょうか？

>>83
小難しく考えすぎな気が。スクリプトなんだからこの程度じゃ駄目？
yakizumi.js とかで保存して動画ファイルをD&D。
消した動画ファイルはゴミ箱に入らない無いので注意。

var Shell = WScript.CreateObject( "WScript.Shell" );
var Argu = WScript.Arguments;
var Fso = new ActiveXObject("Scripting.FileSystemObject");
var IE = new ActiveXObject("InternetExplorer.Application")
IE.Navigate("about:blank");

for ( var i = 0; i < Argu.length; i++ ) {
var target = Argu.Item(i);
Shell.Exec( "C:\\temp\\sinkuhadouken\\SinkuHadouken.exe " + target );
WScript.Sleep(800);
Shell.Sendkeys( "^c" ); WScript.Sleep(100);
Shell.Sendkeys( "%{F4}" ); WScript.Sleep(100);
var data = IE.Document.frames.clipboardData;
var file = Fso.CreateTextFile( target + "_焼き.txt" );
file.WriteLine( data.getData("text") );
file.Close();
Fso.DeleteFile(target);
}

>84
確認するけどDExplorerってMicrosoft Document Explorerの事だよね。
Runメソッドでそんな振る舞いをするの? ウチでは普通に起動するのだが、別の操作方法があるか、そもそも別物?
解答ではなくすまないが、.NETでWSH Helpｸﾝ見たいな事ができないか模索しているとこなので。

>85
おお、すまねっス。
風呂敷広げすぎて、下手したら今週か来週の休日半日ぐらい潰すとこだった。
多分そこまで要求していないとは思ったけど、使い方が分からない以上必要十分を満たすまでは提示して無いと。
OLSで前出で言った感じ+サムネール機能まで備えたものとかがありそうな気もするし。
徒労はたいした事ではないが、再発明はコストかかり過ぎと思えたので。

>>85
ありが�d。ラクチンでよいですね

しかし、手動では取得できるんですが
ファイルによって必ず「ファイルのオープンに失敗」になります
多分真空波動研側の問題っぽいですけど

>>87
ファイル名やディレクトリ名にスペースが含まれているとか。

Shell.Exec( "C:\\temp\\sinkuhadouken\\SinkuHadouken.exe " + target );
↓変更
Shell.Exec( "C:\\temp\\sinkuhadouken\\SinkuHadouken.exe " + "\"" + target + "\"" );

sage忘れた…回切首升。

同じ環境で(ﾊｰﾄﾞｳｪｱ構成のみ違う)片方だけWSHでｴﾗｰが出ます。
ｴﾗｰは
行　20
文字　1
エラー　0x80041013
コード　80041013
ソース　(null)
で、ｽｸﾘﾌﾟﾄは(上12行は改行ｴﾗｰに引っかかるので削って有ります)
SamurizeDir = "C:\progra~1\Samurize"

'---- これ以降は恐らく触らないように
Dim WshShell

Set WshShell = CreateObject("WScript.Shell")

for each Process in GetObject("winmgmts:").InstancesOf ("win32_process")
if Process.name = "Client.exe" then
Process.Terminate()
end if
next

WshShell.run chr(34) & SamurizeDir & "\Client.exe" & chr(34)
です。
WSHも最新版入れてみたんですけど駄目でした。
片方は正常に動作してるんですけどもなぜでしょうか？
XPSP1a

そのエラーはWMIのライブラリがおかしいか、In-proc-providerがregsvrされていないか
どちらにせよXPだと外部コンポーネントでは無いので直すのはきつそうだね。

win98のペイントに SendKeys を使って
起動/変形(I)/キャンパスの色とサイズ(A)/ の
ダイアログを開くところまでの .vbs を書きました。
このあとダイアログ内の幅・高さの値として
それぞれの枠内へ共に 16 を打ち込ませる記述の仕方を教えて下さ。

>>92
{TAB}

>>81のエディタを使った一括リネームスクリプトをｊｓで書き直しつつ改造してみた。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=41

大文字＜＞小文字の変換、ファイル名の相互変換が可能なあたりが
改造ポイントだったんだけど、書いてる内にドンドン長くなって収拾つかなくなった…
最初によく考えてから作らな駄目ね。

>91
ありがとうございました。SP2出たら再ｲﾝｽｺします。
他に特に不具合無いですし、dll書き換えしてあるから面倒なので。
その間に解決法もう少し探してみます。　

wsfファイルに

<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>
<job id="hoge">
<script language="JScript">
for(i = 0 ; i < 10 ; i++) {
WScript.Echo("hoge");
}
</script>
</job>

これを実行すると「temp.wsf(4, 17) Windows Script Host: 適切な名前を指定してください。」とエラー。
なんでだろ？
ちなみに一行目のxml宣言を消去するとエラーが出ません。

<![CDATA[

]]>

>>97
即レスサンクス。
; って実体参照に変換されてしまうんでしたっけ。

たしか参照実態になると思う。

あ、< が使えないんだった・・・。
< にすればいいのか。

>>100 後者は ＆ｌｔ； です。

ドキュメントの嘘ﾊｹｰﾝ
InputBoxでキャンセルを押すと""（空文字列)が返ると書いてあるが
返るのは未定義値じゃないか。

>102
MsgBox TypeName(InputBox(""))
OK　 　 　　→String
キャンセル→Empty
当方Win2kWSH5.6

あ、TypeName(vbNullString)もTypeName("")もStringだった。
疑って失礼。それで桶。

>>103
EmptyってJScriptでいうundefinedですよね？
JScript側でその変数を受けるとundefinedになるもんで。

皆様の足元にも及ばない、まるで教えて君で申し訳ないのですが
パスワードの設定に関して妥当性を正規表現で評価する方法を探しています。
もし皆様のなかで優れた方法をご存知でしたら、教えてください。
VBSで評価しようとしています。(お恥ずかしい話です)
条件は色々あると思いますが、私が想定しているのは
-8文字以上
-14文字以下
-アルファベット（大文字小文字）どこにあってもよく各1文字以上
-数字 どこにあってもよく各1文字以上
で作られていることです。

http://pc2.2ch.net/test/read.cgi/tech/1062152374/130-132

おい藻舞等！

\Program files\ディレクトリ内にあるアプリを4つほど一定間隔（2,3秒）あけて実行するようなスクリプトってどういう記述なのか教えてください。
おねがいします。

var exeList = ["exe1","exe2","exe3","exe4"];
var path = "略\\Program files\\";
var w = WScript;
var wsh = w.createObject("WScript.Shell");
for(var i = 0; i < exeList.length; i++) {
wsh.run(path + exeList[i]);
w.sleep(2500);
}

92>>93
ありがとうございます。
WshShell.SendKeys "^e1{TAB}1{ENTER}^vy"　として
起動・キャンバスサイズ調整・貼付までを以前より随分楽できるようになりました。

WSHでメッセージダイアログを常に最前面に表示する方法ってありますか？

shell = new ActiveXObject('WScript.Shell');
shell.Popup('Message', 0, 'Title', 0x40000);
とか
MsgBox "Message", &H40000, "Title"
とか。

>>112
レス遅くなってすみません。

Popupメソッドにそういうのがあったなんて知りませんでした。
出来ました〜ありがとうございます。

WSHで現在のCPU使用率と
送受信の速度と物理メモリ残量、
アクティブタイトルウィンドウの名前を
テキストファイルに吐き出させるのって
どういう記述なのですか？
教えておながい。
携帯にこれらの情報をメールで送りたいのです。

>114
上の3つは解説尻侍のページに載ってるけど、タイトルの名前だけはいかんともし難い。APIが使える言語で取得するのがお勧め。

Windows のメモ帳が
いつも同じウインドウの位置とサイズで起動するような VBS ください。

>>114
立ち上げているアプリケーションが決まっていて、その中から選択して確認するので
あれば、AppActivateを工夫して使えば何とか出来そうな気がしますが如何でしょうか？

あと、ActivePerlならWin32APIにアクセスできるけど、どうでしょうか？
参考までにhttp://plaza27.mbn.or.jp/~satomii/jdoc/ActivePerl/lib/Pod/Win32.htmlを読んでみるとよいかも。

>115
>117
ﾚｽｻﾝｸｽ。最近ActivePerl入れたばかりなので
頑張ってみるっす。ありがとうございました。

dim objWMI, objProcess, strProcessesSize

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}")
Set objProcess = objWMI.InstancesOf("Win32_process")

For each Process in objProcess
strProcessesSize = strAllProcesses & Process.WorkingSetSize & vbcrlf
Next

Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set ts = Fs.OpenTextFile("mem.txt",8,1,0)
ts.Write Date & " " & TIME & vbCrLf & strProcessesSize

これでメモリ使用量を取得できたんだけども
これだとプロセスごとのメモリサイズがByteで表示されてしまう。
プロセスごとではなく合計のメモリ使用量をMB換算で得るには
どう書けばいいんですか？

>>119
足して割れば？

>>119
win2k、xp限定、利用可能な物理メモリ量だけど
Win32_processじゃなくてWin32_PerfRawData_PerfOS_Memoryを使い
AvailableMBytesでMB単位で取得できます。

あとbyte単位だけど、Win32_OperatingSystemで
TotalVisibleMemorySizeからFreePhysicalMemoryというのはどうでしょう。
MBが良ければ割ればいいし。

svr = "localhost"
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer (svr, "root/cimv2")
strOSQuery = "Select * from Win32_OperatingSystem"
set objOS = objService.ExecQuery(strOSQuery)
for each machine in objOS
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set ts = Fs.OpenTextFile("memory.txt",8,1,0)
ts.WriteLine FormatNumber(machine.FreePhysicalMemory / 1024,0) & "MB"
next
これで表示することができーたよ
ありがとう。あとは送受信の速度だけだ。
アクティブタイトルウィンドウはもういいや

>122
出来たみたいなので今更だけど>121の修正。
× あとbyte単位だけど、
○ あとkilobyte単位だけど、

× TotalVisibleMemorySizeからFreePhysicalMemoryというのはどうでしょう。
○ TotalVisibleMemorySizeからFreePhysicalMemoryを引くというのはどうでしょう。

固定長のファイルを開いて特定の位置を参照しに行って
そのフィールドの内容が変わったらその内容をファイル
名として保存。
を出来なくなるまで繰り返すと言う構文を誰か作ってくれませんか？

ﾃﾞｰﾀの置き換えをしたいのですが、
バイナリファイルを書き換えるスクリプトの書き方がわかりません。

>>122
お昼休みに時間が空いたので
WSHからアクティブウィンドウのタイトルを取得できるCOMコンポーネントを作ってみた。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=44&fi=no

ちなみにPerlでやると↓これで終わり。
#!/usr/bin/perl

use Win32::GuiTest qw(
GetForegroundWindow
GetWindowText
);

print GetWindowText(GetForegroundWindow());

おまいらこの分野で飯くっていけるんじゃね？

>>126
取得できたー
お昼休みにつくれちゃうんだ。すげぇ
ぐぐってた時間より短いかも。
ありが�d
COMコンポーネントっつーのは便利だね
また一歩前進しますた

>>11さん

例えば　

aaa123ffaaabbb
aaa123ffaaabbb
aaa124ffaaabbb
aaa124ffaaabbb
aaa125ffaaabbb

と言うテキストファイルが有った場合、
４バイト目から３バイトと指定すると上から２レコードを[123]
３・４レコードを[124]、５レコード目を[125]と言うファイル名で
分割保存する構文を作って頂けないでしょうか・・・

>>129
こんな感じか。元ファイルはソートされていると仮定、
且つ「4バイトから3バイト」じゃなくて「4文字目から3文字」だけど。

var fso = new ActiveXObject( "Scripting.FileSystemObject" );
var inFile = fso.OpenTextFile( "inFile.txt", 1 );
var line, oword, nword, outFile; oword = "";
while ( line = inFile.ReadLine() ) {
if ( oword != ( nword = line.substr( 3, 3 )) ) {
if ( oword != "" ) { outFile.Close(); }
outFile = fso.CreateTextFile( nword );
oword = nword;
}
outFile.WriteLine( line );
}
inFile.Close();

>>130 ループ失敗。
while ( !inFile.AtEndOfStream ) {
line = inFile.ReadLine();

http://www.emeditor.com/jp/v4.htm
次期バージョンのEmEditorがマクロ機能にWSHを利用。

少し面白いことになりそうかも？

>>132
WSHマクロの記録機能を持ったエディタって他にもあるんですか？

>>133
サクラがそうだったような

>>130
ありがとう！神様

WMIの情報ってまとまってどっかにありますか？
普段見てるところとか。
英語かなーやっぱり。

>>136
なんだかんだ言ってもMSDNかな。
WMI スクリプト入門
http://www.microsoft.com/japan/msdn/columns/scripting/scripting06112002.asp
このページは1部だけど、2部もある。
ページの下の方にリンクがある他のコラムも役に立つ。

リファレンスとかは英語しかないけど
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_reference.asp?frame=true

ｗｓｈって何て読むの？

うしゅ

>138
windowsのヘルプに訊いてみれ

テキストファイルの最後の行だけ書き出すってどうすればいいんですか？
winampのプラグインに現在演奏中の曲情報をテキスト書き出すやつがあるんですけど、
新しい曲の情報は前の曲の情報が書かれている次の行に書かれてしまうので、
演奏中の曲の情報は常に最後の行にあるのでつ。
Option Explicit
Const ForReading = 1
Dim objFS, objTS
Dim strLine
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile("C:\songs.txt", ForReading)
strLine = objTS.ReadLine
Set objTS = objFS.OpenTextFile("playlist.txt",2,1,0)
objTS.Write strLine
これだと最初の行、つまり一番古い情報しかとりだせない。ヽ(`Д´)ﾉｳﾜｧｧﾝ
お前ら、教えてつかーさい。おながい。

Do Until objTS.AtEndOfStream = True
strLine = objTS.ReadLine
Loop

>>142
なるほど。無事できました。
ありがとうございました。

>>130-131

ちょこっと勉強して、basic言語の方（拡張子.vbsの方）
で作ってみました

dim fs
dim inFile
dim outFile
dim line
dim oword
dim nword
oword=""
set fs=WScript.createobject("scripting.filesystemobject")
set inFile=fs.OpenTextFile("test.txt",1)
do until inFile.AtEndOfStream
line=inFile.ReadLine()
nword=mid(line,4,3)
if oword <> nword then
if oword <> "" then
outFile.Close()
end if
set outFile=fs.CreateTextFile(nword)
oword=nword
end if
outFile.WriteLine(line)
loop
inFile.Close()

sendkeysメソッドがうまく動かないときがあります。
処理にはsleepで充分待ち時間を持たせていますがダメです。
どうにか安定して動作させられないでしょうか。

>>128
ごめん。>>126でうｐしたヤツはバグってました。差し替えて下さい。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=45&fi=no

もう見てないかなぁ。

あのー、winampのメインウィンドウのクラスであるWinamp v1.x
に次の曲を演奏させるキーコード[40048]を送りwinampを
操作するようなことはWSHで可能なんでしょうか?

>>147
ttp://www.winamp.com/nsdn/winamp2x/dev/sdk/api.jhtml

>>147
>>4にある「DynaCall - Win32APIコール」が必要だけど、簡単に出来た。
ただし、ウィンドウクラスが"Winamp v1.x"なのはver 1.x or 2.xなので注意。
ver 3.x は"BaseWindow_RootWnd"かな？

var WM_COMMAND = 0x0111;
var WM_USER = 0x0400;
var UserWrap = WScript.CreateObject("DynamicWrapper");

UserWrap.Register ( "USER32.DLL", "FindWindow", "i=ss", "f=c", "r=h" );
UserWrap.Register ( "USER32.DLL", "SendMessage", "i=huuu", "f=c", "r=l" );
var hWnd = UserWrap.FindWindow( "Winamp v1.x", 0 );
var result = UserWrap.SendMessage( hWnd, WM_COMMAND, 40048, 0 );

>>149
148氏による斡旋により、winampのディベロッパーなんちゃらのページを
みてデルファイやコンパイラなどをインストールしましたが、
さっぱり使いこなせず困っておりました。
作っていただきありがとうございます。
これは値を変えればほかのアプリにも利用できそうですね。
しかし、next.jsとして実行するとこんなエラーが出てしまい、処理できないです。
"0x6b71fd81" の命令が "0x000c0000" のメモリを参照しました。メモリが "read" になることはできませんでした。
DynaCallも登録したのになんでだぁー・ﾟ・（ﾉД`）・ﾟ・｡

>>150
f=c を f=s に変更する。
UserWrap.Register ( "USER32.DLL", "FindWindow", "i=ss", "f=c", "r=h" );
UserWrap.Register ( "USER32.DLL", "SendMessage", "i=huuu", "f=c", "r=l" );
の2行を
UserWrap.Register ( "USER32.DLL", "FindWindow", "i=ss", "f=s", "r=h" );
UserWrap.Register ( "USER32.DLL", "SendMessage", "i=huuu", "f=s", "r=l" );
に変えてみて。

できました。
一時停止や前の曲に戻るなども送ることができました。
マウ筋っていうマウスジェスチャソフトに登録して使ってます。
かなり（・∀・）ｲｲ!!
ｻﾝｸｽ。

自分のサイトを見ているときに、右クリックから呼び出すと
ローカルのファイルをエディタで開き、編集後エディタを閉じると、
自動でFTPアップロードするスクリプトを書いてみた。
>4で紹介されている BASP21 ttp://www.hi-ho.ne.jp/babaq/basp21.html が必要。

ttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=46

質問なんですが同じ名前のｱﾌﾟﾘを同時起動してる場合は
AppActivateの引数で指定するとどちらがアクティブになるんでしょうか？

例えば
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.AppActivate("無題 - メモ帳");

このときメモ帳が２つ開いていた場合です。

名前が title と一致するアプリケーションのインスタンスがいくつかある場合、アクティブになるインスタンスは不定です。

Syrup16g - 明日を落としても 4:58
2003/11/04 0:19:52
っていう文字列を
artist:Syrup16g
title:明日を落としても
time:4:58
date:2003/11/04 0:19:52
このように表記するためのvbスクリプトきぼん

>>156
msgboxに表示させたいのであれば、ダイアログクリエータ(名前間違ってるかも)というソフトを使えばいいかと。ベクターのジョークソフトカテにある。

>>156
入出力をどうするつもりか知らないけど。

str1 = "Syrup16g - 明日を落としても 4:58"
str2 = "2003/11/04 0:19:52"
Set bobj = WScript.CreateObject("basp21")
out = bobj.Replace("s/(.*) \- (.*) (\d+:\d\d)/artist: \1\ntitle: \2\ntime: \3\n/k", str1)
out = out & "date: " & str2
Set bobj = Nothing

MsgBox out

なんか .* の使い方がいいかげんな気はするけど、いちおう動くな。
で、慣れてるBASP21使っちゃったけど、こういうのってRegExpオブジェクトではどう書くの？
Set re = New RegExp
re.Pattern="(.*) \- (.*) (\d+:\d\d)"
MsgBox re.Replace(str1, "\1 \2 \3")
とか試してみてもうまくいかないし。
ExecuteしてMatches参照するのもなんか違うような。

Set re = New RegExp
str1 = "Syrup16g - 明日を落としても 4:58"
str2 = "2003/11/04 0:19:52"
re.Pattern="(.*) \- (.*) (\d+:\d\d)"
out= re.Replace(str1, "artist: $1" & vbCrLf & "title: $2" & _
vbCrLf & "time: $3" &vbCrLf & "date: " & str2)
MsgBox out

はっ、\1 \2 \3 じゃなくて $1 $2 $3 でしたか。
たしかにMSDNにもそう書いてある。
勘違いはずかしー、どもっす。

ﾚｽｻﾝｸｽ。
ホームページに演奏中の曲を表示させてみたかったんッス
（perlだけでできるのかもしれないけど）
無事表示させることができた。
お前等、ありがとう。勉強になったよ

>>161
文字処理はむしろperlの領分だろ……

うんざりするほど大量にあるWord Document, Exel Sheetに
テキスト全置換かけることになりました。
とりあえずそれぞれのアプリでVBAマクロとして全置換操作を
記録させ、そのコードを表示させてパクり、WSHとして外から
CScriptで置換してみたのですが、テキストボックス等の図中の
テキストが置換対象になりません。
どうやら、ActiveなDocumentなりWorkSheet上でCtrl-Aによって
選択できる範囲のみが、置換対象となる模様です。

テキストボックスなどの図を含めて、全置換を行うには、
どうしたらよいでしょうか。知恵を貸してください。

>>163
WSH使わないでVBAだけでやった方が良いんじゃない？
あんまりスマートじゃないけど、
予め処理したいファイルのパスを配列に格納しておいて、
順次Documents.Open、置き換え、Closeすれば行けそう。
VBAスレ探して聞いた方が良いかもね。

それって普通にアプリ上から全置換操作をかけたときには置換対象どうなるの？

>165
手動による置換では、DocumentやWorkSheet中のテキストは全て置換されます。
その操作を記録したマクロを実行してもダメなようですね。同様に、その
マクロをパクッたWSHスクリプトでも、置換残しが発生します。

Excelテキストボックス検索置換ツール なんてもんがあったんで
どんなことしてるのか参考にしてみようと思ったら、
シェアウェアなのでコード見せてくれない。ドケチ。

まあWSHっていうより完全にVBAの問題だけどな。

テキストファイルに書いてある先頭の5行だけを表示するには
どうすればよいですか？

ReadLine() 使って何とかしろ

http://pc2.2ch.net/test/read.cgi/software/1067407316/36
すいません、↑こちらから誘導受けてきました
気が向いたらレスください。

>>170
<!------------------------------ここから------------------------------>
<job id="js">
<script language="JScript">
var WshShell = new ActiveXObject("WScript.Shell");

// 電卓が起動していなければ起動
if(!(WshShell.AppActivate("電卓"))){
WshShell.Exec("calc.exe");
WshShell = null;
WScript.Quit();
}

WshShell.AppActivate("電卓");
WScript.Sleep(100);
WshShell.SendKeys("%{F4}");
WshShell = null;
</script>
</job>
<!------------------------------ここまで------------------------------>
上記のものを適当な名前（例えばCalc.wsf）で保存し、ダブルクリックすれば希望する動作が（一応）可能。
終了はSendkeysを使用しているので、Sleepを長めに変更しないとうまく行かないこともあります。（デフォルトは100ms）
ファイル名は拡張子を『.wsf』で保存しないと動作しないので要注意！

こんなんでどう？

>>168
こんな感じか？

Txtfile = "hoge.txt"
Set WShell = WScript.CreateObject("WScript.Shell")
WShell.Run "notepad """ & Txtfile & """"
WScript.Sleep(1000)
WShell.Sendkeys("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}+^{END}{DEL}")

>>172
間違ってCtrl+s押しちゃうと怖いから、
ReadLine()で5行読み込んで新規ファイルに保存してそれを開く方が良いんじゃないかな。

どうやってReadLine()で5行だけを読み込むの？

>>171
終了させる部分だけね。

var prc = GetObject("winmgmts:{impersonationLevel=impersonate}")
.ExecQuery("SELECT * FROM Win32_Process");
for ( var e = new Enumerator(prc); !e.atEnd(); e.moveNext() ) {
var pf = e.item();
if ( pf.Caption == "calc.exe" ) {
pf.Terminate();
}
}

ReadLine()を5回使う

>>174
for ( var i = 0; i < 5 && !file.AtEndOfStream; i++ ) {
str += ( file.ReadLine() + "\n" );
}

>>170です。
レス頂いた皆様に感謝しながら感謝します。
内容読んでよーく勉強します。ありが�d　

vbsでモニターの電源がONかOFFなのかを
みわけることってできる？

できるよ、たぶん。

　消費電流を測るセンサーをモニタに取り付ける
→その結果をPCで読み出すCOMコンポーネントを作る
→vbsで呼び出す

ハードがいるのか・・
PCの電源切るとモニタがスタンバイ状態になるので
取得できると思ったが、あれはモニタ側が感知
してるんだった。

vbsでGetFolderを使うと、フォルダのなかにあるファイルの数を調べたり、
サブフォルダの数を調べたり、フォルダのなかにあるファイルの
オブジェクトを返すことが出来ますが、C言語で同じことをするには
どうしたらいいでしょうか。

>>182
Cつっても色々だしな。
unix系なら#include <dirent.h>してopendir、readdir、closedir。
windowsならFindFirstFile、FindNextFile、FindClose。
ボーランドの処理系もdirent.hあるらしいからunix系と同じで可かな。

>>179
とりあえず、JScriptで作ってみたがこんなのはどう？
//----------------------------------------------------- ここから -------------------------------------------------------
var e= new Enumerator(GetObject("winmgmts:").InstancesOf("Win32_DesktopMonitor"))

var A_state = new Array();
A_state[1] = "Other"; A_state[2] = "Unknown"; A_state[3] = "Running/Full Power";
A_state[4] = "Warning"; A_state[5] = "In Test"; A_state[6] = "Not Applicable";
A_state[7] = "Power Off"; A_state[8] = "Off Line"; A_state[9] = "Off Duty";
A_state[10] = "Degraded"; A_state[11] = "Not Installed"; A_state[12] = "Install Error";
A_state[13] = "Power Save - Unknown"; A_state[14] = "Power Save - Low Power Mode"; A_state[15] = "Power Save - Standby";
A_state[16] = "Power Cycle"; A_state[17] = "Power Save - Warning"; A_state[18] = "Paused";
A_state[19] = "Not Ready"; A_state[20] = "Not Configured"; A_state[21] = "Quiesced";

for (;!e.atEnd();e.moveNext()){
var DesktopMonitor = e.item();
WScript.echo (A_state[DesktopMonitor.Availability]);
}
//----------------------------------------------------- ここまで -------------------------------------------------------
WMIを利用しているのでDefaultで使えるのはWin2k/XPのみだけど、WMI SDKをインストールすれば、Win98とかでも使えるはず。

スクリプトの内容は、WMIのWin32_DesktopMonitor Classをコレクションに入れて、配列に当てはめた文字列を呼び出しているだけなのでVBScriptでも同じことが出来るはず。

Win32_DesktopMonitor Classに関してはhttp://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_desktopmonitor.aspを参照されたし。

>>184
こんなクラスがあったとは知らなんだ。
某掲示板過去の記事にも載ってなかったYO。
リンクまで貼ってくれてありが�d
リンク先で勉強してきまつ。

>>183
ありがとうございます。調べてみます。

！！！
同じくこんなクラス知らなんだ。
めちゃめちゃ勉強になったです。ありが�d

モニタの電源をOFFにして実行してもRunning/Full Power
になる。なぜ？

IEオブジェクトを使って、
ttps://trade.hirota-sec.co.jp/inet_trade.html
ここで表示される「ログインID」にデータを入れることはできませんか？

>>188
電源状態はグラフィックボードの出力状態であって
実際のモニターの電源状況じゃないんじゃないの？
手動でモニターの電源を切ってもPCは判別出来ないんじゃないの？

janeで書き込んだ後に、adslモデムを切断して再接続させるwshをください。

>>189
ここのすなはらさんに対するレスが参考になると思います。
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list92.shtml

ttp://page6.auctions.yahoo.co.jp/jp/auction/f11485539
ttp://page6.auctions.yahoo.co.jp/jp/auction/f11603514
http://page6.auctions.yahoo.co.jp/jp/auction/f11748898

z_y_x_3_2_1 （51）←コイツ●紅PC何気に12台出品。

今回の出品で１００万越えはほぼ確定。

>>192
ありがとうございます。
しかし、目的のhtmlがフレームとjavascriptでうまく隠蔽されているようで、通常のhtmlを操作することはできますが、このページだけはオブジェクトが取得できないです。。。

>>188
たぶんそうです。
>>194
こんなのはどうでしょう？
<!------------------------------ 自動ログイン:廣田証券.html ここから------------------------------>
<script language="JavaScript">
// 任意の値を設定してください。
account_0 = "ユーザID";// アカウント名
password_0 = "パスワード";// パスワード
// 設定ここまで。
hParent = external.menuArguments;
pageURL = "https://trade.hirota-sec.co.jp/HRP02/TRADE/SV";
formNumber = 0; submitTag = "INPUT"; submitNumber = 6;
accountTag_0 = "userID";
passwordTag_0 = "password";
DoLogin(hParent.document);
function DoLogin(objDoc){
var document = objDoc;
try {
document.forms(formNumber).elements(accountTag_0).value = account_0;
document.forms(formNumber).elements(passwordTag_0).value = password_0;
document.all.tags(submitTag).item(submitNumber).click();
return true;
} catch(error){
return false;
}
}
</script>
<!------------------------------ 自動ログイン:廣田証券.html ここまで------------------------------>

上記を適当な名前（例えば、廣田証券.html）で保存し、うりゅそふとのIE MenuExtなどで登録すればIEコンテキストメニューから動くはず。
こちらで試した限りでは、IE6.0とSleipnirではOKみたいだったよ。
（ログインIDを持ってないので正確なチェックは不可能）
後は違うページでは動かないように分岐命令でも組み込んでちょうだい。

作成に当たっては、SleipnirのAutoLoginCreatorとうりゅそふとのゆなデュプリケートを参考にしてます。

ちなみに、うりゅそふとの URL は http://www.uryusoft.com/ だよ。

>>195

> >>188
> たぶんそうです。

スマン >>190 の間違えだす。

>>195-196
ありがとうございます。
こちらも解決しました。
IE.document.frames("viewFrame").document.all("userID").value
で代入できました。
こういうのってヘルプないから困るなぁ・・・。

そちらのやり方も試してみます。

janeで書き込んだ後に、adslモデムを切断して再接続させるwindowsscriptinghをください。

>>199
それをやってもID変わらない可能性が大きいんじゃないか？

>>200
いや、いつもそうやって自分の書き込みを援護している。

ちなみにこれね。
FLASHWAVE 2040 M1

>>201
　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　ｵﾏｴﾓｶｰ
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）

>>203
　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　ｵﾏｴﾓｶｰ
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）

やっぱり需要高そうだな＞199

>>204
つーか、そんなレベルで馴れ合ってどうする(w

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 しかも、その後レスつかないし(泣

http://jbbs.shitaraba.com/game/bbs/read.cgi?BBS=XXXX&KEY=YYYYYYYYYY

こういうURLから、XXXXとYYYYYYYYYYの部分を抜き出すにはどうすればいいのでしょうか？
split使ってArrayじゃ無理ですよね・・・

>>206
正規表現で何とかなるはず。
<!--------------------------------- ここから ---------------------------------->
<job id="main">
<script language="VBScript">
'InputBoxを呼び出す関数
function vbinput(strprompt)
vbinput = InputBox(strprompt)
end function
</script>
<script language="JavaScript">
var InputStr = vbinput("文字を入力して下さい。");

var re;

re = /http:\/\/jbbs.shitaraba.com\/game\/bbs\/read.cgi\?BBS=(.+)&KEY=(.+)/igm;

WScript.Echo(InputStr.replace(re, "$1"));
WScript.Echo(InputStr.replace(re, "$2"));
</script>
</job>
<!--------------------------------- ここまで ---------------------------------->
とりあえずテスト用スクリプトを作ってみた。
上記を『適当な名前.wsf』で保存して試してみて、OKならこの正規表現パターンを流用すればよいかと。

>>206
var s_url = "http://ime.nu/jbbs.shitaraba.com/game/bbs/read.cgi?BBS=XXXX&KEY=YYYYYYYYYY";
var s_query = s_url.substr( s_url.search(/\?/) +1 );

var a = s_query.split("&");
var re = /(.+)=(.+)/;

for(var i=0, n=a.length ; i<n ; i++){
if( ! re.test(a[i]) ) continue;
WScript.Echo(RegExp.$1 +"\n" + RegExp.$2);

}

>209
モデムの操作は、機種固有のコマンドが関わるので汎用スクリプトは無理だよ。

あなたが使っているモデムのメーカーと機種名・切断・再接続のコマンドと引数を晒してみれば
誰かが作ってくれるかもしれない

ちなみにこれね。>>202

ID変わってるけど、>209,211　同じ人。
という具合に良く使ってる。

PPPOEとrasphoneで何とかならんか。半自動だけど。

wshでALT+TABのタスク切替えを表示させたままにしたいと思っています。
そこでSendKeysを使って作ったのですが、一瞬で消えてしまいます。
ALTを押しっぱなしにする必要があると思うのですが、
キー押下時間の指定方法を教えていただけませんか？

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%{TAB}"

win98でwshV5.6をインストールしてみたんですが
どうやったらこれをアンインストールできますか？

>>215
この辺
ttp://www.sophos.co.jp/support/faqs/wsh.html

>>216
ありがとうございます
きれいにアンインストールはできないみたいですね

XP 上で WSH を使って、画面の設定等を変更してみたいのですが、
どこら辺から手をつけるといいのでしょうか？

http://www.forest.impress.co.jp/article/2003/11/28/gasaire.html
これってwshでもできそうでない？

>>219
ある程度間隔をあけながらなら出来そうだね。
短い間隔だとスクリプトでCPU占有しつづけそうな気がする。

質問です。

Set f = Fs.GetFolder(foldername)
Set fn = f.Files
For Each f1 in fn
　　list_out.WriteLine f1.name
Next

こんな風にしてフォルダにあるファイルリストを出力してるんですが、
このファイルリストをソートした状態で出す方法ってありますか？
Forが終わってから自分でソートしないとダメですか？

>>221
NTFSならファイル名順じゃね？

Option Explicit
Dim buf(9999) ' 本番ではredimできるように改造
Dim Fs, f, fn, f1, j, n
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set f = Fs.GetFolder("C:\") : Set fn = f.Files
n = 0: For Each f1 in fn : buf(n) = f1.name : n = n + 1 : Next
qsort buf, 0, n - 1
For j = 0 to n - 1 : WScript.Echo buf(j) : Next
' クイックソート
Sub qsort(a(), Low, Hi)
Dim m, t, i, j
If (Hi <= Low) Then Exit Sub
m = a((Low + Hi) \ 2) : i = Low : j = Hi

While (i <= j)
If (a(i) >= m And a(j) <= m) Then
t = a(i) : a(i) = a(j) : a(j) = t : i = i + 1 : j = j - 1
Else
If (a(i) < m) Then i = i + 1
If (a(j) > m) Then j = j - 1
End If
Wend
qsort a, Low, j : qsort a, i, Hi
End Sub

>>222
FATとNTFSの違いがあったんですね。
自分では両方使っていて、実行するとファイル名順に出たりでなかったりして
原因がわからなかったんですがFATだと並ばないということなら納得がいきました。

>>223
やっぱりソートするしかないんですかね…
おとなしく自前ソートすることにします。


ありがとうございました

HTAを作成の際にHTML部分を自動で作成してくれるソフトを探しております。HP作成支援ソフトをいろいろ試しましたがどうもしっくりきません。
使いやすいソフトを紹介してもらえませんでしょうか

ttp://www.angelfire.com/tv2/doko/edf.txt
11氏のサイトをザーッと読んで
再帰的に作業フォルダ内の指定ファイルを全て削除して、
空フォルダを削除するスクリプトを書いてみました。（既出ですが；）
ここに既にある余分なフォルダの階層を省略するようにしたいのですが、
うまく移動・削除する方法がありましたらご教授お願いします。（BuildPathを弄っては居るのですが…）

※D:\tempを指定し、一階層のフォルダにファイルを引き上げる。
D:\temp\log_a\user1\user1_hoge.xls　->　D:\temp\log_a\user1_hoge.xls
D:\temp\log_a\user2\user2_hoge.xls　->　D:\temp\log_a\user2_hoge.xls
D:\temp\log_b\user3\dat\hoge1.dat　->　 D:\temp\log_b\hoge1.dat
D:\temp\log_b\user4\dat\hoge2.dat　->　 D:\temp\log_b\hoge2.dat

>>225
ttp://www.pololon.com/koby/software.php?id=J-Scriptor
これはどうでしょ。

IEからVBScriptを使って
Set hoge = CreateObject("Excel.Application")
としてExcelを起動してるのですが
起動されたExcelのシートをクリックしても、
フォーカスはExcel側にあるのですが、
起動元のIEが前面に表示された状態になってしまいます。
（タイトルバーをクリックすると切り替わります）
これを回避する方法はありますでしょうか？

hoge.Visible = True
とかはしてみた？

>>228
しました。ってかそれやらないと表示すらされなかったっす。

ただそれをやらないで
Set hoge = CreateObject("Excel.Application")
Set hoge = Nothing
これだけで症状が再現するのですが
もしかしてうちだけ？？
OSは2000とXP、Excelは2000です。

すみません、229の補足です
「これだけで再現する」とは
IE以外の別のアプリケーションのウィンドウが先に表示されてる状態で
229の2行をIEで実行すると、別のアプリをクリックしてもフォーカスはあたるのに
そのアプリが前面に表示されない状態になります。（タイトルバークリックはOK）
つまりIEが最前面に表示されたままになるようです。
ちなみに、その２行のあとにmsgboxで適当なメッセージを表示すると
回避できるのですが、できればそれは使いたくないです。。
IEは6.0です。

>225
解答ではなく申し訳ないですが、どういうのが使いやすいと思いますか?
スクリプト及びID部分の表記がそのソフトのルールで最適化されてしまうものは論外としても
私見で使いにくさの着目点として、
スクリプトとHTML部の作成するタイミングとの兼ね合いで、後解決が多い→バグが入り込みやすい
というのが考えられるのでこう云うこととかなら、VIDが良いと思うのですが。

>226
再帰部より先に移動しておくのがセオリーだと思いますが、重複の時のルールはどうなっていますか?
DirP┬DirC1─DirG
　 　└DirC2
でFという名前が
1)PとC1
2)C1とC2
3)C2とG
4)PとG
に存在している場合です。

>227
AppActivateではダメ?

>>231
226です。
重複時は上書きするように考えていましたが、
やはりファイル名末尾に(n)を付け加えて移動させようかと…

>232
1)各々のファイルをフォルダ一階層分引き上げるなら親→子の再帰が必要だよね
で、2)空のフォルダを削除したいから子→親の再帰が既にあるわけだ。
なら、別のルーチンで1)をやらないと出来ない。

>>226
各ファイルを一階層上に移動、ではなくて
全ファイルを指定されたフォルダの一階層下に移動、ということで良いの？
こんな感じ？
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=48

間違って「『231』 のスクリプトの改造版」となってる。ｺﾞﾒﾝ｡

>>235
ありがとうございます、その通りです。
もっと勉強しないと…

IEのオブジェクトから、[表示] - [文字のサイズ] で
５段階切り替えしたのと同様の効果になる
スクリプト、キボン。
SendKeyは不可の方向で。。。

テキストファイルから読み込んだ日本語の文字列を
URLに送りたいんだけどそのまま読み込んで、
送信するとhttp://www.hoge.com/search=繧ｷ繝｣繝ｼ繝ｭ繝
みたいになってしまう。繧ｷ繝｣繝ｼ繝ｭ繝を%83V%83%83%81%5B%83%8D%83b%83g
みたいにエンコードするにはどうすればいい？vbsで。

>>238
encodeURI(URIString)

>>238
vbsだったか。hoge.wsfとかで↓。

<job id="TestScript">
<script language="JScript">
function func ( str )
{
return encodeURI( str );
}
</script>
<script language="VBScript">
Dim str
str = "あいうえお"
str = func(str)
WScript.Echo( str )
</script>
</job>

>>239-240
レスサンクス
wsfってどっちも使えるんだ
手を出したことないので知らなかった。
vbsじゃ無理なのですか？

>>238
こんな関数は如何？

Function URLEncode (str)
　　Dim s, rtnstr
　　rtnstr = ""
　　For i = 1 To Len(str) Step 1
　　　　s=Mid(str, i, 1)
　　　　If Len(Hex(Asc(s))) = 2 Then
　　　　　　s = "%" & Left(Hex(Asc(s)), 2)
　　　　Else
　　　　　　s = "%" & Left(Hex(Asc(s)), 2) & "%" & Right(Hex(Asc(s)), 2)
　　　　End If
　　　　rtnstr = rtnstr + s
　　Next
　　URLEncode = rtnstr
End Function

>240の場合はUnicodeでのURLエンコード、こちらの関数はShift-JISでのURLエンコードです。
状況に応じて使い分けると良いかも。

>>238
私が普段使ってるUrlEncode関数、UrlDecode関数をあげておきました。
かなり変な文字を与えても、それなりにエンコードしてくれるようです。

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=49
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=50

>>242-243
ﾚｽｻﾝｸｽざます
晒して頂いたスクリプトをコピーし
便利スクリプトフォルダに保存しました。
basp21で妥協しようと思ってたので
とても助かりますた。ありが�d。

スクリプトの実行前にあらかじめ起動されているプロセスの
終了を検出したときのみ、指定したコマンドを実行するには
どうやればいいのでしょうか。

無理してWSH使わなくても他の言語で作ればいいやん



と思った。

>>246
やはりスクリプトではできないですか。
プログラムはまったくの素人なもので。

シェルスクリプトの方がいいんでない？

>>245
WMIを使えば、起動しているプロセスを知ることが出来ますから、
指定したプロセスがあるかないかをif文で判断すれば出来るかと思います。

>>249
その方法だとプロセスが起動していないときにも反応してしまいますよね。
終了時にのみ検出するというのはできないでしょうか。

>>250
スクリプトを常駐させて、その中でプロセスが死んだときに、コマンド実行ってことだよね？
それならスクリプト起動時にプロセスチェックしてフラグたてとけば良いだけの話だけど。

予約録画後の休止移行に使いたいので
常にプロセス（録画ソフト）が動いてるとは限らないんですよ。

>>252
いやだからさ、プロセスを検知したらフラグ立てて、
フラグが立ってるときにプロセスが消えたらコマンド実行＆フラグ降ろす、でいいんじゃないの？

>>252
情報を小出しにしないで
最初から何のために何がしたいのかちゃんと書いたほうがいいと思う

1) スクリプトはパソコン起動時に実行&常駐
　 この時点では検出したいプロセスは起動していない

2) 検出したいプロセスが起動

3) 2)のプロセスが終了
　 これを1)で実行&常駐しているスクリプトで検出する

と、こういうことか？>253の言う通り
一定時間毎に起動しているプロセスをチェック、
検出したいプロセスを見つけたらフラグをたてる。
フラグをたてた後、そのプロセスが消えていればコマンド実行。
でいいんじゃない？

ZenToHanはあるけどHanToZenってないね。
ぐぐったがvbsではなかった。誰かもってませんか？

>256
キリ番getおめ
http://www.alles.or.jp/~sfujita/jpn/tools.htm
のhkzhkvbs参照のこと。

>>257
thx

質問です。
起動時にMapNetworkDriveでネットワークドライブの割り当てをしているのですが、
接続先のパスが見つからない場合に実行エラーが表示されてしまいます。

回避する方法はありませんか？

漏れも文字列操作する便利関数ほしいんだけど、
str="1行が50字とか10字とかで1行の字数が定まっていない文字列"
を1行が20字超えてたら改行して、20字以下ならそのままの字数にしたい。
leftやmid使って何とかしようとしたけど、できなかった。
hoge (str,20)でできるようなやつ創ってみてよ

var p = 0;
do {
　Out = Out + Str.substr(p, 20) + "\n";
　p += 20;
} while (p <= Str.length);

でどうよ

すまんJSで書いてもうた

>>259
On Error とかtry catch とか。

VBSに変換できない。・・・＿|￣|○・・・＿|￣|○

>>264
Function FillColumn(str, count)
   dim p, result
   p = 1
   Do
      result = result + Mid(Text, p, count) & vbNewLine
      p = p + count
   Loop While (p <= Len(Text))
   FillColumn = result
End Function

みたいな。……vbsは書きづらいなぁ。
厳密には最後、値を返す前に一番後ろの改行を消さなきゃいけないけど。

>>265
ああもうメタメタ。

Function FillColumn(str, count)
   dim p, result
   p = 1
   Do
      result = result & Mid(str, p, count) & vbNewLine
      p = p + count
   Loop While (p <= Len(str))
   FillColumn = result
End Function

�dｸｽ
やっぱmid使うんだ。俺も使ったのにちっともできんかった・・・
これだと改行してできた行とその次の行があわせて20字になるYO。
難しいなぁ。

ジオシティーズでホームページつくってます。
ローカルPCのあるフォルダに入ってるファイルすべてを
アップロードするようなスクリプトは書けますでしょうか？

http://www.geocities.co.jp/help/ftp/ftpexe.html
↑ここにftpを使った手動でのうｐ方法があります。なんとなく
これをスクリプト化すればいいのかなと
思うのですが、具体的なやり方が分からない状態です。

>267
こう云うことかい? 改行はvbNewLine固定としてます。

Function FillColumn(str, count)
   dim p, result, i, asTemp
   asTemp = Split(str, vbNewLine)
   For i = 0 To UBound(asTemp)
      p = 1
      Do
         result = result & Mid(asTemp(i), p, count) & vbNewLine
         p = p + count
      Loop While (p <= Len(asTemp(i)))
   Next
   FillColumn = result
End Function

ｷﾀ━━━━━（ﾟ∀ﾟ）━━━━━!!!!
そうそう、これです。
早速保存しますた。ありがとう

>>268
こんな手法とか。
ttp://member.nifty.ne.jp/aya/wsh/wsh25.htm#ftp

文字列の中に半角英数と記号以外の文字が含まれていたら
Trueを返すような関数きぼん

>>272
//ASCIIコード0x21(!)から0x7E(~)以外が含まれてたらtrue
//初めにパターンを作っておく。初めから展開しておいて直接関数内に置いたほうがスマートだけど
var p = "[^";
for (var i = 0x21; i < 0x7f; i++) p += "\\x" + i.toString(16);
p += "]";
//関数本体
function CheckExceptASCII(checking) {
   return  (checking.match(p) != null);
}

//VBSバージョン。やってることは同じ。
Dim pattern, i
pattern = "[^"
For i = 33 To 126
   pattern = pattern & "\x" & Hex(i)
Next
pattern = pattern & "]"

//vbsだとオブジェクト作らないと正規表現使えないのか……。
Function CheckExceptASCII(checking)
   Dim regex
   Set regex = New RegExp
   regex.Pattern = pattern
   CheckExceptASCII = regex.Test(checking)
End Function

まあ、JScriptでもオブジェクトですがそれはさておき。

何故 わざわざ否定の否定で肯定を判定したり、
何故 連続した範囲の文字なのに 全部の文字をいちいち並べるのか
説明キボン。

「半角英数と記号」＝「0x21(!)から0x7E(~)」でいいなら、
/[^\x21-\x7f]/.test(string)
でいいだろ。（stringに調べたい文字列をいれる）
272の文章そのままを書くだけじゃん。

あ、スペースは「半角英数と記号」に入るのか？ だったら \x21 は \x20 だな。

273は深く傷ついたよ。

何がとにかくなのか分かりませんよ。
言いたいことははっきり言わないと。

　 　 ,. -- ､
　　,:',ｨ;ﾉ､!;::':,
　　i::ｌ'- 　-i::i　 でも、はっきり ボンクラ なんてゆーたら
　　l::ﾄ､.ヮ,.ﾉ::! 　　>>273も傷ついてしまうやん？

こんにちは。

会社で「Windows起動時にごみ箱を自動的に空にするような仕組みを作れ」
と言われまして、困っていたところ、WSHなるものを知りまして、参考サイト
で見たところ、以下のようなコードを見つけました。

Set Win=Wscript.CreateObject("Shell.Application")
Set fol=Win.NameSpace("::{645FF040-5081-101B-9F08-00AA002F954E}")
Set f=fol.Items.Item
f.InvokeVerb "ごみ箱を空にする(&B)"


特殊フォルダであるごみ箱の右クリックメニューをキックしてるのですが、
これを実行すると、「消しますか？？？　Yes or No？」と聞かれてしまい
作業が自動化できません。

どのようにすれば、岡島部長の念願をかなえてあげることができるでしょうか。

>279
この関数をつかうといいんじゃない？
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=36&fi=no
別プロセスを起動しといて該当するタイトルを見つけるとSendKeysする。
文中には別スレッドとか書いてあるけど、それをファイアホースで使うのと働きを似せているってことで。

あと、岡島部長のパソコンの速さを考えて待ち時間を決めてあげてね。特にスタートアップ時はタスクが重なるから。

>279さん

早速のレスありがとうございます！！！
今日は出勤日なので、さっそく会社で試してみます。

今日帰ったらこのスレに結果報告させていただきます。

↑

×　　>279さん

○　　>280さん

すみません。。。。。。。

>>279
ゴミ箱の設定で「削除の確認メッセージを表示」のチェックをはずせばいいのでは？

キケー！

>>283
それはずしても右メニュから呼ぶと確認取らされるよ

>>279
遅く、且つスレ違いだけど、

CSpace
http://cspace.s2.xrea.com/

のdeletedustをコマンドラインオプション付きでスタートアップに入れておけば
望みどおりの事はできるんじゃないかな。

>>280さん

今日さっそく会社で試してみました。見事にごみ箱を空にすることができました。
タイムアウト値はこれから試行錯誤して決めていきたいと思います。

今回のことでWSHの勉強をはじめる良いきっかけになりました。これからが
とても楽しみです。ありがとうございました。

>>283さん

レスありがとうございます。
285さんの仰るとおり、確認されてインタラクティブになってしまいます。

>>286さん

レスありがとございます。すいません。僕の説明が不十分でしたが、ツール類
を使うなとの条件がついていました。僕みたいな素人が作るスクリプトを使うより
deletedustを使う方がいいような気がするんですけどね（ｗ　　このツールは
存在を知らなかったので大変勉強になりました。本当にありがとうございます。

実行しているスクリプト自身のファイルパスを取得するには、どうしたらいいんですか？
環境はwin2000, WSH5.6, JScriptです。

>>288
WScript.ScriptFullName

>>289
即レスありがとうございます！
できました。ありがとうございました！！

ExcelのスクリプトをWSHから起動させることって出来ないでしょうか？

>>291
前スレ 430

http://pc2.2ch.net/win/kako/1022/test/read.cgi/win/1022248379/430

>>292
スレ消えていて見えません（　；´Д｀）

>>293
>>1

>>292 >>294
ありがとうございました(__)

269たんのFillColumnが激しく便利なんだが、
全角と半角が混ざった文章だと、改行がそろわん。
半角は2文字で1文字としてカウントさせることは
できんのでしょうか？

どっちかというと全角は2文字としてカウントすべき。

半角2文字で1文字としてカウント？ ｷﾓｰｲ

2ﾊﾞｲﾄ

win2k、XPではvbsもUnicodeを使ってると思うから全部2バイトちゃうかな。
98はしらん。

結局そんな都合のいいことはできないってことでつか？

>>300
出来るだろ。
ただ面倒くさくて誰もコードを書いてくれていないだけ。

>269がvbsな時点で読むのを止めたんで何だけど
改行毎にsplitして、
指定文字数に達するまで変数に突っ込んで改行追加、
って感じの処理だろ、多分。

文字列の長さをカウントする前に正規表現なり何なりで
文字種をチェックして、カウント量を変えれば良いんじゃない？
スマートじゃないけど。

やってみまつ。

vbNewLineとvbCrLfって完全に同じなんだっけ？　違う場合もある？

WSHでエクスプローラのファイル検索を実行することはできますか？
win2k JScript/WSH5.6で作業しています。

エクスプローラ開いてF3することでできました。
var Shell = WScript.CreateObject("WScript.Shell");
Shell.Run("explorer");
WScript.Sleep(3000);
Shell.Sendkeys("{F3}");

失礼しました。

>>305
var shell = WScript.CreateObject("Shell.Application");
shell.FindComputer();

……手遅れ？

そんなんでいいならWin+Fで十分じゃないのか？

307は>>305宛て

>>303
もう遅いかもしれないけど
http://activex.adsp.or.jp/public/iasdocs/aspdocs/ref/vbs/vbscript/23.htm

質問させてください。

ScanDisk を　WSHから起動するにはどうしたらよいでしょうか？

↑すみません。

chkdskを発行すればいいんですよね。お馬鹿なことを聞いて申し訳ありません。

>>309
めちゃめちゃ基本的な質問ですが、
「Microsoft Windows では使用できません」っていうのは、
何で使用できるのでしょうか？
プラットフォームでの指定ってあるけど、Windows以外のプラットフォームってどんなの？

>312
ただ標準としてそういうエスケープシーケンスを使えるってだけ。
エスケープシーケンスを出力しなくても解析したい場合もあるだろ。
「Microsoft Windowsでは使用できません」ってのはもしろ、
Windowsでは使用しても意味ありませんってぐらいの意味。

ウィンドウを常に最前面に表示ってWSHでできますか？

Shell.Execで実行したEXEファイルのリザルトコードが欲しい場合は
どうしたらよいのでしょうか？

ExitCodeかな

>ExitCodeかな
取れましたありがとう

.wsc(Windows Script Component)
で別のタイプライブラリのインターフェースを継承して
COMを作成するにはどうすればいいですか？
implementsの使い方がよくわからん。

BASP21使わないでVBSでStrConvをするにはどう書けばいいんですか？

VBWRAP http://tel.tics.net/hayashi/soft/vbwrap.asp

これで1000円…… ＿|￣|○

>319
See→>257
文字列エンコードするにはファイル化の際にADODB.Streamで。

>>320-321
情報有賀とう
>321
わけわかめだがそれを使ってみることにする。

あぼーん

10秒間のWaitをいれたいのですが、何か方法はありますか？

Sleep使えばいいんじゃないの？

WScript.Sleep(10000); // 10秒スリープ

>>326
thx

basp21使わないでmp3のID3v2タグを読みとる
にはどうしたらいいですか？

DynaCall + mp3infp(SDK) でDLL呼び出せばできると思うけど、詳しくはわかんないから
成功したら報告きぼん。

thx。やってみる

さっぱりわからん（;´д｀）ダメぽ

さっきここで何か聞こうと思っていたんだけどなんだったか忘れてしまった＿|￣|○

>>332
何を忘れたか聞こうとしたのでは？　（ｗ

タイプライブラリってどうすれば見れますか?

>>334
oleview.exe

>>335
みれますた。サンクスコ

>>328
mp3infp使えば普通にGetDetailsOfで見れなかったっけ?

***すれ立てるまでもない質問はここで 第48刷***
http://pc2.2ch.net/test/read.cgi/tech/1071506396/

↑のスレで質問したんですが、誘導されたのでこちらのスレにやってまいりました。
質問は「vbscriptでレジストリキーを消したいのだが、キーの中に小項目があると、消すことができない」
というものだったのですが、答えは「9X系ではまとめて消せるが、2000,XPではできない」
ということでした。

となると、2000,XPでキーを一度に消去する場合には、他にやり方があるんでしょうか？
再帰的にキー構造を調べて、一つ一つ消していくとか・・・
あまりVBには詳しくないのですが、Jscriptとか、他のスクリプト言語ならできるんでしょうか？

WSHでローカルポリシーを変更する方法ってありますか？
MSDNなどなど調べたんですがどうにも見つからないもので・・・
ご存知の方がいればお願いします。（環境はWin2Kです）

>>339
SendKeysで操作を自動化するより他に手がなさそうです。
レジストリの価を書き換える事で一応は実現できるのですが
それやるとサポート対象外になるとMSプレミアより回答ありましたから。

あの、ひょっとして同じ職場の方でつか？

>>340
サンクスです。うーんめんどそうですな（;´д｀）
職場名を晒す勇気は無いですが、某化学企業の工場勤務です。
サポート対象外など無視してレジストリ書き換えまくりなので違う職場だと思われ

エクスプローラーでファイルやフォルダを選択してそれらのファイルオブジェクトを
WSHで取得することってできますか？

フォルダのカスタマイズからなら取得出来るのは知ったんですけど出来れば単体のスクリプトファイルから操作したいんですが。
いろいろ調べたんですけどエクスプローラーの操作関連はあまりのってなくて、、

あっ、すみません、付け加えですｗ

上の書き方だとWScript.Argumentsで送れる方法もありますが、
やりたい事というのはWSHで任意のフォルダ内のファイルを選択状態にしたいんです。
そういうことって出来ますでしょうか？

テキスト検索の結果など、行数の多いテキストを
ユーザーに返したいのですが、結果を result として、
WScript.Echo( result ) してダイアログに表示させると、
画面より大きい結果をスクロールさせることができないですし、
選択してコピーもできません。

いちばん良いのは、スクロールバーがついてて
編集できないエディットボックスに result を表示できればよいのですが、
それに近いことでも、なにかいい方法があれば教えてください。

>>344
IEのウィンドウに表示するとか

>>343
できる

WSHから使用できるDLLを開発したいんですが、あれってActiveXですか？それともただのCOMですか？

パソコンが安く買えるよ。

http://michellebranch.jp.mybpmall.com

>338
2000以降ならWMIで再帰使ってやるのがいいんじゃないのカナ？
Const target = "giffile\shell\Edit"
HKEY_CLASSES_ROOT = &H80000000
HKEY_CURRENT_USER = &H80000001
HKEY_LOCAL_MACHINE = &H80000002
HKEY_USERS = &H80000003
HKEY_CURRENT_CONFIG = &H80000005
HKEY_DYN_DATA = &H80000006
strComputer = "."

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
DelRegTree oReg, HKEY_CLASSES_ROOT, target

Sub DelRegTree(StdRegProv, hDefKey, sSubKeyName)
Dim subkey, arrSubKeys

StdRegProv.EnumKey hDefKey, sSubKeyName, arrSubKeys
If Not IsNull(arrSubKeys) Then
For Each subkey In arrSubKeys
DelRegTree StdRegProv, hDefKey, Replace(sSubKeyName & "\" & subkey, "\\", "\")
Next
End If
StdRegProv.DeleteKey hDefKey, sSubKeyName
End Sub

WSHで外部プログラムを使わずに SHIFT-JIS → UTF-8 変換することはできますか？
VBSで使用したいのですが方法がわかりません。

>>350
さてどの辺りまでが外部プログラムなのだろう？
取り敢えずADO（2.5以降らしい）を使ったサンプルとか。
ttp://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list74.shtml

現在開いている IE のウィンドウから、ページのタイトルと URL を得て、
クリップボードにコピーしようと試みてます。

で、IE のウィンドウが一つのときは、とりあえずできたんですが、
複数の IE ウィンドウがあるときに、一番上にあるものを選び出す方法が
分からず困ってます。

// 現在開いている IE のウィンドウ(?)を得る。
var Shell = WScript.CreateObject("Shell.Application");
var WindowsShell = Shell.Windows();
for (var i = 0; i < WindowsShell.Count; i++) {
if (WindowsShell.item(i).FullName.match(/iexplore.exe$/i)) {
var ie = WindowsShell.item(i);
break;
}
}

こうすると、一番最初に開いたウィンドウが得られてしまい、目的がかないません。

どうすればいいのか分かる方、助言をください。

>>346
よければ教えて貰えませんか？

粘着ｳｻﾞｲ

>>347
ActiveX = COM です。WSHから使うには IDispatchを実装します。

Javascript Windowsってすごいですね。
ttp://www.bitesizeinc.net/jWindows/

WSHで、ここまで出来るものなんですね。

>>355
thanksです。VBA + APIで作ったモジュールを移植したいのでVB6で適当に作ってみることにします。

>>353
wshファイルは当該フォルダにおけないから(ダブルクリックしたら選択が変わる)
パスを渡すUI作るの面倒くさそう

例えばwindows2000ｻｰﾊﾞ上で夜間バッチを走らせるとして

１．ＤＢからデータをテキストファイルに抽出
２．ファイル転送ソフトで他企業に転送
３．転送ログチェック

みたいなことを皆さんはどうされてるんですか
wshをベースにして作ってますか？

>>359
C#.Net, JScript.Netを使ったり，WSHで作ったり，
やりやすいので作ってます。

>>356のところに行っても何もおきないんだが・・・

SIDはどうすれば取得できるでしょうか・・・

>360
ありがとうございました。

質問です。
IEブラウザで改行がない右端折り返しされてる文字列を
改行を挿入して取得するにはどうすればいいのでしょうか？

例：
ああああああああああああああああ｜←ブラウザの端で折り返し
ああああ

↓このようにしたいんです。

ああああああああああああああああ(改行)｜←ブラウザの端で折り返し
ああああ(改行)

243とかで、でてきた
UrlEncode関数、UrlDecode関数のJScript版、きぼーん。
簡易版でも、いいです。

>>365
JScriptだと、実はGlobalオブジェクトにencodeURI/decodeURIメソッドがある。

inputboxから入力されたレジストリ値を入れ替えたいんだけど
変数を経由した値への変更ってできないんですか？

RegWrite使用とすると「引数の数が一致していないか不正なプロパティ」で落ちてしまう（´・ω・｀）

例えば、↓のAutoShareServerの”0”の値を、
画面から応答入力された”1”や”2”に変更するってのをやりたいんだけど
objWshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AutoShareServer",0,"REG_DWORD"

詳しいひと教えてぷりーず（´・ω・｀）

>>367
CLngとかした？

JScript による Windows Script Host で、複数のスクリプトの排他制御を
行うには、どのように実装するのが一番簡明でしょうか？

Perl や C なら flock や bind、java なら synchronized() 等を使う所
ですが、JScript ではどうするべきでしょう？ 無理に外部プログラムを
使ったりするのではなく、もっと簡単な方法がありそうなのですが。

そんなもんスクリプトでやることかい

>>368
サンクス

やったことなかったです。
C〜って命令は今まで一度も使ったことなかったので
それを使うことにさえ考えつかなかったというか．．．

早速やってみますです。

VBScript, JScript, Perl, Ruby
以外にWSHで使える言語があったら教えてください

>>372
Pythonとか。
もはや「何故それでWSH?」って気しか起きないが。

MSによると、「利用可能なスクリプトエンジン」の中にREXXっていう
名前があるんだが、何これ？

ググってみたら、元々はIBMの汎用機で動くバッチとかシェルスクリプト
みたいな言語だとさ。

Python、REXXですかなるほど
Script Engineで具具って見たところTCLやLISPもつかるようです。

TCLScript
http://tclscript.sourceforge.net/
PerlScript
http://aspn.activestate.com/ASPN/docs/ActivePerl/Components/Windows/PerlScript.html
ActiveScriptRuby
http://www.geocities.co.jp/SiliconValley-PaloAlto/9251/ruby/
PyScript
http://www.python.org/windows/win32com/ActiveXScripting.html

REXX, Lispは見つからず

rexx windowsでググったら何かあったよ。
REXX Software for Windows 95/98/ME/NT/2000
ttp://www.borg.com/~jglatt/rexx/win32/rxusrw32.htm

WSHで使いたいっていう需要なんてあるのかなー？

PerlScriptは、sprintfとか、utimeとか使えて、便利だと思いますた。
JScript、なんでsprintf使えないんだろー!?

VBのDate構造体ってやつが、FSOから返されるんだけど、これがPerlScriptでは
どう扱ったら言いか判らず、変換部分だけJScriptにしたりして…(w
(utimeは、UNIX-timeを要求する)

# Lispかぁ…。どこにそういうWSH処理系があるんだろう？

Lisp ActiveXとかでググったら、Visual Lispとか言うのが引っかかりますた。
Visual Lisp ActiveXでググると、なんか、CADソフトの機能拡張だか、プラグイン
だかみたいなものらすぃ。

ttp://www1.harenet.ne.jp/~hanafusa/visual/

Windows Scripting Hostって、UNIXのシェルスクリプトに比べると
たいしたこと出来ないで

Active Bourne Again Shell きぼんぬ

PHPはどうなんだろう？

野村バーチャル株式投資倶楽部
http://www2.nomura.co.jp/vstock/VirtualServlet?
に自動ログインできるWSHを書きたいと思っています。
ページを開くところまではできますが、ニックネーム、パスワード、ログインボタン
を押す方法がわかりません。
どなたかご教授いただけないでしょうか？

Sleipnirってタブブラウザのオートログインクリエイターが生成するコードを見るとよい

ありがとうございます。
やってみます！

たびたび、すみません。
Sleipnirでは自動ログインできました。
しかし、ソースを見ても、
Sleipnir.APIを使っている部分を普通のjavascriptにできません。
お教えいただけないでしょうか？

>>387
コントロールのプロパティとメソッド使えば簡単ですよ。

たとえば、VBScriptですが、Ｇｏｏｇｌｅにテキストを設定して検索かけるには

Ie.Document.f.q.Value = ”検索する文字列”
Call Ie.Document.f.btng.Click

ってやればOK。

>>388
GETメソッドでわざわざそんなのする必要があるのか……？

>387
SleipnirAPIを使っているのは「SleipnirでアクティブなタブのDocumentオブジェクトを取得する」
部分だと思ったけど。
あーでもそのへん自作オブジェクトでラッピングしてるんだっけか。

>>389
IEオブジェクトのDocumentCompleteイベントで実行。

自分で書いた分は、時間待ちしてなかったのでobjectが取得できなかった
みたいです。
function WaitLoad() {
var stat, dstart;
stat = 0;
while(true)
if(stat == 0) {
if(!IE.Busy)
if(IE.Document.readyState == "complete") {
dstart = (new Date()).getTime();
stat = 1;
}
}
else {
if(!IE.Busy &&
IE.Document.readyState == "complete") {
if((new Date()).getTime() >= dstart)
break;
}
else
stat = 0;
}
}
こんな関数拾って実行したら解決しました。
みなさん、ご親切にありがとうございました。
本当に勉強になります。

教えてください。
ヤフーチャットのいつも行く部屋に、HTMLでWindowsScriptingを使い、
簡単に入室するにはどう書けばいいか教えてください。
手動では、最初にHNを選んで、次にjabaか、htmlか選択して、目的の部屋のカテゴリーを選んで、
Yahoo!ルームか、ユーザールームか選んで、部屋名があるページを探して入室。
来れを、HNと部屋名とHTMLか、JAVAかを指定するだけで、入室できないでしょうか？

試行錯誤する前に来るなよ。

すいません
まったくの初心者なんですが、WindowsScriptingでこれは、作れますか？
初心者には、難しい物でしょうか？

クズだな

>>395
詳しいことはﾔﾌｰチャットを見たことないからわからんが、初心者がやるとなると難しいと思う。
同じようなことを考えた人間から助言させてもらうと、スクリプトだけでなくHTMLも勉強する必要がある

>>393
できるよ。
でも、教えたくない。

>>393
HTMLごときで「勉強」とか言うなよ…
いくら初心者でもみりゃわかるだろうが。

>>393 >>395
java版でログインするとさ、データロード中に画面下の方に
「アプレットの起動に失敗しウインドウが立ち上がらない場合は、ここをクリックしてリロードしてください。」
って書いてあるだろ？

で、「ここをクリック」の「ここ」の部分にリンクが張ってあるから、
そこをクリックしてそのままデスクトップまでドラッグ。
これでその部屋へのショートカットのできあがり。

部屋を選ぶ所でやってもいいけど、これだとjavaアプレットのロードに失敗するっぽい。

というわけで、ぜんぜんWSHとは関係のない方法で解決。

>>400
そういう手もあったんですね、自分の環境でそのやり方だと、ボイスが使えないんですが、普通は使えるんでしょうか？
>>397
HTMLの基本は分ります。
>>398
WindowsScriptingできる事はできるんですね。
HNを選んだりjavaか、ｈｔｍｌかを選ぶなんてこともでできるんなら、便利ですね〜。

回線切る→シャットダウン
これ作ってください。おねがいします。

>>402
どうせシャットダウンするのに回線を切る意味が分からない。

>>403
USBのモデム子機を導入したところ、先に
回線を切らないとシステムの電源が落ちなくなったので。

普段はどーやって回線切ってるの?

WSHで、
<html>
<head>
<script language=VBScript>
<!--
set WSHShell = WScript.CreateObject("WScript.Shell")

と記述するとプログラム全体が動かなくなってしまいます。
しかし、HTMLに組み込まず、ただのVBScriptにするとWScriptを書いていても
動き、HTMLに組み込むときはWScriptをなくすだけでプログラム全体が
動きます。
ただ、どうしてもsleepが使いたいのでどうしたらよいか教えてください。
よろしくお願いします。

>>406
sleep.vbsを作って
それをrunさせればいいんでないの?

age

>>405
タスクトレーの普通のダイヤルアップ接続のアイコンから切ってます。

>>409
なるほど。
それと同じことをさせればイージャンと指摘しようと
思ったが、わからんね。ｽﾏｿ
ベクターでもいってソフト探してきな。

Iria（ダウンローダー）のIriaAPIにDialup、Hangupといったメソッドが
あるのでそういうソフトを導入してみるのも手かも。

青風の作者の単機能ツールに回線切断がある

rasdial コマンドはXPからだっけ？

今見たら2000にもあった

まえにどっかでソースの見られないHTAがあった気がするんだけど、方法がわかりません。
どなたかご存知ないでしょうか？

すれ違い

>>415
Script Encoder で暗号化できるんじゃない？

>>136

やっぱりＷＭＩの日本語情報ってないっすかね
英語わからんし、きついっす

>>136 >>418
http://wmifun.atinfinity.net/

vbsでMSXMLを使いxmlのファイルをクライアントに作りたいのですが
vbsから呼び出すと正しく動作するのに
ブラウザから呼び出すとうまくいきません。
xmlを保存するときにsaveメソッドで止まっているので
権限か何かかと思うのですが、どうやったらうまくいくでしょうか？
環境
OS：WindowsXP pro
ブラウザ：IE

EmEditorのようにJScriptやVBScriptを自前アプリケーション上で走らせて
パラメータとかを渡したいのですが，どのようにやればよいのでしょうか？
あるいはどのAPIを使えばよいのでしょうか？
ご教示願います．

環境
Win2K
VC++6.0

>>421
IActiveScriptSite で調べてみ
スレッドがからまないなら簡単だよ

>>442
ありがとうございました．

アクティブX対応スクリプト言語エンジンのProgIDと
.wsfでlanguage=""のところで何を書くか
はどうやったら分かりますか？

ScriptControlのLanguage
に渡せる文字列を列挙する方法はありますか？

Ageてみます

ちょっと質問。
VBSの動くソフトはIE,WSHの他にメジャーなものはありますか？
VBSが動かず、JavaScriptが動くソフトはNN以外にメジャーなものはありますか？

>>427 VBSの動くソフトはIE,WSHの他にメジャーなものはありますか？
ほかには hta くらいかな？

Re:>>428 どうもありがとうございます。htaってソフトですか？

久しぶりのウィッシュスレパピコ。
皆さんがんばってください。

>>429
hta は ie5.0 から一緒にある mshta.exe のこと

>>424
ProgID は Active Script Engine の CATID を含んでる clsid を調べれば
わかると思う

VBSまたはJSで「c:\hoge\hage\nantoka.exe」を渡したら「c:\hoge\hage\」
が帰ってくるように、フォルダのパスを取得するにはどうすればいいでしょうか。

Left(path, InStrRev( path, "\")

)

>>435
ﾜﾗﾀ(´-`)

>>433
strPath = c:\hoge\hage\nantoka.exe
Set objFS = CreateObject("Scripting.FileSystemObject")
strFolder = objFS.GetParentFolderName(strPath) & "\"

strPath = "c:\hoge\hage\nantoka.exe"
ですた。

チョット話しずれるけど、みんな何のエディタで普段スクリプト書いてるの？

sakura

VxEditor with 補完ｸﾝ

Re:>>439 NOTEPAD

　　　　　　ヽ(･ω･)/　 　ｽﾞｺｰ
　　　　 　＼(.＼ ノ

>>439
秀丸でVBSのキーワードを色定義して書いてる

漏れも秀丸

つかあんまり意味無い質問じゃね？
ほぼ全員「普段から使ってるエディタ」になるんだろうから。


かくいう私はxyzzyのjscript-mode。

　　　　　　　　　　　　　　。　　　　　　　
　　　　　　　　　　　　　　　　う　　　　　
　　　　　　　　　　r　　　　　　　　　　　
　　　　　　　で　　　　o　　　　　ょ　　　
　　　　す　　　　　　　　　t　　　　　　　
　　　　　　　　　E　　　　　　　　　し　　
　　　。　　　　　　　　　　i　　　　　　　
　　　　　　　　m　　　　　　　　　　ま　　
　　　ス　　　　　　E　　d　　　　　　　　
　　　　　　　　　　　　　　　　　　め　　　
　　　　　レ　　　　　　　　　　や　　　　　
　　　　　　　違　　い　　は　　　　　　　　

>>447
>>447

よさそうなソフトﾊｹｰﾝ
WSHAssistant
ttp://hp.vector.co.jp/authors/VA036013/
関数・定数を補完
自分で生成したインスタンスのメソッド・プロパティも補完
クラスのメソッド・プロパティには説明文も出る
引数も表示
「WScript.Argument.Name」みたいなのも補完
補完候補の単語は自分で設定することが可能
すれ違いｽﾏｿ次の話題ﾄﾞｿﾞｰ

はっきり言って、ぬる度で間に合ってます。

新しいソフトを公開するのは勝手かもしれないけど
既存のソフトを越えないものは何の意味もないよ。
需要も無いのに供給を渡すのはキチガイとやってることは変わらない。

ソフト単位で超える超えないしか基準がない奴に
偉そうなこと言われる作者とかやってらんねぇだろうなｗ

キチガイはこの世からきえてほしいよ。

VBSでフォルダの有無を確認して、無ければ作成する処理を作っているのですが
現状だと一つの階層毎に「オブジェクト.CreateFolder」をしています。
これを一行で途中のフォルダも作ってくれるようにできないでしょうか？

・駄目例（C:\以下に「1st」フォルダが無い状態から「c:\1st\2nd\3rd\」を作る場合）
If (FileOBJ.FolderExists("c:\1st\2nd\3rd\")) = false Then
FileOBJ.CreateFolder("c:\1st\")
FileOBJ.CreateFolder("c:\2st\")
FileOBJ.CreateFolder("c:\3st\")
End If

>>451
で、その頂点にいるソフトを作ってるんですね？

個人単位でも企業単位でもソフトなんて何時開発止まるか分からんからなー。
今はちょっとイマイチなソフトでも未来の代替品になる可能性もあるわけで。
選択肢が多い方が楽しいし、ひとつのソフトで万人の要望に適うような事なんてあり得んし。
よほどショボいブツでなければ、何の意味も無いようなソフトにはならないでしょ。

>>454
1行にしたいと思う前に、目的を果たすスクリプトを作れるようになれ。

本題だが、1コマンドでは無理。
良く使うものなのでFUNCTIONかSUBで再帰的に処理させるものを作った方が良いと思う。

どうしても1行で書きたいのなら以下の様にコロンで繋ぐことでできないこともないが、
見にくいだけなので止めた方が良い。

IF 1 THEN MSGBOX "1" END IF:IF 1 THEN MSGBOX "2" END IF:IF 1 THEN MSGBOX "3" END IF

ぐぐったらこんなんでてきた。
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list29.shtml のいちばん上。
使えるならおれも使って楽したいんで動作確認よろ。

>>449
使ってみたけどかなり気持ち悪い動作をするね。
大文字小文字の扱いとかクリップボードを使ってたりするのも減点かな。

>>451
既存のソフトでそんなすごいソフトってあったっけ？

つーか>>449ってどうやって見つけたの？
ググっても出てこないし、更新された直後っぽいし。

ただの宣伝だったのか・・・_Πo

>>460
漏れは>>449じゃないけど
OnlineSoft VersionUp.infoで見たよ

宣伝じゃないよ
http://www2s.biglobe.ne.jp/~takao777/versionupinfo/
漏れここブックマークしてるから見たらのってたし、このｽﾚでエディタ
話題になってたからさらっとｺﾋﾟﾍﾟしただけ。
>>459
そうなんだ・・
正直使わずに書いた。DLはしたけど

>>461
>>462
そでしたか、ｽﾏｿ。

WSH関連ならツール紹介でもよろしいかと。
これからも良さげなモノを見つけたら紹介してください。

>>454
JScriptだけど、同じような質問があった。
ttp://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list96.shtml

dmonkeyならForceDirectoriesしてるから１発で作られる

>457、464
ありがとうございました。
「CreateFolder」の再帰版メソッドを期待してたのですが
やっぱり無いんですね。

前のソース急いで書いたんで思いっきり間違ってますねｗ
いちおう、実際は以下です。
Set FileOBJ = CreateObject("Scripting.FileSystemObject")
If (FileOBJ.FolderExists("e:\1st\2nd\3rd\")) = false Then
FileOBJ.CreateFolder("e:\1st\")
FileOBJ.CreateFolder("e:\1st\2st\")
FileOBJ.CreateFolder("e:\1st\2st\3st\")
End If

>>458は無視かよ。再帰はしてないけど。

まあ、Sub MyCreaetFolder() なんていうプロシージャ名を敬遠するのもわかるが。

JScriptで未知のCOMオブジェクトのメソッド、プロパティを列挙したいのですが
どうしたらよいですか？

>>468
CreateObjectしてからオブジェクト自体をprint?

>>466
関数に目覚めた方がいいんじゃない？
関数を放り込んでおけば、後は１行でかけるし。

JScriptのcreateFolder関数はサクサク動いてます。

そろそろ、CLASSに目覚めようかな？

>458
上司に隠れて見てるので見落としてた・・・スマソ
で、動作OKでした。
俺もこれでほぼ解決です。

>470
実際に使うときはcallで呼ぶようにしてますよｗ
不要な部分は書き込まないほうがいいと思ってるんだけど

Scripting.Dictionaryオブジェクトのキーってオブジェクト入れられるんだ。
リテラルしか入れられないものとばっか思っていて既定のプロパティ省略したらハマったよ。

WSHでPCをスタンバイ状態にできないでしょうか？

タスクで実行→スタンバイで終了　という感じで毎日決まった
操作をさせたいと思っています。

>>473
ぐぐれ

ダイヤルアップルータを使っているのですが、接続要求をPOSTで、
切断要求をGETメソッドで送る仕組みになっています。
GETはショートカットを作って切断していますが、
一々ブラウザが立ち上がってしまいます。
このやり方ではPOSTはフォーム画面からの操作になり面倒です。
これらをブラウザを立ち上げないで実現したいのですが、
いい方法はありませんか？

>>475
DMonkeyなら楽に出来る

>475
WScriptからIE呼び出していじるときって、IEのvisibleをfalseにすれば
IEのウィンドウを表示することなく操作できなかったっけ？

>>475
XMLHTTP

特定のディレクトリに存在する全ての画像ファイル（bmp）の、
任意の色を、指定した色へ一括置換することはウィッシュで可能ですか？

>>479
TOYOTAに聞け。

>>475
もう見てないかな。JScriptだとこんな感じ。

var IE = new ActiveXObject("InternetExplorer.Application");
var uri = "http://192.168.0.1/";

// GETの時
IE.Navigate( uri + "?hoge=fuga&foo=bar" );

// POSTの時
IE.Navigate( uri );

while( IE.busy );
while( IE.Document.readyState != "complete" );

// フォームが複数ある時は幾つ目なのか数えて変更する。nameがあればそれでもokかも
var formItems = IE.Document.forms[0];

// postしなきゃいけないフィールドがあったら値をセットしておける。
formItems.elements[ "hoge" ].value = "fuga";
formItems.elements[ "foo" ].value = "bar";

formItems.elements[ "button1" ].click(); // 送信ボタンのname

On Error Resume Nextを使っていて
下のようにエラーが重なった場合、一つ目のエラーのDescriptionを
保持しているのですが、ErrオブジェクトはErr.clearしない限りは
エラーが複数発生しても一つ目のエラー情報を保持するのでしょうか？


「Windows Script v5.6 ドキュメント」より。ちょっと変更

On Error Resume Next
Err.Raise 6
MsgBox (Err.Description)
Err.Raise 7
MsgBox (Err.Description)

Explorer のアイコン表示をwshから設定することはできるでしょうか?
大きいアイコンとか、詳細とかです

>>482
違うと思う。
Err.Raise number だけで生成したエラーがDescriptionを書き換えないだけっぽい。
Err.Raise number, source, description まで指定すれば書き換えられてる。

On Error Resume Next
Err.Raise 6
MsgBox (Err.Description)
Err.Raise 65535, "test", "error test"
MsgBox (Err.Description)

また、Raiseを使わずに発生したエラーでも書き換えられる。
On Error Resume Next
Err.Raise 6
MsgBox (Err.Description)
Err.Description
MsgBox (Err.Description)

>484
なるほど、Descriptionはそのままでも
numberは変わってますね。
これで、納得して先に勧めそうです。有難うございました

WshShellオブジェクトのRunメソッドを用いて
半角スペースを含むフォルダの配下にあるファイルをコマンドライン引数付きで実行する際、
コマンドライン引数がファイルにきちんと渡されないことがあるみたい。

具体的には次の場合が：
NALT (時刻修正ソフト、軽量・レジストリ非使用)
ttp://akky.cjb.net/download/nalt.html
は-aオプションをつけて実行すると非表示で起動して終了する。
nalt.exeをC:/tempフォルダに置いて以下のコード：
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:/temp/nalt.exe -a"
を実行すると、確かに非表示で起動して終了するけど、
C:/temp/test testフォルダに置いて以下のコード：
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:/temp/test test/nalt.exe"" -a"
を実行すると非表示で起動しない。
ちなみに、前者の場合では
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:/temp/nalt.exe"" -a"
でもきちんと-aオプションが渡されるはずなのに渡されない。

スタートアップスクリプトにこのソフトを組み込みたいんだけど、
このせいでうまくいかない…
コマンドライン引数の渡し方が良くないのかなぁ。
ソフト側の不具合なのかな?

>>486
自己レス
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.CurrentDirectory = "C:/temp/test test/"
WshShell.Run "nalt.exe -a"
でとりあえずうまく行ったけど、Runメソッドを使う場合は
必ず作業ディレクトリを変えるべきなのか…

>>487
RunじゃなくてExec使え。
↓これでお望みの動作だと思う。

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Exec( """C:/temp/test test/nalt.exe"" -a" )

質問させてください。
WSHを使ってアプリケーションの印刷を実行したいのです。
具体的には、印刷ページ「ファイルに保存」にチェックを
つけて、出力先ファイル名も、ダイヤログを開かせて
入力するのではなく、あらかじめ決めうちのファイルに
出力させたい。

普通に印刷させるだけなら下記のようになると
思うのですが(MS-Wordの例)、それ以上の応用となると
さっぱりです（資料が……）。

// 印刷するファイル名
doc = "c:\\test.doc";

// アプリオブジェクト作って読み込み
word = WScript.CreateObject("Word.Application");
word.Documents.Open(doc);
word.visible = false;

// オプション設定して印刷
word.Options.UpdateFieldsAtPrint = true;
word.Options.PrintBackground = false;
word.ActiveDocument.PrintOut();

//終了処理
word.ActiveDocument.Close();
word.quit();

スクリプトにD&Dした各フォルダの全部の中身をまとめてEasy圧縮に渡して
その各々のフォルダの中に、できた圧縮ファイルを置けるようなスクリプトって作れますか？
無圧縮zip.mp3をリネームするときにバラのファイル名を流用することが多いもので……。
最初バッチファイルでやろうとしたんですが、Easy圧縮がワイルドカードを受けつけてくれずできなかったです。。

>>489
ここ参考のこと。
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/dv_wrcore/html/wrtskhowtosenddocumentstoprinter.asp

ちなみに第3引数Rangeで指定する列挙体はそれぞれ以下の通り。
ｊｓやvbsでは対応する数字で指定すればいいかな。

wdPrintAllDocument = 0
wdPrintSelection = 1
wdPrintCurrentPage = 2
wdPrintFromTo = 3
wdPrintRangeOfPages = 4


↓プリントアウトの部分だけ。

// オプション設定して印刷
word.Options.UpdateFieldsAtPrint = true;
word.Options.PrintBackground = false;
word.ActiveDocument.PrintOut( true, false, 0, "c:\\printtest.pm" );

>>490
あんまりスマートじゃないけどこんなでどうよ。
Eaｓｙ圧縮の設定で「圧縮元ﾌｧｲﾙと同じ場所(I)」と「圧縮完了を通知しない」を選択のこと。

var WShell = WScript.CreateObject( "WScript.Shell" );
var fso = new ActiveXObject("Scripting.FileSystemObject");
var Argu = WScript.Arguments;
var fList = new Array();
var i, target, fld, fc, fn, count = 0;

for ( i = 0; i < Argu.length; i++ ) {
target = Argu.Item(i);
if ( fso.FolderExists( target ) ) {
fld = fso.GetFolder( target );
fc = new Enumerator( fld.files );
for ( ; !fc.atEnd(); fc.moveNext() ) {
fList.push( fc.item().Path );
}
} else {
fList.push( target );
}
}

while ( fn = fList.pop() ) {
WShell.Exec( "C:\\ezc12\\EASYLZH.EXE " + fn );
}

>>492
count = 0 はいらんかった。

こないだのセキュリティうｐデートで
user@password:url 形式のURLがそのままじゃ使えなくなりましたよね
.Navigate2とかで認証付きのページを何とか利用したく思い、
レジストリ変更でとりあえず現在ログインしているアカウントでは利用可能でしたが、
Win2kでの「タスク」によるスケジュール実行の場合、正しく起動アカウント設定しても
なぜか動作してくれませんでした。

別の方法があれば教えてください

>>492
ありがとうございます！
早速拡張子jsで保存しMP3の入っているフォルダをD&Dしてみました。
ところが、MP3ファイルのそれぞれを(一斉に)個別圧縮してしまい、うまく動かないようです……。
album1\
　1-1.mp3,　1-2.mp3
album2\
　2-1.mp3,　2-2.mp3,　2-3.mp3
↑このフォルダalbum1&2をスクリプトにD&Dすると、圧縮経過を示す
ダイアログが一気に5つ開き、各々のファイルの個別圧縮が始まって
album1\
　1-1.mp3,　1-2.mp3,　1-1.zip,　1-2.zip
album2\
　2-1.mp3,　2-2.mp3,　2-3.mp3,　2-1.zip,　2-2.zip,　2-3.zip
↑こんな感じに圧縮ファイルが出来上がってしまいます。
圧縮経過ダイアログを一つずつ順繰りに出していって、各々のフォルダ中身全部を
そのフォルダの中に圧縮したものを出すようにしていただけると助かりますです。。
album1\
　1-1.mp3,　1-2.mp3,　NEW1.ZIP　(←1-1.mp3 + 1-2.mp3が圧縮されたもの)
album2\
　2-1.mp3,　2-2.mp3,　2-3.mp3,　NEW1.ZIP　(←2-1.mp3 + 2-2.mp3 + 2-3.mp3が圧縮されたもの)
こんな具合に。
お手数かけてすみません。お願いします……。
もしこちらの勘違いでしたらすみません。

ここは何屋さんですか？

>>495
>492 のスクリプトの動作はそれで正常。だってそうなるようにしたんだもん。
フォルダは丸ごと圧縮だったのな。

圧縮ファイルの保存先は「c:\temp」、ファイル名は「NEW1.lzh」で決めうち。
連番機能で「NEW2.lzh」とかなった時のことはしらん。
D&Dされるのもフォルダに決めうち。ファイルがあった場合はしらん。

var WShell = WScript.CreateObject( "WScript.Shell" );
var fso = new ActiveXObject("Scripting.FileSystemObject");
var Argu = WScript.Arguments;
var i, folder;

for ( i = 0; i < Argu.length; i++ ) {
folder = Argu.Item(i);
var oExec = WShell.Exec( "C:\\ezc12\\EASYLZH.EXE " + folder );
while (oExec.Status == 0) {
WScript.Sleep(100);
}
fso.MoveFile( "c:\\temp\\NEW1.lzh", folder+"\\" );
}

>>497
バッチリ動きました、ありがとうございます！
497さんのスクリプトをパクらせていただいて、解凍レンジの個別(順次)解凍のスクリプトもできました。
これでかなり快適になるです。ありがとうございました。

// [解凍レンジで個別解凍] EasyExtract.js
var WShell = WScript.CreateObject( "WScript.Shell" );
var fso = new ActiveXObject("Scripting.FileSystemObject");
var Argu = WScript.Arguments;
var i, fn;

for ( i = 0; i < Argu.length; i++ ) {
folder = Argu.Item(i);
// 解凍レンジへのフルパス+コマンドラインオプション
var oExec = WShell.Exec( "D:\\PROGRAM\\EASYRANGE\\ERANGE.EXE " + "+m -o -v -s +w -a -t +c +j " + folder );
while (oExec.Status == 0) {
WScript.Sleep(100);
}
}

>>488
本当だ。ありがとうございますた。

>>491
なるほどサンクス。
WordのVBAでマクロ記録したら
それっぽい引数名に空文字列を
渡していたんで、もうちょっとがんばれば
良かったわけだな。

ともあれ感謝。

>>16 (11)

参考にしてやってみたんだが、
確かにＣＡＢファイルはできるが
ＸＰで、エクスプローラで解凍しようと
すると

この操作を完了するのに十分な記憶域がありません。

とでるのは、漏れだけですか。

Set cab=CreateObject("MakeCab.MakeCab.1")
cab.CreateCab "Test.cab",False,False,False
cab.AddFile "test1.txt","test1.txt"
cab.AddFile "test2.txt","test2.txt"
cab.CloseCab
Set cab=Nothing

おい、超偉い人教えてくださいませ！
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■NTドメイン上のコンピュータアカウントのSIDを得る方法■
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
まじで、お願いします。偉い人。期待してます。

>>502
前に同じ事尋ねたけど反応なかったよ

だからって埋もれさせる理由は無いさ

>>502
こういうこと？

var acs = GetObject("winmgmts:{impersonationLevel=impersonate}")
.ExecQuery("SELECT * FROM Win32_AccountSID");

for ( var e = new Enumerator(acs); !e.atEnd(); e.moveNext() ) {
var ac = e.item();
WScript.Echo( ac.Element + "\t" + ac.Setting );
}

それはローカルPCまたはその時直接アクセスできるリモートが対象ではないかい？
欲するは、ドメインDBからコンピュータアカウントのSIDを引き出すこと。

wshからのExcelのソートの仕方がわかりません
誰かおせーてください

Set obj = CreateObject( "Excel.Application" )
で、Applicationオブジェクト作ってソートしたいRangeを設定してSortメソッドでできるんじゃないかな

nbtscan.exe

文字置換スクリプトにおいて、SJISコードで下二桁が9Dの時、
そいつを元の文字+＠（任意の文字）にしたいのですがうまくいきません。

replStr = "A"
setStr = "BG"

現状でAという文字がBGと置換はされるのですが、
文字コードの指定方法がいまいちわかりません。
どなたかアドバイスをくれませんか？

>>510
文字置換スクリプト
ってなに？

秀丸ﾏｸﾛ

Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate("url")
ie.Visible = True

ってやると、すでにIEが起動している場合、同一プロセスに
相乗りして起動しまいます（別ウィンドウであがりますが・・・）。

これを別プロセスで起動させる方法ってあるのでしょうか？

復帰

IEのお気に入りの中の、URLの特定部分を一括置き換えするスクリプトってありませんか？
pc2.2ch.netからpc5.2ch.netへの鯖変更で、URL書き換えがたまらなくﾏﾝﾄﾞｸｾｰ

置換すればいいじゃん

ファイル選択が出来るコモンダイアログボックスっぽいの無いでしょうか?
フォルダを選択するダイアログボックスは簡単に出来たんスけど。

すみません
↓こちら>>3にあった個人サイトさまのところにあったJavaScriptなのですが
　これをWordでなくOutlookExpressに変えることってできますでしょうか？
　こういう風にイベントを拾うことができるのってWordやExcel,IEなどの特殊な
　アプリケーションだけなんですかね？（´Д｀;）

//Wordを立ち上げる
var objWD = WScript.CreateObject("Word.Application", "WD_");
objWD.Visible = true; //Wordを可視にする

//イベントを待つためのループ
while(true) {
WScript.Sleep(1000); //WSH2.0以上で使える
//不慮の事故でイベントが発生しなかったときのため
if(!objWD.Visible)
WScript.Quit();
}

//終了イベントが発生したときに実行される
function WD_Quit() {
WScript.Echo("Word を終了します");
WScript.Quit();
}

>>518
できない。

どーもありがとー＾＾
助かりましたー

一応↓みたいにやれば閉じたときに何かするってできるみたいですねー＾＾
WSHShell.Run "msimn.exe",,true

ただタスクトレイって言うんでしたっけ、右下に常駐させてあるアプリを
アウトルック閉じるのと同時に閉じようと思ったんですけどそれはできませんでしたが（´Д｀;）
WSHってソフト起動はできても終了は難しいんですね（´Д｀;）

指定のテキストファイルの最後に
D&Dされたファイル名を追加するスクリプトキボンチュ！

echo %1>>abc.txt

ど素人でスイマセン。
WSHとはまったく関係ないのですが、Windowsのコマンドプロンプトでfor文を使って、
繰り返し処理を検討しているのですが、現時点で、for文が何回実行されているか
を表示する環境変数や方法ってないですか?
たとえば、

C:\.arg_test.bat 30000

<内容>
for /L %%I IN (1,1,%1) do echo "Counter ?"

とした場合、?に、for文の実行回数を表示したいのですが･･･････

for /L %%I IN (1,1,%1) do echo "Counter %%I"
でいいんじゃねーの？

>>523
スマン。よくわ

>>526
523の書いた一行を、テキストファイル test.bat にコピペして保存。
この test.batをデスクトップとかに置いて、そのアイコン上に任意の
ファイルを D&D すれば目的達成。

>>527
さっきやったら「ECHO は <ON> です。」とか謎のtxtが出てきたけど
ショートカットからやったら出来た。ありがとう

>>525

ありがとごぜーますた。複雑にかんがえておりますた･･･････

複数のファイルでもD&Dされたファイル名のリストが出来る
大丈夫な高度なバージョンキボン

>>530
バッチには詳しくないからそこらで拾った奴。
因みにWindowsの制限で、ある程度以上の数をまとめてD&Dするとエラーがでる。

@echo off
:start
if %1.==. goto quit
echo %1>>c:\documents\a.txt
shift
goto start
:quit

バッチはコッチで
http://pc5.2ch.net/test/read.cgi/win/1062775949/

>>521
RunよりExecの方が良くないかな。
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wslrfexecmethod.asp

プロセスの終了方法は>175

おおおおおおおおおお！！
有意義な情報ありがとうございます！！

ちなみにプロセスって閉じても問題ないんでしょうかね？（´Д｀;）
いえ、それしか右下に入ってるの止める方法ないとは思うんですが、
タスクマネージャーでプロセス止めようとするとけっこうな脅し文句（警告）が出るのでちょっと気になりまして・・（´Д｀;）

>>534
問題ある

うほっ！
おとなしく手動で閉じときますｗ

プロセスの起動、終了イベント取得方法としてはこんなのもある。

// プロセスの起動を検出
var pros = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecNotificationQuery( "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'" );
while ( 1 ) {
var pro = pros.NextEvent();
if ( pro.TargetInstance.Name == "notepad.exe" ) {
// やりたいこと
break;
}
}

__InstanceCreationEvent を __InstanceDeletionEvent に変えると終了を検出。

すんません
アルファベットを数字に対応させるスクリプトを作りたいです。
functionに数字を与えると、アルファベットが返ってくるものです。
対応は以下のような感じです。(26進数とでも言いましょうか)

1=a , 2=b , ... , 26=z , 27=aa , 28=ab , ... , 52=az , 53=ba , ...

どなたか偉い人、助けてください。お願いします

>>538
とりあえずJScriptで。
もうちょいエレガントにできるような気もするけど……。

function GetRadix26(number) {
   if (number < 1) return "";
   var integer = number, str = "";
   do {
      str = String.fromCharCode((--integer % 26) + 97) + str;
   } while ((integer = Math.floor(integer / 26)) > 0);
   return str;
}

目的には合わないけど、純粋に26進数をやるなら
var num = 10;
WScript.echo(num.toString(26));

>539様
すごいですね。確認しました。
実は私、VBSしか扱えないのですが、このスクリプトはVBSにすることは難しいでしょうか。

VBSは嫌いなり。

Function GetRadix26(number)
  Dim ret : ret = ""
  Dim integ : integ = number
  While integ > 0
    integ = integ - 1
    ret = String(1, (integ Mod 26) + 97) & ret
    integ = integ \ 26
  Wend
  GetRadix26 = ret
End Function

すげえ。。。。。しかもこんな夜中に。。。
あんた神様だ。

>>542
話は全然変わるけど、なんで >>539 とか >>542 は
きれいにインデントされて表示されてるの？
>>537 みたくいつも行頭のスペースは削除されてしまって
インデントつかないんだが。

542 からコピペ
While integ > 0
integ = integ - 1
ret = String(1, (integ Mod 26) + 97) & ret
integ = integ \ 26
Wend

新規に入力
for(i=0; i<10; i++) {
if(i != 5) {
WScript.Echo(i);
}
}

& で出来る

ごめ、&nbsp;

>>546
へぇー、なるほど。
  そうやってスペースが入力できるんですね。
    30年来の謎が解けたよ。
      サンキューでした。

下のUWSCのスクリプトなんですけど

ID = GETID("Adobe Illustrator")
DEF_DLL PostMessageA(HWND,Long,Long,DWORD):Bool:user32.DLL
WM_COMMAND = $111
PostMessageA(IDtoHND(ID), WM_COMMAND, 12800, 0)

同じことがやりたくてdynacallを登録し>>149を真似ようとしたのですが
PostMessageAのiとかrをどう記述すればいいのかわかりません。

var WM_COMMAND = 0x0111;
var UserWrap = WScript.CreateObject("DynamicWrapper");
UserWrap.Register ( "USER32.DLL", "FindWindow", "i=ss", "f=s", "r=h" );
UserWrap.Register ( "USER32.DLL", "PostMessageA", "i=huuu", "f=s", "r=l" );
var hWnd = UserWrap.FindWindow( "Adobe Illustrator", 0 );
var result = UserWrap.PostMessageA( hWnd, WM_COMMAND, 12800, 0 );

上のスクリプトはresultが１を返してるけど何の反応もありません。

>>548
FindWindowの引数が違う。

>>548
FindWindowの第一引数はウィンドウキャプションではなく、ウィンドウクラス。
Illustrator10のウィンドウクラスは"Illustrator9"。

var hWnd = UserWrap.FindWindow( "Illustrator9", 0 );

ウィンドウクラスを調べるには持ってればSpy++を使うんだけど
ないなら ttp://www.vector.co.jp/soft/dl/win95/prog/se291933.html で十分。

WSHでどうにかしてDLLを呼び出すことできないですか？

>>551
ググれ。

成功しました。本当に感謝しております。

ちょっとググって見た限りだと自動化には
SendMessageのほうが向いてそうなので、
PostMessageAをSendMessageに代えても
問題なく動いてくれました。

参考ついでに、も一つ質問なんですが
12800などのコマンドの番号を調べるには
どんな方法があるのでしょうか？

現状では、UWSCのスクリプトを使って
選択したメニューの番号を調べてます。

VBスクリプトで、シェル内で、Cのヘッダファイルincludeみたいに
他のシェルのソースも呼び込む事って出来ないんでしょうか?

いくつかバッチ風のファイル作ったのですが、共通で使うConstの変数とか
結構あるので、それ1ファイルにまとめて最初に呼び込んで、
全部宣言しちゃいたいんですが。

>>554
wsfファイルを使って各vbsをインクルード。
この方法を使うと他の色々なエンジンを組み合わすことが出来て便利。
vbsとPrelとか。

詳しくはMSDNを。

>>554,555

wsf ファイルでもいいけど、こういう方法もある。
さらに、Include 内で読み出す文字列をいじってから
ExecuteGlobalするようにすれば面白いことができる。

Include("test.vbs")

' test.vbs の関数
func()

Sub Include(ByVal file)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(file)
ExecuteGlobal( f.ReadAll() )
End Sub

openjaneについてるIEの「対象をファイルに保存」をDmonkeyやwshからでも同じようなこと出来ますか？
shdocvw.dllのDoFileDownloadを使ってるらしいのですが。

Delphiのルーチンはこんな感じです。
ttp://jane2.cun.jp/test/read.cgi/morningcoffee/1042515970/236-237

>>557
「対象をファイルに保存」ってアドレスを右クリックしたときのでしょ。
どこに表示されたアドレスに対してそのメニューを出したいの？

単にIEオブジェクトを使って「ファイルのダウンロード」画面を出したいのなら
Navigateでいけそう。エラーが出るからｔｒｙ...ｃａｔｃｈするとかして。

>>558
おぉレスサンクスです。！
どういう状況で出したいのかといいますと、、、
自分が使ってるエディタはEmEditorなんですが、それには他のアプリにコマンドライン付きで
起動させる機能がついているのでエディタで表示しているURLをWSHとかに渡して
ブラウザのようにダウンロードしたいんです。

出来そうっすか？

ダウンロードするだけならDMonkeyで(new HTTP).getFile('url','localfile');でいける

>>560
確かにgetFileで落とせることも出来るのですが、
途中でキャンセルしたい場合とか接続が繋がってるかどうかGUIで分かるから便利なんですが。
まぁDmonkeyでも出来そうだがスキルない・・・

>>561
EmEditorで、カーソル位置のアドレスをIEでダウンロードorファイルに保存。
かなーり適当。IEよりダウンローダーに渡した方が良いと思うけどね。

var IE = new ActiveXObject("InternetExplorer.Application");
document.selection.CopyLink();
IE.Navigate("about:blank");
var clp = IE.Document.frames.clipboardData;

IE.Navigate( clp.getData('Text'), 0 );

while ( IE.Busy );
while ( IE.Document.readyState != "complete" );
if ( IE.document.URL != "about:blank" ) IE.ExecWB( 4, 0 );

>>562
遅レスすいません。
おぉすごい！これいいっすね。
マクロに登録して使い倒します( ;´Д｀)

Dim oFS, sTarget
Set oFS = WScript.CreateObject("Scripting.FileSystemObject")
For Each sTarget In WScript.Arguments.Unnamed
If oFS.FileExists(sTarget)Then
oFS.MoveFile sTarget, oFS.GetParentFolderName(sTarget) & "/../"
End If
Next

1つ上の階層へファイルを送るってやつですが、
ファイルのみではなくフォルダであろうが同様の操作をさせるにはどうすればいいですか？

>>564
Windows Scripting Host Laboratoryの
ダウンロードにある
フォルダ内のアイテムを上位フォルダに移動する
スクリプトを使えばいいのでは？

FolderExists のときは MoveFolder すればいいんじゃね？

多重起動を抑制するには、どうすればいいのでしょうか？
「ロックファイルにPIDを出力して…」みたいな、定石があれば御紹介ください。

>567
起動を監査する対象がEXEならWMIでいけると。

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Database.exe'")
If colProcesses.Count = 0 Then
Wscript.Echo "Database.exe is not running."
Else
Wscript.Echo "Database.exe is running."
End If

実は今、PC初期設定コンプリートの為のスクリプトを書くことを
検討中なのです。

会社に新規に導入したPC１００台に対して、一括して
１．IEのプロキシ設定のかき込み
２．あるテキストに１行ごとに登録したIPを各ＰＣに設定
３．おなじくWinsの設定やDNSのかき込み
４．OEのアドレス帳のインポート
５．OEのメールアドレス、パスワードの自動設定＞あるテキストから持ってくる

とりあえず、これを機械的にばばっとやれるスクリプトを書きたいのですが、これ
は物理的にできるのでしょうか？

物理的って？？

たしかに物理的って意味がわからん。パソコンの設定に物理が関係あるのか？
カッコ良さそうだから使って見たのかい？ぼうや。

だいたいOSは何なんだ？
IP設定してないってことは、通信できない状態だろ。
同じ状態のツールをあらかじめ配っておくつもりか？
IPが沢山書いてあるテキストから重複なしにどうやって割り振るんだ？
ホスト名：IP:MACアドレス の対比表ならできるか・・・
NT系の場合、IEの風呂敷はユーザ単位だぞ。同一ユーザでログオンしたら駄目だぞ。

ADでグル−プポリシー、DHCPサーバを使えばスクリプトなんか要らずに4.5.以外は解決するよな。
会社でOE使ってんのか？まじで？
普通ExchangeServerだろーーーーーーーーー？ Outlook2000ならSendkeyメソッドで自動化したことがあるな。

あーつかれた。

ageた上に妙に興奮しているヤツがいるな ｗ

>>569
XPか2000ならスクリプトなんか書かずにできる。

>573
NETSHのことだとしたら、あれも一種のスクリプトだと思うが。

すいません、今VBScriptの本を読みながら、
いろいろ作ってみているところなんですが、
お薦めの書籍とかってありますか？
出来るだけ幅広く、詳しく出ているのが欲しいんですが、
図書館や本屋で探しても、いまいちどれがいいのか・・・

専門書に幅広さを求めるなよ（笑）
オライリー系の本なら外れは少ないと思う。
ttp://www.oreilly.co.jp/index/quick/

>>575
VBScriptの本を読みながらとあるが、どんな本を（例えば書名とか）読んでいるのかな？
それによってアドナイスも変わってくると思う。
まぁ、WSHの本自体が少ないんだけど。

オライリーのWSHクイックリファレンスは悪い本じゃないと思うが、文字通りリファレンスだから
君の希望に合致するかどうかは疑問。（オブジェクトのリファレンスで関数ははしょってある）

>>576
�dｸｽ
オライリーはいいところなんですか。
とりあえず、書店で見てきまつ。

>>577
「VBScriptハッカーズプログラミング」
「VBScriptクイックリファレンス」
書名は怪しいけど、とりあえずマトモな本です。
学校の図書館にはこれ以外はHTMLに埋め込むための本しかなくて・・・
リファレンスブックでいいんですが、関数とかハショらないで
出来るだけ仕様とか詳しく書いてある本がﾎｽｨです。
上に書いた本だと、WSHとか、IE・Excelの動かし方とかはちゃんと出てないのです（´･ω･`)

リファレンスそのものはMSDNにあるしなぁ。

ヘルプみれや

>>578
>>579-580でも言われてるけど、
VBSやJScriptの関数、WSHのオブジェクトなどに関してはMSDNが一番。
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/vtoriMicrosoftWindowsScriptTechnologies.asp?frame=true

IEオブジェクトに関してはMSDNに日本語ドキュメントは無いっぽい。
VB用だけどVBSと大して変わらないでしょ。
ttp://msdn.microsoft.com/workshop/browser/webbrowser/reflist_vb.asp?frame=true

エクセルやワードに関しては、
Officeをインストールしたディレクトリ下のどこかに
ヘルプファイルが沢山あるフォルダがあると思うので
その中からファイル名に「VBA」が含まれてるヤツを見ていくといい。
エクセルなら VBAXL〜.CHM、ワードならVBAWRD〜.CHMとか。"〜"は数字（多分バージョン）。
VBA用だけど問題ないはず。

VBScriptでの Dir 関数の使い方を教えてください。
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vafctdir.asp
のサンプルから

Dim MyFile, MyPath, MyName
' Returns "WIN.INI" if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")

の3行をコピペして拡張子 vbs のファイルにテキストエディタで保存したところ、

エラー: 型が一致しません。: 'Dir'
コード: 800A000D
ソース: Microsoft VBScript 実行時エラー

というエラーが出てしまいました。Dim に As String と加えてもエラーになり

エラー: ステートメントの末尾が不正です。
コード: 800A0401
ソース: Microsoft VBScript コンパイルエラー

と出ます。いったいどうしたらいいのでしょうか？

なお、OS は Windows XP SP1 で、WSH 自体のバージョンは調べ方が分からない状態です。

VBScriptにDir関数なんてない
ttp://activex.adsp.or.jp/public/iasdocs/aspdocs/ref/vbs/vbscript/Function.htm

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/FSOoriFileSystemObject.asp
で自己解決しました。

(´･ω･｀)

sage

WSHでプログレスバーを表示する方法はありますか？
たとえば、3000個のフォルダに対して操作するときに
「x個中y個完了」とかいう表示を随時見せるような感じに
できればいいんですけど…。

Windows標準の奴は難しいんじゃない？
IEのウィンドウに表示するとかならできるかな

コマンドラインに表示してやればいいじゃん、と思ってしまう。

>>588
>>589のいうとおりだし。
つまりそういうことは、HTAでやれば。

そういえば、ＨＴＡのスレって見ないな。
あったっけ？

>>592 ない
http://pc5.2ch.net/test/read.cgi/hp/1068286485/

Byte型のデータをInteger型に変換する方法はあるでしょうか？
ぐぐったのですがVBや.NETでのやり方しか見つけることが出来ず難渋しています。

>>594
まずMSDNを見ような、と。
ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/vsidxconversion.asp

>595
すみませんでした。
CIntでエラーが出るので、出来ないと思いこんでいたのですが原因は別のようです。

あらためて質問なのですが、次のスクリプトでCIntがエラーになるのですが原因は何でしょうか？

Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
set objFileSystem = CreateObject("Scripting.FileSystemObject")
strRoot = objFileSystem.GetParentFolderName(WScript.ScriptFullName)
strFileName = strRoot & "\tmp.dat"
Set objStream = CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFileName
l = objStream.Size
ReDim a(l)
objStream.Position = 0
For i = 0 To 5'l
byteBuf = objStream.Read(1)
a(i) = CInt(byteBuf)
Next
objStream.Close
set objStream = nothing
set objFileSystem = nothing

>>596
>      byteBuf = objStream.Read(1)
で返ってくるのは特殊な配列なので、AscB(byteBuf)で変換。

>597
ありがとうございます。解決しました。

質問させてください。
Wshで
ttp://hp.vector.co.jp/authors/VA036013/htmlassistant/screenshot.html
みたいなボックス（？）を使うことはできますか？
あと、このボックスの名前はなんていうんでしょうか？
名前が分からないので検索さえできません。
よろしくお願いします。

多分リストボックス
そして無理

HTAならいけるけどな。

VBScriptの正規表現で、以下のようなテキストから<TR>〜</TR>毎に
マッチさせたいのだがうまくいかない。
例のように<TR>〜</TR>の間に2行挟まっているような定型的なものだと
"<TR.*(\n.*){3}" とすればいいのだが、不定型なものだとうまくいかない。
正規表現で表すことは無理なのかな？
だれか分かる人がいれば教えて欲しい。

【例】
---------------------------------------------
<TABLE>
　　<TR>
　　　　<TD>タイトル</TD>
　　　　<TD>WSH クィックリファレンス</TD>
　　</TR>
　　<TR>
　　　　<TD>著者</TD>
　　　　<TD>羽山博</TD>
　　</TR>
</TABLE>
---------------------------------------------

>602
"<TR>.*</TR>"じゃ駄目なの？
俺が質問の意図をくみ取れてないのかな。

あ、ごめん勘違いしてた。

msgboxとかにあるシステムモーダルってどんなときに使うの？
説明には「システム モーダルに設定します。メッセージ ボックスに応答するまで、すべてのアプリケーションが中断されます。」
とかなってたんで試しに
-----------------------
MsgBox "test",4116
MsgBox "test1",4096
MsgBox "aaaa",vbSystemModal
-----------------------
とか書いて走らせてみても、メッセージ ボックスに応答せず放置してても
何も中断されているようなモノがないような気がするんだけど？？？

>602
"<TR>(.|\n)*</TR>"でいけるはず。

>>606
それだと *</TR> があるので、最後の</TR>までマッチしてしまう。
そこのところで悩んでいる。
なかなか難しいね。

>607
</TR>までマッチさせてから、Left使って取り除いくのじゃ駄目？

グループ化しちゃ駄目なの？

Dim reg, matches, i, text
'textにファイルから文字列読込
Set reg = new RegExp
reg.Pattern = "<tr>((?:.*\n)+?.*)</tr>"
reg.IgnoreCase = True
reg.Global = True
Set matches = reg.Execute(text)
For Each i In matches
   WScript.Echo(i.SubMatches(0))
Next

>>605
そういえば、Win3.1のときは全員とまってくれてたな〜

>>607
<TR>(.|\n)*?(?=<\/TR>)

?:があった方が良いかも。
<TR>(?:.|\n)*?(?=<\/TR>)

602 です。
レスしてくれた方、どうもありがとう。
怪しい書き方だけど、とりあえず解決した。
かなりいい加減な書き方をしているものでも、対応できるようになった。

"(.*<tr.*/tr>)|(.*<tr.*/tr>.*)|(.*<tr((?:.*\n)+?.*)/tr>)"

>>613
なんだよ。最短マッチじゃんかよ。
ウダウダ言ってるからもっとややこしいのかと思った。

"<(?:TR|tr)>(?:\n|.)*?<\/(?:TR|tr)>"
で終わりじゃん。

?:と大文字無くしてスッキリ書いたら
"<tr>(\n|.)*?<\/tr>" これだけだ。

dynacallで、引数なしのAPI（GetForegroundWindowなど）を使う場合、
引数はどう設定すればよいでしょうか？

自己解決できました、すいません(._.;)

>>614
"<(tr)(\n|.)*?/\1>" の方がいいと思うが。
それと嫌味な表現をしない方がいいと思うけどな。

WSHやらなんやらで、音楽ファイル（wavやmp3）の曲の長さを得るにはどうすればいいでつか？
何を調べればよろし？

なんだMPEG Audioって簡単には正確に曲の長さ出せないのか；；
計算で大体の値求めるしかないんでつか？
教えてエロい人。

メディアプレーヤ使うか？
var player = new ActiveXObject("WMPlayer.OCX.7");
とかして、
player.URL="x.mp3";
とか言う感じで。
で、あとはどうすれば？

ttp://www.geocities.jp/bywnn498/mp3/
Contentsの「再生時間の計算」を読んで619を得ました。

Σ(1152÷サンプリング周波数(Hz))
で出せるはずだけれども、時間かかって実用性無いそうで。
ついでに言えば、その周波数をドコからどうやって取得すればいいんだか...不明。
音楽ファイルの構造についてはサッパリなんで非常に困っとります。

MP3をテキストとして開いたら、再生時間が書き込まれていた！なんてこともないよねぇ。
ファイルのプロパティを一発取得！みたいに簡単な方法ありません？

>>621
XPならエクスプローラーの詳細表示で表示できるから
GetDetailsOf とか使ってそれを取得すればいいんじゃない？
XP以外なら mp3infp 入れれば表示できるし。

今日始めてこのスレ見たので今更ですが、>>454さんのやりたかった
ことを関数にしてみました。


Const strPath = "c:\1st\2nd\3rd"

Set FS = CreateObject("Scripting.FileSystemObject")

Call ForceDirectories(strPath) 'フォルダ作成関数呼び出し

Set FS = Nothing

'== フォルダ作成関数(親フォルダが無ければ再起呼び出し) ====
Function ForceDirectories(CreatePath)
  Dim ParentFolder
  ParentFolder = FS.GetParentFolderName(CreatePath)
  If Not FS.FolderExists(ParentFolder) Then Call ForceDirectories(ParentFolder)
  If Not FS.FolderExists(CreatePath) Then Fs.CreateFolder(CreatePath)
End Function


もう需要ないですかそうですか・・・＿|￣|○

ところで、下のコードで生成したフォームを表示するには
どうしたらいいんでしょうか。

Dim UserForm
Set UserForm=CreateObject("Forms.Form.1")
UserForm.Caption = "hogehoge"
UserForm.Visible = True '←ここでエラー
Wscript.Sleep 3000
SetUserForml =Nothing

>>620
var wmp = new ActiveXObject("WMPlayer.OCX.7");
var media = wmp.newMedia( "c:\\hoge.mp3" );
WScript.Echo( media.getItemInfo( "Duration" ) );

これで秒をgetできる。

>>624
そりゃコントロールは無理だろ

>>624
.Visibleプロパティがないからエラーになってる

>>626-627
やっぱりダメっぽいようですね。HTAでがんばってみます。

再描画ってどうやるんだろう・・・。

>>628
GUIが必要なら、変にWSHに拘らず
JScript .NETとかC#でやった方が良いと思う。

JScript .NETならスクリプトっぽさはそのままで
.NET クラスライブラリが使えるから簡単に色々なことが出来る。

>>629
レスサンクス

>>588みたいなことをやろうとしたんですが、会社で使うんで、
勝手にソフト入れられないんですよ。

仕方が無いんで、Excelのユーザーフォームで作っちゃいました・・・。

微妙にスレ違いかも知れない質問ですが、IEの右クリックメニュー用のスクリプト
（形式上は *.htm）では WScript オブジェクトは使えないのでしょうか？
たとえば

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<script type="text/javascript">
    WScript.Echo("OK");
</script>
</head>
</html>

と書いて実行すると「'WScript' は宣言されていません」となります。

単に WScript.Sleep を使いたいだけなので別の解決策があれば
それでいいのですが・・・。

>>631
Settimeoutはどうでしょう。

ドメインのログオンスクリプトを作成しています。
空いているドライブを検索してマウントまではできたのですが、
既にネットワークがマウントされているかを判別するのに悩んでいます。
例えば"\\Server\Share"がどこかのドライブにマウントされているかを
判別するスクリプトを教えて下さい。
よろしくお願いします。

>>633
EnumNetworkDrives

>>632
うーん、確かに Settimeout は指定時間遅らせて関数を実行
できますが、やりたいのはスクリプト自体の停止なのです。

具体的には、document 中のあるプロパティを見張って
そのプロパティがある値になったら処理を行いたいと。
そこで WSH なら

while(the_value != 3){
    WScript.Sleep(1000);
    the_value = document......
}

というようにできるのですが、右クリックメニュー用スクリプト
だと今のところ実現できてません。

どなたかお知恵を！

>>635
外部 COM を使ってみてはどうでしょうか。
ttp://www.autoitscript.com/cgi-bin/countdown.pl?AutoIt/AutoItX.zip
------------------------------------------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<script type="text/javascript">
WshShell = new ActiveXObject("WScript.Shell");
Ait = new ActiveXObject("AutoItX.Control"); // AutoIt
Ait.Sleep(5000);
WshShell.Run("notepad.exe");
</script>
</head>
</html>

私の使っているタブブラウザ（Moon Browser）に、お気に入りを訪問回数でソートする機能がないので、
IEの履歴から訪問回数を取得しようと思い、以下のような履歴フォルダを走査するコードを書いたのですが、
一応動いてはいるようなのですが、20日分の履歴を処理するのに5分ぐらいかかってしまいます。
もうちょっと速くする方法はないでしょうか？
WindowsXP Pro、IE6.0です。

var HistoryFolder = 0x22;
var objShell = WScript.CreateObject("Shell.Application");
var objHistoryFolder = objShell.Namespace(HistoryFolder);
var cnt = new Array();

function count(folder) {
var i, item, url;
for (i = 0; i < folder.Items().Count; i++) {
item = folder.Items().Item(i);
if (item.IsFolder) {
count(item.GetFolder);
} else {
url = folder.GetDetailsOf(item, 0);
if (typeof(cnt[url]) == "undefined") {
cnt[url] = 1;
} else {
cnt[url]++;
}
}
}
}

count(objHistoryFolder);

>>637
履歴は実際にはショートカットファイル群ではなく
c:/Documents and Settings/UserName/Local Settings/History/History.IE5/index.dat
みたいたなindex.datに格納されてるから、
これを直に読み込んで正規表現で抜き出せば速いかも。

perlでやってみたら速かった。
問題はファイル名の取得と抜き出し方法かな。

初心者なのでよくわからないのですが、
aspのwebページをIEで開いて自動でパスワードとか
ボタンをクリックしたりできますか？

初心者だったら PM12:38 に書き込んで質問して、答えてもらえるとでも？

>>639
上の方にIEオブジェクトを使って
フォームの項目に値を入れたりボタンをクリックする例がある。

WSHでPCIバスにささっているボードの一覧を取得するにはどうしたらいいですか？

Win32_BusクラスからPCIバスの一覧を取得してWin32_PnPEntityクラスから
PCIのデバイスを取得しているんだけど、どのスロットに何のボードがささって
いるのかを上手く表せません

>>636
遅ればせながら、レスありがとうございます。
残念ながら他のソフトをインストールすることは
できない環境なのです。
ということで諦めモードでフェードアウト。

引数をYahoo検索するスクリプトきぼん

yとなづけてパスをとおして
ファイル名を指定して実行したいのです

>>644
y.bat
rundll32.exe url,FileProtocolHandler http://search.yahoo.co.jp/bin/search?p=%1

VBScriptでInputBoxにパスワードを入力させたいんですが、普通に使うと入力した値が見えてしまい(当たり前ですが･･･)困っています。WSHと組み合わせてうまくできないでしょうか？
教えて下さいエロい人･･･。2000とXPで動くようにお願いします。

できますね

どんなかんじにやればいいですか？

スクリプトでそんなことやって大丈夫か？
入力パスワードの内容ログに出力とか変更されそう。

スクリプト書き換えられなきゃ平気ですか？

具体的にはノートパソコンをローカルネットワークに参加させる処理を自動化させたいんです。途中何回かユーザ名とパスワードを入力しなきゃいけないんで最初にInputBoxに入力して後は自動でやらせようとしてるんですが・・・。

>>651
IE使ってHTMLはさんだら?

↑どうもうまくいきません･･･。HTML使うと書き方かわるとかないですよね？

>653
vbsとhtmlでは微妙に違うのでめんどくさい。
htaにしてpasswordだけ取得すると楽かも？
気休めとしてhtaを外部スクリプトにしてScript Encoderで暗号化とか？

ttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=51&fi=no
↑これをpass.htaの名前で保存
↓これをpass.vbsの名前で同じフォルダに保存

Dim objArgs, i
set objArgs = Wscript.Arguments
if objArgs.Count=0 then
else
for each i in objArgs
msgbox i
next
end if
set objArgs = nothing

ありがとうございます！今携帯からなんで明日やってみます！

ありがとうございました。うまくいきました！

フォント名の列挙と日本語と欧文の判別って出来ますか？

VBS、HTAに疲れました
GUIをバリバリ使える言語も勉強したいのですが、どんな言語がスムーズに乗り換えられますか

GUIといえばDelphiでしょう。
http://www.borland.co.jp/delphi/personal/

VB.NETって手もある。

Windows Scriptingだけでメールソフトを作りたい。

>>661
スクリプトで書く意義が見当たらない。

Windows ScriptingだけでWindowsを作りたい。

>>663
ちょいと待ちな。暇だから(ry

664氏光臨の予感！




そしてゲイツに訴えられてﾀｲｰﾎの予感

WScript.Echo "Windows"

Re:>>666
それは"Windows"と書いているだけでは？

まぁ、インタプリタ言語だけでOSを作るという発想はあまり自然でない気がするが。

あぼーん

>667
ちょっとまえにJAVAScriptで作ったウィンドウシステムのデモをどこかで見た気が。
まぁ、OSじゃないよな。

お知恵拝借させてください。
たとえばメインプロシージャの中で2つのサブプロシージャ（AとB）があるとする。
それぞれのサブプロシージャをメインプロシージャから実行したいが、
Aの処理が終わってからBの処理をする必要がある。Aの実行には1分程度かかる可能性がある。
Aの中からBを呼ぶ以外の方法で、美しい方法はありますでしょうか。

文ではなくてコードっぽくすると
Sub Main()
Call A()
Call B()
End Sub
これを、A,B順番にやりたいということ。
現状では、Aの実行中にBが実行されてしまいます。
初心者ですみません。

>670
基本的には必ずA()の終了後にB()が実行される。
だから、たぶんA(）が処理の途中で終了してるんでは。

>>670
想像だけど、A()の中で何かのオブジェクト作ってメソッド実行してるなら、
別のスレッドが生成されてメソッドの完了前に戻ってきてしまい、B()が動いてしまう鴨。

A()の最後で処理の完了を待つようにループを作るのが定石かな。
A()の中身を書いてみて。

>>672 別のスレッドが生成されてメソッドの完了前に戻ってきてしまい、B()が動いてしまう鴨。
これはありません

670です。
Aの中身としては、以下のようなことをしています。ソース版に上げました。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=52&fi=no

訂正すんません

誤
Set oTsStdOut = oFS.oPaenTextFile(strTargetFilePath)
正
Set oTsStdOut = oFS.OpenTextFile(strTargetFilePath)

訂正済みソース再アップ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=53

>>674
>>672
だろね。
グローバルな変数completedを作って、A()が終わる時にTRUEにする。
A()とB()の間でcompletedがFALSEの間ループを回す。
//WScript.Sleepって使えたっけ……。setTimeoutで代用が効くか。

>>670
pingはコマンドだから、cmd.exeは不要では？
×:oShell.Run "CMD.EXE /C PING -n 1 " & Destination & " >" & FilePath , 0, TRUE
◎:oShell.Run "PING -n 1 " & Destination & " >" & FilePath , 0, TRUE

WshShell.Runメソッドは新しいプロセスを実行するから、じゃないかな。
WshShell.Execメソッドなら子プロセスで実行できるから問題ないような気がする。
但しExecメソッドで実行できるのはコマンドラインのみという制限はあるけど。

>>679
Runは作ったプロセスを同期的に実行できる。
で、それが第三引数のTRUE。
この場合は新しくスレッドを作るsetIntervalが原因。

>>676
質問の答えではないけど、pingの結果をファイルに書き出さなくても

Dim WshShell, oExec, result
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("ping 192.168.0.1")

result = oExec.StdOut.ReadAll()
WScript.Echo( result )

こんな感じで標準出力を取得できる。

一応完成をみたということで。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=54&fi=no

>677　おまえさんの言うやり方でやったよ。サンクス。
>681　サンクス。そのうち改善するわ。

☆ C:\foo\20040617.txt を移動して、E:\foo\20040617.txt にする。
☆ ****.txt は常に同じ名前ではない。
☆ 日付を示してはいるけれど、必ずしも本日ではない。
☆ C:\fooフォルダには、常にたったひとつの txtファイルしかない(E:\foo にコピーが済んだら削除)

何かやり方ありますか?

何か質問の仕方が変でしたね

常にC:\foo フォルダにたった一つだけある、名前の決まっていないtxtファイルを、そのまんまの
名前でE:\foo にコピーしたい、と。

>>683
move c:\foo\*.txt d:\foo\

わ、驚即答
ありがとうございます
いまからためします

>678
遅レスだけども、CMD.EXE は PING のために使ってるんじゃなくて、リダイレクトのためだよ。
>680
実際そのとおりなんだけど、setintervalの2個使いでなんとかしまそた。
>681
子ウインドウがパカパカ開いてうざいっすね。これがナントカなるなら使えそう。

VBS書いていたら1000行を超えてしまいました。
スクリプトは多数のサブプロシージャで出来ているのですが
機能ごとにスクリプトを分けてファイルに小分けにしておいて
子ファイルをインクルードして実行するってできるんでしょうか。
できるとしたらどっかに資料はありませんか？

>>688
出来る

資料なら >>3

>>688
wsfで書けばファイルをインクルードできる。
他に、>>556みたいな手法もある。

>>688
たぶん別の言語や開発環境使ったほうが幸せになれるよ

>>688
現行スレ内の検索ぐらいしようや。

JScriptでバイナリデータを扱おうとしています。
データはファイルから読み、そのデータを
COMに渡したいのですが、BSTRで渡すのは
よろしくない様子。実際、COM側でSysStringByteLenで
見てみると、長さが2倍になっていました。Unicode扱い
にされているらしいですね、これ。
バイナリデータをCOM側で受け取って、加工するには
どのような工夫が必要なのでしょうか。

>Linuxはそれとは違う。
違ってもいるし違ってないともいえる。
Linuxで自分の選択した目的や可能性以外を否定することは間違い。
それこそWindowsやBSDにｶｴﾚ!!といいたい。

wshでGDIかD3Dを利用できるような方法ありますか？
そもそもブランクのウインドウを表示するような手段ってありますか？
ゲームつくるのによさそうなので、どうでしょうか？

バリアント型の変数って扱いやすいですよね〜。

>>695
JScript.NETかHSPでも使うが吉。

>>693
WSHのFileオブジェクトはファイルをテキストとしてしか
OPEN出来なかったと思うのですが、その為では？

BASP21 DLLを使うとバイナリデータを扱えたと思います。
またはJScript.NETを使うという手も。

バイナリストリームオブジェクトあるよ。
>596で使ってるADODB.Streamってやつ。

あるんだけどJScriptじゃデータに手出しできない。右から左ならいいんだけど。
VBScriptなら手出しもできたかな。

>699
そうなの？vbsなら"Stream.Write"で一発なんだが･･･。

当然だがJSでも普通に使える。

>>701
>  当然だがJSでも普通に使える。
え、そうなの？
Writeになにを入れればいいのかさっぱり解らないんだけど。
バイト配列型なんてないし。

>>696
さんきゅー。
.NETフレームワークか。
新しく覚えなきゃ・・・。

>702
バイト型じゃないの？

JScriptでバイナリデータをCOMに渡したい、との
質問をしましたが、よく考えたらこれはScriptの
問題ではなくて、COMの方をどう作るかって
問題ですね。スレ違いな質問、失礼しました。

ファイルシステムオブジェクトを使ってフォルダの中にあるファイルと
ディレクトリの一覧を取得することってできるんですか？
知っている方がいたら教えてくださいませ。

>>706
説明書ぐらい嫁
ttp://www.microsoft.com/japan/msdn/library/ja/script56/html/jscolFiles.asp

>>707
ぁぁ、読んでませんでした。。。
サンクス。

>>707
俺にもMSXML、XML Parserのリファレンスｸﾚｸﾚ

ttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=55&fi=no
ttp://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1022248177&res=56&fi=no

番組表から見ない局や番組を削除。

Win2000，XP で、ネットワーク接続の接続名 （ローカル エリア接続など）を
取得するメソッゾきぼんむ

>>711
NetConnectionIDがXP出しか使えないのでXP専用。

var nadp = GetObject("winmgmts:{impersonationLevel=impersonate}").
ExecQuery( "SELECT * FROM Win32_NetworkAdapter" );

for ( var e = new Enumerator(nadp); !e.atEnd(); e.moveNext() ) {
var ad = e.item();
WScript.Echo( ad.NetConnectionID );
}

>>711
やっぱりXP専用だけど>712よりこっちの方が良いかも。
ttp://www.microsoft.com/technet/community/scriptcenter/network/scrnet29.mspx

Windowsupdateに
"Critical Update for ADODB.stream (KB870669)"
がきてた。
これを適用するとIEでADODB.Streamが使えなくなる。
いいかげんにしろMS

http://internet.watch.impress.co.jp/cda/news/2004/07/05/3758.html

脆弱性攻撃幇助容疑で逮捕

質問です。
VBScript JScriptでc/c++の#Includeみたいなのはどうやればできるのでしょうか？

　　ま　た　こ　の　質　問　か

>714
HTAだと影響うけなかったっす

>>718
申し訳ありません(´Д｀;)
過去ログ呼んだらありました

■■■　危険　閲覧は自己責任で　■■■
HTMLで、不正なEXEをDLさせるWEBページ発見。
ADODBの脆弱性を対策していないとヤヴァイ。
tp://82.196.67.62/f.html
さらに、ms-its(chm)の脆弱性をつくコード
tp://lily.only18plus.com/den/a.html
■■■■■■■■■■■■■■■■■■■
※不正コード作成を助長するもんではないです。
意図せずにリダイレクトされないように
IEの制限つきサイトへ登録することをお勧めします。

すみません
DOMのonkeyupですが、どうすれば上下左右の矢印キーの動作を検知することが出来ますか？

>>722
event.keyCode

すみません
そこまでは解っているんですが、具体的なコード例はありませんか？

>>724
ttp://www.google.com/search?hl=ja&lr=lang_ja&ie=UTF-8&oe=UTF-8&q=event.keyCode&num=50

>>725
神。とりあえずあなた様に大感謝です。
http://member.nifty.ne.jp/aya/dom/dom06.htm

すみません。教えてください。
IEコンテキストメニューで「引用符付き貼り付け」をしたいんですが

過去ログの
http://pc.2ch.net/win/kako/1009/10091/1009175619.html
の151-156を要約して使えるようにするにはどうしたら良いのでしょうか？

VBSが嫌いなのでJScriptに移植。保存する名前は過去ログに従ってaddgt.htmとでも。何でもいいけど。
インストールはインストーラスクリプト使うよりIE MenuExt使った方がいいと思うよ。

<script language="jscript">
var menu = external.menuArguments;
var range = menu.document.selection.createRange();
var element = menu.event.srcElement;
var data = clipboardData.getData("text"), ret = "";
if (!data) {data == "";}
var datas = data.split("\n");
if (element.tagName == "TEXTAREA" || (element.tagName == "INPUT" && element.type == "text")) {
   for (var i = 0; i < datas.length - 1; i++)
      ret += "> " + datas[i] + "\n";
   if (datas[datas.length - 1] != "")
      ret += "> " + datas[datas.length - 1];
}
range.text = ret;
</script>

席を離れていて今確認しました。
ありがとうございます。早速試してみます。

>>728
ありがとうございました。バッチリでした。

微妙にスレ違いかもしれないですがご容赦をば。
ブラウザの右クリックに登録するスクリプトなんですが、
以下のことを行おうとしてます。

画像上で右クリック
↓
画像を特定のアプリで開く

ですが、ブラウザから取得できるのは、その画像のURLのみで、キャッシュの取得ができません。
クリップボード経由で開こうとも考えたのですが、その手のメソッドも無いようです。
仕方なく、画像の位置をスクリーン座標で取得して、D&Dのエミュレートでアプリにドロップする
力技を考えたのですが、もっとスマートな方法って無いでしょうか？

取得したURLからローカルの%temp%にダウンロードして
それをアプリで開くのがまっとうな方法じゃないの。
スマートではないけど。

IE CacheR
http://www.vector.co.jp/soft/win95/net/se238516.html

>>732
>>733
レスどもです。
>>733のコンポーネントを使ったらすんなり出来ました。
感謝！

HTAで開かれたウインドウに、エクスプローラからファイルをドラッグアンドドロップできるようにして
そのファイル名を取得する方法はありますでしょうか。
起動時のD&Dに関してはweb上にTIPSがありましたが、起動後に関しては
見当たりませんでした。よろしくお願いいたします。

ttp://www.atmarkit.co.jp/fwin2k/win2ktips/443wshenc/wshenc.html
PerlでWSH書いた場合で↑のリンク先のVBSやJSみたいに暗号化することって出来ないですか？

>>736
Perl2exeでコンパイルするといい

指定したテキストデータの文字列を文字コード単位で置換えをしたいです。

F040,8D82
F041,92CB
F042,91E5

というようなデータをソースにして、テキストデータに含まれる
F040と言う文字コードを8D82と言う文字コード（高）に置き換えるというような
感じなんですが・・・

>>738
VBSだったら普通にできそうだけど？
何が問題？

//JScriptだとShift_jisをまともに扱えない……

>738
intFindWhat = Cint("&h" & "F040") '検索文字コード
intReplaceWith = Cint("&h" & "8D82") '置換文字コード
strGetFilePath = "c:\xxxx1.txt" '読み込みファイルパス
strPutFilePath = "c:\xxxx2.txt" '保存ファイルパス

set objFileSystem = CreateObject("Scripting.FileSystemObject")
set objGetFile = objFileSystem.OpenTextFile(strGetFilePath, 1, false)
set objPutFile = objFileSystem.OpenTextFile(strPutFilePath, 8, true)
strBuf = objGetFile.ReadALL
strFindWhat = Chr(intFindWhat)
strReplaceWith= Chr(intReplaceWith)
strBuf = Replace(strBuf, strFindWhat, strReplaceWith)
call objPutFile.Write(strBuf)
objGetFile.close
objPutFile.close
set objFileSystem = nothing

こんな感じ？ソースとなるデータの形式がわからんと読み込み部分は作れないけど。
（外部から読み込むよりスクリプトに記述する方が楽だし）

>735
ドロップされるのがフォルダだとonLoad()が発生しないため、
ドロップ状況を調べるのにonReadyStateChange()イベントを使う。
ドロップされるのがファイルだけならonLoad()イベントだけでも良い。

(フレームのオブジェクト.)location.href
(フレームのオブジェクト.)document.location.href
(フレームのオブジェクト.)document.URL
等の値を参照すればファイル名も取得できるはず。

>>740
ありがとうございました！
ファイルから変換文字コードを呼び出す場合は、
F040,8D82
F041,92CB
F042,91E5
というcsvファイルをもう一つOpenTextFileで呼び出して、

readLineをlineと言う変数に代入して、
strBuf = Replace(strBuf, strFindWhat, strReplaceWith)
の構文のstrFindWhatをCint("&h" & mid(line,1,4))にして
strReplaceWithをCint("&h" & mid(line,6,4))にして、
endに到達するまで続ければＯＫですかね？？

>>742
「ですかね？？」って、おまいのPCに聞けよ。

>742
いいんじゃね？やってみて動くまで考えるべし。

>>737
遅ればせながらレスありがとうございます。
しかし、Perl2exeで生成されたexeファイル、WSHの部分だけ実行されないっぽいです。

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wslrfcontrollerobject.aspのサンプルなのですが

[test.vbs]
Dim Controller, RemoteScript
Set Controller = WScript.CreateObject("WSHController")
Set RemoteScript = Controller.CreateScript("remote1.vbs")
RemoteScript.Execute

Do While RemoteScript.Status <> 2
WScript.Sleep 100
Loop

これを実行しても、remote1.vbsが実行されません。Set RemoteScript のところで実行時エラーとなります。
ActiveXコンポーネントはオブジェクトを作成できません。(コード:800A01AD)
remote1.vbsは、test.vbsと同じフォルダに置いています。

どうすればエラーが出ずにremote1.vbsを実行できるのでしょう。。

多分自己解決…
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wstskSetupOfRemoteWSH.asp
これやってませんですたorz

>>747
これもウソぽぃ
英語サイトに書いてあったレジストリ修正やったらいけました
なぜ日本語訳した時に内容変えたんだろう…謎

んで、今度は３行目を
Set RemoteScript = Controller.CreateScript("remote1.vbs", "リモートマシン")
でやってみたんですが、同ドメインでないと使えないっぽい感じでした。

ワークグループ環境で使いたいのですが、ムリなのかなぁ、、
どなたか挑戦／成功された方いれば教えてほしいです。

()[]このような括弧でくくられたファイル名の文字列を
括弧の部分だけ削除したいです。
こういうスクリプトはどうやって作ればいいですか？

>749
strFilePath = "c:\xxxx1.txt" 'リネームするファイルのフルパス

set objFileSystem = CreateObject("Scripting.FileSystemObject")
set objFile = objFileSystem.GetFile(strFilePath)
strBuf = objFile.Name
strBuf = Replace(strBuf, "(", "")
strBuf = Replace(strBuf, ")", "")
strBuf = Replace(strBuf, "[", "")
strBuf = Replace(strBuf, "]", "")
objFile.Name = strBuf
set objFile = nothing
set objFileSystem = nothing

こんな感じか？()の中全部を削除したいならRegExpを使うと思うけど。

すいません、言葉足らずでした。
フォルダを指定してその中のすべてのファイル名から
カッコも含めてカッコ内の文字列を消去したいです。

(???)a.avi
(???)b[***].mpg
[??]c(**).mp3
↓
a.avi
b.mpg
c.mp3

こんな感じです。

>751
なんか、何に使うのか疑問だなぁ・・・。
まぁ、予想はしてたんだけど。

>750のReplace使ってる行を↓に置き換え。

Set objRegExp = New RegExp
objRegExp.Global = true
objRegExp.Pattern = "(\(.*\))|(\[.*\])"
strBuf = objRegExp.Replace(strBuf, "")
Set objRegExp = nothing

>>752
どうもありがとうございます！
なんとかいじくって自分の思い通りの動作になりました。

あれだな、素直にリネームソフト使えってことだな。

>>754
激しく同意

>>749は正規表現覚えてFlexible Renamerでも使ってろ

Sleipnir
多段タブ　ｷﾀｷﾀｷﾀｷﾀ━━━(ﾟ∀ﾟ≡(ﾟ∀ﾟ≡ﾟ∀ﾟ)≡ﾟ∀ﾟ)━━━━!!!!!!!!!!

何でこのスレに（w

昨日からWSHはじめました。
日々の繰り返す操作（仕事）をどうにかならないものかと思いたちまして。
取り合えず場当たり的ですがSendkey使っいまくって実現できました(w
このｽﾚ一日で読破しました。ｽｹﾞｰ勉強になりました。
WSHLab.で基礎から勉強してきます(ﾟДﾟ;)

せっかくがんばって覚えても.NETでリセットかかっちゃうんだけどなｗ

Jscript.NETって難しい?

今がんばってれば
応用は利くでしょ。
もっとも、今から.NETに行っとく方が利口ではあるけど。

早速頓挫orz
CreateObject関数でOutlookExpressは動かせないのですか？
IEやExcelはうまく動かせるのだが・・・
("Outlook.Application")では駄目みたいなんで。
Outlookじゃないと駄目とかってあるんですかね＾＾；
「任意Dirで数個のtextからdataひぱってメールで自動配信」
という流れのものを書こうとしています。

OEはActiveXに対応してない。

こういうの使ってみたら。標準でもいかにもありそうな機能ではあるけど
http://www.ctb.ne.jp/~takasaki/t2_winmailcmd.html

MAPI使え。
http://support.microsoft.com/default.aspx?scid=kb;JA;178077

>せっかくがんばって覚えても.NETでリセットかかっちゃうんだけどなｗ
えぇぇぇぇっ！！　どういうことなんですか？
僕も最近WSHの勉強を始めたばかりなんですが、
WSHどうなっちゃうんですか？

>>766
なんで.NETにしなかったの？
そっちのほうが興味ある

>>764
>>765
結局いまだにどちらも実現できずにいます・・・

>>768
ここは独り言を言うところではないんだが？

バカは完全放置で頼むぜ

JScript .NET ってコンパイルせにゃいけんのかい

JScript .NET Scripting Edition の発表まで待つか〜

次世代コマンドシェルと融合したC#風スクリプトならたぶん出る

いい加減雑談やめろ。N速に晒される前はﾏﾀｰﾘとしたスレだったのに、お前等帰れや

>>773
どこに晒されてんの？おしえてちょっ！

PCのドライブ一覧を取得するのに
Set objDriveSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_LogicalDisk")
For Each objDrive In objDriveSet
objDrive.Name
Next
を使っていますが、NTだとこれでドライブ一覧を取得できません。Queryの結果が0件になっているようです。(2000/XPでは問題ないです)

NTでPCのドライブ一覧を取得するには、どんな方法があるでしょうか。（上記の改良が不可なら別の手段でも）

>>775
FileSystemObjectのDrivesプロパティは？

>>776
ありがとうございます。

>>775自体は、全然別の場所に問題がありました…
ソースのケアレスミスを修正したらNTでも問題なく取得できました。すみませんっっ

AD参加のスクリプときぼんぬ。
もちろん、参加失敗時のエラー処理してないと使いもんにならないでし

>>778
ttp://wmifun.atinfinity.net/wmisample/win32_computersysteme.html

気にくわなかったら適当に改造すれ。

HTAのウィンドウにドラッグアンドドロップしようとしても禁止マークみたいのが出て、できないんですが、何か定義をしないといけないんでしょうか？

>>780
フレーム作ってごにょごにょするべし。

ttp://plutonium.hp.infoseek.co.jp/futaba/imgsv0.html#trableshooting

MSDNでIEをフルスクリーンにするコードのSyntaxを見つけたのですが、
どうやってコーディングするのか分かりません。どうかお助けください。
見つけたSyntaxは
InternetExplorer.FullScreen(bFullScreen)[=bFullScreen]
です。Windowsを起動した時にIEが勝手に開いてしかもそれをフルスクリーン
にする方法も教えてくれたらとてもうれしいです。

>>782
F11
Alt+F4

準備完了。あとは開くだけ。

>>783
やってみたけど上にバーが残りますね。
スクリプトからフルスクリーンにしても結局同じですか？

キオスクモードで起動するとか

>>782

var oIE = new ActiveXObject("InternetExplorer.Application");
oIE.FullScreen=true;
oIE.Navigate("http://pc5.2ch.net/test/read.cgi/win/1058829737/");
oIE.Visible = true;

これを FullScreen.js かなんかいうファイル名で作成。
ＵＲＬは好きに変えろ。
Windows起動時に実行するなら スタート → プログラム → スタートアップ にでも
ショートカットを貼り付けておけ。

iexplore.exe に -k オプションと url を引数とするショートカット作ればｵｯｹｰ

>>786
ありがとうございます。大変助かりました。お礼に穴を貸してあげたいです。

>>787も書いてるけど、
iexplore -k [Enterキー]でおしまい。
スクリプト使うまでもないよん

スミマセン素人です。
ＭＳアクセスのファイルを開きたいのですが
フォルダの階層が深い所に有るファイルで

var WShell = WScript.CreateObject("WScript.Shell");
WShell.Run ("msaccess C:\Program Files\xxxx\xxxx\xxxx\xx\db.mdb");

これだとファイルを開けないですがどうしたらよいでしょう？

>>790
引数は半角スペースで区切るわけだから、c:\programが第一引数と取られたわけだ。
半角スペースを引数の中に入れたい場合、ダブルクォーテーションでくくる。
で、JScriptで文字列中にダブルクォーテーションを入れる場合は\でエスケープする必要がある。

ということをまとめると……
って\もそのままか。
\はエスケープ文字という奴で、この直後にくるのは普通の文字じゃなくて制御用の文字と認識される。
文字列中に\という文字を含めたい場合は\\という風に\そのものをエスケープする。

以上をまとめると、

WShell.Run ("msaccess \"C:\\Program Files\\xxxx\\xxxx\\xxxx\\xx\\db.mdb\"");

>>791

有り難うございました、うまくいきました。

ひろゆき=創価であることを報じないマスコミ

1 ：文責・名無しさん ：02/10/24 18:37 ID:ajNeHEw8
なぜマスコミはひろゆき=創価であることを報じないのか！！

http://ex5.2ch.net/test/read.cgi/mass/1035452245/l50

超初心者です。
下記をjscprtにしたいのですが誰か教えてください。

Dim fs, MyFileName, objWS
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWS = CreateObject("WScript.Shell")
If fs.FileExists("C:\xxx\xxx\xxx\xxx\xx\db.ldb") = False Then
MyFileName = """C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" ""C:\xxx\xxx\xxx\xxx\xx\db.mdb"""
objWS.Run MyFileName
else
msgbox ("ACCESSを終了させてください。")
End If

>>794
うん、で何がわからないのかな？

IEの履歴（index.dat)にアクセスして，格納されているURLを取得する方法はありますでしょうか。

はい

>>797
どのようにすればよろしいのでしょうか。
あるいは，該当するメソッドなりを教えて頂けると幸いです。

こういう言葉面だけ丁寧で自分では考えようとしないの嫌い。

>>638

5.6.0.8825にアップデート


http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=c717d943-7e4b-4622-86eb-95a22b832caa

ゲームの鯖を立てているのですが、
鯖が落ちてしまったときに自動で再起動できないものかと考えています。
上の方にもあったのですが、数分ごとにプロセスを監視し
走っていないようであれば指定したプログラムを実行する。
といった感じがいいのかなーと思っているんですが、よくわかりません。
ttp://www.mars.dti.ne.jp/~vwjetta/install.html
これが希望に一番近いのですが、exeしか実行させることが出来ないので使えません。
（ショートカットでコマンドを追加して起動させなくてはならないので）
何かいい方法はないでしょうか？