03/06/08 21:31
( ´ゝ`) 無ので立ててみた。
誰か詳しい情報ｷﾎﾞﾝﾇ
2:デフォルトの名無しさん
03/06/08 21:31
∧＿∧
(*´Д｀) ｲﾔﾝ
/ ,ノ⌒ヾ、
⊂⊂､___(＿,つ
3:デフォルトの名無しさん
03/06/08 21:32
>>2 なんかかわいい。
4:デフォルトの名無しさん
03/06/08 21:32
>>2
(:.;ﾟ;Д;ﾟ;.:)ﾊｧﾊｧ
5:デフォルトの名無しさん
03/06/08 21:34
∧＿∧
(* ﾟДﾟ ) ﾅﾆﾐﾃﾝﾀﾞｺﾞﾙｧ
/ ,ノ⌒ヾ、
⊂⊂､___(＿,つ
6:デフォルトの名無しさん
03/06/08 21:34
Windows Scripting Host Laboratory
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
7:3
03/06/08 21:35
>>5
なんかコワい…
8:デフォルトの名無しさん
03/06/08 21:37
Windows Scripting Host
・WSH最新版DLサイト
URLﾘﾝｸ(www.microsoft.com)
9:デフォルトの名無しさん
03/06/08 21:38
拡張子を.vbsにすればいいんだよね？
10:デフォルトの名無しさん
03/06/08 21:40
>>9
そでつ。ほかにもあるっぽいですが
11:デフォルトの名無しさん
03/06/08 21:41
前もWSHスレ立って需要がなくて消えたんだよな
12:１
03/06/08 21:42
>>11
そいつは知らなかった・・・このスレ もそうなりそうな悪寒・・・
13:デフォルトの名無しさん
03/06/08 21:42
ウィルスを作るためのツール？
14:デフォルトの名無しさん
03/06/08 21:42
>>11
それをスレ立てる前に言ってくれ！
無理か。
15:デフォルトの名無しさん
03/06/08 21:43
とりあえず、最終目標としてはBOTもしくはウイルスを作るということでおｋかな？
16:デフォルトの名無しさん
03/06/08 21:45
なぜ需要がなかったかというと、Win板にすでに
お前ら、wsh使ってますか？ Part2
ｽﾚﾘﾝｸ(win板)
というのがあって、そっちの方が盛り上がってたから。
前も結局そっちに誘導して終わった。
17:_
03/06/08 21:45
URLﾘﾝｸ(kame.kakiko.com)
18:デフォルトの名無しさん
03/06/08 21:45
>>15
それじゃぁ、削除対象…
19:デフォルトの名無しさん
03/06/08 21:46
>>16
ヽ(`Д´)ﾉﾀﾃﾙﾏｴﾆｲｴﾖ!
20:デフォルトの名無しさん
03/06/08 21:48
>>16
エンドユーザレベルか・・・・
まあ多分UNIX板にもシェルスクリプトのスレがあるんだろうけど。
21:デフォルトの名無しさん
03/06/08 21:48
∧_∧ ∧__∧
＿ ( ´∀｀(・∀・ )__ < ネタが無いのに立てたんだね。ヴァカみたい♪
|≡（ 11 )( 121 )≡|
｀┳(__)(__) (__)(__)━┳
,..,..┴,...,...,...,....,....,.....,....,┴,,,,..
22:デフォルトの名無しさん
03/06/08 21:51
そういえばなつかしのI love youウイルスも.vbsだったな
23:デフォルトの名無しさん
03/06/08 21:52
>>21 んなさびしいこというなよぉ。
24:デフォルトの名無しさん
03/06/08 21:52
c.Copy(dirsystem&"LOVE-LETTER-FOR-YOU.TXT.vbs")
25:デフォルトの名無しさん
03/06/08 21:53
>>24
ｷﾀｷﾀｷﾀｷﾀｷﾀｰｰｰｰｰｰｰｰｰｰ
|≡（ 11 )( 121 )≡|
｀┳(__)(__) (__)(__)━┳
26:デフォルトの名無しさん
03/06/08 21:53
>>24 のーとんが猛り狂ったように叫び出す、に10000ぬるぽ
27:デフォルトの名無しさん
03/06/08 21:54
質問厨がなんかこのスレ(板)…と言い出すに 5000ぬるぽ
28:デフォルトの名無しさん
03/06/08 21:54
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
29:デフォルトの名無しさん
03/06/08 21:55
そういえば、>>24のコードの意味がいまだにようわからん
30:27
03/06/08 21:55
>>28
ああ、微妙に違ったのね。ﾀﾞﾏｻﾚﾀ!
つか、つまらんですよ。
31:デフォルトの名無しさん
03/06/08 21:58
>>20
だからエンドユーザレベルじゃないと需要ないんだって。
32:エンドユーザー
03/06/08 22:00
ごめんなさい
33:デフォルトの名無しさん
03/06/08 22:02
いや別にエンドユーザが悪いとかじゃなく、このスレに限らず需要無いところに立てても
悲しい結末にしか・・・
34:デフォルトの名無しさん
03/06/08 22:05
>>1さん、漏れもWin板あたりが妥当だと思うんですが…
URLﾘﾝｸ(qb.2ch.net)
35:デフォルトの名無しさん
03/06/08 22:08
>>1
つーことで削除依頼よろすく。
過去ログに消えたスレあるかな。あれば>>13みたいなレスでぐだぐだになって消えたのがわかると思う。
36:デフォルトの名無しさん
03/06/16 12:36
この前、インストーラにexe作るのめんどくさかったから
WSHでファイルコピー＆レジストリ登録をするスクリプト書いたら
ノトーン先生に怒られた。
こりゃ、仕事じゃ使えないわ
37:デフォルトの名無しさん
03/06/19 13:58
.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)
38:デフォルトの名無しさん
03/07/17 15:47
前もWSHスレ立って需要がなくて消えたんだよな
39:デフォルトの名無しさん
03/07/17 17:16
Windows板でやるようなスレだしな。
40:山崎 渉
03/08/02 02:36
（＾＾）
41:デフォルトの名無しさん
03/08/05 06:45
WSHでhttpを使ってWebサーバにGETやPOSTって出来ますか？
Socketでも構いません。WinInetをラッパーした物があれば万々歳。
42:山崎 渉
03/08/15 16:01
(⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
43:yawa
03/08/16 04:11
HTMLアプリケーションて結構好きだなあ
Mozillaにそれ使ったアプリなかったっけ
44:yawa
03/08/16 04:11
monazillaの間違え
45:デフォルトの名無しさん
03/10/09 00:38
sage保守
46:デフォルトの名無しさん
03/10/14 23:40
固定長のファイルを開いて特定の位置を参照しに行って
そのフィールドの内容が変わったらその内容をファイル
名として保存。
を出来なくなるまで繰り返すと言う構文を誰か作ってくれませんか？
47:デフォルトの名無しさん
03/10/18 06:06
>>46
スレの前半のほうに書いてあるがWin板のお前ら、WindowsScripting使ってますか？を利用したほうがいいのでは？
多分、向こうに書き込めば11さん辺りが作ってくれるかもしれないですよ。
現行スレは多分ｽﾚﾘﾝｸ(win板)です。
48:デフォルトの名無しさん
03/10/22 04:01
現在起動中のプログラムの一覧を取得する方法を教えてください
タスクマネージャで見れる程度の情報がリストにできればいいです
49:スレの終了ダイアログを開いています…
03/12/06 19:40
---------(begin)---------(ShutDown.js)---------(begin)---------
(WScript.CreateObject("Shell.Application")).ShutdownWindows();
---------( end )---------(ShutDown.js)---------( end )---------
50:デフォルトの名無しさん
04/01/11 02:24
WScript.Sleep(100000000);
51:デフォルトの名無しさん
04/02/27 00:59
ﾎｼｭ
52:デフォルトの名無しさん
04/02/27 01:17
このスレのおかげでウィルスチェックが効いてウザ杉。
読めねえ。
53:デフォルトの名無しさん
04/02/27 18:49
意味わからん
54:デフォルトの名無しさん
04/03/03 21:47
WScript.Echo("わかれ");
55:デフォルトの名無しさん
04/04/27 09:44
お前ら、WindowsScripting使ってますか？ Part3
ｽﾚﾘﾝｸ(win板)l50
56:デフォルトの名無しさん
04/06/19 03:59
テキストファイルの印刷って出来ませんか？
最終的には、WWWサーバで印刷したいのですが
URLﾘﾝｸ(www.microsoft.com)
に書かれているAddPrinterConnectionやAddWindowsPrinterConnectionを使用しても、
プリンタが見つかりません。のエラーになります。
EnumPrinterConnections で取得したプリンタ名を設定しても
エラーとなります。
どなたか教えてください。
57:デフォルトの名無しさん
04/06/25 10:01
ｎｏｔｅpad /p
58:デフォルトの名無しさん
04/07/24 19:18
.batファイルよりもWSH使った方が色々出来そうだね。
59:デフォルトの名無しさん
04/08/08 02:43
set shell = createobject("wscript.shell")
do
ret=shell.Popup("sage",1,,0)
loop
60:デフォルトの名無しさん
04/08/08 11:00
∧ ∧
（*・∀・*） ｲﾔﾝ
/ ,ノ⌒ヾ、
⊂⊂､___(＿,つ
61:デフォルトの名無しさん
04/08/18 05:45
(:.;ﾟ;Д;ﾟ;.:)ﾊｧﾊｧ
62:デフォルトの名無しさん
04/08/19 07:42
SendToでショートカット渡すとリンク先のファイルのあるディレクトリをExplorerで開くスクリプトってどうやって書けばいいの？
63:デフォルトの名無しさん
04/08/19 07:48
open
64:pakuchan
04/08/19 09:45
Windowsのログオン時に，パスワードをキーボードから入力しますが，これを
RS232CやUSBで接続した認証用センサ（例えば指紋センサ）による認証方式
にするための方法について調べています．
別スレで同じような質問をし，サービスプログラムの作成が必要でないかと
コメントをいただいたのですが，サービスプログラムについてもよくわかりません．
まず，サービスプログラムで可能なのか，また可能であれば作成方法について教え
ていただけないでしょうか？
65:デフォルトの名無しさん
04/08/19 09:51
ハードは外から買って来るんだろ?
普通ハードにSDKやソフトウェアがついてると思うが。
66:pakuchan
04/08/19 10:20
具体的なところでICカードを考えているんですが，リーダーの制御コマンドしか
公開されていません．
67:デフォルトの名無しさん
04/08/19 12:33
WindowsNT系OSはログオンにGINA APIを使う。
URLﾘﾝｸ(www.cisnet.or.jp)
GINAのサードパーティ製品（SDK？）あるようだがよくらん。
あとすれ違い。
68:pakuchan
04/08/19 15:13
GINAについての情報有難うございました．
69:デフォルトの名無しさん
04/08/20 12:51
>>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;
}
}
70:デフォルトの名無しさん
04/08/25 12:50
VBScriptでGUIDは作れんですか？
71:デフォルトの名無しさん
04/10/26 21:29:41
すでに起動しているアプリケーション（ウィンドウ）を
ひとつだけ最小化させるWSHプログラムは組めますか？
アプリケーション名はわかりますが、
ウィンドウ名は先頭から10数文字までは固定ですが
その後ろは不定なので正規表現とかで指定になると思います
72:デフォルトの名無しさん
04/10/27 00:26:03
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate("Title")
WScript.Sleep 100
WshShell.SendKeys("%( N)")
73:デフォルトの名無しさん
04/10/27 06:54:57
クリップボードにStringを書き込み方法を教えてください。
74:デフォルトの名無しさん
04/10/27 09:45:57
>>72
（ﾟ∀ﾟ）ｻﾝｸｽｺ
75:71
04/10/27 10:02:28
>>72
この方法だと、対象アプリがすでに最小化されていたときにも
一度フォアグラウンドに引っ張ってきて、その上で最小化しますね
またSendkeyはフォアグラウンドのアプリに送られるっぽいから
対象アプリが最前面に来る前に100ms経ってしまうと
違うアプリが最小化されてしまいました
直接対象アプリにSendkeyするのってなんか方法ありましたっけ？
76:72
04/10/27 10:30:43
>>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番目くらい（特殊文字の処理は省略）
一番上に出てくるやつをダウンロードしてもいいと思うけど。
77:71
04/10/27 13:01:09
たまに、最前面に出てきてもアクティブにならないときもあり
そのときはsleep時間延ばしてても全然違うアプリが閉じてしまう。
むぅぅ。これ以上はWSHでは無理っぽ？
78:デフォルトの名無しさん
04/10/27 21:26:28
>>76
ありがとうございます。
調べたときにIEとか出てきて「なぜ？」って疑問も
教えてもらったclipboardDataからぐぐって
IE呼び出してるんだろうって謎も解けました。
79:デフォルトの名無しさん
04/10/31 01:55:53
>>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 を使えるように
してました。
便利だけど、インストールしないといけないのが面倒なんですよね。
URLﾘﾝｸ(rd.vector.co.jp)
80:79
04/10/31 08:22:25
SendKeys を使って、"~"や"%" を送ろうとしても、それぞれ、[Enter]や[Alt] に変換されてしまって、
ファイル名のダイアログボックスに、名前を上手く入力できず困っていました。
でも、Clipboard の中に SetData("~ %") しておいて、Sendkeys（"＾V"）《貼り付け》
してしまえば、上手く行きそうな気がしてきました。
まだ試してないけど、あとでためしてみます。
問題を解くきっかけを作っていただき、ありがとうございました。
81:デフォルトの名無しさん
04/10/31 12:13:38
>>80
URLﾘﾝｸ(www.microsoft.com)
82:デフォルトの名無しさん
04/11/02 16:50:19
CreateObjectもできて
dir /b | sortとかもできるWSHなスクリプトってないの？
VBSってすごい面倒。
83:デフォルトの名無しさん
04/11/03 22:56:06
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();
}
84:80
04/11/04 00:24:57
>>81
どうもありがとうございます。こんな仕様になっていたのですね。
clipboard でのテキスト処理も使えるし、Sendkeys も小技が利くしで、
私のやりたい事の９割方は、WSHでほとんど事足りてしまいます。
85:デフォルトの名無しさん
04/11/06 05:42:20
>>83
何やってるのか知らんけど、colLogsが配列なら$じゃなくて@colLogsなのでは？
もし配列へのポインタなら、foreachで使うところで @$colLogs にするとか。
いずれにせよスカラー値がforeachの中にあるのは気持ち悪い。
ってWSHの話じゃないじゃん・・・
86:83
04/11/06 09:55:39
>>85
エラーの場所がClearEventLog()メソッド呼び出しのところなのでWSHスレッドで良いのかなと。
VBSなら ClearEventLog() でイベントログを削除出来るはずなんですけど
perlでやろうとするとエラーになるので何故かと思って。(perl使うなって話はなしで)
87:デフォルトの名無しさん
04/11/07 16:06:26
>>86 (>>83)
おまえ人の話聞いてないだろ。もっと >>85 の言ってることちゃんと考えろや。
foreach $objEvent ($colLogs) {
$objEvent->ClearEventLog();
}
$objEvent が undefined だから
# PerlScript Error: (in cleanup) Can't call method "ClearEventlog" on an undefined value
になるのは当たり前だろ。
88:83
04/11/08 00:18:45
>>87
foreach の ( ) の中を @colLogs としても同じく "undefined value" とエラーがでます。
@$colLogs とすると実行は出来たのですが foreach の中の処理をしてくれません。(実行しても何も起こらない)
WMIの呼び出しが間違っているんですかね？
perlでWMI扱う情報がweb上にほとんどなく、
どうすればいいのかよくわからないので知恵を貸してください。
追加で質問なんですが、文字コード/改行コードはEUC-JP/CRLFでよろしいんですか？
89:83
04/11/08 00:25:04
ちなみに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
90:デフォルトの名無しさん
04/11/08 06:13:37
>>89
SQL使える人ならできるだろ
91:85
04/11/08 06:28:52
>>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();
}
92:デフォルトの名無しさん
04/11/08 14:20:32
すげー
93:デフォルトの名無しさん
04/11/08 18:03:32
結論、VBS使え。
94:83
04/11/10 10:39:32
>>91
おおぉお！ありがとうございます！感動して目の前が潤んでいます
perlのポインタの扱いについてよく理解できてませんでした。
精進します ありがとうございました
95:デフォルトの名無しさん
04/11/17 11:36:35
JScriptから、INIファイルを読みたいのですが何かいい方法はないでしょうか？
Win32APIでいうならgetPrivateProfileStringみたいなのを探しています。
よろしくお願いします。
96:デフォルトの名無しさん
04/11/17 18:02:53
素直にFSOでテキストファイル処理してもたいした手間じゃないと思うけど。
97:デフォルトの名無しさん
04/11/18 01:18:26
ウィンドウの無いプロセスを終了→起動させたいのだけど、
終了のさせ方がわかりません。ウィンドウがあれば、
>>72でできそうなんですが。
98:デフォルトの名無しさん
04/11/18 02:34:30
>>97
WMI を使う。
URLﾘﾝｸ(www.microsoft.com)
99:97
04/11/20 01:43:21
>>98 有難う！ と言いたいのですが、WSHでないのが残念！ です。
100:デフォルトの名無しさん
04/11/20 03:18:16
そいつは残念だ。
101:デフォルトの名無しさん
04/11/22 15:07:28
102:デフォルトの名無しさん
04/12/27 21:23:04
103:デフォルトの名無しさん
05/01/12 07:48:35
msgbox("新年あけましておめでとうございます")
104:デフォルトの名無しさん
05/01/12 17:42:38
質問ｽﾏｿ。WSHでIEオブジェクトを扱った時、ページ内のJavaScript Functionって
呼べないのかな・・
105:デフォルトの名無しさん
05/01/12 23:23:14
IEオブジェクトはWindows 2000である条件のもとだと使えネェな。
といってもその条件が特殊だからあんま意味ないか。
106:デフォルトの名無しさん
05/01/12 23:37:41
>>104
ページ内のスクリプト各関数は
大抵ボタンやリンクのonClickなんかに関連づけられてるから
そのイベントをfireEventするってのは？
107:デフォルトの名無しさん
05/01/21 00:49:26
すみません、全くの初心者なんですが、Wordのマクロから、
別のところに保存してある.vbsファイルを実行したいのです。
（要はWordで今選択している単語を、
コピーして別のアプリのウインドウに貼付けしたい）
Wordのマクロでとりあえず
Selection.Copy
でコピーはできたのですが、その後、
（１）別のアプリの起動
（２）そのアプリへの貼付け
がどうやるかわかりません。
どなたかどうぞよろしくお願いします。
108:デフォルトの名無しさん
05/01/21 00:57:43
shell
sendkey
109:デフォルトの名無しさん
05/01/21 00:58:57
>107
WScript.Run
Sendkey
110:デフォルトの名無しさん
05/01/21 01:15:59
WSHがマルチスレッドに対応！
かと思って
ぅぉ
っと声を上げてクリックしてしもたorz
111:デフォルトの名無しさん
05/02/25 06:44:32
ｽﾚﾘﾝｸ(hosp板:14-番)
このスレッドの１４番、１５番は、
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
ここで、公開されているスクリプトです。
このスクリプトを変形して、
フォルダ内(１層でいい)のファイル名＋サイズをテキストに書き出したいです。
ツリー構造はいりません。
私は、シェルうんぬんでわけがわからなくなりました。
虫のいい話ですが、どなたかお助け下さい。
112:デフォルトの名無しさん
05/02/25 07:05:15
>111
ややこしいと思うならshellを使わずにD&Dのみで作ればいいんじゃない？
ツリー構造いらないならそんなに難しいものでもないが。
113:１１１
05/02/25 07:18:11
>>112
これを機会にWSHを身に着けたいんです。
114:デフォルトの名無しさん
05/02/25 07:27:01
|д・）つC:\>tree TARGET_DIR /a /f > OUT_FILE
115:１１１
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が最適だと思うのですが、どうでしょう？
116:デフォルトの名無しさん
05/02/25 10:02:49
>>115
そうですね。そう思います。
117:114
05/02/25 10:07:24
ちゃんと読んでなかった。流して。
そんなに難しいことじゃないので、そのうち自己解決するでしょう。
あと、どこがわからないのかを書くといいと思う。
118:１１１
05/02/25 10:08:13
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
これは、１行目でWSHShellの変数の宣言をしてから、セットしてるのに、
ｽﾚﾘﾝｸ(hosp板:14-番)
Dim sLine,sRootDir,sOutFile
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("Shell.Application")
これは、Fs、Shellを変数の宣言をしないでセットしてるのが疑問です。
119:１１１
05/02/25 11:08:25
ｽﾚﾘﾝｸ(hosp板:14-番)
Search oRootDir.Items.Item 'oRootDir.Self 'Win2000の場合
'はレム文の始まりだと思うけど、何で１行に２つあるのか、わかりません。
120:１１１
05/02/25 11:24:41
つーか、大昔にクイックCをちょこっとだけ、かじった事があるんですが、
始めから、
WScript.Echo "終了"
ここまでが、メイン関数
Sub Search(obj)
ここから最後までが、呼ばれる関数ですよね？
で、
Search oRootDir.Items.Item 'oRootDir.Self 'Win2000の場合
ってことは、Win2000以外の場合は、Search(obj)を使わない、って事ですか？
121:デフォルトの名無しさん
05/02/25 12:36:50
>>118
BASICは変数宣言しなくてもいいのです。
>>119-200
Win2000の場合は
Search oRootDir.Self
にしろって意味です。
122:４０１
05/02/25 23:26:19
>>121
そうですか、レス有り難うございます。
ｽﾚﾘﾝｸ(hosp板:14-番)
つーか、誰かこのスクリプトを削って、
フォルダ内(１層でいい)のファイル名＋サイズをテキストに書き出すのみのスクリプトを書いてくれないかな？
複雑すぎてわかりません。
123:デフォルトの名無しさん
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
124:１１１
05/02/26 01:49:25
>>123
うわあー、すばらしい、有難うございます。 感謝感謝です。
これで、HDDの整理に取り掛かれます。 感激です。
125:１１１
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
‥‥
と、元のファイルの拡張子は省略して欲しい。
どうでしょうか？
126:デフォルトの名無しさん
05/02/26 22:57:43
>>125
「自分で入力するのが面倒。マウスだけで入力したい。」という君に
URLﾘﾝｸ(www.vector.co.jp)
「これも面倒。自動で、C:\COPYフォルダ作り」という君に
URLﾘﾝｸ(www.vector.co.jp)
127:１１１
05/02/26 23:09:58
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
Set Shell=Wscript.CreateObject("Shell.Application")
Set f=Shell.BrowseForFolder(0,"フォルダを選んでください")
MsgBox f.Items.Item.Path '選択したフォルダ名を表示
これを試してみると、２行目、文字１で、引数の数が一致していません。または不正なプロパティをしていしています。
'Shell.BrowseForFolder' コード、800A01C2 ソース、VBScript 実行時エラー
となってしまいます。
128:１１１
05/02/26 23:11:45
WSHで、お願いします。 >>126
129:１１１
05/02/26 23:21:27
つか、>>127は解決しました。２行目が間違いでした。
Set f=Shell.BrowseForFolder(0,"フォルダを選んでください",0)
引き続き、>>125をお願いします。
130:１１１
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 実行時エラー
となってしまいます。
131:デフォルトの名無しさん
05/02/27 00:02:07
>111
つか、これを機会にWSHを身に着けたい、と言うなら、
1日ぐらいは自分で悩んで手を動かしてぐぐってトライアンドエラーを繰り返してみなさい。
それでどうしてもわからなければ聞きに来れば誰か教えてくれるかも知れない。
132:デフォルトの名無しさん
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
133:１１１
05/02/27 00:11:18
>>132
おお、有難うございます。ちゃんと動きました。 感謝します。
134:デフォルトの名無しさん
05/02/27 00:53:13
>>111
・・・勉強しろよ
135:１１１
05/02/27 02:02:36
>>134
へぇ、勉強します。 つか、なんで>>130がエラーになるのか説明出来ますか？
136:デフォルトの名無しさん
05/02/27 02:23:55
>135
ぐぐってる？
BrowseForFolderで取得できるFolderオブジェクトと
FileSystemObjectのFolderオブジェクトとは別のものだから。
BrowseForFolderのFolderオブジェクトにはFilesコレクションがない。
137:デフォルトの名無しさん
05/02/27 03:00:10
ここは111様にみんなで貢献するスレッドです。
勉強しろとかぐだぐだ言わずに、111様がお聞きになられたことに素早く答えましょう。
138:１１１
05/02/27 03:54:04
>>136
要するに、２つの系列の異なるオブジェクト間でのデータのやり取りが出来ない、ってことですか？
だから、>>132のプログラムは
苦肉の策として、テキストファイルにデータを書き出し、それを再読してる、と。
これってビジュアルベーシックの仕様ですか？
139:１１１
05/02/27 04:00:31
とはゆうものの、>>123さんと>>132さんには非常に感謝してます。
140:デフォルトの名無しさん
05/02/27 04:17:52
>138
違う。
Shell.ApplicationとScripting.FileSystemObjectにはたまたま同じ「Folder」という
名前のオブジェクトがあってよく似た構造をしてるけど、実際には全く違うもの。
だから当然使い方も違う。
BrowseForFolderのFolderオブジェクトはFilesというプロパティはない。
BrowseForFolderのFolderオブジェクトからはItemsというコレクションで取得して
FileかFolderかを判別する必要があるの。
FileSystemObjectから取得したFolderオブジェクトであれば>130でOKだった。
141:デフォルトの名無しさん
05/02/27 10:20:02
>>111
(ry
142:デフォルトの名無しさん
05/02/27 12:54:11
>>111
早く死ねよお前
143:デフォルトの名無しさん
05/03/01 06:12:31
WSHか…
仕事中にコソーリ、トランプゲーム組む時に使う程度かな
一見エディタ開いてコード書いてるわけだが、
んなことしてるなんざ、周りに言えないな…ｗ
144:１１１
05/03/02 11:56:42
>>132
つか、これ俺の希望とは違うわ。
ターゲットのフォルダに、
なっち.jpg 2.100 KB
あやや.mp3 45.777KB
つんく.txt 300KB
‥‥
とあったら、別のフォルダに、
なっち 2.100
あやや 45.777
つんく 300
‥‥
と、拡張子のない、0BYTEのテキストファイルを作って欲しい
あと、元ファイルは消さない
です。
145:デフォルトの名無しさん
05/03/02 12:07:36
>>144
あなたの主張は理解できました。
がんばってくださいね
146:デフォルトの名無しさん
05/03/02 13:33:44
@echo off
for %%I in (%1\*.*) do type nul>"%2\%%~nI %%~zI"
147:デフォルトの名無しさん
05/03/02 19:38:35
ここは111様にみんなで貢献するスレッドです。
勉強しろとかぐだぐだ言わずに、111様がお聞きになられたことに素早く答えましょう。
148:デフォルトの名無しさん
05/03/02 23:27:09
132は111が戻ってこれないよう元ファイルだけじゃなくて
全てのファイルを消すようにしておきゃよかったのに。
149:デフォルトの名無しさん
05/03/03 01:26:38
どっかに「リクに答えてスクリプトを作るスレ」って無かったっけ？
150:デフォルトの名無しさん
05/03/03 02:22:33
ソフト板にあったような。スクリプト限定じゃないけど
151:デフォルトの名無しさん
05/03/03 02:51:37
「こんな」でスレ検索するとごろごろ引っかかるな。
152:デフォルトの名無しさん
05/03/03 04:52:36
ｽﾚﾘﾝｸ(tech板)
ｽﾚﾘﾝｸ(tech板)
153:デフォルトの名無しさん
05/03/05 06:11:22
すみません。Irvineスレで聞くべきなんですが、全く、反応が無いんです。
IrvineのRegistDateやSuccessDateのフォーマットって何なのかご存知の方、いらっしゃいますでしょうか？
154:デフォルトの名無しさん
05/03/11 03:28:55
ここ何のスレだっけ？
155:デフォルトの名無しさん
05/03/11 07:33:15
ソフト起動は以下のコマンドでやっているのですが。
ソフトを終了させるのは、どのように記述すればいいのでしょうか。
set ws = CreateObject("WScript.Shell")
ws.Run " "
初歩的な質問で恐縮なんですが、よろしくお願いします。
156:デフォルトの名無しさん
05/03/11 07:44:47
>155
終了を待つことはできるけど、終了させることはできない。
SendkeysでALT+F4とか。
157:デフォルトの名無しさん
05/03/11 08:12:13
RunでなくてExec使えば？
Terminateあるよ。
158:デフォルトの名無しさん
05/03/11 10:34:44
>>156
>>157
ありがとうございます。それでやってみます。
159:デフォルトの名無しさん
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
みたいにしているのですが・・・
160:デフォルトの名無しさん
05/03/12 07:04:38
IUSR_XXXX
IWAM_XXXX
をAdministratorsに汁
URLﾘﾝｸ(www.users.gr.jp)
URLﾘﾝｸ(www.roy.hi-ho.ne.jp)
161:153
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形式が出てくることに何か心当たりはないでしょうか・・・？
162:デフォルトの名無しさん
05/03/12 09:34:35
(02/11 05:35) - (02/04 07:22) = 6日と22時間
(38394.23329) - (38387.30759) = 6.927
163:デフォルトの名無しさん
05/03/12 09:45:56
>161
date型は内部的にはdouble型で扱ってる。
dbldate=38387.3075909722
call msgbox(CDate(dbldate))
164:デフォルトの名無しさん
05/03/12 22:41:56
>>162-163
「何でdoubleを使ってるのか？」
という質問の答えになっていないと思う。
165:デフォルトの名無しさん
05/03/13 01:00:37
>>164
long だと 2038年1月18日までしか数えられないから。
こんなカンジの答えを希望？
166:161
05/03/13 06:08:57
CDate()で変換できるのですか！
うーん、奇妙！
ビット数の関係でdoubleなのでは、とは思っていましたが・・・
WSH(VBScript?)のdoubleって何バイトでしたっけ？
どうもありがとうございました。
167:デフォルトの名無しさん
05/03/13 10:28:55
>166
64bit
168:デフォルトの名無しさん
05/03/13 18:28:40
>>166
8バイト
169:デフォルトの名無しさん
05/03/16 05:41:48
自分で作ったアプリを WSH で制御しようとおもったら，
あらかじめ決められたインターフェイスを持った COM オブジェクトにしないとダメってことですか？
ってことは， C# で作っているアプリを WSH で制御できるようにするのは難しい？
170:デフォルトの名無しさん
05/03/16 05:55:19
HWNDを元に考えられる限りの窓遠隔操作機能を持ったCOMを誰か作ってくれないかな。
171:デフォルトの名無しさん
05/03/17 09:34:26
DynaCall
172:デフォルトの名無しさん
05/03/20 05:27:53
私、VBSしかわからないんですが、DateオブジェクトってどうしてJSでしか使えないんですか？
173:デフォルトの名無しさん
05/03/20 10:38:22
>>172
使えますよ。
<job>
<script language="JScript">
dt = new Date();
</script>
<script language="VBScript">
MsgBox dt.toUTCString()
</script>
</job>
174:デフォルトの名無しさん
05/03/20 16:02:18
>>43
XULのこと？HTAとは激しく別物かと思いますよ
HTAは通常のDHTMLを使ったWebページと同じくscriptタグ中に埋め込まれた
JScriptやVBSを呼び出すことで動作を表現する。
XULはそれ自体がXML準拠の構文でプログラムの動作を記述したもので
Mozillaのコアエンジンを通して実行される
と解釈してるが
175:デフォルトの名無しさん
05/03/26 14:25:44
>>173
同じ例に汁。
176:デフォルトの名無しさん
05/04/03 14:18:22
>>173
1年前の書き込みにレスしてどうする
177:デフォルトの名無しさん
05/04/03 14:19:04
アンカーミス>>733→>>734
178:デフォルトの名無しさん
05/04/03 23:39:59
>177
いつへのアンカーなんだよｗ
179:デフォルトの名無しさん
05/04/04 08:56:57
このペースだと6年後くらいだな。
180:176
05/04/04 17:04:29
はずぃ>自分
181:デフォルトの名無しさん
05/04/05 23:58:34
取得した文字列の中身が全部 US ASCIIかどうかチェックしたいのですが、何かいい方法ないでしょうか？
CだとIsAscii()があるのですがWSHだとないので。。。。
182:デフォルトの名無しさん
05/04/06 13:13:55
>>181
アルファベットまたは数字、いくつかの記号
にマッチするか調べればいいんじゃない？
183:デフォルトの名無しさん
05/04/07 01:05:54
181だけど事故解決しました
面倒くさがらずに自分で作らないとだめだね
CHRつかうのとREGEXP使うのとどっちがパフォーマンスいいのかなあ
どぴゅ
184:デフォルトの名無しさん
05/04/09 00:02:19
( ﾟдﾟ)ノ ハイ！質問です！
msgbox 2^64
を実行すると
1.84467440737096E+19
と表示されます。
１５桁を超えるものは指数を使って表示されるようですが、整数で表示する事は出来ますか？
185:デフォルトの名無しさん
05/04/09 00:45:39
文字列に変換
186:184
05/04/09 00:50:30
>>185
文字列に変換は、Cstr() ですか？
Cstrは試して見ましたが、表示に変化はありませんでした。
それとも他の方法でしょうか？
187:デフォルトの名無しさん
05/04/09 01:43:09
多倍長整数使えよ
188:デフォルトの名無しさん
05/04/09 11:05:17
変換したら加工せにゃ
189:デフォルトの名無しさん
05/04/16 15:48:13
質問です。
あるﾌｫﾙﾀﾞ２つのファイルを比較します。
２つのﾌｫﾙﾀﾞの拡張子は例としてtxtとvbsです。
拡張子がちがう同じファイル名のファイルの
最終更新日時を比較します。ファイル名は大量の為特定できません。
比較してvbsのほうが日付が古ければ
ｴﾗｰとしてﾃｷｽﾄファイルに書き出す
という、vbsを作りたいのですがどなたかわかりますか？
190:デフォルトの名無しさん
05/04/16 16:23:36
>189
１．フォルダAとフォルダBがある。
（フォルダAには拡張子vbsのファイルが、フォルダBには拡張子txtのファイルが入っている）
２．フォルダAからファイルをひとつ取り出す
３．フォルダBから拡張子を除いた部分の名前が同じファイルを探す
４．フォルダAとフォルダBのファイルの更新日時を比較して、
フォルダAのファイルが古ければテキストファイルにエラーを出力。
５．フォルダAのファイルが無くなるまで２～４を繰り返す
こういうフローでいいならできる。
191:デフォルトの名無しさん
05/04/16 17:52:35
>>190
できたら作ってくれませんか？m(__)m
192:デフォルトの名無しさん
05/04/16 17:56:50
>>191
逝ってよし。
193:デフォルトの名無しさん
05/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─-―「＼
/ _ﾉ 厂¨丁¨¨ﾌ .ﾐ､ ﾞ＼
194:デフォルトの名無しさん
05/04/17 16:22:30
質問です。
XPを使っているのですが、デスクトップからスタンバイに移行するのに
Dim objShell
Set objShell = WScript.CreateObject("Shell.Application")
objShell.Suspend
というコードを使えばできると書いてあったんですが、
スタンバイに移行できません。
このコードはXPでは使えないのでしょうか?
195:デフォルトの名無しさん
05/04/18 02:05:49
>>191
せっかくアルゴリズムまでは教えてくれてるんだからヘルプファイル読みながらでも
自分で作んなさいよ
196:191
05/04/20 11:13:48
行き詰まってつい・・・・。でも、なんとかできました。
190さん、ありがとう。
197:191
05/04/21 06:45:27
できたのですが、ファイルがたくさんある場合に今どれくらい
進んでいるのか進捗状況を表示させられたらいいと思っているのですが、
今何％進んでいるか(プログレスバー？)を表示させるには
どうすればいいですか？検索とかしてるんですが、みつかりません。
無理なんでしょうか？
198:デフォルトの名無しさん
05/04/21 07:12:56
>>197
プログレスバーは無理な希ガス
cscriptから起動させて、文字列出力させたら？
199:191
05/04/21 07:37:13
>198氏
朝早くありがとうございます。無理ですか・・・。
しかたないのであきらめます。
200:デフォルトの名無しさん
05/04/24 23:25:02
この文なんですが
mLocation = FindFromText( pos, html, "<td valign=""top""><strong>■", "</strong><br>", "" )
↑ ↑
矢印で示した部分のコンマに当てはまる文字列を変数posとhtmlにそれぞれ返すいうことですか？
201:デフォルトの名無しさん
05/04/24 23:53:46
>>200
書いたやつに聞けよ・・・
"<td valign=""top""><strong>■" と、 "</strong><br>" にはさまれている文字を
mLocation に返すみたいだが・・・
202:デフォルトの名無しさん
05/04/25 01:17:55
>201
そうだな
サンクス
203:デフォルトの名無しさん
05/05/08 14:40:39
すいません，VBScriptでレジストリ操作をしたいんですが，
あるレジストリキーが存在するかどうかを確認する方法はありますか？
RegReadで存在しない値を参照してエラーが出てしまうんですが
回避方法がわからないんです．
204:キー列挙ならWMIの方が楽だよ
05/05/08 15:02:33
>>203
On Error Resum Nextじゃダメ？
205:204
05/05/08 15:02:56
Resum→Resume
206:デフォルトの名無しさん
05/05/08 15:06:25
>>204
それはアレですよね，エラー無視．
最初はそれにしてたんですが
他の部分でエラー出たりすることもあるしどうかなぁ と．
というか，エラー無視で強引に進めるのって怖くありません？
207:デフォルトの名無しさん
05/05/08 15:09:39
ちなみにHTAを使って割りと複雑な操作をするんで
VBScript+HTAじゃないとダメっぽいです．
RegDeleteもサブキーがあるとエラーとかいう意味不明な仕様ですが
あれも何とかならんでしょうか。
今は oWsh.Run("reg delete "HKCR\.dat" /f) とこんな事をしてます．
でもreg.exeを使うと動作にタイムラグが・・・＿|￣|○
208:デフォルトの名無しさん
05/05/08 19:03:25
URLﾘﾝｸ(www.microsoft.com)
209:デフォルトの名無しさん
05/05/09 02:20:54
>>203
>>208 の手段でも良いし、条件分岐させれば良いだけじゃないのか。
210:デフォルトの名無しさん
05/05/09 03:00:18
>>208，209
そうですね，208ので全部消していくかな．
条件分岐っていうのは？
レジストリキーが存在するかどうかが調べられないのに
どう条件分岐させるんですか？
211:デフォルトの名無しさん
05/05/09 20:16:32
>>210
当初 >>203 で言っていた「あるレジストリキー」というのがいくらかでも
特定されたものであれば、レジストリキーの有無で条件分岐できるだろうと
いうこと。今回言っているように、どのようなキーが存在するかさえ不明で
あれば >>208 の示した手段がベター。
212:デフォルトの名無しさん
05/05/09 20:56:52
>206
エラーの出そうな操作の直後に
if err<>0 then
～
end if
でエラーの場合の動作を（msgboxとかexit doとか）。
213:デフォルトの名無しさん
05/05/09 23:32:34
>>211
すいません、レジストリキーの有無ってどうやって調べるんですか？
214:デフォルトの名無しさん
05/05/11 21:46:18
キーをオープンしてみれば分かる
215:デフォルトの名無しさん
05/05/11 21:46:36
>>213
そのくらい調べりゃすぐ分かるだろ
自分で調べろよ
216:デフォルトの名無しさん
05/05/14 10:59:37
すいません、キーはどうやってオープンすればいいのか…
217:デフォルトの名無しさん
05/05/14 18:33:51
キーを読み取ってみてエラーが発生したら分岐させる？
218:デフォルトの名無しさん
05/05/16 18:58:29
急速にスレの質が低下してまいりました
219:デフォルトの名無しさん
05/05/17 14:07:51
急速という割には、ペース遅すぎな希ガス
220:デフォルトの名無しさん
05/05/20 13:45:42
スレッドストッパーの俺様が来ましたよ
221:デフォルトの名無しさん
05/05/20 22:35:57
そこでｽﾚｯﾄﾞﾘﾊﾞｲﾊﾞｰの漏れ様の登場ですよ
222:デフォルトの名無しさん
05/05/20 23:09:32
そこでﾊｲﾊﾟｰｽﾚｯﾃﾞｨﾝｸﾞな俺様の登場ですよ！！
223:デフォルトの名無しさん
05/05/23 01:18:56
おまいらちっとはwsh使へ
224:デフォルトの名無しさん
05/05/23 23:05:05
いやぷぅ(~o~)
225:デフォルトの名無しさん
05/05/24 23:12:11
バッチファイルと違って、タスクマネージャくらいからしか強制終了できないのが辛い。
あとは時間指定ぐらいですかね？
でも、環境によって実行時間が違ってくるから時間による終了は入れたくないなぁ。
226:デフォルトの名無しさん
05/05/25 02:25:23
バッチで強制終了させりゃいいじゃん。
バッチでできんことはWSHにやらせて。
227:デフォルトの名無しさん
05/05/25 19:59:47
向き不向きを考えて使えって事か。
そりゃそうか。
バッチファイルで何行も同じようなこと書きたくないなぁと思って
vbsならスマートかな、と思ってやってみたんですた。
まぁコマンドプログラム呼び出すたびにアクティブなウインドウがそっちに移るんで
それも困ってたﾄｺなんでやっぱバッチのほうが向いてるかも
228:デフォルトの名無しさん
05/05/26 05:03:19
>225-227 cscript.exe もちゃんと使おうな
229:225=227
05/05/26 19:59:30
URLﾘﾝｸ(www.atmarkit.co.jp)
コマンドラインスクリプトのことかーーーー！！！
初めて知りました。
多謝でつ。
230:デフォルトの名無しさん
05/05/27 12:38:44
WSHは略だけど
CScriptも略してCSHとは言わんな
231:デフォルトの名無しさん
05/05/27 22:27:43
wshはwscript.exeの略じゃないし
232:デフォルトの名無しさん
05/06/01 13:26:13
JScriptでショートカットのファイルを吐き出したいです
どうすれば出来ますか？
233:デフォルトの名無しさん
05/06/01 14:11:25
>>232
URLﾘﾝｸ(www.microsoft.com)
234:デフォルトの名無しさん
05/06/01 15:51:26
>>233
ありがとう
235:デフォルトの名無しさん
05/06/01 18:24:40
一定の間隔をおいて標準入力をテキストファイルに出力するにはどーしたらいい？
おしえてー
236:デフォルトの名無しさん
05/06/01 22:30:52
>235
一定の間隔とは行間のことだと勝手に想像して書いてみる
んでもって言語の指定ないから勝手にJScript
var ROW_SPACES=1;
var a=WScript.StdIn.ReadAll().split("\r\n");
var f=new ActiveXObject("Scripting.FileSystemObject").CreateTextFile("outfile.txt");
for(var i=0;i<a.length;i++){
f.WriteLine(a[i]);
for(var c=0;c<ROW_SPACES;c++)f.WriteLine();
}
f.Close();
237:デフォルトの名無しさん
05/06/02 01:45:36
間隔っつったらやっぱ時間じゃねえの？
while (!WScript.StdIn.AtEndOfStream) {
WScript.StdOut.Write(WScript.StdIn.ReadAll());
WScript.Sleep(10000);
}
238:236
05/06/02 02:20:20
>237
標準入力→テキストファイル、ってあるから
多分行間じゃないかなあと予測した
逆なら劣化ページャみたいな物と予測したのだけど
あと StdIn.AtEndOfStream() は試したら
存在しないみたいでエラー出たから ReadAll()
239:デフォルトの名無しさん
05/06/02 03:24:38
時間だとすると標準入力をテキストファイルに出力するのに一定の間隔を空ける意味が良く分からん
240:236
05/06/02 15:24:26
>239
そう、私もそれが言いたかった、ごめん＿|￣|○
てか、StdIn.AtEndOfStream てプロパティだから
括弧付けると駄目なのね…逝って来る＿|￣|○
241:デフォルトの名無しさん
05/06/03 17:59:10
ひょっとしてこういうことがしたいのかも
do while True
do while (not WScript.StdIn.AtEndOfStream)
WScript.StdOut.Write(WScript.StdIn.ReadAll())
loop
WScript.Sleep(5000)
loop
242:デフォルトの名無しさん
05/06/05 17:59:02
>241
ReadAllなのにAtEndOfStreamを待つのか？
243:デフォルトの名無しさん
05/06/05 20:51:29
tail -f
みたいな動きをさせるためじゃないかな
244:デフォルトの名無しさん
05/06/10 09:57:18
「デヴァイスマネージャ」の
「USBルートハブ」を無効にして
再度，有効にするという操作を
WSH にしてみてください
245:デフォルトの名無しさん
05/06/10 12:35:24
msgbox "USBハブのコード抜け"
msgbox "抜いたらもう一回挿せ"
246:デフォルトの名無しさん
05/06/10 12:50:41
>>245
【ご主人様】メイドさんスクリプト【ご命令を】
ｽﾚﾘﾝｸ(tech板)
247:デフォルトの名無しさん
05/06/10 14:01:26
Private Sub Command1_Click()
Dim UsbSet As SWbemObjectSet
Dim Usb As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set UsbSet = Service.ExecQuery("Select * From Win32_USBHub")
For Each Usb In UsbSet
MesStr = MesStr + "USBハブの名前：" + Usb.Description + vbCrLf + _
"USBハブのデバイスID：" + Usb.DeviceID + vbCrLf
Next
MsgBox "USBハブの情報です。" + vbCrLf + _
vbCrLf + MesStr + vbCrLf + "ですよ。"
Set UsbSet = Nothing
Set Usb = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
248:デフォルトの名無しさん
05/06/10 14:03:22
Private Sub Command1_Click()
Dim UsbSet As SWbemObjectSet
Dim Usb As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer
Set UsbSet = Service.ExecQuery("Select * From Win32_USBController")
For Each Usb In UsbSet
MesStr = MesStr & Usb.Name & vbCrLf
Next
MsgBox "USBコントローラの一覧です。" & vbCrLf & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set UsbSet = Nothing
Set Usb = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
249:デフォルトの名無しさん
05/06/10 14:10:00
URLﾘﾝｸ(www.microsoft.com)
250:デフォルトの名無しさん
05/06/10 14:44:59
>>244
UWSC使ってみ
URLﾘﾝｸ(www.h7.dion.ne.jp)
251:デフォルトの名無しさん
05/06/15 10:03:13
ご存知の方いらしたらご指導お願い致します
var oShell = WScript.CreateObject("Shell.Application");
var oFolder = oShell.NameSpace("fURLﾘﾝｸ(192.168.*.**)保存/");
var desktop = oShell.NameSpace(0);
var objFolderItems = desktop.Items();
for(var i = 0; i < objFolderItems.Count; i++) {
var ofitem = objFolderItems.Item(i);
if(ofitem.Name == "日報.xls") {
oFolder.CopyHere(ofitem);
WScript.Sleep(6000);
break;
}
}
日報.xlsをサーバーにFTPを使ってコピーするプログラムを作成しました
前日の同名ファイルに上書きして毎日保存しているのですが
ファイルの上書き確認ダイアログが出てしまうの非表示にして自動的に
上書きしたいのですが、よろしくお願い致します。
252:デフォルトの名無しさん
05/06/15 10:17:31
ふつうにftpコマンド使った方がよくね？
253:デフォルトの名無しさん
05/06/15 10:47:54
>>252
というと確認ダイアログをちゃんと出したほうが良いということでしょうか？
一応、転送終了後にファイルの更新日時や内容を軽くchkしていますので
サーバー側で定期的に別フォルダにバックアップしているので、間違いで
上書きしてもとりあえず問題ないのです
objFolder.CopyHere vItem, [vOptions]
FOF_NOCONFIRMATION 0x0010 上書きしますかとか聞いてこなくなる
oFolder.CopyHere(ofitem, 0x0010);
oFolder.CopyHere(ofitem , 0x0010);
こんなのを見つけて直してみても直りませんね
254:252
05/06/15 11:35:37
>>253
いあ、ftpでファイルをアップするだけの用途なら、
-sオプション付けて、動作指定したファイル記述するだけで良さそうだなー
と思っただけ
255:デフォルトの名無しさん
05/06/15 12:30:00
なるほどそういう事でしたか、コマンドプロンプトでやるのでしょうか
wshで記述できるのでしょうか？
勉強不足でして、バッチファイルの作り方も危ういので
>>251
で晒したソースもよそ様のサンプルを使って作成したので理解度0に近いのです
256:デフォルトの名無しさん
05/06/15 13:08:51
コマンドプロンプトでもwshでも可能
ftpの-sオプションについては↓みれば大体分かると思う
URLﾘﾝｸ(www.atmarkit.co.jp)
257:デフォルトの名無しさん
05/06/15 20:02:10
その前に、ftpコマンドの成功、失敗の判定をスクリプトやバッチファイルでできるのか？
258:デフォルトの名無しさん
05/06/15 20:20:50
もう一回アクセスしてファイルの日付がアップロードした日時になってるかとか
サイズがローカルのものと同じになっているかとかをチェックすれば出来なくはない
259:251
05/06/16 10:07:09
報告遅くなりまして申し訳御座いません
それと皆様に助言頂き感謝しております。
ftpの-sオプションについて教えて頂いたサイトを目下勉強中ですが
構文エラーが出てしまいうまくいかない状況です。しばらくサンプルを
作成して試してみますので、どうしても分からなかったら又ご助言を
よろしく御願い致します
260:デフォルトの名無しさん
05/06/16 14:20:45
おしごとでWSH使ってるんですが、
WSHのファイルインクルードって vbs しかインクルードできんのですか？
<script langage=VBScript src="aaaaaaa.vbs"/>
これでWSHスクリプトをインクルードしようとすると最初のJOBタグでエラーになってこのやろうちくしょう。
vbsでファイルインクルードがあればいいんですが・・・。
261:デフォルトの名無しさん
05/06/16 18:48:58
langage
262:デフォルトの名無しさん
05/06/16 18:58:11
で、vbsのインクルードはできたのか？
日本語で質問してくれると助かる。
263:デフォルトの名無しさん
05/06/16 19:19:11
JScriptはほぼ同じ方法で取り込める
だがwsfを取り込むってのは出来ないハズ
wsfにコードを書くと再利用するときに困るから
私の場合、コードは全てvbsに書き、wsfは取り込むのみで使う
264:260
05/06/16 23:55:51
>>261
ちょっとあせってたのさ。
>>262
おいっす。落ち着きます。で。対象のvbsファイルをFileSystemObjectで開いて、
ReadAllメソッド使ってソースをひとつの変数に突っ込んでExecute関数で実行っていう方法なら見つかった。
vbsには正式なインクルードはないみたい。wsfにはあるけど。
↓詳しくは見てください。
URLﾘﾝｸ(www.trickpalace.net)
>>263
やっぱりそうなるのね orz
再利用できる共通コードの中で、別の共通コード使いたい場合で困りますよね。
265:デフォルトの名無しさん
05/06/17 05:46:46
まずはここの情報は全て押さえとくとヨロシ。
MS社員の有志というか暇というか。一応純正だからｗ
URLﾘﾝｸ(groups.msn.com)
FAQやDOWNLOADに情報満載。
266:デフォルトの名無しさん
05/06/17 13:24:19
>>265
Σ（ﾟдﾟlll）ｽﾞｶﾞｰﾝ。英語！？ｗｗｗ
（´∀｀；）ゝいやぁ。漏れ純正の日本人だから英語ﾀﾞﾒｽｗｗｗ
と思ったけど、FAQはクリックすればサンプルコード出てくるだけだからわかりやすいね。ｱﾘｶﾞﾀｽ
267:デフォルトの名無しさん
05/07/18 02:39:27
ﾎｽ
268:デフォルトの名無しさん
05/07/20 01:42:04
ﾎｼｭﾎｼｭ
269:デフォルトの名無しさん
05/07/25 22:41:51
ﾎｼｭﾎｼｭ
270:デフォルトの名無しさん
05/07/27 16:45:29
Windows2000にて
WSH使って、タスクスケジューラへ
自動的にタスクを追加するには
どうすればいいか御存知の方いますか？
昔、どこかで出来るような発言してる人がいたので
結構ググッたけど、見つからなかった・・・
271:デフォルトの名無しさん
05/07/27 17:22:24
XPだったらschtasks使えば楽そう
Win32_ScheduledJobはATコマンドと同等だったはずだし、
IScheduledWorkItemとかITaskScheduler辺りを使えばどーだろ・・・
272:270
05/07/28 15:13:25
>271
調べてみたけど、使い方よくわかんなかったので
ATコマンドで妥協しました。('A`)
XPはschtasksがあるからいいですね。
273:デフォルトの名無しさん
05/07/28 15:29:52
ATコマンドってモデムのアレですか？
274:デフォルトの名無しさん
05/07/28 15:36:55
>>273
釣りなのか、マジなのか、なんかの揚げ足取りなのか知らないけど
コマンドプロンプト開いて、「at /?」と入力してみれ
275:デフォルトの名無しさん
05/07/28 15:41:41
ああ、UNIXのat相当なんですね。大文字で書かれると分からんもんですね。
276:デフォルトの名無しさん
05/07/28 15:55:30
>>274
いや、モデムの方だろ
277:デフォルトの名無しさん
05/07/29 02:35:30
ｓｃｈｔａｓｋｓはユーザー権限でログオンしている時
管理者アカウントでタスクを実行しようとしても
拒絶されるから嫌いだ。
そのくせ10回に1回うまくいったりするあたり、
単なるバグなんじゃねぇかと。
278:デフォルトの名無しさん
05/07/31 12:46:54
>>277
うほっタイムリーなネタ
だから実行できなかったのか！
なんかいい解決方法ないのかな。
XPでATコマンドってまだ使えたっけ？
279:デフォルトの名無しさん
05/07/31 14:39:24
>>278
そう実行できない。
2002年から2003年にかけて死ぬほど検証したし
海外までググったしMSプレミアムサポートに問い合わせもした。
結局使えそうで使えないコマンドなんだわ。＜schtasks
XPでもATコマンドは使える。
ただ管理者アカウントでログオンしてないと
コマンドが受け付けられないので注意。
これはNT4時代からずっとそうなので諦めるしかない。
管理者アカウントでログオンするなら
schtasksだって使えるんだよね。。。
> なんかいい解決方法ないのかな。
これまで携わったプロジェクトでは
配布ソリューション(SMSやその類似品)を使って
バッチを配布して管理者権限でキックしたり、
管理端末から(ドメインAdminでログオン)から
目的の端末にリモート実行させたりしてた。
あとはスタートアップスクリプトに仕掛けたりとかそういう感じ。
あとはサーバーに「特定のテキストファイルがあれば
ファイル名と同名のユーザーの端末上でコマンド実行」
という趣旨の定期監視タスクを仕掛けておいて、
ユーザーがバッチを起動すると、
サーバー側で監視してるフォルダに
テキストファイルが作られるみたいな構成とか。
わずかな事やるのに結構遠回りしてるなぁ。orz
280:デフォルトの名無しさん
05/07/31 16:07:05
>>279
>海外までググったし
そうか。プログラミングのノウハウは国内にはあまり無いから
ググる時にも必ず「ウェブ全体」を選んでたけど
まだそういう時代じゃないんだな
281:デフォルトの名無しさん
05/07/31 16:26:33
>>280
や、失礼。
ググった結果(主に英語サイト)から
海外サイトを延々見てまわり、の方が正確。
お詫びして訂正します。ｺﾞﾒﾝﾁｬｲ。
どうでもいいがヘブライ語みたいなサイトも見たよ。
チンプンカンプンだっつーの。
282:デフォルトの名無しさん
05/08/04 22:35:08
（・∀・）ｱｹﾞ!!
283:デフォルトの名無しさん
05/08/06 22:53:34
WSHで起動中の特定の名前のウィンドウの
存在の有無を確認する方法ってありますか？
284:デフォルトの名無しさん
05/08/07 09:40:02
>>283
WMIでWin32_Processをクエリーするしかないんじゃねーの？
でもこの方法、WindowsXP以外はWMICoreのインスコが必要だったと思うが。
285:283
05/08/07 13:10:15
>>284
レスありがとうございます。自己解決しました。
VBScriptのappactivate("ウィンドウ名")=Falseで
判定することができました。
286:デフォルトの名無しさん
05/08/08 14:53:27
リンクリストみたいなコレクションありませんか？
ハッシュ(Scripting.Dictionary)と配列はあったのですが･･･。
やりたいことは、文字列をコレクションに溜め込んで、最後にJoinで一つの文字列にしたいのですが、
ハッシュだと溜め込むことはできそうですが、最後にJoinしたときに順番がバラバラになりそうで利用できません。
要素の追加にコストが掛からず、最後に文字列結合できるコレクションなどはないでしょうか。
287:デフォルトの名無しさん
05/08/08 16:55:07
>>286
Arrayではコストがかかりすぎるのでしょうか。
288:デフォルトの名無しさん
05/08/08 17:53:42
>>286
そりゃあデータ構造を考えれば普通に不可能だろう。
289:デフォルトの名無しさん
05/08/16 20:39:16
みんなデバッグ環境はナニを使ってる?
290:デフォルトの名無しさん
05/08/16 21:56:50
jsファイル ダブルクリックして
テキストファイル出力で変数の値みる
291:デフォルトの名無しさん
05/08/21 01:11:37
var WShell = new ActiveXObject("WScript.Shell");
WShell.Run("c:\\******\\hoge.exe");
のように実行ファイルを動かし、hoge.exeからJScriptの変数に何らかの値を代入することは可能でしょうか？
292:デフォルトの名無しさん
05/08/22 13:25:15
>>291
こんな感じでしょうか。
この例ではHello, world!の後の改行までsに代入されてしまってますが。
----------
D:\>type hello.js
print("Hello, world!");
D:\>type hello2.js
var WshShell = new ActiveXObject("WScript.Shell");
var oExec = WshShell.Exec("d:\\hello.exe");
var s = oExec.StdOut.ReadAll();
WScript.StdOut.Write("[" + s + "]");
D:\>jsc /nologo hello.js
D:\>hello.exe
Hello, world!
D:\>cscript //nologo hello2.js
[Hello, world!
]
D:\>
----------
293:デフォルトの名無しさん
05/08/22 13:49:53
>>289
//X オプション + VSでデバグ。
294:291
05/08/24 16:04:26
>>292
ありがとうございます。
解決しました。
295:286
05/08/30 16:39:36
>>287-288
レスありがとう。
やりたいことは Java のStringWriterクラスでしたが、
writeメソッドで受け取った文字列を溜め込んで、
toStringメソッドで結合して返すってことをやりたかったのです。
それで実際に Scripting.Dictionary で、試してみたら
Joinしたときに順番がバラバラになるかと思ったんですが、
追加した順番に文字列が結合されたので大丈夫でした。
なんかラッキーでした。ありがとう。
296:デフォルトの名無しさん
05/09/05 12:59:10
vbsやりはじめて３日目です
Subプロシージャに引数としてオブジェクトを渡したいのですが
渡されたオブジェクトのプロパティをSubプロシージャ内で参照しようとすると
オブジェクトがありませんと言われます
ぐぐってもVBの事例はいくつか出てきたのですがVBSの事例は見つけられませんでした
どのようにしたらいいんでしょう
297:デフォルトの名無しさん
05/09/05 19:38:27
>>296
書け
298:名無しさん＠そうだ選挙に行こう
05/09/11 00:41:35
>>11 >>12 >>16 おそらく、↓のスレのことだと思われ。
// Windows Script Host を使い尽くす //
URLﾘﾝｸ(pc3.2ch.net)
299:デフォルトの名無しさん
05/09/12 20:52:33
win板のwsh スレはどこ？
300:デフォルトの名無しさん
05/09/12 22:31:35
落ちたみたいね
301:デフォルトの名無しさん
05/09/13 00:27:09
おいっす。了解っす。
302:1/2
05/09/15 23:43:08
どなたかお知恵をお貸しください。
あるテーブルの抽出結果を、ADODB.Recordset.GetStringで文字列にする関数 strResults を、
VBSから呼び出してテキストファイルに保存しようとしました。
Dim sFS, strParam, oTS, strResultText, intResultLetters, i
strParam = WScript.Arguments(0)
strResultFName = WScript.Arguments(1)
Set appAc = CreateObject("Access.Application")
appAc.OpenCurrentDatabase "V:\・・・\GrepRecordsets.mdb"
strResultText = appAc.Run("strResults", strParam)
Set appAc = Nothing
Set sFS = CreateObject("Scripting.FileSystemObject")
Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True)
oTS.WriteLine "MS Access ファイルからの検索結果"
intResultLetters = Len(strResultText)
For i=100 To intResultLetters Step 100 ' デバッグのため分割して書き込む
MsgBox Left(strResultText,100) ' デバッグのための内容表示
oTS.Write Left(strResultText,100)
strResultText = Right(strResultText,intResultLetters - i)
Next
303:デフォルトの名無しさん
05/09/15 23:43:34
ここで、ある特定の文字が、MsgBoxでは表示されるものの、
書き込もうとした時点でコンソール上に以下のエラーが出てしまいます。
Microsoft VBScript 実行時エラー: プロシージャの呼び出し、または引数が不正です。
その文字とは、中華料理店の店名らしいのですが、
火 日 金
火火 日日 金金
テキストエディタ等で見ると ?晶? となりますが、MS Wordなどで見ると上記のような文字です。
このため、文字コード変換で改善するかと思い、nkfwin.exe なるツールではどうかとやってみたところ、
上記の文字を含むテキストファイルを nkfwin.exe の引数に指定したところ、
┌────────────┐
│16 ﾋﾞｯﾄ MS-DOS ｻﾌﾞｼｽﾃﾑ ×│
├────────────┤
│ C:\WINNT\System32\cmd.exe -
│ V:\・・・\nkfwin.exe
│ × -s -I TestKanji.txt
│ NTVDM CPU は不正な命令を検出しました。
│ CS:0000 IP:e2d7 OP:00 00 00 00
│
│ [ 強制終了(T) ] [ 無視(I) ]
└────────────┘
となってしまいました。
このような現象は、どう対処したらよいのでしょうか？
お教えいただけますと大変助かります。
OS : Windows NT 4.0 Access 2000, ADO 2.6, WSH 5.6
304:デフォルトの名無しさん
05/09/16 05:08:50
>Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True)
ここを
Set oTS = sFS.CreateTextFile("V:\・・・\result.txt", True, True)
にしたんじゃダメか？
出力内容がUNICODEになっちまうけど。
(SJISには無い文字コードみたいだからそうするしかないんだけどね。)
305:デフォルトの名無しさん
05/09/16 09:06:23
>>304
ありがとうございます！
あっさり出力できました！
大変助かりました。m(_ _)m
306:デフォルトの名無しさん
05/09/16 20:27:56
ユニコードの28977 焱 、
ユニコードの37995 鑫 と判明しました。
これらの文字を取り除いてメールで送れるテキストにする方法を探し中です。
307:デフォルトの名無しさん
05/09/16 23:13:23
報告です。
まず unicodeテキストとして保存し、
その後 フリーソフトの cherset converter で
→ ISO-2022-JP → Shift_JIS
で出来ました。
２段階でやったところ、通常 ? で置き換わるところ _ で置き換わっていました。
ありがとうございました。。
308:デフォルトの名無しさん
05/09/28 18:18:34
ここで聞くのが正しいのかも少々不安ですが
質問させてください。
前提：
プログラミングは大昔に20年ほど前にFORTRANいじったことがありますが
中途半端だった上にその後すっかりで、基本的に知識ゼロです。
要望：
・下記の事がWSHで実行可能か知りたい
・可能な場合は参考になるスレはどこにあるのか知りたい
・ヒントになるようなスクリプトがあれば手に入れたい
やりたいこと：
(WindowsXP上で動いているアプリケーションに対してです)
起動
1.任意の座標(固定)のcolorをチェックする
2.任意のcolorではない(または任意のcolorである)場合に
3.任意の座標をマウス(右)クリック(相当の信号?コマンド?送出)
終了までループ
座標系はやったことがないのでまるでわかりません。
ヒントを頂いて勉強もしたいのですがちょっと差し迫った事情が
あって時間もないので、どなたかお教えいただければ幸いです。
そんなのプログラム組めば簡単簡単・・・などとできもしないのに
大見得切るんじゃなかった。。。^^;
よろしくお願いします。
309:デフォルトの名無しさん
05/09/28 18:48:01
無理…だと思う。
310:デフォルトの名無しさん
05/09/28 21:37:52
>>308
俺もWSHじゃ無理だと思う。
Win32系のスレでAPIの使い方を訊きながら、C言語でコンソールアプリとして作ればそんなには難しくないと思うよ。
C言語のコンパイラは Borland C++ Compiler とか Microsoft Visual C++ toolkit 2003 とか無料のがあるからそれを使いね。
( Microsoft Visual C++ toolkit 2003 は別途PlatformSDKも入手しなきゃならんから Borland のほうが手軽かな？ )
311:デフォルトの名無しさん
05/09/28 21:42:27
宿題スレでやってもらうのがいいかも。
312:デフォルトの名無しさん
05/09/29 10:15:43
>>309
>>310
>>310
ありがとうございます。
そもそもWSHでは無理がありそうなのですね。
宿題スレも見てみます。
313:デフォルトの名無しさん
05/09/30 10:41:25
UWSCならデフォで出来るし
UWSC内でVBSとか使えるけどね
314:デフォルトの名無しさん
05/10/04 11:14:28
ネットワーク上にある約200台の端末の指定ファイルの最終更新日を一気に取得したいんですが、
電源が入っていない端末にアクセスすると処理が遅くなってしまいます。
315:デフォルトの名無しさん
05/10/04 11:38:29
そうですか
316:デフォルトの名無しさん
05/10/04 12:25:53
そうなんです
317:デフォルトの名無しさん
05/10/04 12:41:18
じゃあ電源が入ってるかどうか管理しておけばいいじゃない
318:デフォルトの名無しさん
05/10/04 14:16:06
そうですか?
319:デフォルトの名無しさん
05/10/04 21:22:51
このスクリプト簡単でおもしろいね。
知らない人に時間が来たらメモ帳開いて１秒間隔くらいで
「お・ま・え・は・明・日・死・ぬ」とか書いちゃったりして
おもしろーいｗ
きゃははｗ
320:デフォルトの名無しさん
05/10/04 23:12:28
そうですか
321:デフォルトの名無しさん
05/10/04 23:32:54
>>320
そんな素っ気ないレスじゃなくて、友人がいないに違いない >>319 に仲良くしてやれよ。
俺はくっだらなくも陰湿な >>319 なんか、まっぴらごめんだけどなｗ
322:デフォルトの名無しさん
05/10/05 00:34:44
そうだな
323:デフォルトの名無しさん
05/10/13 22:26:58
ネットワーク上の別のＰＣのデスクトップにメモ帳を立ち上げる
なんてこと、出来るのでしょうか？
324:デフォルトの名無しさん
05/10/13 23:17:10
>>323はマルチなので、以後放置で
お前ら、wsh使ってますか? part5
ｽﾚﾘﾝｸ(win板:73番)
325:デフォルトの名無しさん
05/10/14 14:05:25
>>323
NET SEND OtherPC メモ帳起動して
326:デフォルトの名無しさん
05/10/14 15:13:14
>>325
それいいな
327:デフォルトの名無しさん
05/10/14 22:52:22
>>323
\\自分のPC
\\相手のPC
\\相手のPC 上で、\\自分のPC の任意のフォルダを監視させるスクリプトaaa.vbs
を起動させておく。
もし、\\自分のPCに上の任意のフォルダに、メモ帳起動.txt というファイルが作られたら、
そのファイルを削除して、\\相手のPC上で、Wscript.Shell.Run "Notepad"を実行する。
というのが、一般的だが？
328:323
05/10/15 00:26:27
>>327
レスありがとでげす。
教えてくださった方法では、
別のイベント（別動作）をトリガーとして持たなくてはいけない点と、
\\相手のＰＣ上でaaa.vbsを実行しなくてはいけない点
が不満です。
上の２点を回避する方法はないのでしょうか？
329:デフォルトの名無しさん
05/10/15 01:33:37
\\相手のＰＣ上でbbb.vbsを実行すればいいと思うよ。
ってゆうかさー、その程度の応用もできないわけ？
330:デフォルトの名無しさん
05/10/15 08:29:52
schtasksとかatとか使えばいいだけのような
331:デフォルトの名無しさん
05/10/15 12:32:19
使い方が解りませんとか言い出してきそうな悪寒
332:デフォルトの名無しさん
05/10/15 22:42:07
スタートアップファイルに、aaa.vbs のショートカットファイルを入れておいても良いレベルでは？
結局、323の使用目的によって回答のレベルも可変なんだと思う。
さあ、話してごらん、使用目的を。
333:デフォルトの名無しさん
05/10/15 23:00:55
おまいら、マルチなので、以後放置ではなかったのか？
334:323
05/10/16 08:16:34
>>332
使用目的というわけではありませんが、
単純にメッセージを送信できれば問題ないです。
できれば日本語（2byte文字を）
XPとWin98SEでも使える方法を伝授くださいませ。
335:デフォルトの名無しさん
05/10/16 11:05:19
要するに、作って欲しいわけだ
336:デフォルトの名無しさん
05/10/16 15:00:36
NT系ならメッセージを送る方法があったはずだが…。WSHから使えるのかは知らないけど。
337:323
05/10/16 15:14:57
>>335
バレた！！
338:デフォルトの名無しさん
05/10/16 15:24:40
>>323
>>325
339:323
05/10/16 15:27:41
>>338
net send って、Win98でも使えるの？
340:デフォルトの名無しさん
05/10/16 16:01:55
なんだとこの野郎
341:デフォルトの名無しさん
05/10/16 17:00:02
>>339
一応、NT 系の net send と Win9x 系の winpopup は、
相互に送受信できる。
ただし、winpopup をスクリプトから制御できるかどうかは
知らん。
342:323
05/10/16 17:21:22
結局、相手PCがWin98系のときは、
\\相手のＰＣ上でaaa.vbs or bbb.vbsを実行しなくてはいけない
ということですか。。。
343:デフォルトの名無しさん
05/10/16 17:29:34
>342
自分のPCがNT系ならnet sendで送信すれば、
相手が98系ならwinpopupで受信してくれるんじゃないの。
344:323
05/10/16 17:49:18
>>343
winpopupを立ち上げるのに、aaa.vbs or bbb.vbsが必要ということでは。。。？
345:デフォルトの名無しさん
05/10/16 18:01:48
ヒント: スタートアップ (+ 必要なら、自動ログイン)
346:323
05/10/16 18:24:06
>>345
つまり、\\相手のPCにいちいち細工をしなくてはいけないということが
私のやりたい事には入ってないわけで。。。
347:デフォルトの名無しさん
05/10/16 18:36:53
348:デフォルトの名無しさん
05/10/16 18:38:37
結局何が目的なんだといいたくなるな
349:デフォルトの名無しさん
05/10/16 18:38:41
なんの設定もなく相手先のPCを操作できることを
専門用語でセキュリティーホールと言う
350:323
05/10/16 18:45:03
>>348
わかりずらい話につき合わせてしまって、ごめんなさい。
>>349
つまるところ、そういうことなんですね。
せきゅりてぇいがあるのはいかしかたないことですから、あきらめます。
最期に、もうひとつ。
\\自分のPC の任意のフォルダを監視させるスクリプト
（もし、\\自分のPCに上の任意のフォルダに、メモ帳起動.txt というファイルが作られたら、
そのファイルを削除して、）
はどのように記述すればよいのですか？
スマートな方法を教えてもらえませんか？
351:デフォルトの名無しさん
05/10/16 18:51:20
>>350
スマートな方法なんて、無理に決まってんだろ
352:デフォルトの名無しさん
05/10/16 19:17:25
>>350
>>348
>>325
353:デフォルトの名無しさん
05/10/16 19:52:21
>>350
while(true)
{
if( ファイルオブジェクトか何か.IsExist ) 処理;
Sleep(何秒か);
}
354:デフォルトの名無しさん
05/10/16 19:55:09
>350
相手側に何か仕込むなら、Winpopupをスタートアップに登録するだけの方が無難だと思われ。
355:323
05/10/16 23:05:51
みなさん、どうもありがとう。
>>354
相手側のPCが遠くて、私が直接作業出来ないんですぅ。
ついでに、驚かせたいってのもあるから、相手にやってもらうのも。。。ねぇ。
っていう理由なんですよ。。。
356:デフォルトの名無しさん
05/10/16 23:09:54
出来ないんですぅ。じゃねえよクソがッ！！！！！！
失せろこの頓馬！！！！！！！！！！！！！
357:デフォルトの名無しさん
05/10/16 23:25:08
>>356
kawaisouni...
358:デフォルトの名無しさん
05/10/17 00:59:54
> 驚かせたいってのもあるから、相手にやってもらうのも。。。ねぇ。
本当は何らかの不正行為をやるつもりだろ
そういうことをやろうとしてるけど、自分でやるだけの知識が無い奴は
決まって｢驚かせるだけ｣とか｢ジョークソフトを作るのに｣とか言い訳して
やり方を聞いてくる
どうせ口先だけじゃ如何様にも言い逃れは出来るけどね
359:デフォルトの名無しさん
05/10/17 01:23:03
スマートというか本当はコマンドライン一行でやる方法あるんだけどね。
何かマルチポストっぽいしクラッキングの片棒担ぐのも嫌なんで自分で調べな。
360:デフォルトの名無しさん
05/10/17 03:08:44
スタートアップやタスク、netsend などを使うことなく、同じドメインに属している
リモートクライアントで notepad.exe のプロセスを走らせるスマートな手段は実際、
あるにはある。でもなぁ、>>323 の目論んでいることが今一つ抽象的かつくだらない
目的のように思えてならないんだよな。結局何をしたいのよ？>>323
361:デフォルトの名無しさん
05/10/17 07:25:25
もういい加減スルー
362:デフォルトの名無しさん
05/10/17 15:05:22
すいません初歩的すぎて申し訳ないんですが、次のサンプルスクリプトをWSHへ書き換えたいんですが
パラーメータの渡し方がわかりません。
どなたか教えてください。
<object ID=NetMeeting CLASSID="CLSID:3E9BAF2D-7A79-11d2-9334-0000F875AE17">
<PARAM NAME = "MODE" VALUE = "DataOnly">
</object>
↓
Set NWobj = createobject("Netmeeting.App")
363:デフォルトの名無しさん
05/10/17 21:57:33
ほう。マルチですか。
364:デフォルトの名無しさん
05/10/18 00:05:36
>>359、360
323はWin98でやりたいと言ってるように見えるが？
365:デフォルトの名無しさん
05/10/18 09:46:45
糞ﾉｰﾄﾝ先生を強制的に黙らせる方法はありませんか？
友達にVBScript渡したら悪質なScript扱いされて実行止められた('A`)
366:デフォルトの名無しさん
05/10/18 11:20:37
良質なScriptはScriptBlockerを強制Offにしたりしません。
367:デフォルトの名無しさん
05/10/18 13:20:58
ﾜﾛﾀ
368:デフォルトの名無しさん
05/10/18 21:49:41
つーか最近無駄にセキュリティが高すぎる気がする。
そりゃ便利に何でも動くようにしたら、セキュリティに興味ない人が
どんどんウィルス感染するのは分かるんだけどさ。
最近のIEとか全然Script動かないじゃん。
ScriptどころかSVGとかも見れないし。
PC使えない人の問題を自動的に修復できるようにScript渡したいのに
Scriptも動かない動かせないんじゃどうしようもないですがな。
369:デフォルトの名無しさん
05/10/19 00:20:57
>>359
お～、それはすげーな。
でも、それって君の PC のセキュリティが低いだけだと
公言してるも同然で、アフォ丸出しだから止めたほうが
いいよ。
370:デフォルトの名無しさん
05/10/19 00:29:13
そうだそうだ
371:デフォルトの名無しさん
05/10/19 00:31:54
>>369
もちろんアカウントとパスワードは必要ですってば
372:デフォルトの名無しさん
05/10/19 00:37:46
>>371
(￣ー￣)ﾆﾔﾘｯ
373:デフォルトの名無しさん
05/10/19 00:54:35
>368
最近のPCならリモートデスクトップとかあるじゃん。
374:デフォルトの名無しさん
05/10/19 08:30:15
>>368
>Scriptも動かない動かせないんじゃどうしようもないですがな。
Nortonがブロックするなら許可すればいいだけじゃね
単に動くスクリプトをあなたが書けないだけでは?と煽ってみる
IEだって設定の問題でしょ
375:デフォルトの名無しさん
05/10/19 22:04:59
>>374
自分自身はちゃんと設定してるから動くよ。
他人に渡したときに動かないのが困る。
それも、「○○が動かなくなったから何とかしてくれ」
というのでScriptでファイル操作して自動的に解決するようにして送ったら
・メールから勝手に削除された
・なんとか受け取ったScriptは実行不能
（ﾉｰﾄﾝが止めているらしい）
・ﾉｰﾄﾝの設定は弄れない
とのことで結局どうしようもなくなった。
まぁScriptは自分の為に使うものってことなのかね？
376:デフォルトの名無しさん
05/10/19 23:17:44
>>375
見る限り全てノートンの所為
377:デフォルトの名無しさん
05/10/20 16:44:51
よくタクスバーにアイコンだけ表示されている常駐ソフト( 音量やハードウェアの取り外しなど )がありますが、
どうにかして、このアイコンをクリックしたときに出るメニューの文字列って取得できませんか？
378:デフォルトの名無しさん
05/10/20 17:14:36
マウスを置いたときに出るツールチップなら統一されてるから取得できるけど
出てくるメニューはプログラムの内部で任意に指定してるものだろ。
そんな不規則なものを取得できるのか?
379:右下の時計のことならタスクトレイだ
05/10/20 22:29:44
>>377
つーか最終的に何をしたいか賭けよ。
エクスプローラ（シェル）は落ちることがあるし、そうなったら
プログラムとしては動作しててもタスクトレイからは
アイコンが消えてしまうのはよくある。
WMIでWin32_Processをクエリーするのがセオリーだ。
380:デフォルトの名無しさん
05/10/20 22:37:30
>>377
>>378 が言う通りあのメニューはクリックした時に
プログラムが出してる。
だから、クリックするたびに違うこともあるし、プロ
グラムによってはメニューなんか出さずにいきなり設
定ダイアログをとかを出すやつもいる。
>>379 も書いてるけど、何のためにそんなことしたい
んだ？
381:デフォルトの名無しさん
05/10/20 22:51:09
379じゃないけど
いちいちマウス動かさないでメニューの文字を一覧したいからじゃない
382:デフォルトの名無しさん
05/10/20 23:01:19
>>381
m9(^Д^)ﾌﾟｷﾞｬー
383:377
05/10/21 01:32:39
>>378-381
>>379さんヒントありがとうございます。
Set ServiceSet = GetObject( _
"winmgmts:{impersonationLevel=impersonate}" _
).ExecQuery("select * from Win32_Process")
見たいなかんじでまずオブジェクトを取得して操作するみたいですね。
まずはタスクリストを得られるという感じなのかな・・・
やりたいことは、
httpdでスクリプトを起動して、外出先で常駐アプリの状態が知りたいんです。
いまのところ、httpdからcgiを起動して、perlプログラムからuwscスクリプトを起動して、
traypseというアプリケーションを通して、目的のタクストレイのアイコンをクリックするところまでできています。
（目的のアプリケーションのウィンドウハンドルまではわかっています）
uwscスクリプトでは、このときに出てくるメニューにアクセスできないために、
OLEオートメーションでなんとかならないかと思ったしだいです・・・
そこで詳しい方が多そうなこちらで質問させていただきました。
WMIには詳しくないので、もう少し調べてみます。
またヒントがあったらよろしくお願いします。m(_ _)m
384:デフォルトの名無しさん
05/10/21 23:22:39
> やりたいことは、httpdでスクリプトを起動して、
> 外出先で常駐アプリの状態が知りたいんです。
ねぇ、何でそれを最初に書かないの？
あと、その常駐アプリの名前は極秘なの？
385:デフォルトの名無しさん
05/10/22 15:32:35
PrintScreenアプリでデスクトップを丸ごとコピーした内容をFTPで送信。
Sendkeysでやるんならそんなもんか。
Winnyのウイルスみたいな動作なきがするけど気のせいか。
386:377
05/10/22 17:57:08
>>384
すみません
えっと、常駐させるアプリはnyです
外出先から動画やソフトのダウンロード状態を確認出来ないかな、と・・・
387:デフォルトの名無しさん
05/10/22 18:14:03
終わったな
↓次の話題をどうぞ
388:デフォルトの名無しさん
05/10/22 18:43:57
Select Case文だと、のちのち処理を拡張したい時に、文法に自由度がなさすぎて破綻しそうな場合について。
以下のようにしておくと、すっきりと処理できたので報告します。
For i=0 to 1
IF ～ Then : Exit For
IF ～ Then : Exit For
IF ～ Then : Exit For
IF ～ Then : Exit For
（ここにデフォルト処理）:Exit For
Next
IF文を、故意に、ネストさせないで使っているので、見た目的にもすっきり。
もっと良い方法があるという方は、ご指摘願います。
389:デフォルトの名無しさん
05/10/22 19:04:04
> Select Case文だと、のちのち処理を拡張したい時に、文法に自由度がなさすぎて破綻しそうな場合について。
Select Case使うときは処理を拡張してもSelect Caseで間に合う時だけだ
｢Select Case文が、のちのち処理を拡張したい時に、文法に自由度がなさすぎて破綻する｣なんてことはあり得ない
> For i=0 to 1
> IF ～ Then : Exit For
For～NextよりDo～Loopの方がまだマシだろ
それと｢：｣は要らなくないか?
390:デフォルトの名無しさん
05/10/22 20:28:56
> For i=0 to 1
For i = 0 To 0 の方がいいんじゃないか？
For I = 0 To 1 だと、なんかの時に２回回ることを想定し
てそうだ。
そもそも、For のは、余計な変数が必要だったりするから、
>>389 が言うように Do ～ Until True の方がいいと思う。
> IF文を、故意に、ネストさせないで使っているので、見た目的にもすっきり。
そもそも、
If ～ Then ～ ElseIf ～ Then ～ ... Else ～ End If
で大体間に合うし。
391:デフォルトの名無しさん
05/10/22 22:14:26
>>386
Winnyってメニューの文字列可変じゃないジャンｗ
392:388
05/10/22 23:07:51
>>389-390 貴重なご意見、回答ありがとうございます。
確かに、For i=0 から回しているので、2回ループするバグを出しそうですね。
あと、Do～Loop: Exit Doのほうが、変数要らなくてスマートですね。修正しようと思います。
＞それと｢：｣は要らなくないか?
Then のあとに実際は、何かの処理を入れています。いきなりExit Forしてる訳ではないです。
そもそもExit For要らないのでは？という疑問に対しては、「予期せずに、他のIF行を実行して
しまわないようにする為」のお守りとして付けた方がいいと思っています。
この処理を何に使用しているか、誰からも聞かれていないですが、一応書いておきます。
WSHのINPUT文を利用して、アプリケーションランチャーを作りました。なかなか快適です。
If Ucase(入力した値) = "MYDOC" Then Wscript.CreateObject("WScript.Shell").Run "C:\mydoc\": Exit For
とか、
If Ucase(入力した値) = "SLEIP" Then Wscript.CreateObject("WScript.Shell").Run """C:\Program files\～\Sleipnir.exe""": Exit For
とかいうように、使っています。
393:デフォルトの名無しさん
05/10/22 23:22:13
それこそ入力値は必ずinputboxの戻り値なんだからselect case使うべきだろ
等価比較演算で、一方が固定(inputboxの戻り値)なのが分かり切っているのに
select caseを避ける理由って何だ?
｢WSHのINPUT文を利用して、アプリケーションランチャー｣で、入力値以外の何を評価すると言うの?
394:392
05/10/22 23:36:40
>>393 実は、電卓としての機能も持たせていて、
InputBoxの中身が、登録されたキーワード以外の時は、Eval( )で、計算機に早変わりするというものです。
（現在、キーワードもどきの文字列を送ると、Evalしてしまうので、エラーで落ちたりする事もよくありますが、特にErr処理していません）
他にも便利機能を拡張するかも知れないので、SelectCaseよりも条件分岐しやすい処理系にしたいと思って、
>>388 のように書いてみました。
395:394
05/10/22 23:42:18
元ネタ & プログラムの原型は、以下のスレです。
WSHで数学をするスレ
ｽﾚﾘﾝｸ(math板:29番)
URLﾘﾝｸ(science3.2ch.net)
の29スレめの簡易電卓.vbs より。
396:デフォルトの名無しさん
05/10/22 23:45:17
でも結局動作の振り分けは｢InputBoxの中身(戻り値)が｣なんでしょ
ならcase elseで処理させればいいじゃん
どう機能拡張しようと、｢InputBoxの中身(戻り値)｣で動作を分岐させるなら
select caseで間に合わなくなることは無いわけだが