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

NG

(　´ゝ`)　無ので立ててみた。

誰か詳しい情報ｷﾎﾞﾝﾇ

NG

　　　∧＿∧
　　　(*´Д｀) 　ｲﾔﾝ
　　　　 / ,ノ⌒ヾ、
　　　⊂⊂､___(＿,つ

NG

>>2 なんかかわいい。

NG

>>2
(:.;ﾟ;Д;ﾟ;.:)ﾊｧﾊｧ

NG

　　　∧＿∧
　　　(* ﾟДﾟ ) 　ﾅﾆﾐﾃﾝﾀﾞｺﾞﾙｧ
　　　　 / ,ノ⌒ヾ、
　　　⊂⊂､___(＿,つ

NG

Windows Scripting Host Laboratory
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/wshtop.htm

NG

>>5
なんかコワい…

NG

Windows Scripting Host
・WSH最新版DLサイト
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=E74494D3-C4E1-4E18-9C6C-0EA28C9A5D9D

NG

拡張子を.vbsにすればいいんだよね？

NG

>>9
そでつ。ほかにもあるっぽいですが

NG

前もWSHスレ立って需要がなくて消えたんだよな

NG

>>11
そいつは知らなかった・・・このスレもそうなりそうな悪寒・・・

NG

ウィルスを作るためのツール？

NG

>>11
それをスレ立てる前に言ってくれ！

無理か。

NG

とりあえず、最終目標としてはBOTもしくはウイルスを作るということでおｋかな？

NG

なぜ需要がなかったかというと、Win板にすでに
お前ら、wsh使ってますか？ Part2
http://pc2.2ch.net/test/read.cgi/win/1022248379/
というのがあって、そっちの方が盛り上がってたから。
前も結局そっちに誘導して終わった。

NG

http://kame.kakiko.com/hiroyuki/jaz_b01.html

NG

>>15
それじゃぁ、削除対象…

NG

>>16
ヽ(`Д´)ﾉﾀﾃﾙﾏｴﾆｲｴﾖ!

NG

>>16
エンドユーザレベルか・・・・
まあ多分UNIX板にもシェルスクリプトのスレがあるんだろうけど。

NG

　　　 ∧_∧ ∧__∧
　＿ ( ´∀｀(・∀・ )__ < ネタが無いのに立てたんだね。ヴァカみたい♪
　|≡（　11 )( 121 )≡|
　｀┳(__)(__) (__)(__)━┳
,..,..┴,...,...,...,....,....,.....,....,┴,,,,..

NG

そういえばなつかしのI love youウイルスも.vbsだったな

NG

>>21 んなさびしいこというなよぉ。

NG

c.Copy(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs")

NG

>>24
ｷﾀｷﾀｷﾀｷﾀｷﾀｰｰｰｰｰｰｰｰｰｰ

　|≡（　11 )( 121 )≡|
　｀┳(__)(__) (__)(__)━┳

NG

>>24 のーとんが猛り狂ったように叫び出す、に10000ぬるぽ

NG

質問厨がなんかこのスレ(板)…と言い出すに 5000ぬるぽ

NG

c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")

NG

そういえば、>>24のコードの意味がいまだにようわからん

NG

>>28
ああ、微妙に違ったのね。ﾀﾞﾏｻﾚﾀ!

つか、つまらんですよ。

NG

>>20
だからエンドユーザレベルじゃないと需要ないんだって。

NG

ごめんなさい

NG

いや別にエンドユーザが悪いとかじゃなく、このスレに限らず需要無いところに立てても
悲しい結末にしか・・・

NG

>>1さん、漏れもWin板あたりが妥当だと思うんですが…

http://qb.2ch.net/saku/

NG

>>1
つーことで削除依頼よろすく。
過去ログに消えたスレあるかな。あれば>>13みたいなレスでぐだぐだになって消えたのがわかると思う。

NG

この前、インストーラにexe作るのめんどくさかったから
WSHでファイルコピー＆レジストリ登録をするスクリプト書いたら
ノトーン先生に怒られた。
こりゃ、仕事じゃ使えないわ

NG

.vbs で処理しようとすると，ドロップするファイル数に限度があるようです。
回避する方法として，フォルダをドロップしようと考えていますが，
下記のどこを変えたらよいですか？

set arg=wscript.arguments
set fs=createobject("scripting.filesystemobject")
if 0<arg.count then
for each item0 in arg
set file=fs.getfile(item0)

NG

前もWSHスレ立って需要がなくて消えたんだよな

NG

Windows板でやるようなスレだしな。

NG

（＾＾）

NG

WSHでhttpを使ってWebサーバにGETやPOSTって出来ますか？
Socketでも構いません。WinInetをラッパーした物があれば万々歳。

NG

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

NG

HTMLアプリケーションて結構好きだなあ
Mozillaにそれ使ったアプリなかったっけ

NG

monazillaの間違え

NG

sage保守

NG

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

NG

>>46

スレの前半のほうに書いてあるがWin板のお前ら、WindowsScripting使ってますか？を利用したほうがいいのでは？
多分、向こうに書き込めば11さん辺りが作ってくれるかもしれないですよ。

現行スレは多分http://pc2.2ch.net/test/read.cgi/win/1058829737/です。

NG

現在起動中のプログラムの一覧を取得する方法を教えてください
タスクマネージャで見れる程度の情報がリストにできればいいです

NG

---------(begin)---------(ShutDown.js)---------(begin)---------
(WScript.CreateObject("Shell.Application")).ShutdownWindows();
---------( end )---------(ShutDown.js)---------( end )---------

NG

WScript.Sleep(100000000);

NG

ﾎｼｭ

NG

このスレのおかげでウィルスチェックが効いてウザ杉。
読めねえ。

NG

意味わからん

NG

WScript.Echo("わかれ");

NG

お前ら、WindowsScripting使ってますか？ Part3
http://pc5.2ch.net/test/read.cgi/win/1058829737/l50

NG

テキストファイルの印刷って出来ませんか？

最終的には、WWWサーバで印刷したいのですが
http://www.microsoft.com/japan/msdn/columns/server/server033099.asp
に書かれているAddPrinterConnectionやAddWindowsPrinterConnectionを使用しても、
プリンタが見つかりません。のエラーになります。
EnumPrinterConnections で取得したプリンタ名を設定しても
エラーとなります。
どなたか教えてください。

NG

ｎｏｔｅpad /p

NG

.batファイルよりもWSH使った方が色々出来そうだね。

NG

set shell = createobject("wscript.shell")
do
ret=shell.Popup("sage",1,,0)
loop

NG

　　　　∧　∧
　　　（*・∀・*）　ｲﾔﾝ
　　　　 / ,ノ⌒ヾ、
　　　⊂⊂､___(＿,つ

NG

(:.;ﾟ;Д;ﾟ;.:)ﾊｧﾊｧ

NG

SendToでショートカット渡すとリンク先のファイルのあるディレクトリをExplorerで開くスクリプトってどうやって書けばいいの？

NG

open

NG

Windowsのログオン時に，パスワードをキーボードから入力しますが，これを
RS232CやUSBで接続した認証用センサ（例えば指紋センサ）による認証方式
にするための方法について調べています．
別スレで同じような質問をし，サービスプログラムの作成が必要でないかと
コメントをいただいたのですが，サービスプログラムについてもよくわかりません．
まず，サービスプログラムで可能なのか，また可能であれば作成方法について教え
ていただけないでしょうか？

NG

ハードは外から買って来るんだろ?
普通ハードにSDKやソフトウェアがついてると思うが。

NG

具体的なところでICカードを考えているんですが，リーダーの制御コマンドしか
公開されていません．

NG

WindowsNT系OSはログオンにGINA APIを使う。
http://www.cisnet.or.jp/home/tsuneoka/win32tech/6.html
GINAのサードパーティ製品（SDK？）あるようだがよくらん。
あとすれ違い。

NG

GINAについての情報有難うございました．

NG

>>62
if (WScript.Arguments.length != 1) WScript.Quit();
var file = WScript.Arguments(0);
var folder = file.substr(0, file.lastIndexOf("\\"));
var shell = WScript.CreateObject("Shell.Application");
var shFolderItems = shell.NameSpace(folder).Items();
for (var i = 0; i < shFolderItems.Count; i++) {
var item = shFolderItems.Item(i);
if(item.Path == file) {
if (item.IsLink) {
var target = item.GetLink.Target;
shell.ShellExecute("explorer.exe", "/select,\"" + target.Path +"\"");
} else {
shell.ShellExecute("explorer.exe", "/select,\"" + file + "\"");
}
break;
}
}

NG

VBScriptでGUIDは作れんですか？

NG

すでに起動しているアプリケーション（ウィンドウ）を
ひとつだけ最小化させるWSHプログラムは組めますか？

アプリケーション名はわかりますが、
ウィンドウ名は先頭から10数文字までは固定ですが
その後ろは不定なので正規表現とかで指定になると思います

NG

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate("Title")
WScript.Sleep 100
WshShell.SendKeys("%( N)")

NG

クリップボードにStringを書き込み方法を教えてください。

NG

>>72
（ﾟ∀ﾟ）ｻﾝｸｽｺ

NG

>>72
この方法だと、対象アプリがすでに最小化されていたときにも
一度フォアグラウンドに引っ張ってきて、その上で最小化しますね
またSendkeyはフォアグラウンドのアプリに送られるっぽいから
対象アプリが最前面に来る前に100ms経ってしまうと
違うアプリが最小化されてしまいました
直接対象アプリにSendkeyするのってなんか方法ありましたっけ？

NG

>>75
多分無理かと。
適当にSleepの時間を調整するしかないのでは？

>>73
var str = "hoge";
var ie = WScript.CreateObject("InternetExplorer.Application");
ie.Navigate("about:blank");
while(ie.Busy){ WScript.Sleep(100); }
ie.Document.parentWindow.clipboardData.setData("text", str);
ie.Quit();

by googleの検索結果の上から3番目くらい（特殊文字の処理は省略）
一番上に出てくるやつをダウンロードしてもいいと思うけど。

NG

たまに、最前面に出てきてもアクティブにならないときもあり
そのときはsleep時間延ばしてても全然違うアプリが閉じてしまう。
むぅぅ。これ以上はWSHでは無理っぽ？

NG

>>76
ありがとうございます。
調べたときにIEとか出てきて「なぜ？」って疑問も
教えてもらったclipboardDataからぐぐって
IE呼び出してるんだろうって謎も解けました。

NG

>>76 とても、ためになりました。
str = "hoge"
Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.Navigate("about:blank")
Do While ie.Busy = True
WScript.Sleep(100)
Loop

Dummy = ie.Document.parentWindow.clipboardData.setData("text", str)
ie.Quit()

当方、VBS派ですが、期待した動作でした。
これまで、IEが立ち上がって来るのかと思って使ってませんでした。
これまでは、VBO4WSH.EXE で、VBのClipboadObj を使えるように
してました。
便利だけど、インストールしないといけないのが面倒なんですよね。
ttp://rd.vector.co.jp/soft/win95/util/se303229.html

NG

SendKeys を使って、"~"や"%" を送ろうとしても、それぞれ、[Enter]や[Alt] に変換されてしまって、
ファイル名のダイアログボックスに、名前を上手く入力できず困っていました。

でも、Clipboard の中に SetData("~ %") しておいて、Sendkeys（"＾V"）《貼り付け》
してしまえば、上手く行きそうな気がしてきました。
まだ試してないけど、あとでためしてみます。
問題を解くきっかけを作っていただき、ありがとうございました。

NG

>>80
ttp://www.microsoft.com/japan/msdn/library/ja/script56/html/wsmthsendkeys.asp

NG

CreateObjectもできて
dir /b | sortとかもできるWSHなスクリプトってないの？
VBSってすごい面倒。

NG

WSHでセキュリティのイベントログを削除するスクリプトを
perlで作ったですがエラーがでて困ってます。
　# cscript script.pls
でコマンド実行すると
　# PerlScript Error: (in cleanup) Can't call method "ClearEventlog" on an undefined value
とエラーになります。
環境はWindows XPにActivePerl 5.8.4です。
どこが悪いのでしょうか。改善点をお願いします。

以下ソースです。

use Win32::OLE;

open(LOG, "eventquery.vbs /v /fo csv /l Security |");
@data = <LOG>;
close(LOG);

$strComputer = ".";
$wmi = Win32::OLE->GetObject(
"WinMgmts:{impersonationLevel=impersonate}!//" .
"$strComputer\\root\\cimv2"
);

$colLogs = $wmi->ExecNortificaitonQuery(
"Select * from Win32_NTEventLogFile where LogFileName='Security'"
);

foreach $objEvent ($colLogs) {
$objEvent->ClearEventLog();
}

NG

>>81
どうもありがとうございます。こんな仕様になっていたのですね。
clipboard でのテキスト処理も使えるし、Sendkeys も小技が利くしで、
私のやりたい事の９割方は、WSHでほとんど事足りてしまいます。

NG

>>83
何やってるのか知らんけど、colLogsが配列なら$じゃなくて@colLogsなのでは？
もし配列へのポインタなら、foreachで使うところで @$colLogs にするとか。
いずれにせよスカラー値がforeachの中にあるのは気持ち悪い。

ってWSHの話じゃないじゃん・・・

NG

>>85
エラーの場所がClearEventLog()メソッド呼び出しのところなのでWSHスレッドで良いのかなと。
VBSなら　ClearEventLog() でイベントログを削除出来るはずなんですけど
perlでやろうとするとエラーになるので何故かと思って。(perl使うなって話はなしで)

NG

>>86 (>>83)
おまえ人の話聞いてないだろ。もっと >>85 の言ってることちゃんと考えろや。

foreach $objEvent ($colLogs) {
$objEvent->ClearEventLog();
}

$objEvent が undefined だから
# PerlScript Error: (in cleanup) Can't call method "ClearEventlog" on an undefined value
になるのは当たり前だろ。

NG

>>87
foreach の ( ) の中を @colLogs としても同じく "undefined value" とエラーがでます。
@$colLogs とすると実行は出来たのですが foreach の中の処理をしてくれません。(実行しても何も起こらない)
WMIの呼び出しが間違っているんですかね？
perlでWMI扱う情報がweb上にほとんどなく、
どうすればいいのかよくわからないので知恵を貸してください。

追加で質問なんですが、文字コード/改行コードはEUC-JP/CRLFでよろしいんですか？

NG

ちなみにwebで見つけたVBでログをクリアする方法です(バックアップする処理も含まれていますが)
perlへ移植するにはどうすればよいでしょう

----------------------------------------------------------------
Set objWMIService = GetObject("winmgmts:" _
　 & "{impersonationLevel=impersonate,(Backup)}!\\" & _
　　　strComputer & "\root\cimv2")

Set colLogFiles = objWMIService.ExecQuery _
　 ("Select * from Win32_NTEventLogFile where LogFileName='Application'")

For Each objLogfile in colLogFiles
　 objLogFile.BackupEventLog("c:\scripts\" & strBackupName & _
　　 "_application.evt")
　 objLogFile.ClearEventLog()
Next

NG

>>89
SQL使える人ならできるだろ

NG

>>83
できたぞ。喜べ。
検索キーワードは「"Win32::OLE" コレクション」。
OLEの世界のコレクションはperlの世界では単なるポインタなので、
そのままではループをまわせない。
それをどうやって扱うのか？
専用のWin32::OLE::Enumモジュールを使えばいいらしい。

以下コード。

use Win32::OLE;
use Win32::OLE::Enum;

$strComputer = ".";
$objWMIService = Win32::OLE->GetObject(
　"winmgmts:{impersonationLevel=impersonate,(Backup)}!\\\\".
　"$strComputer\\root\\cimv2");
$colLogFiles = $objWMIService->ExecQuery
　("Select * from Win32_NTEventLogFile where LogFileName='Application'");
$enum = Win32::OLE::Enum->new($colLogFiles);

while (defined($item = $enum->Next)) {
　$item->BackupEventLog("c:\\scripts\\test_application.evt");
　$item->ClearEventLog();
}

NG

すげー

NG

結論、VBS使え。

NG

>>91
おおぉお！ありがとうございます！感動して目の前が潤んでいます
perlのポインタの扱いについてよく理解できてませんでした。
精進します　ありがとうございました

NG

JScriptから、INIファイルを読みたいのですが何かいい方法はないでしょうか？
Win32APIでいうならgetPrivateProfileStringみたいなのを探しています。
よろしくお願いします。

NG

素直にFSOでテキストファイル処理してもたいした手間じゃないと思うけど。

NG

ウィンドウの無いプロセスを終了→起動させたいのだけど、
終了のさせ方がわかりません。ウィンドウがあれば、
>>72でできそうなんですが。

NG

>>97
WMI を使う。
http://www.microsoft.com/japan/technet/scriptcenter/process/scrpcs07.mspx

NG

>>98 有難う！　と言いたいのですが、WSHでないのが残念！です。

NG

そいつは残念だ。

NG

NG

NG

msgbox("新年あけましておめでとうございます")

NG

質問ｽﾏｿ。WSHでIEオブジェクトを扱った時、ページ内のJavaScript Functionって
呼べないのかな・・

NG

IEオブジェクトはWindows 2000である条件のもとだと使えネェな。
といってもその条件が特殊だからあんま意味ないか。

NG

>>104
ページ内のスクリプト各関数は
大抵ボタンやリンクのonClickなんかに関連づけられてるから
そのイベントをfireEventするってのは？

05/01/21 00:49:26

すみません、全くの初心者なんですが、Wordのマクロから、
別のところに保存してある.vbsファイルを実行したいのです。
（要はWordで今選択している単語を、
コピーして別のアプリのウインドウに貼付けしたい）
Wordのマクロでとりあえず
Selection.Copy
でコピーはできたのですが、その後、
（１）別のアプリの起動
（２）そのアプリへの貼付け
がどうやるかわかりません。
どなたかどうぞよろしくお願いします。

05/01/21 00:57:43

shell
sendkey

05/01/21 00:58:57

>107
WScript.Run
Sendkey

05/01/21 01:15:59

WSHがマルチスレッドに対応！
かと思って
ぅぉ
っと声を上げてクリックしてしもたorz

05/02/25 06:44:32

http://society3.2ch.net/test/read.cgi/hosp/1103732549/14-
このスレッドの１４番、１５番は、
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/wshtop.htm
ここで、公開されているスクリプトです。
このスクリプトを変形して、
フォルダ内(１層でいい)のファイル名＋サイズをテキストに書き出したいです。
ツリー構造はいりません。
私は、シェルうんぬんでわけがわからなくなりました。
虫のいい話ですが、どなたかお助け下さい。

05/02/25 07:05:15

>111
ややこしいと思うならshellを使わずにD&Dのみで作ればいいんじゃない？
ツリー構造いらないならそんなに難しいものでもないが。

05/02/25 07:18:11

>>112
これを機会にWSHを身に着けたいんです。

05/02/25 07:27:01

|д・）つC:\>tree TARGET_DIR /a /f > OUT_FILE

05/02/25 08:00:18

どうも有り難うございます。　>>114
つーか、私が最終的にやりたい事は、
ターゲットのフォルダに、
なっち.jpg 2.100 KB
あやや.mp3 45.777KB
つんく.txt 300KB
　‥‥
とあったら、別のフォルダに、
なっち.jpg 2.100
あやや.mp3 45.777
つんく.txt 300
　‥‥
とゆう名の0KBのテキストファイルを作りたいんです。
これを１発でやるには、WSHが最適だと思うのですが、どうでしょう？

05/02/25 10:02:49

>>115
そうですね。そう思います。

05/02/25 10:07:24

ちゃんと読んでなかった。流して。
そんなに難しいことじゃないので、そのうち自己解決するでしょう。
あと、どこがわからないのかを書くといいと思う。

05/02/25 10:08:13

http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/refer/lesson9.htm
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
これは、１行目でWSHShellの変数の宣言をしてから、セットしてるのに、

http://society3.2ch.net/test/read.cgi/hosp/1103732549/14-
Dim sLine,sRootDir,sOutFile
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("Shell.Application")
これは、Fs、Shellを変数の宣言をしないでセットしてるのが疑問です。

05/02/25 11:08:25

http://society3.2ch.net/test/read.cgi/hosp/1103732549/14-

Search oRootDir.Items.Item 'oRootDir.Self 'Win2000の場合

'はレム文の始まりだと思うけど、何で１行に２つあるのか、わかりません。

05/02/25 11:24:41

つーか、大昔にクイックCをちょこっとだけ、かじった事があるんですが、
始めから、
WScript.Echo "終了"
ここまでが、メイン関数
Sub Search(obj)
ここから最後までが、呼ばれる関数ですよね？
で、
Search oRootDir.Items.Item 'oRootDir.Self 'Win2000の場合
ってことは、Win2000以外の場合は、Search(obj)を使わない、って事ですか？

05/02/25 12:36:50

>>118
BASICは変数宣言しなくてもいいのです。

>>119-200
Win2000の場合は
Search oRootDir.Self
にしろって意味です。

05/02/25 23:26:19

>>121
そうですか、レス有り難うございます。

http://society3.2ch.net/test/read.cgi/hosp/1103732549/14-
つーか、誰かこのスクリプトを削って、
フォルダ内(１層でいい)のファイル名＋サイズをテキストに書き出すのみのスクリプトを書いてくれないかな？
複雑すぎてわかりません。

05/02/26 00:02:25

>>122

Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFolder(InputBox("コピー元フォルダ"))
Set dest = fso.GetFolder(InputBox("コピー先フォルダ"))
For Each f In src.Files
Set ts = dest.CreateTextFile(f.Name & " " & f.Size, False)
ts.Close
Next

05/02/26 01:49:25

>>123
うわあー、すばらしい、有難うございます。　感謝感謝です。
これで、HDDの整理に取り掛かれます。　感激です。

05/02/26 22:00:52

すみません、更なるお願いです。
>Set src = fso.GetFolder(InputBox("コピー元フォルダ"))
コピー元フォルダを自分で入力するのが面倒。マウスだけで入力したい。

>Set dest = fso.GetFolder(InputBox("コピー先フォルダ"))
これも面倒。自動で、C:\COPYフォルダ作りそこに入れて欲しい。
あと、ターゲットのフォルダに、
なっち.jpg 2.100 KB
あやや.mp3 45.777KB
つんく.txt 300KB
　‥‥
とあったら、別のフォルダに、
なっち 2.100
あやや 45.777
つんく 300
　‥‥
と、元のファイルの拡張子は省略して欲しい。
どうでしょうか？

05/02/26 22:57:43

>>125
「自分で入力するのが面倒。マウスだけで入力したい。」という君に
http://www.vector.co.jp/soft/winnt/util/se083048.html

「これも面倒。自動で、C:\COPYフォルダ作り」という君に
http://www.vector.co.jp/soft/win95/util/se241498.html

05/02/26 23:09:58

http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/shell.htm

Set Shell=Wscript.CreateObject("Shell.Application")
Set f=Shell.BrowseForFolder(0,"フォルダを選んでください")
MsgBox f.Items.Item.Path '選択したフォルダ名を表示

これを試してみると、２行目、文字１で、引数の数が一致していません。または不正なプロパティをしていしています。
'Shell.BrowseForFolder' 　コード、800A01C2　ソース、VBScript 実行時エラー
となってしまいます。

05/02/26 23:11:45

WSHで、お願いします。　>>126

05/02/26 23:21:27

つか、>>127は解決しました。２行目が間違いでした。
Set f=Shell.BrowseForFolder(0,"フォルダを選んでください",0)
引き続き、>>125をお願いします。

05/02/26 23:50:16

>>123さんのソースをいじって、
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell=Wscript.CreateObject("Shell.Application")
Set MOTOf=Shell.BrowseForFolder(0,"コピー元フォルダを選んでください",0)
Set dest = fso.GetFolder(InputBox("コピー先フォルダ"))
For Each f In MOTOf.Files
Set ts = dest.CreateTextFile(f.Name & " " & f.Size, False)
ts.Close
Next
とやってみました。コピー先フォルダの入力までは出来るんですが、
それ以後、エラーが出ます。
行５、文字１、オブジェクトでサポートされていないプロパティまたはめそっどです。
'MOTOf.Files'　コード、800A01B6　ソース、VBScript 実行時エラー
となってしまいます。

05/02/27 00:02:07

>111
つか、これを機会にWSHを身に着けたい、と言うなら、
1日ぐらいは自分で悩んで手を動かしてぐぐってトライアンドエラーを繰り返してみなさい。
それでどうしてもわからなければ聞きに来れば誰か教えてくれるかも知れない。

05/02/27 00:04:24

copyFolder = "C:\COPY"
Set objShell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(copyFolder) Then
fso.CreateFolder(copyFolder)
End If
Set objFolder = objShell.BrowseForFolder( 0, "フォルダ選択", 0 )
If objFolder is nothing Then
WScript.Quit
End If
Set file = fso.CreateTextFile( copyFolder & "\FILES.TXT", True )
Set objFolderItems = objFolder.Items
For Each f In objFolderItems
If Not f.IsFolder Then
file.WriteLine( f.Name & vbTab & f.Size )
bname = fso.GetBaseName(f.Path)
name = copyFolder & "\" & bname & " " & f.Size
fso.CopyFile f.Path, name
fso.DeleteFile(f.Path)
End If
Next

05/02/27 00:11:18

>>132
おお、有難うございます。ちゃんと動きました。　感謝します。

05/02/27 00:53:13

>>111
・・・勉強しろよ

05/02/27 02:02:36

>>134
へぇ、勉強します。　つか、なんで>>130がエラーになるのか説明出来ますか？

05/02/27 02:23:55

>135
ぐぐってる？
BrowseForFolderで取得できるFolderオブジェクトと
FileSystemObjectのFolderオブジェクトとは別のものだから。
BrowseForFolderのFolderオブジェクトにはFilesコレクションがない。

05/02/27 03:00:10

ここは111様にみんなで貢献するスレッドです。
勉強しろとかぐだぐだ言わずに、111様がお聞きになられたことに素早く答えましょう。

05/02/27 03:54:04

>>136
要するに、２つの系列の異なるオブジェクト間でのデータのやり取りが出来ない、ってことですか？
だから、>>132のプログラムは
苦肉の策として、テキストファイルにデータを書き出し、それを再読してる、と。
これってビジュアルベーシックの仕様ですか？

05/02/27 04:00:31

とはゆうものの、>>123さんと>>132さんには非常に感謝してます。

05/02/27 04:17:52

>138
違う。
Shell.ApplicationとScripting.FileSystemObjectにはたまたま同じ「Folder」という
名前のオブジェクトがあってよく似た構造をしてるけど、実際には全く違うもの。
だから当然使い方も違う。
BrowseForFolderのFolderオブジェクトはFilesというプロパティはない。
BrowseForFolderのFolderオブジェクトからはItemsというコレクションで取得して
FileかFolderかを判別する必要があるの。

FileSystemObjectから取得したFolderオブジェクトであれば>130でOKだった。

05/02/27 10:20:02

>>111
(ry

05/02/27 12:54:11

>>111
早く死ねよお前

05/03/01 06:12:31

WSHか…
仕事中にコソーリ、トランプゲーム組む時に使う程度かな
一見エディタ開いてコード書いてるわけだが、
んなことしてるなんざ、周りに言えないな…ｗ

05/03/02 11:56:42

>>132
つか、これ俺の希望とは違うわ。

ターゲットのフォルダに、
なっち.jpg 2.100 KB
あやや.mp3 45.777KB
つんく.txt 300KB
　‥‥
とあったら、別のフォルダに、
なっち 2.100
あやや 45.777
つんく 300
　‥‥
と、拡張子のない、0BYTEのテキストファイルを作って欲しい
あと、元ファイルは消さない
です。

05/03/02 12:07:36

>>144
あなたの主張は理解できました。

がんばってくださいね

05/03/02 13:33:44

@echo off
for %%I in (%1\*.*) do type nul>"%2\%%~nI %%~zI"

05/03/02 19:38:35

ここは111様にみんなで貢献するスレッドです。
勉強しろとかぐだぐだ言わずに、111様がお聞きになられたことに素早く答えましょう。

05/03/02 23:27:09

132は111が戻ってこれないよう元ファイルだけじゃなくて
全てのファイルを消すようにしておきゃよかったのに。

05/03/03 01:26:38

どっかに「リクに答えてスクリプトを作るスレ」って無かったっけ？

05/03/03 02:22:33

ソフト板にあったような。スクリプト限定じゃないけど

05/03/03 02:51:37

「こんな」でスレ検索するとごろごろ引っかかるな。

05/03/03 04:52:36

http://pc5.2ch.net/test/read.cgi/tech/1086143976/
http://pc5.2ch.net/test/read.cgi/tech/1046576456/

05/03/05 06:11:22

すみません。Irvineスレで聞くべきなんですが、全く、反応が無いんです。
IrvineのRegistDateやSuccessDateのフォーマットって何なのかご存知の方、いらっしゃいますでしょうか？

05/03/11 03:28:55

ここ何のスレだっけ？

05/03/11 07:33:15

ソフト起動は以下のコマンドでやっているのですが。
ソフトを終了させるのは、どのように記述すればいいのでしょうか。

set ws = CreateObject("WScript.Shell")
ws.Run "　　　"

初歩的な質問で恐縮なんですが、よろしくお願いします。

05/03/11 07:44:47

>155
終了を待つことはできるけど、終了させることはできない。
SendkeysでALT+F4とか。

05/03/11 08:12:13

RunでなくてExec使えば？
Terminateあるよ。

05/03/11 10:34:44

>>156
>>157
ありがとうございます。それでやってみます。

05/03/12 03:31:39

IISでCGIの処理にWSHを使おうと思っているのですが、
スクリプトは正常に動いているのにURLから実行すると

CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are:

CScript エラー: 設定の読み込みに失敗しました。 (アクセスが拒否されました。
)

というエラーが出てきてしまいます。
IIS側の設定でスクリプトマッピングは

拡張子 .XXX
実行ファイルのパス C:\winnt\system32\cscript.exe //nologo %s

みたいにしているのですが・・・

05/03/12 07:04:38

IUSR_XXXX
IWAM_XXXX
をAdministratorsに汁
ttp://www.users.gr.jp/ml/archive/viewer.aspx?name=asp&no=18872
ttp://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list68.shtml

05/03/12 09:20:14

>154
どうもすみません。それでは質問を少し変えさせていただきます。
RegistDateというのは、ダウンロードの開始日時を表すdouble値なのですが、例えば、
38387.3075909722
というのが、Irvineの画面では
2005/02/04 07:22:55
と表示されています。
38394.2332972222
の場合が
2005/02/11 05:35:56
と表示されます。
おそらく、いつか特定の年月日からの経過秒数とかそういう値だと思うのですが、longでなくdoubleだというのが私には謎です。
日時を扱ったことのあるプログラマの方々、double形式が出てくることに何か心当たりはないでしょうか・・・？

05/03/12 09:34:35

(02/11 05:35) - (02/04 07:22) = 6日と22時間
(38394.23329) - (38387.30759) = 6.927

05/03/12 09:45:56

>161
date型は内部的にはdouble型で扱ってる。

dbldate=38387.3075909722
call msgbox(CDate(dbldate))

05/03/12 22:41:56

>>162-163
「何でdoubleを使ってるのか？」
という質問の答えになっていないと思う。

05/03/13 01:00:37

>>164
long だと 2038年1月18日までしか数えられないから。

こんなカンジの答えを希望？

05/03/13 06:08:57

CDate()で変換できるのですか！
うーん、奇妙！
ビット数の関係でdoubleなのでは、とは思っていましたが・・・
WSH(VBScript?)のdoubleって何バイトでしたっけ？
どうもありがとうございました。

05/03/13 10:28:55

>166
64bit

05/03/13 18:28:40

>>166
8バイト

05/03/16 05:41:48

自分で作ったアプリを WSH で制御しようとおもったら，
あらかじめ決められたインターフェイスを持った COM オブジェクトにしないとダメってことですか？
ってことは， C# で作っているアプリを WSH で制御できるようにするのは難しい？

05/03/16 05:55:19

HWNDを元に考えられる限りの窓遠隔操作機能を持ったCOMを誰か作ってくれないかな。

05/03/17 09:34:26

DynaCall

05/03/20 05:27:53

私、VBSしかわからないんですが、DateオブジェクトってどうしてJSでしか使えないんですか？

05/03/20 10:38:22

>>172
使えますよ。

<job>
<script language="JScript">
dt = new Date();
</script>
<script language="VBScript">
MsgBox dt.toUTCString()
</script>
</job>

05/03/20 16:02:18

>>43
XULのこと？HTAとは激しく別物かと思いますよ

HTAは通常のDHTMLを使ったWebページと同じくscriptタグ中に埋め込まれた
JScriptやVBSを呼び出すことで動作を表現する。

XULはそれ自体がXML準拠の構文でプログラムの動作を記述したもので
Mozillaのコアエンジンを通して実行される

と解釈してるが

2005/03/26(土) 14:25:44

>>173
同じ例に汁。

2005/04/03(日) 14:18:22

>>173
1年前の書き込みにレスしてどうする

2005/04/03(日) 14:19:04

アンカーミス>>733→>>734

2005/04/03(日) 23:39:59

>177
いつへのアンカーなんだよｗ

2005/04/04(月) 08:56:57

このペースだと6年後くらいだな。

2005/04/04(月) 17:04:29

はずぃ>自分

2005/04/05(火) 23:58:34

取得した文字列の中身が全部 US ASCIIかどうかチェックしたいのですが、何かいい方法ないでしょうか？
CだとIsAscii()があるのですがWSHだとないので。。。。

2005/04/06(水) 13:13:55

>>181
アルファベットまたは数字、いくつかの記号
にマッチするか調べればいいんじゃない？

2005/04/07(木) 01:05:54

181だけど事故解決しました
面倒くさがらずに自分で作らないとだめだね
CHRつかうのとREGEXP使うのとどっちがパフォーマンスいいのかなあ
どぴゅ

2005/04/09(土) 00:02:19

( ﾟдﾟ)ノ　ハイ！質問です！

msgbox 2^64
を実行すると

1.84467440737096E+19
と表示されます。

１５桁を超えるものは指数を使って表示されるようですが、整数で表示する事は出来ますか？

2005/04/09(土) 00:45:39

文字列に変換

2005/04/09(土) 00:50:30

>>185

文字列に変換は、Cstr() ですか？
Cstrは試して見ましたが、表示に変化はありませんでした。

それとも他の方法でしょうか？

2005/04/09(土) 01:43:09

多倍長整数使えよ

2005/04/09(土) 11:05:17

変換したら加工せにゃ

2005/04/16(土) 15:48:13

質問です。
あるﾌｫﾙﾀﾞ２つのファイルを比較します。
２つのﾌｫﾙﾀﾞの拡張子は例としてtxtとvbsです。
拡張子がちがう同じファイル名のファイルの
最終更新日時を比較します。ファイル名は大量の為特定できません。
比較してvbsのほうが日付が古ければ
ｴﾗｰとしてﾃｷｽﾄファイルに書き出す
という、vbsを作りたいのですがどなたかわかりますか？

2005/04/16(土) 16:23:36

>189
１．フォルダAとフォルダBがある。
　　（フォルダAには拡張子vbsのファイルが、フォルダBには拡張子txtのファイルが入っている）
２．フォルダAからファイルをひとつ取り出す
３．フォルダBから拡張子を除いた部分の名前が同じファイルを探す
４．フォルダAとフォルダBのファイルの更新日時を比較して、
　　フォルダAのファイルが古ければテキストファイルにエラーを出力。
５．フォルダAのファイルが無くなるまで２～４を繰り返す

こういうフローでいいならできる。

2005/04/16(土) 17:52:35

>>190
できたら作ってくれませんか？m(__)m

2005/04/16(土) 17:56:50

>>191
逝ってよし。

2005/04/16(土) 21:48:46

　　　　　　　　　　　 _,ノ‐''''''^^^¨¨¨⌒￣⌒^^''￢-､,_
　　　　　　　　._v-''¨｀　　 .,,vｰ─-､　　　 .,,vｰ─-､ .¨'ｰu_
　　　　　　_ノ'″　　　　./′　　　 ¨┐ .／　　　　ﾞ┐　 .ﾞ'┐
　　　　 ,／′　　　　　 ./￣''''-￢,,,,__.ﾐ .i |,,,,＿＿_　..）　　　ﾞ＼
　　　 ,/′　　　　 λ 　|　　　　（･ )|　｝　.¨'ｰu,,　　|　　　　　＼
　　 ./′　　　　　八,､-ﾐ.ノ‐''''''^^￣./¨ﾚ　　　　　 .人,_　　　　　ミ
　 .,ﾉ′　　　　._ノＵ'　　＼_　　 ._,rlﾄ冖へy　　　_／　 ¨'‐u　　　.ﾞlr
　.,i′　　　　　／ｰ-v､.,,_　　 ¨^^¨´〔　　　〕.¨^^¨′　　__.,､ﾞ＼.　｛
　〕　　　　　 ./′　　　　.⌒'''''　　　＼,,,,,,ノ′　 v-ｰ'''¨　.λ　　ﾞ┐ ｝　　　　＿＿＿＿＿＿＿＿＿＿
　|　　　　　ﾉ　 .λ───ｰ　　　　　　｝　　　　　 __,,.,､v;（_）ｰ''　｛..］　　／
　|　　　　　:|　　 | |　　　　　　　　　　　　.!　　　　　｀　　　　　　　 .｝｝＜　きがるにいってくれるなあ。
　｝　　　　 .|　　 .Ｕ-:;:冖^￣　　　　　　 .|　　　　　 ¨¨¨¨¨￣¨¨′ ﾐ｝　　＼
　.|　　　　.｝　　　　　　　_,,,,,ｖｖl''''¨¨|^^⌒|¨¨''''lｖｖ,_　　　　　　　　｝　　　　￣￣￣￣￣￣￣￣￣￣
　 ).　.　　　〕　　　 ,,､-v~|　　 .|　　　|　　 |　　|''Ｔ＾i-,,_　　　　　　/
　 .｛　　　　). ., r'z::''''~ﾞ(~~￣￣￣￣￣￣~~~`^^^^''''￢;;;＿　　ﾉ
　　ﾐ.　　　 `i,　　　　　　　　　　　　　　　　　　　　　　　 ,　`''　/
　　　ﾞ).　　　 `i,　　　　　　　　　　　　　　　　　　　　　　　　.,ﾉ　　λ
　　　　＼　　　 },　　　　　′　　　　　　　　　　　　　　　.　　／　　　| |
　　　　 .　＼　　＼　　　　　　　　　　　　　　　　　　.　　,／　　　　 ∪
　　　　　　（¨¨¨¨¨¨¨¨¨¨¨¨¨¨ﾞソ冖干ｱ^^^^^^^^^^^^^ｒ'′
　　　　　／~~~~~~~~i￢冖'''''7′　　　∨￢ｰｰz─-―「＼
　　　　　/　　　　　_ﾉ　　　　　厂¨丁¨¨ﾌ　　　　.ﾐ､　　　　ﾞ＼

2005/04/17(日) 16:22:30

質問です。
XPを使っているのですが、デスクトップからスタンバイに移行するのに
Dim objShell
Set objShell = WScript.CreateObject("Shell.Application")
objShell.Suspend
というコードを使えばできると書いてあったんですが、
スタンバイに移行できません。
このコードはXPでは使えないのでしょうか?

2005/04/18(月) 02:05:49

>>191
せっかくアルゴリズムまでは教えてくれてるんだからヘルプファイル読みながらでも
自分で作んなさいよ

2005/04/20(水) 11:13:48

行き詰まってつい・・・・。でも、なんとかできました。
190さん、ありがとう。

2005/04/21(木) 06:45:27

できたのですが、ファイルがたくさんある場合に今どれくらい
進んでいるのか進捗状況を表示させられたらいいと思っているのですが、
今何％進んでいるか(プログレスバー？)を表示させるには
どうすればいいですか？検索とかしてるんですが、みつかりません。
無理なんでしょうか？

2005/04/21(木) 07:12:56

>>197
プログレスバーは無理な希ガス

cscriptから起動させて、文字列出力させたら？

2005/04/21(木) 07:37:13

>198氏
朝早くありがとうございます。無理ですか・・・。
しかたないのであきらめます。

2005/04/24(日) 23:25:02

この文なんですが

mLocation = FindFromText( pos, html, "<td valign=""top""><strong>■", "</strong><br>", "" )
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑　　　　　　　　　↑
矢印で示した部分のコンマに当てはまる文字列を変数posとhtmlにそれぞれ返すいうことですか？