06/09/03 02:23:00 M/8yjKeF
まずFileSystemObjectを使ってフォルダAにあるファイル全てを列挙して
配列（または連想配列）に入れておく。
あとはフォルダBのファイルを1つずつ調べていき、配列に同じ名前があれば
フォルダAのファイルを上書きコピーすればいいんじゃない？
列挙→GetFolder + Files 辺り
上書きコピー→CopyFile もしくは GetFile + Copy 辺り
39:37
06/09/03 23:36:27 9m7JaXWT
>>38
レスありがとうございます。
参考書片手に四苦八苦していたところに
ヒントを頂けて大変助かります。
早速試してみますね。
40:名無し~3.EXE
06/09/04 00:42:41 4RNTB77S
念のため言っとくと、GetFolder + Filesの列挙処理は、再帰的にな。
下層フォルダもぜんぶ処理対象にするためには。
もしわかんなきゃ「再帰」をキーワードに入れてぐぐること。
41:名無し~3.EXE
06/09/04 16:42:27 QYJv5P/p
JScriptからフォルダ共有の解除を行いたいと考えているのですが、外部からアクセスされている場合、
「この操作を続行しますか? (Y/N) [N]:」ってプロンプトが表示されてうまく動きません。
調べた感じでは標準入力（StdIn）に"Y"って送ってあげれば良い気がするのですが、うまく動いてくれません。
私が作ったjsファイルの内容は...
var WShell = WScript.CreateObject("WScript.Shell");
var objNet = WShell.Exec("net share Share /DELETE");
while (!objNet.StdOut.AtEndOfStream)
{
var strLine=objNet.StdOut.ReadLine();
var nPos=strLine.indexOf("この操作を続行しますか?");
if (nPos>=0)
{
objNet.StdIn.WriteLine("Y");
}
}
ちなみに誰も使用していない場合はちゃんと共有が解除されます。
対象はWindows2000 Serverです。
どうすればうまく動くようになりますか？
教えてエライ人！
42:名無し~3.EXE
06/09/06 02:31:02 6VRM8O2+
WShell.Exec("cmd /c echo y | net share airplane /DELETE");
あーあ、なんだよこの旧世代プログラマがやりそうな力技は
こんなことを考えついて試してしまう自分が嫌だ
43:名無し~3.EXE
06/09/06 03:14:37 W4o+AU9u
>>42
なるほどｗ パイプ便利だな
44:名無し~3.EXE
06/09/06 03:46:18 mG/64ktE
むしろ当然の解決策だと思った
45:名無し~3.EXE
06/09/06 08:24:38 Z523kT6K
stdinを読んでるわけでないようだから>>42もうまくいかない
46:41
06/09/06 11:01:06 B7U19HoE
>>42,43,44,45
レスありがとうございます。
ｗｋｔｋしながら試しましたが私の環境ではダメでした... (´・ω・`)
なんでだろうな...
47:名無し~3.EXE
06/09/07 00:01:08 Sux4zrox
>>46
var prc = GetObject("winmgmts:{impersonationLevel=impersonate}")
.ExecQuery("SELECT * FROM Win32_Share");
for ( var e = new Enumerator(prc); !e.atEnd(); e.moveNext() ) {
var sd = e.item();
if ( sd.Caption == "Share" ) sd.Delete();
}
48:47
06/09/07 00:02:48 7NNz2Yc3
しまった。プロセス操作のヤツからコピペしたから変数名が変だ。
49:名無し~3.EXE
06/09/07 10:45:44 EZRTppgw
>>47
同様のスクリプトを作ってやったことあるけれど
誰かが共有フォルダにアクセスしていると共有解除されないような
50:41
06/09/07 11:25:34 kklWKgcq
>>47
レスありがとうございます。
試したところ無事動作しているみたいです！
もしやあなたはネ申でつか。
...WMIは色々使えそうですね (． ．)〆
>>49
簡単にやってみたところ大丈夫そうです。
もう少し色んなケースを試して見たいと思います。
PS.
レスくれた方々ありがとうございます。
51:名無し~3.EXE
06/09/12 17:21:16 6aj+7wdR
指定したフォルダのmp3ファイルをランダムで実行したい。
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\MP3\*.mp3",3,true
これじゃエラー出るんだけど何故？この場合ってワイルドカード使えない？
52:名無し~3.EXE
06/09/12 17:22:50 8qFdY5Hd
_, ,_ ﾊﾟｰﾝ
（ ‘д‘）
⊂彡☆))Д´）
53:名無し~3.EXE
06/09/12 17:47:46 A3UEU+1f
*はランダムではない。
任意の文字列という意味。
Runの引数にワイルドカードなんて認められてない……はず。
ランダムで実行したかったら
すべてのファイルパスを配列にぶちこむ
↓
Rndとかでファイル数以下のランダムな整数作る
↓
それをインデックスにしてファイル実行する
54:名無し~3.EXE
06/09/12 19:29:56 5GCyJ/an
var WSHShell = WScript.CreateObject("WScript.Shell");
var Fso = new ActiveXObject("Scripting.FileSystemObject");
// .mp3ファイル名をmp3[]配列に格納
var folder = Fso.GetFolder("C:\\MP3");
var mp3 = [];
for (var e = new Enumerator(folder.Files); ! e.atEnd(); e.moveNext()) {
var f = e.item();
if (/\.mp3$/i.test(f))
mp3.push(f);
}
var i;
do {
// ランダムに並べ替え
for (i = 0; i < files.length; i++) {
var r = Math.floor(files.length * Math.random());
var t = mp3[i];
mp3[i] = mp3[r];
mp3[r] = t;
}
// プレイ
for (i = 0; i < files.length; i++)
WSHShell.Run(mp3[i], 3, true);
} while (true); // trueで無限ループ
55:名無し~3.EXE
06/09/12 19:41:04 jll2Gkhp
WSHで、既に作成されているExcelファイルを開き、そこにある
イメージコントロールに画像を表示させるにはどうしたら良いの
でしょうか?
Option Explicit
Dim objExcel
Dim objExcelBook
Dim objExcelSheet
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objExcelBook = objExcel.Workbooks.Open("D:\Book1.xls")
Set objExcelSheet = objExcelBook.Worksheets(1)
objExcelSheet.cells(1,1).value = "aaa"
objExcelSheet.Image1.Picture = LoadPicture("D:\test.jpg")
objExcel.Quit
Set objExcelSheet = Nothins
Set objExcelBook = Nothing
Set objExcel = Nothing
を実行すると、A1に"aaa"が入る所までは良いのですが、LoadPictureの
行で「致命的なエラーです」が出てしまいます。
おそらく、Image1の指定方法に問題があるかと思うのですが、具体的な
指定方法または、それについて記載されているURLなどを教えて頂けない
でしょうか?
56:名無し~3.EXE
06/09/12 20:01:14 5GCyJ/an
>>54は
× files.length
○ mp3.length
です
57:51
06/09/12 23:16:11 rMXBUJr8
>>53
>>54
サンクス。動作は確認できたが、出来ればWSHで書いて欲しかった。javascriptはｳｳﾞｫｱ
58:名無し~3.EXE
06/09/12 23:30:42 5MYDPybn
WSH は VBScript だけのもんじゃないよ？
59:名無し~3.EXE
06/09/12 23:36:25 muCQp/dj
JavaScriptもPerlもRubyもPythonも。
60:名無し~3.EXE
06/09/13 00:08:35 ry6CWKuK
あーそうなのかー
無知ですまぬ
61:名無し~3.EXE
06/09/13 10:17:38 74VYdgSO
>>55
> おそらく、Image1の指定方法に問題があるかと思うのですが、
問題ないよ。試しにその前で
MsgBox TypeName(objExcelSheet.Image1)
ってやってみな。これで｢Image｣が返るなら､正しくImageオブジェクトを参照出来てる。
問題があると言えば､objExcel.Quitの前にobjExcelBook.Closeが必要なのと
Set objExcelSheet = Nothingの､Nothingのスペルが間違ってることくらいだが
エラーが出ている部分は問題なし。おそらく間違ってるのではなく､仕様として出来ないんだろうね。
Picture = LoadPictureをブックのVBAモジュールに書いて､VBSからそのプロシージャを読んでみれば？
画像のパスはVBS側で指定することも可能だし。
62:55
06/09/13 11:01:41 P4go6OWL
>>61
御回答ありがとうございます。
> MsgBox TypeName(objExcelSheet.Image1)
> ってやってみな。
こうすれば、オブジェクトの確認が出来るんですね。
やってみた所、「Image」と表示され、参照方法には問題が無かった様です。
> 問題があると言えば､objExcel.Quitの前にobjExcelBook.Closeが必要なのと
> Set objExcelSheet = Nothingの､Nothingのスペルが間違ってることくらいだが
そこに行く前に、エラーで止まっていたので気付きませんでした。
> おそらく間違ってるのではなく､仕様として出来ないんだろうね。
御指摘の方法等を含め、別の方法を検討してみます。
63:55
06/09/13 20:42:40 8lTHFtaw
>>61
御指摘の通り、Excel側にVBAを仕込み、VBS側から実行したら画像の表示が出来ました。
やった事は、
1. Module1の下に、下記の様なマクロを仕込む。
Sub Macro1()
Worksheets("Sheet1").Image1.Picture = LoadPicture("D:\test.jpg")
End Sub
2. VBS側のLoadPictureの行を下記の様に変更
objExcel.Run ("Book1.xls!Module1.Macro1")
です。
Macroの実行方法が分からなかったのですが、
URLﾘﾝｸ(suiten.wig.nu)
が参考になりました。
今回は、ありがとうございました。
64:名無し~3.EXE
06/09/14 23:27:15 XRemmWNN
VBScriptから別のVBScriptを呼び出すことはできますか？
あとユーザライブラリの関数を呼び出す的なことをしたいのですができますか？
一度作った関数をコピペするのが面倒で。
よろしくお願いします。
65:名無し~3.EXE
06/09/14 23:36:11 6COp2u2i
ファイル読み込んで Eval
後者は意味が良く分からんが ユーザライブラリって何？
66:名無し~3.EXE
06/09/14 23:40:30 8WXwarb4
外部のスクリプトを読み込みたいんでしょ
wshなら素直に.wsfファイル作って、
<package>
<job>
<script language="VBScript" src="外部スクリプト１.vbs" />
<script language="VBScript" src="外部スクリプト２.vbs" />
<script language="VBScript" src="メイン.vbs" />
</job>
</package>
67:名無し~3.EXE
06/09/15 00:22:29 MxvWsxE+
あとついでに、ライブラリはクラス化すると吉。
VBScriptのクラス機能って存在感なさすぎて忘れがちだけどね。
68:名無し~3.EXE
06/09/15 00:49:05 6z+vLxyz
>>65,66,67
ありがとです。外部スクリプトの呼び出しは最初
Set obj = WScript.CreateObject("WScript.Shell")
Set obj2 = obj.Run("RunNotepad.vbs")
ってやってWin32オブジェクトじゃないって怒られたんですが、２行目を
obj.Run "RunNotepad.vbs"
で出来ました。いろんなやり方があるようですね。
ライブラリはクラス化して中にメソッド書けばいいのですかね？
いや、皆さん作られた関数をどうやって再利用されているのかと思いまして。
69:名無し~3.EXE
06/09/15 00:50:34 1e9FhoNf
コピペさ
70:名無し~3.EXE
06/09/15 00:54:36 3qVVhzeE
wsh で使うようなのは書き捨てが基本だな、私は。
String とか Date とか Number とかの prototype にいくつかメソッドは突っ込んでるけど（JScript）。
71:名無し~3.EXE
06/09/15 01:49:36 hZMJWHVe
wshしこしこ書くのとドトネトでアプリ作るのと
作業量が大して変わらないことに最近気付いた
72:print.vbs
06/09/17 03:36:23 pIeGPZjs
ファイルをまとめて印刷するツールです。
'Print files
Option Explicit
Dim Fs
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Dim ws
Set ws = CreateObject("WScript.Shell")
Dim argv,file,name,ret
Set argv = WScript.Arguments
Dim tpad,i,code
If argv.Count > 0 Then
For Each file In argv
If Fs.FileExists(file) Then
name = Fs.GetFileName(file)
Set tpad = ws.Exec("C:\Free\TPad\TeraPad.exe """ & file & """")
WScript.Sleep 100
i=0
Do
ret = ws.AppActivate(tpad.ProcessID)
WScript.Sleep 100
73:print.vbs
06/09/17 03:38:27 pIeGPZjs
i=i+1
If i>100 Then
MsgBox "Activate 失敗 print前"
WScript.Quit
End If
Loop While ret = False
ws.SendKeys "^pp"
WScript.Sleep 5000
i=0
Do
ret = ws.AppActivate(tpad.ProcessID)
WScript.Sleep 100
i=i+1
if i>100 Then
MsgBox "Activate 失敗 print後"
WScript.Quit
End If
Loop While ret = False
tpad.terminate
set tpad = Nothing
Else
MsgBox file & "というファイルは存在しません。"
End If
Next
Else
MsgBox "ファイルをD&Dしてください"
End If
74:print.vbs
06/09/17 03:56:30 pIeGPZjs
ソースが無駄に長くてすみません。そういう書き方がしみ付いているもので
前スレまであったソースアップ板は、無くなったのでしょうか？
使い方は、印刷したいファイルをドラッグ＆ドロップするつもりで作ったのですが、
過去スレを読みなおして見るとSendToで使うほうが便利そうです。
中でteraPadを呼び出しています。（作った当時使っていたエディタだったので）
sendkeysで操作しているだけなのでそういう操作ができるほかのエディタ用にも書きかえれると思います。
一応私の環境（Win98)では、３，４ページのファイル４,５個は、まとめて印刷できました
あまり大きなファイルを印刷するには、むいていないと思います。
まだあまり、wshにはなれてなくて、マニュアルを見ながら作りました。
sleepの値などもいいかげんで、その辺も含めて添削していただいたらありがたいです。
75:名無し~3.EXE
06/09/17 10:41:23 GAjliUIS
プリントアウトはFileSystemObjectを使って出来たはず、と思って
URLﾘﾝｸ(www.microsoft.com) を参考に
こんなん書いてみたけど、エラーは出ないのにプリントアウトできない。なんで？
\\MyPC\BJF9000 はUSBポートに接続したプリンタで、共有してます。
var fso = new ActiveXObject("Scripting.FileSystemObject");
var objWSHNet = new ActiveXObject("WScript.Network");
objWSHNet.AddPrinterConnection("LPT2:", "\\\\MyPC\\BJF9000");
var printer = fso.CreateTextFile("LPT2:", true);
try { printer.Write("printout test");} catch(e) {;}
printer.Close();
objWSHNet.RemovePrinterConnection("LPT2:");
76:print.vbs
06/09/17 14:54:53 pIeGPZjs
>>75
AddPrinterConnection
リモートの MS-DOS ベースのプリンタ接続をコンピュータ システムに追加します。
ちょっと前、メーカーに
「プリンタ(CANON PIXUS 550i)をMS-DOSで使えるようにできるかどうか」たずねたところ、
「MS-DOSで使えるようにはできない」という回答でした。
多分私の環境では、このスクリプトは使えないと思います。
77:名無し~3.EXE
06/09/17 15:50:48 8OXBNlvH
WshScriptExec オブジェクトについて質問させてください。
var sh = new ActiveXObject("WScript.Shell");
var exe = sh.Exec("cmd.exe /c dir");
while (exe.Status == 0) { WScript.Sleep(100); }
WScript.Echo("完了");
if (!exe.StdOut.AtEndOfStream) { WScript.Echo("出力結果\n" + exe.StdOut.ReadAll()); }
上記のスクリプトで "cmd.exe /c dir" を実行して結果を取得しようとしています。
しかしファイル数の多いフォルダではいつまで待っても (exe.Status == 1) になりません。
どうやら StdOut の容量制限があり、Read されるまで実行が止まってしまうようです。
(exe.Status == 1) を待たずに StdOut.ReadAll() をすればすぐに終了するのですが
StdOut.ReadAll() は、EOFまで（プログラム終了まで）帰ってきませんので
実行待ちの間に Terminate() したりすることができなくなってしまいます。
StdOut.Read() も入力があるまで待つので使えません。
良い解決策はないでしょうか？
78:名無し~3.EXE
06/09/17 16:36:09 RpCl687c
>>77
こういうふう(↓)にはしたくないってことかな
var sh = new ActiveXObject("WScript.Shell");
var exe = sh.Exec("cmd.exe /c dir");
var dir = [];
while (! exe.StdOut.AtEndOfStream) { dir.push(exe.StdOut.ReadLine()); }
WScript.Echo("完了");
WScript.Echo("出力結果\n" + dir.join("\n"));
それなら、こういうのは？
var sh = new ActiveXObject("WScript.Shell");
var dirfile = "dir.txt";
var exe = sh.Exec("cmd.exe /c dir > " + dirfile);
while (exe.Status == 0) { WScript.Sleep(100); }
WScript.Echo("完了");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.OpenTextFile(dirfile);
WScript.Echo("出力結果\n" + f.ReadAll());
f.Close();
79:目民 ◆xQYoLwVGxQ
06/09/17 16:41:19 oMWuro07
まぁ、>>78と同じだけど。
var sh = new ActiveXObject("WScript.Shell");
var exe = sh.Exec("cmd.exe /c dir");
var str = "";
while (!exe.StdOut.AtEndOfStream){
str += exe.StdOut.ReadLine() + "\n";
}
WScript.Echo("完了");
WScript.Echo("出力結果\n" + str );
ファイルの多いフォルダで実行してみると、最後の一行に異常に時間がかかるね。
実用的側面からは、単にファイルにリダイレクトするのが早いと思う。
80:77
06/09/17 17:30:31 8OXBNlvH
>>78-79様ありがとうございます。
最終的には hta でつかおうと思ってるんですが
StdOut.ReadLine(), Read()，ReadAll() を使うと出力待ちの間、どうしても画面がフリーズしちゃうんです。
出力がない時は StdOut.AtEndOfStream が true になってくれればいいのですが・・・
あんまりファイルに書き出したくないのですが、やっぱそうするしかないでしょうか。
81:目民 ◆xQYoLwVGxQ
06/09/17 17:52:05 oMWuro07
>>80
while (!exe.StdOut.AtEndOfStream){
str += exe.StdOut.ReadLine() + "\n";
// ココで必要な処理
}
じゃ、ダメなの？
82:77
06/09/17 18:24:19 8OXBNlvH
>>81
そこで Sleep() や setTimuout() しちゃうと 時間がかかりすぎるし
どっちにしても ReadLine() のところで止まっちゃうので・・・
あ、すいません。実際には dir だけじゃなくて時間のかかるコマンドも使いたいと思ってます。
83:名無し~3.EXE
06/09/17 18:30:11 DkiP0mWC
>>77
URLﾘﾝｸ(www.vector.co.jp)
URLﾘﾝｸ(www.vector.co.jp)
84:目民 ◆xQYoLwVGxQ
06/09/17 18:32:31 oMWuro07
>>82
なるほど～。
やっぱり、ファイルに書き出すのがいいと思うよ。
85:77
06/09/17 20:06:55 8OXBNlvH
ファイル使うことにします。わがまま言ってすみません。
しかし >>83 すごいですね。
これだけ苦労されてるということはやっぱ簡単な方法はないということですね。
86:名無し~3.EXE
06/09/18 16:03:23 0Yyqe12A
>>77
HTAなら、これも。
URLﾘﾝｸ(www.vector.co.jp)
87:dir_+w.vbs
06/09/18 21:14:02 TkVYNr1Z
フォルダを再帰的に検索して中のファイルを書きこみ可能にする
' chmod +w **
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Sub FileRW(filespec)
Set f = fso.GetFile(filespec)
ReadOnly=1
If f.attributes and ReadOnly Then
f.attributes = f.attributes - ReadOnly
End If
End Sub
Sub FolderRW(filespec)
Set subf = fso.GetFolder(filespec)
For Each FileName In subf.Files
FileRW(FileName)
Next
For Each FolderName In subf.Subfolders
FolderRW(FolderName)
Next
End Sub
88:dir_+w.vbs
06/09/18 21:14:40 TkVYNr1Z
Set argv = WScript.Arguments
If argv.Count <= 0 Then
Wscript.Echo "ファイルをD&Dしてください"
WScript.Quit
End If
For Each file In argv
If fso.FolderExists(file) Then
FolderRW(file)
ElseIf fso.FileExists(file) Then
FileRW(file)
Else
Wscript.Echo file & "というファイル・フォルダは存在しません。"
End If
Next
Wscript.Echo "書きこみ可 終わり"
89:dir_+w.vbs
06/09/18 21:21:50 TkVYNr1Z
こんなのwshで書かなくても標準のやり方があるのでしょうか？
いろいろなところのサンプルプログラムをつぎはぎして作ったので自信がないです。
特にBASICでの再帰呼び出しが。
間違いや他のやり方があったら指摘してください。
一応自分で動作チェックした限りは正常に動いているみたいです。
90:名無し~3.EXE
06/09/18 21:35:28 IGnQYkUN
attrib /s -r *.*
91:名無し~3.EXE
06/09/18 21:35:41 1rgAgV0s
attrib -r %1 /s /d
92:89
06/09/18 22:13:54 TkVYNr1Z
>>90 >>91
試してみたのですが、うまくいきません。
win98ではできないんじゃないでしょうか
93:名無し~3.EXE
06/09/18 23:23:17 j9Uaecc1
cygwinでchmod -R +w でできないかな？
94:名無し~3.EXE
06/09/19 03:10:53 +HpwiHbO
>>92
できる。コマンドプロンプト開いて attrib /? してみ。
95:名無し~3.EXE
06/09/19 03:26:44 X9V4Hq4y
>>93
UnxUtils の chmod でできました。
cygwin は、昔入れて日本語化するだけで一週間ぐらいかかっていたような気がするので
とりあえずパス
>>92は、今から試します
96:名無し~3.EXE
06/09/19 03:30:30 PvS6FX5U
システムついてると一緒に指定しないと外せなかったりとか
変な規制がついてるよね。あととりぶ
97:名無し~3.EXE
06/09/19 03:39:25 X9V4Hq4y
>>94
attrib /? を行うとフォルダも受け付けるようなニュアンスなんですが、
実際に試してみるとファイルは受け取るけど、フォルダはだめみたいなんですが？
98:77
06/09/19 12:50:31 PvS6FX5U
>>86
どうもです。
すれ違い気味（htaねた）でわるいけど、
Exec() の代わりに Run()を使ったら実行中でもhtmlがフリーズしないことがわかった。
これってJavaScriptでマルチスレッドみたいな動作だけど、普通に使ってても大丈夫なのかな？
99:名無し~3.EXE
06/09/20 14:48:55 NLxtOcqj
98の頃のバッチファイルを見つけた。
ffind . -attr dh | xargs attrib -h
ATTRIBでディレクトリを操作するときは１個ずつでないと駄目なようだ。
ffindもxargsも外部ツールなので、OS標準コマンドだけでは一括は無理だったのかも。
100:名無し~3.EXE
06/09/24 22:24:37 zXp/H8j6
ネット株取引でEトレを使っていますが
wsh で自作した便利なツールがあれば、ただで暗号化しないでクレ。
101:名無し~3.EXE
06/09/25 02:23:37 VGXX8PLt
見積もりは無料ですよ?
102:名無し~3.EXE
06/09/26 20:51:06 OGK5SGUc
作ってもらうほどではないので退散します。
103:名無し~3.EXE
06/09/28 13:45:46 P5EUWFW0
Windows Script File( .wsf )についての質問です。OSはWinXP SP1。
wsfは
<script language="VBScript" src="パス"/>
と定義すると､src属性値で指定したパスのファイルを参照できますが､
特定のディレクトリに置いたvbsを､別のディレクトリに置いたwsfから
ファイル名のみで参照する方法を教えてください。
相対パスが使えるので､同一ディレクトリに置けば､ファイル名のみで参照可能ですが
別ディレクトリの場合は､もちろんそのままではファイル名のみでの参照は出来ません。
パスを通せば出来るかとも思ったのですが､パスを通してもダメでした。
(WshShell.Runではファイル名だけで呼べるので､パスがきちんと通っているのは間違いないのです。)
参照するvbsを置くディレクトリは固定ですが､wsfは別ドライブに置く可能性もあるし
作成後､移動する可能性もあります。wsf､vbs側では､もう出来ることは無いので､
後はOS側の設定になると思いますが､どこをどのようにすれば解決するかが解りません。
どうかご教示願います。
104:名無し~3.EXE
06/09/28 16:34:28 H6IHIklM
htmlと同じ要領でいいんじゃないの？
test1.wsf
└testfolder
└test2.vbs
って配置した時、
testfolder/test2.vbs
or
./testfolder/test2.vbs
でパスを指定したら動いたぉ
105:名無し~3.EXE
06/09/28 16:37:36 H6IHIklM
ごめん、ちゃんと読んでなかった
wsfはいろいろ動かすのね
誰かまかせた
106:目民 ◆xQYoLwVGxQ
06/09/28 17:31:22 McUJ8oIU
>>103
"VBSDir"みたいなユーザー環境変数を作って、
（システムのプロパティ→詳細設定タブ→環境変数（XPの場合））
var WshShell = WScript.CreateObject ("WScript.Shell");
with( WshShell ){
CurrentDirectory = ExpandEnvironmentStrings("%VBSDir%");
}
とか？
// VBSの話なのにJScriptだけど気にしないでｗ
107:名無し~3.EXE
06/09/29 15:56:35 KPftmCI3
>>103
WSCを使う。
108:名無し~3.EXE
06/09/29 16:18:18 KPftmCI3
>>72
terapadには/pがないのかと思ったらあるじゃないですか。
terapad.exe /p
じゃ駄目なの？
109:103
06/10/01 11:02:53 WUxruDIK
>>106
残念ながらダメでした。
ご教示いただいたものを参照を書いてる行の前に入れても､
job分けしても､コードが実行される前に参照が評価されてしまうようで
ファイルが見つからないというエラーが出ます。
>>107
現在いくつか使ってます。
しかしwscは>>103の条件を満たしていません。なぜならwscは1ファイル単位の登録が必要で､
｢特定のディレクトリに置いた｣もの全てに対して有効になるようなものではないからです。
レジストリを使うのは全く構いませんが､｢特定のvbs｣ではなく｢特定のディレクトリに置いたvbs｣に
有効な方法をお願いします。
特定のディレクトリに置いた物を個別登録無しで使える方法があるならwscでも構いませんが。
ということで､ご回答には感謝しますが解決には至っておりませんので引き続き宜しくお願いします。
110:名無し~3.EXE
06/10/01 11:27:13 Mjb4Qp/j
ディレクトリさえ分かったならあとはファイル読み込んで Eval で評価すれば良いじゃん？
111:名無し~3.EXE
06/10/01 12:27:11 kCPKYKBO
wscの中に
<script language="VBScript" src="パス"/>
を並べて、
wsfからは、
wsc.メソッド名
で呼び出せ。
という意味だったけど通じなかった？
getobject("script:wscのフルパス")ならレジストリは不要だけど、これはどっちでも。
112:名無し~3.EXE
06/10/01 16:52:54 kCPKYKBO
>>75
form feed \f を送るとか。
113:名無し~3.EXE
06/10/02 04:29:12 +WL/W97H
>109
ここで究極の選択。スクリプトで wsf ファイルを書いて実行。
114:名無し~3.EXE
06/10/02 19:14:34 bWQ93X+m
すいません。知ってたら教えて頂きたいんですが
WScript.CreateObject(strProgID[,strPrefix])
などで作成したオブジェクトのプロパティやメソッドを調べる方法ご存知の方いますか？
115:名無し~3.EXE
06/10/02 19:19:41 9vzbPfN/
URLﾘﾝｸ(www.google.com)
116:名無し~3.EXE
06/10/02 20:00:19 kbswuek+
>>111
wscの<script>にsrc属性が使えるなんて初耳だけどできるの？
仕様的に他のファイルに実装を書けるとは思えんのだが
117:名無し~3.EXE
06/10/02 20:21:15 V60uXU1H
>>114
URLﾘﾝｸ(www.vector.co.jp)
118:114
06/10/02 21:36:01 bWQ93X+m
>>115,117
私の探し方が足りなかったみたいですね
解決しました、ありがとうございます
119:名無し~3.EXE
06/10/06 21:09:26 e+UOKJbW
DynaCallにEnumWindowsのサンプルがついてますが、
これを参考に特定文字列を含むウインドウにメッセージを送るってのを作ったのだけど、
なんかClassなのに変にグローバルになってて、どれをどう再利用できるのかよくわからんのです。
うまくカプセル化できませんか？
120:名無し~3.EXE
06/10/06 22:28:17 drRRZZ4o
日本語でおｋ
121:名無し~3.EXE
06/10/14 17:33:06 COmDsoWy
hosyu
122:名無し~3.EXE
06/10/14 22:13:32 kOCNeboH
DOS窓から行う作業があったので、wscript.execにやらせようとしているのですが、DOS窓では数秒で完了するコマンドがexecでは動作中のまま帰ってきません。
動くコマンドと動かないコマンドがあったりするのでしょうか？
ちなみに動かそうとしているのは業務用のソフトです
123:名無し~3.EXE
06/10/14 22:27:57 3YNrV18h
そもそも WScript オブジェクトに exec メソッドなんて無かったような気がするのだが。
何を以て返ってこないと判断したのか分からんし。
124:名無し~3.EXE
06/10/14 22:52:54 kOCNeboH
WshScriptExec の間違いでした
DOSだとすぐ出力結果のファイルが出来るんですが、WshScriptExecだと黒いウィンドウが開いてそこから進まないです
125:名無し~3.EXE
06/10/15 00:23:27 0zheqdL0
プロンプト画面に何も出力されないのは仕様。
WshScriptExec オブジェクトは StdIn / StdOut プロパティ使って入力したり出力受け取ったりする。
MSDN にサンプルコードも多分あるだろ。
進まないってのは入力待ちしてるんじゃね？
126:名無し~3.EXE
06/10/15 00:44:16 bYSqBt4L
>>122
以下のVBSスクリプトが参考になるかも。
Option Explicit
Dim ws,i
Set ws = CreateObject("WScript.Shell")
i = ws.Run("%COMSPEC% /C DIR C:\ > C:\sample.log" , 1, true)
ws.Run "NOTEPAD C:\sample.log" , 1, true
Set ws = Nothing
WScript.Quit(i)
127:名無し~3.EXE
06/10/15 21:08:26 Tn/lrPJD
私も122さんと同様にDOSの業務用ソフトをwshで動かそうとしているのですが、
以下の部分が分からず困っています。便乗して質問させてください。
動かそうとしているDOSの業務ソフトは実行するとメニューが出力され
メニューから番号を選択して、出力ファイルを得るものなのですが、
番号の選択を自動化したいと思い、「入力=」が表示されたら、
Sendkeysをしようと以下のようなvbsを作成したのですが、
Exec メソッドがプログラムの実行終了後に行われるため、
業務ソフトが終了するまで、StdOutが取得できず困っています。
Set ws = CreateObject("WScript.Shell")
Set wsExec = ws.exec("業務ソフト.exe")
Do Until wsExec.StdOut.AtEndOfStream
If InStr(strLine,"入力=") <> Then
wsExec.Sendkeys.("1")
End If
・
・
Loop
メニューが出力されるDOSをwshから操作する良い方法がありましたら
教えてください。
128:名無し~3.EXE
06/10/15 21:21:46 ZvvyBgQg
StdIn 使えばいいんじゃね？
と思ったが GUI アプリか？ それにしちゃ StdOut 読んでるよな。
つか strLine が書き変わってないようだが。
> Exec メソッドがプログラムの実行終了後に行われる
の意味が分からん。
129:名無し~3.EXE
06/10/15 22:05:37 Qx1lq3WL
strLine = wsExec.StdOut.ReadLine は要らないの？
InStr(strLine,"入力=") > 0 じゃないの？
SendKeys と ("1") の間にある . は必要なの？
ごめん、VBScriptはあんまわかんないけど、これは明らかに動くわけないよね。
130:127
06/10/15 22:08:50 Tn/lrPJD
>>128さん
127のvbsを実行すると、DOS窓で黒いウィンドウが開いた状態で業務アプリが
入力待ちになったまま止まってしまいます。
StdOutが出来ているかを確かめるために、127のIf文を以下のように書き換えて
実行しました。
If InStr(strLine,"入力=") <> Then
WScript.Echo strLine
End If
DOS窓で黒いウィンドウが開いた状態で業務アプリが入力待ちになり、
ずっと止まったままになります。
真っ黒で止まっているDOS窓に業務ソフトを終了させる番号の「9」を入力すると
WScript.Echo strLine が実行され、
メッセージボックスに「入力=」が表示されました。
某HPでExecメソッドは、Execを使って実行されたスクリプトまたはプログラムの実行終了後、
実行開始前のいずれかに行われると書いてあったので、業務ソフトが終了するまで
メッセージボックスが表示されなかったのかな？と思ったのです。
勘違だったらすみません。
131:名無し~3.EXE
06/10/15 22:23:29 bYSqBt4L
>>130
例えば"1"の１バイト分だけ記録されたテキストファイルを"stdin.txt"とすると、コマンドプロンプト画面で
業務ソフト.exe < stdin.txt
と打ち込んで実行させる事はできる？
もしできるのであれば、>>126の応用で解決できそうな気がするんだけど・・・
132:127
06/10/15 22:35:28 Tn/lrPJD
>>129さん
>SendKeys と ("1") の間にある . は必要なの？
ご指摘の通り、間違いです。お恥ずかしい。
>>128さん
その業務ソフトはGUI アプリというか、
DOS窓に
==メニュー===
1)実行
2)変更
9)終了
入力=
のように表示され、DOS窓にメニューの番号を
入力するようなタイプのアプリです。
Sendkeysで番号を自動入力できないかなっと思ってWSHを調べながら
始めてみたのですがどうも難しくって・・
133:127
06/10/15 22:42:05 Tn/lrPJD
>>131さん
レスありがとうございます。
業務ソフト.exe < stdin.txt
もDOS窓で直接試してみたのですが、
メニューの後に複数のメニュー画面が続くせいか、
stdin.txtに選択したい番号を記述して実行では思うような結果が
得られませんでした。
134:名無し~3.EXE
06/10/15 22:58:29 Qx1lq3WL
え、てか Exec の戻り値の WshScriptExec に SendKeys なんてメソッドはないんじゃ。
wsExec.StdIn.Write "1" & VbCrLf
とかじゃないとダメでしょう。
135:名無し~3.EXE
06/10/16 11:08:32 FXtLk26/
1{Enter}なら、
(
ECHO 1
MORE
) | 業務ソフト.exe
136:名無し~3.EXE
06/10/16 13:42:42 FXtLk26/
Set wShell=CreateObject("WScript.Shell")
wShell.Run """業務ソフト.exe"""
Do While Not wShell.AppActivate("タイトル")
WScript.Sleep 100
Loop
wShell.SendKeys "1{Enter}"
137:名無し~3.EXE
06/10/17 00:39:00 MOegLLqX
>>127
ReadLineじゃ駄目なのは、「入力=」の最後に改行がないからだと思う。
>>130の「止まったまま」というのは改行待ちしてる状態と予想。
Read(1) で一字ずつ読みながら「入力=」との一致をチェックすればいけるかもよ。
一致したところでReadを止めてWrite。
138:名無し~3.EXE
06/10/17 13:34:51 oUFoO9T0
VBScript使用で、a.vbsはmusic1.mp3を再生する。b.vbsはmusic2.mp3を再生する。
最初にa.vbsを実行して、曲の再生が終わったら自動でb.vbsを実行することは可能ですか？
つまり、曲が終わったことを何らかの形で取得することは出来ますか？
139:名無し~3.EXE
06/10/17 14:11:45 cfn5xPeC
>>138
頭を柔軟に。
VBSで曲が終わったことを検知する方法ばかりに拘らないで
曲が終わったことをVBSに検知させられるような再生方法というのを考えてみよう。
答えはすぐ出るはずだ。
140:138
06/10/17 14:58:00 oUFoO9T0
感謝です。色々やってみたのですが、
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "music1.mp3",1,true
WSHShell.Run "b.vbs",1,true
これだと、曲が終わった後にwinampを手動で終了させることでb.vbsが実行されることになります。
自動で実行するにはどうしたらいいでしょうか・・・
141:名無し~3.EXE
06/10/17 15:36:42 muV3yV8A
music1.mp3
music2.mp3
ってm3uファイルに書き出してvbsで実行
じゃ駄目?
142:138
06/10/17 15:43:39 oUFoO9T0
>>141
最終的に、複数のm3uファイルを用意して、一曲再生されるごとに別のm3uに移動する、
という方法にしたいの不可です。すまぬ。
143:名無し~3.EXE
06/10/17 22:23:32 V4I4jpE0
>>140
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "%COMSPEC% /C START /W music1.mp3",1,true
WSHShell.Run "b.vbs",1,true
これはどう？
144:名無し~3.EXE
06/10/17 22:28:18 CmV+fzlF
つかアプリ決め撃ちでない以上どうしようもないんじゃない？
再生が終わったからってアプリそのものが終了するとも限らないんだし。
145:名無し~3.EXE
06/10/17 22:42:21 V4I4jpE0
>144
ほとんどの再生ソフトは、再生終了時にソフト自体も終了させる事ができるだろ。
それに質問者本人は>140で再生ソフトがWinampという海外製の定番フリーソフトである事を
晒しているから、イザとなればどうにでもなるんじゃないかな？
146:名無し~3.EXE
06/10/17 22:45:40 kaR5WnBM
>>142
最初に複数のm3uファイルを読み込んで、vbsで合成したm3uファイルを作成後、再生するとか。
147:138
06/10/18 01:23:50 rHQCrCuO
再生終わったとあとに、どうしてもアプリを一旦終了させる必要がありそうですか。
流石にそれは無駄な動作なので避けたい所ですが('A`) ちなみに再生はwinampでも何でもいいです。
>>143
コマンドプロンプトが邪魔に感じてしまう('A`) でも工夫次第で何とかなるかも
>>146
プレイリストに手を加えるというのはアリかも
みなさんありがとうございました。何とかやってみます。
148:名無し~3.EXE
06/10/18 01:47:36 u9ZZOnu7
HTAで、こんな感じ。
<object id=WMP classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95">
</object>
<script language=vbscript>
wmp.ShowAudioControls=True
wmp.AutoStart=True
wmp.Open "C:\...\....mp3"
</script>
<script language=vbscript for=WMP event="EndOfStream(Result)">
MsgBox Result
window.close
</script>
149:名無し~3.EXE
06/10/18 03:35:55 d04WcGTs
>>148に似てるけどこれを応用するとか( .htmでなく .hta です)
<html>
<head>
<script>resizeTo(269, 283);</script>
<hta:application /><title>Player</title>
<style>body{margin:0px}</style>
<script>
var Playlist = ["C:/WINDOWS/Media/tada.wav", "C:/WINDOWS/Media/chimes.wav"];
function Play() { Player.URL = Playlist.shift(); }
</script>
</head>
<body onload="Play()">
<object id="Player" classid="clsid:6BF52A52-394A-11d3-B153-00C04F79FAA6"></object>
<script for="Player" event="playStateChange(NewState)">
if (NewState==1) {
if (Playlist.length)
setTimeout("Play()", 1000);
else
window.close();
}
</script>
</body>
</html>
150:名無し~3.EXE
06/10/18 19:45:28 u9ZZOnu7
原始的に、
mplay32.exe /play /close "...mp3"
151:名無し~3.EXE
06/10/20 17:33:52 wRng55we
WSHを使う上でのjsとvbsの違いって何ですか？
152:名無し~3.EXE
06/10/20 17:54:19 UVRHvNiX
違いはないと思うよ。
言語の仕様上、vbsの方がfor eachとかでファイル再帰とかやりやすいけど。
おれはVBっぽいのに拒否感があるので、見た目Cっぽいjsを主に使ってる
153:名無し~3.EXE
06/10/20 18:17:10 Ut0WGun7
>>151
JSは引数の参照渡しができないのが致命的欠点。
JSのいい加減な配列になれていると、VBSの配列は使いにくい。
使いにくい分実行速度はVBSが有利。
154:名無し~3.EXE
06/10/20 20:30:17 xavmQ34J
大文字と小文字を打ち間違えて、なんでエラーになるんだー、と悩むのが嫌でVBScriptです。
155:名無し~3.EXE
06/10/20 21:14:36 XTKLReLW
>>153
オブジェクトは参照渡しじゃね？ 文字列とか整数みたいな、プリミティブな型は値渡しだけど。
でも、やろうと思えばオブジェクトを媒介にして参照渡しはできる。
function hoge(o) {
o.a += 10;
o.b -= 10;
}
var o = { a: 10, b: 10 };
hoge(o);
WScript.Echo( o.a + "\n" + o.b );
個人的には、正規表現が組み込まれてて文字列処理に強いのと、
プロトタイプ指向なOOPが好きなので、JavaScript 使ってます＞＜
でも、VBSにもJSにもそれぞれ良いところがあるから、結局自分で選んだ方がいいね。
156:名無し~3.EXE
06/10/20 21:26:38 /EMq1zH6
>>155
参照の値渡し、と言うべきかな。
JScript は（ECMAScript は、なのかな）正規表現が言語組み込みな割りに
グローバル変数に結果が格納されるという謎仕様が台無し感たっぷり。
157:名無し~3.EXE
06/10/20 21:35:11 Ut0WGun7
>>155
自作関数ではなくて、引数に値を返してくるCOMがやっかいなのよ。
おれもJSの方が楽なのでCOM周辺だけVBS使ってる。
158:名無し~3.EXE
06/10/20 21:46:52 XTKLReLW
>>156
> グローバル変数に結果が格納される
RegExp オブジェクトの事かな？
match メソッドとか exec メソッドとか、結果をちゃんと返してくれるんだから
RegExp オブジェクトを使わずに返り値を使うようにすれば済む話では？
>>157
なるほど。それはやっかいですね（´・ω・）
159:122,124
06/10/20 22:07:43 G2VMMq1m
業務ソフトをwshshell.execで走らせると窓が止まってしまうと言っていた者です。
wshshell.run で同じコマンドを走らせると動きました。
stderrが使えないのが不満ですが・・・
runとexecで使えるコマンドに違いがあるのでしょうか？文字数とか使用できる文字とか。
160:名無し~3.EXE
06/10/20 22:11:13 Ut0WGun7
stdoutかstderrのバッファがあふれてるとか？
161:122,124
06/10/20 22:23:31 G2VMMq1m
>>160 バッファあふれ対策ってあるのでしょうか？runだと不便で不便で
162:名無し~3.EXE
06/10/20 22:37:34 Ut0WGun7
Readすりゃいいけど、stdoutとstderrの両方があふれる可能性がある場合はお手上げ。
ファイルにリダイレクトすれば・・・・・Runと変らないｗ
163:名無し~3.EXE
06/10/20 22:37:50 xavmQ34J
パイプはタンクじゃないんだから、出口から読み出さないと、入り口へ書き込めないよ。
164:名無し~3.EXE
06/10/20 22:40:50 xavmQ34J
Set oExec=wShell.Exec("cmd.exe /c,""業務アプリ.exe"" 2>&1")
hoge=oExec.StdOut.ReadAll()
165:122,124
06/10/20 22:47:21 G2VMMq1m
皆さんありがとうございます
DOS窓やrunで実行するとメッセージが１～２秒くらいスクロールしていますからたぶんstdoutのバッファあふれだと思います。
月曜日に>>164 を解読して応用してみたいと思います。
166:名無し~3.EXE
06/10/21 00:22:05 EplX6k6g
C:\> type test01.js
p = function(s) { WScript.Echo(s); }
re = /^ABC(.*)$/i;
if(r1 = "abcdefg".match(re)) {
if(r2 = "abcxyz".match(re)) {
if(r3 = re.exec("abchijkl")) {
if(r4 = re.exec("abcllll")) {
p(r1[1]);
p(r2[1]);
p(r3[1]);
p(r4[1]);
}
}
}
}
C:\> cscript test01.js
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
defg
xyz
hijkl
llll
C:\>
167:名無し~3.EXE
06/10/22 01:06:53 2EaEsyDk
VBSの正規表現って「任意の文字列」ってありますか？
いろいろネットで調べたんですが「．」が任意の一文字っつーのはわかったんですが
どうしても任意の文字列が見つからんのです。
そういう正規表現はVBSではサポートされてないのでしょうか？
ちなみにやりたいことは、テキストから「～ABC」という文字列を検索して
replaceで「XYZ」に置換したので、「～」の部分を正規表現で表せないのかなと。
168:名無し~3.EXE
06/10/22 01:13:55 liwxrQBE
終了条件（ABC）は分かった。
開始条件は何よ。
169:名無し~3.EXE
06/10/22 01:30:45 sou1ELwq
> 「任意の文字列」
普通に".*"だろ（空文字列も含む）
170:名無し~3.EXE
06/10/22 02:38:07 SSdwCjK5
検索： .+ABC
置換： XYZ
もちろん、テキストの先頭から ABC まで「任意の文字列」として置換の対象になります＾＾
171:167
06/10/22 11:14:01 2EaEsyDk
>>168
>>169
>>170
レスサンクスです。
>>168
開始条件はありません。先頭から「ABCで終わる」文字列をXYZに置換したいのです。
「あいABC」「かきくABC」「さしすせABC」をXYZへ置換したいのです。
>>169 >>170
「.*」「 .+」さっそく試してみます。
ちなみにこの2つは全く同じという解釈でいいですか？
172:名無し~3.EXE
06/10/22 11:23:38 liwxrQBE
>>171
> 先頭から「ABCで終わる」文字列
あるじゃん、開始条件。＞先頭から
* や + は正規表現の超基本なのでそれくらい調べれ。
わざわざ別の文字を割り当ててる以上別モンである。
173:目民 ◆xQYoLwVGxQ
06/10/22 11:29:46 2pGZNsvG
>>171
「開始条件はない」と言ってるけど、無意識に
空白文字以外で始まる文字列を前提にしているんじゃないの？
それなら、「\S*ABC」でやってみるといい。
174:名無し~3.EXE
06/10/22 12:22:00 8Mbhr02c
>>171
こういう処理に慣れてないとしょうがないけど、条件の書き方があいまい。
> 先頭から
どの先頭から？
行なの？ 単語なの？
単語としたら、単語ってなに？
>>173 が言うように空白意外の塊？
> 「ABCで終わる」文字列
文字列ってなに？
例えば、"あいABCD" は、"XYZD" に変換されてもいいの？
あと細かいところだけど、～ABC の「～」の部分は、空でもいいの？
175:名無し~3.EXE
06/10/22 15:27:40 N3BdT48Y
「あいABC」「かきくABC」「さしすせABC」をXYZへ置換したいのです。
----------------------------------------------------------
というのがどういう状況でデータになっているのかが重要、
あいABC
かきくABC
さしすせABC
おばかＸＸＸ
というように、データが一行に一個あるのか。
あるいは文章がずらずらと並んでいるのか。その場合、先頭って何？
あいABCでかきくABCがさしすせABC
なのか？
正規表現は行頭、行末もマッチさせることができるし、それらの情報
なくして回答なしだよ。
176:名無し~3.EXE
06/10/22 21:18:46 OIBpBobZ
WSHをはじめたいけど、何からはじめたらいいのかわかりません。
環境：WindowsXP SP2
PG経験：Cをちょっと
177:名無し~3.EXE
06/10/22 21:24:38 mrzCrOm0
>>176
まずはWMIあたりから始めると面白いかも。
178:名無し~3.EXE
06/10/22 21:29:03 vQXb6UKC
>>176
必要になったらやればいいのに、、、
179:名無し~3.EXE
06/10/22 22:13:29 EOcMerY5
>>176
つまり、>>1
180:名無し~3.EXE
06/10/22 22:55:08 afcuKUls
>>176
まずは>>2の｢Windows Script 5.6 ドキュメント ダウンロード｣を落として
隈無く読むこと。今とくにやりたいことも無いならそこから入れ。
まあ､やりたいことがあってもここから入るのが基本だが。
181:176
06/10/22 23:35:43 OIBpBobZ
返信ありがとうございます。
目的は、PCの単純作業を出来る限り自動化です。
「Windows Script 5.6 ドキュメント」を隈なく読みます。
それでわからなかったらまた質問に来させて頂きます。
ありがとう御座いました。
182:名無し~3.EXE
06/10/23 17:09:37 IlmEYWFd
まあでもそのドキュメントがWSHでやれることの全てだと思われても困るが。
183:名無し~3.EXE
06/10/23 22:29:02 p8IXQ+tm
え゛、あのドキュメントが全てだろ。
184:名無し~3.EXE
06/10/23 22:39:08 Mp53qbOD
COM があれば可能性はおおよそ無限だ
185:名無し~3.EXE
06/10/23 23:04:41 BYV9Z446
COMさえあればモテモテだね！
186:名無し~3.EXE
06/10/23 23:07:04 CBFP8CuU
>>182
俺もアレがほぼ全てだと思うけど。そりゃ､COMだのWMIだのを使えば､出来ることの幅は広がるが
それらはWSHの機能でもなければ､WSH専用のコンポーネントですら無いから､(WSH同梱のCOMはあるが)
全てに置いてリファレンスが載ってるわけではないが､それらが利用できることはきちんと書いてあるし。
例えば自分はWSHがサポートしていないxml要素を作り､それを利用して変数の値を保持したり
次回実行時にそれを読み込んだりしているが､wsfがxml準規であることと､COMが使えることが書かれている以上､
定形外のwsfを作りMSXML2.DOMDocumentを利用したこの使い方も､あのドキュメントから導き出される使い方の一つだ。
｢加算演算が出来ます｣と書かれていたら､1+1の演算が可能です､1+2の演算が可能ですといちいち書かれていなくても
それらの演算が可能なことを意味するのと同じ。言語製品は応用するのは当然のことだが､応用ではなく機能として見た場合に
あのドキュメントに書かれていない機能って何がある？絶対無いとは言い切れないけど､俺はすぐには思いつかないな。
187:名無し~3.EXE
06/10/23 23:40:51 j0qOB48K
3行でかけることをよくもまぁ
188:名無し~3.EXE
06/10/24 00:01:18 wYm/9FA1
別に構わないよ、苦ではないし。
わざわざそいいうことを書き込む理由が分からない。
189:名無し~3.EXE
06/10/24 00:11:33 P1PufmL8
内容が無い書き込みを読む方が苦痛ですぅ
190:名無し~3.EXE
06/10/24 04:22:05 e4iNvxC6
MSDNとか見難くて見てられんのよね・・
191:名無し~3.EXE
06/10/30 00:01:11 /XauOmlM
hozyu
192:名無し~3.EXE
06/10/31 19:28:20 WW2MnT8D
WSHクイックリファレンス 第2版
URLﾘﾝｸ(www.amazon.co.jp)
193:名無し~3.EXE
06/10/31 21:00:56 iFG+tSJz
> 紙のリファレンスとして
> ある意味では，本書のカバーする範囲はWSHのヘルプに書かれている範囲をそう越えてはいない。
> 基礎的な知識があることを前提にすれば，一読したあとは紙のリファレンスであることが最大のメリットということになる。
>
> 紙のリファレンスの価値は，プログラマの人ならよくわかっているだろうとは思う。
> はたして，紙としてまとめられていることにどれだけの価値を見いだすか，というのは議論のわかれるところだろう。
> 入門書というにはやや記述が少なく，解説書というにはリファレンス的側面が強すぎるため，それ以外には魅力を見いだせないということなのだ。
確かに紙面リファレンスは有ると便利だが､それだけの為に4000円出すバカは居ないだろう。
早速改訂版が入荷してたので立ち読みしてみたが､サンプルとかもショボすぎて使い物にならないし。
4000円出してでも､script56.chmの紙面版が欲しいってなら､絶対に買うなとは言わないが､
俺にとっては100円ショップに置いてあるなら買ってもいいかなってレベルの出来だな。
194:名無し~3.EXE
06/11/01 02:00:10 M0Co5/Ld
WSHヘルプを見る時は、「窓使いの憂鬱」と「HHプラグイン」を使うと読み易いです
195:名無し~3.EXE
06/11/02 02:30:30 dDmy4YyL
.vbsのショートカットにドロップしても引数が消えなくする方法
ｽﾚﾘﾝｸ(win板:341番)
196:名無し~3.EXE
06/11/04 10:36:34 gFg82ib7
.vbsを登録してD&Dで引数が渡せる良い感じのプログラムランチャーって無いですか？
197:名無し~3.EXE
06/11/04 11:12:19 4Dsu/0i6
あるよ。
但しスレ違いな上に､｢良い感じ｣の定義は個人によって違うので具体的な紹介はしないけど。
具体的に紹介して欲しいなら､ソフ板のソフト紹介スレで､
具体的にどういうものが君にとって｢良い感じ｣なのかをきちんと書いて質問してみな。
198:名無し~3.EXE
06/11/04 13:43:08 gFg82ib7
自分で探した方が早そうだね
199:名無し~3.EXE
06/11/06 04:44:13 6BsyJ6Fg
>>193 の引用部分は↓から。
URLﾘﾝｸ(www.cmagazine.jp)
200:名無し~3.EXE
06/11/08 19:11:29 PcQgSeRB
うっしゅ
201:名無し~3.EXE
06/11/09 18:28:17 /TzE/TZH
既定のブラウザをIE5.01SP4とfirefox2(J) とに交互に切り替えるJscript を恵んでくださいな。
202:名無し~3.EXE
06/11/09 20:33:49 nGi8ytVm
>201
交互っつったって、どんなタイミングで切り替えるんだ？
既定ブラウザ自体はレジストリ変更でどうにかなりそうだが…
203:名無し~3.EXE
06/11/09 21:13:34 /TzE/TZH
（既定ブラウザを切り替えたいときに、机の上にある jscript ファイルをダブルクリックする。）
// 1 変数の初期設定
// 2 該当レジストリを読み出す。
// 3 既定ブラウザが IE だったら、とある変数に firefox2 を代入する。
// 4 既定ブラウザが firefox2 だったら、とある変数に IE を代入する。
// 5 既定ブラウザが上記以外だったら、とある変数に 逝ってよし を代入する。
// 6 とある変数が逝ってよし以外なら、 該当レジストリに書き込んで、とある変数 に切り替えましたと表示する。
// 7 とある変数が逝ってよしなら、とある変数をそのまま表示する。
こんな感じです。
204:名無し~3.EXE
06/11/09 21:48:39 qNCmXvkB
何にしてもここは｢スクリプトの作成を依頼するスレ｣じゃないからね。
自分で作る気が無いなら帰れってことになる。
205:名無し~3.EXE
06/11/09 23:00:35 /TzE/TZH
じゃ帰りまつ。
206:名無し~3.EXE
06/11/10 02:09:09 AYtg+sjS
Windowsがロック(Win+L)されてると、AppActivate→SendKeysではキー送れない…ですよね？
何か代替策ありますでしょうか？
WshShell.Run('notepad.exe', 1, false);
WshShell.AppActivate('メモ帳');
WshShell.SendKeys('0{ENTER}');
207:名無し~3.EXE
06/11/10 02:31:12 ktKvkKru
>>206
COM使ってSendMessage
具体的な方法はCOM付属のドキュメントやWeb上の解説読んで
208:名無し~3.EXE
06/11/10 08:13:38 AYtg+sjS
>>207
㌧クス!
まだまだ知らないことばっかりだ(ﾟ∀ﾟ;)
209:名無し~3.EXE
06/11/11 04:37:38 jLixVM07
PowerShellって完成遅くね?
もしかしてVistaに入ってない?
210:名無し~3.EXE
06/11/11 07:33:18 OPUQTd1+
XMLHTTPでWebから落としてきたテキストファイルが文字化けするんだけど
文字化けしないで表示させるるにはどうな感じにやればいいの?
var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
xmlhttp.open( ～ );
xmlhttp.send( ～ );
win1.document.open();
win1.document..clear();
win1.document..write(xmlhttp.responseText);
win1.document..close();
xmlhttp.abort();
↑はスゲｰ適当にしたけど、今はこんな感じ。処理の流れを言葉で表せは、
win1からコンテキストメニュー経由でスクリプト起動、xmlhttpでアクセス、ページ落としてそれをwin1にそのまま表示。
って感じ。
あと、落すのは普通のwebページ。ゆえにサーバーの方は弄れないし、文字コードは予め判らない。
そして、ググッていくつかの参考サイト見たけど、全然理解できなかったぐらいおれは馬鹿。
よろしくお願いします。
211:名無し~3.EXE
06/11/11 09:34:07 OPUQTd1+
桃子って馬鹿っぽい声だな
212:名無し~3.EXE
06/11/11 09:36:39 yLvGNxuk
URLそのまま表示するだけなら、普通にwin1.location.href="URL"でええやん（´・ω・）
213:名無し~3.EXE
06/11/11 19:52:55 fv8aBk4Z
>>203
「とある変数」は冗長。
214:名無し~3.EXE
06/11/11 21:17:05 OPUQTd1+
>>212
フォームのアクションへ POST して取ってくる感じ
215:名無し~3.EXE
06/11/11 21:55:05 yLvGNxuk
>>210
内容を一旦テンポラリファイルに保存してから、それを開くって感じではどう？
ADODB.Stream 使って XMLHTTP.responseBody を保存すれば、正確に表示できる。
216:名無し~3.EXE
06/11/12 09:26:37 paxoE75X
>>215
やってみたら文字化けしませんね。
一度保存するってのをベースにこれから作ってみます。
どもありがとです。
217:名無し~3.EXE
06/11/12 09:53:43 UX7xiFXQ
ファイルに書き出さんでも、Write した後 Position を 0 にしてやれば
Type やら Charset やら ReadText やら可能になるよ。
218:名無し~3.EXE
06/11/12 10:13:55 2A2d5Z9x
ファイルに保存せずに、ストリームを直接ブラウザに表示なんてできる？
219:名無し~3.EXE
06/11/12 12:41:42 eheFZjLZ
wshであるサーバがtelnetできるかというのを自動化しようとしてます。
Runメソッドでtelnet.exeを動かすスクリプトを作ってみたのですが、
ログインしている状態では動くのですが、
ログアウトしてスケジューラで動かしてみると、パスワードとかの入力ができません。
' Connect Server
strCMD = "telnet.exe -a -l root -f telnet.log 192.168.1.100
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run strCMD,2
' Send Password
WScript.Sleep 5000' Wait 5 sec
WshShell.AppActivate "Telnet"
WshShell.SendKeys "rootpsaaword~"
' Exit Telnet
WScript.Sleep 2000' Wait 2 sec
WshShell.AppActivate "Telnet"
WshShell.SendKeys "exit~"
Execメソッドにしてみたところ、telnetが動いてもくれません。
Dim WshShell, oExec
strCMD = "telnet.exe -a -l root -f telnet.log 192.168.1.100
Set WshShell = CreateObject("WScript.Shell")
Set oWshExec = WshShell.Exec(strCMD)
telnetできなかったらメールを送るとかのスクリプトを作りたいのですが
どなたか同じことをやられている方はいませんでしょうか。
220:名無し~3.EXE
06/11/12 14:13:34 2A2d5Z9x
メールを送るだけなら CDO.Message でできる。
詳細はググってください。
221:名無し~3.EXE
06/11/12 15:18:11 0ftkh14m
>>219
標準のtelnet.exeじゃなくて、
ログインまで自動化できる別のソフトを使えば？
222:名無し~3.EXE
06/11/13 23:10:05 qiz2dlwS
>>219
> WshShell.SendKeys "rootpsaaword~"
> WshShell.SendKeys "exit~"
CRLF は送らなくていいのか？
223:名無し~3.EXE
06/11/14 20:48:44 eUOyYwez
ローカルPCのプロセス一覧を書き出す VBScript があります。
これは正常に動作します。
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Process",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Next
これをJScriptに変換しようとしているのですが、
var strComputer = ".";
var objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2");
↑
この行で既に
「Microsoft JScript 実行時エラー: オートメーションの操作中にファイル名または
クラス名を見つけられませんでした。」となってしまい、実行できません。
\記号が何か変なことになってるんでしょうか？
どうすればいいのでしょうか？
WSH 5.6 / Windows XP SP1 Professional の環境です。
224:223
06/11/14 20:50:34 eUOyYwez
あ、ごめんなさい。
エラーの行に WScript をつけて、以下のようにしても同様でした。
var obj = WScript.GetObject("winmgmts:\\" & strComputer & "\root\CIMV2");
225:名無し~3.EXE
06/11/14 20:53:15 7Tv2z1qt
JScript の文字列連結演算子は + だが。
226:名無し~3.EXE
06/11/14 21:43:55 7Vc/ugR3
\→\\
227:名無し~3.EXE
06/11/15 05:49:24 eq52+nBC
PowerShell正式版来たな
228:名無し~3.EXE
06/11/15 08:49:19 eq52+nBC
PowerShell 1.0
URLﾘﾝｸ(support.microsoft.com)
これおもしろいな。昔Monadスレあった気がしたけど、消えた?
229:223
06/11/15 10:11:55 8Giezelv
>>224-225
初歩的なことですみません＆ありがとうございます。
var obj = WScript.GetObject("winmgmts:\\\\" + strComputer + "\\root\\CIMV2");
のようにしてみましたが、今度は
(null): 0x800C000D
のようなエラーで止まってしまいます。
試しに
var obj = WScript.GetObject("winmgmts:");
とすると上記と同じエラーが、
var obj = WScript.GetObject("winmgmts"); // ←コロンを取った
とすると>>223と同じエラーが出てしまいます。
原因として何が考えられるでしょうか？
230:223
06/11/15 10:18:39 8Giezelv
解決しました。
var obj = WScript.GetObject("winmgmts:\\\\" + strComputer + "\\root\\CIMV2");
はダメで
var obj = GetObject("winmgmts:\\\\" + strComputer + "\\root\\CIMV2");
ならOKでした。ムムム。
231:名無し~3.EXE
06/11/15 23:24:20 F3PSFGj/
>228
Windows Server 2003 Service Pack 1 および Windows XP Service Pack 2 用ってのがアレだけどな。
232:名無し~3.EXE
06/11/16 10:54:00 X8pn6xyi
PowerShell入れてみたけど、気に入ったｗ。
wsh捨てる決心ついたよ。
233:名無し~3.EXE
06/11/16 12:14:40 qnfm5A7w
コマンド入力まで時間かかるんだが、どうにかならんの
234:名無し~3.EXE
06/11/17 00:37:42 qH260wvA
Me使いのオレは移行したくとも出来んのだよ。
235:名無し~3.EXE
06/11/17 01:02:22 rS+zXwC5
PowerShellってパイプを流れるのもオブジェクトなのな。
CMDで
dir | sort
dir | sort /r
と
PSで
dir | sort
dir | sort -des
と比べて、頭の古い俺はちょっとびびった。
cd hklm:
でおいおい俺レジストリにいるよ、とか。
Vistaにデフォで入っていない上にデフォのセキュリティもガチガチだけど
やれること考えたら仕方ないか…。
236:名無し~3.EXE
06/11/17 12:14:12 tuTlaVuD
explorer切ってこっちをシェルにできんかな
237:名無し~3.EXE
06/11/18 02:21:35 OLX52wf8
ご案内
Windows PowerShell （正式版リリース）1.0
ｽﾚﾘﾝｸ(win板)
238:名無し~3.EXE
06/11/18 15:10:02 AegbpAMY
ADODB.Stream関連のプロパティを紹介してるＨＰを知りませんか？
239:名無し~3.EXE
06/11/18 15:16:39 rOSuiBco
>>238
Microsoft Data Access SDK 2.8
をダウンロードしたら?
240:名無し~3.EXE
06/11/18 15:20:25 mdx8HK1h
>>238
URLﾘﾝｸ(msdn.microsoft.com)
241:名無し~3.EXE
06/11/22 21:59:57 Hl8ABRjt
エクセルの中身をスクリプトで抜きたいんですが、可能でしょうか？
アクセスに移行しないと無理ですかね？
242:名無し~3.EXE
06/11/22 22:12:10 ag1e260U
エクセルの中身というのを xls ファイルの中身であると解釈して。
Excel.Application からオートメーションすればいいっしょ。
243:名無し~3.EXE
06/11/22 22:36:18 FtHukSom
>>241
できる
244:名無し~3.EXE
06/11/22 23:20:06 t8oZlpFH
>>241
ADO使えばできる
URLﾘﾝｸ(homepage3.nifty.com)
245:名無し~3.EXE
06/11/22 23:47:23 EyhEga7i
皆様ありがとうございます。
>>244のって工夫すればなかなか便利に使えそうですね
246:名無し~3.EXE
06/11/25 04:54:10 fL/fbuiK
>>244
いろいろいじってみたけど、これすげく楽しいな
ADOでのSQLについて詳しいページってありませんか？
247:名無し~3.EXE
06/11/25 12:16:26 Z7NXJrJB
ググれ
248:名無し~3.EXE
06/11/25 12:41:31 qXN1g3LQ
＿＿＿＿_
＼ _ _／
( *ﾟ∀ﾟ)
（ ９ ⌒)９ﾞ ｸﾞｸﾞｯ
"⊂＿）∪,,
249:名無し~3.EXE
06/11/25 23:07:22 OspuG9g+
>>248
( ﾟ∀ﾟ)o彡ﾟ wsh！wdh！
250:名無し~3.EXE
06/11/26 21:34:24 tNFTdH9d
OutLookExpress内の任意のメールを特定のフォルダへドロップ（コピー）するような
スクリプトは、どのような関数を使えばよいでしょうか？
emlファイルに出来ればＯＫです。
WSHに詳しい先輩達にご意見をお聞きしたいです。
251:名無し~3.EXE
06/11/27 00:56:10 1iJUdyxp
COMってコム？それともシーオーエム？
WSHは？ウィンドウズスクリプトホスト？ダブリュエスエイチ？ウーシュ？
252:名無し~3.EXE
06/11/27 01:06:33 nxeZfR/d
COMはコムって読んでる
WSHはそのままW・S・H
253:名無し~3.EXE
06/11/27 01:20:04 YbmUHCoW
wshはウッシュだなあ
関係ないけど、zshはズッシュ、tcshはティッシュと
呼んでた俺。
254:名無し~3.EXE
06/11/27 02:33:55 nUiU//Yl
lヽ ﾉ l ｌ l ｌ ヽ ヽ
)'ｰーノ( | | | ､ / l｜ ｌ ハヽ |ｰ‐''"ｌ
/ W | | |／| ﾊ / / ,/ /|ﾉ /l / ｌ l ｌ| ｌ W ヽ
l ･ i´ | ヽ､| |ｒ|| | //--‐'" ｀'メ､_ｌﾉ| / ・ /
| S l トー-トヽ| |ノ ''"´｀ ｒｰ-/// | S ｜
| ･ |／ | l ||､ ''""" j ""''/ | |ヽｌ ・ ｜
| H | | l | ヽ, ― ／ | | ｌ H |
| !! | / | | | ` ｰ-‐ ' ´|| ,ﾉ| | | !! ｜
ノｰ‐---､,| / │ｌ､l |ﾚ' ,ﾉﾉ ﾉハ､_ノヽ
/ ／ ノ⌒ヾ､ ヽ ノハ, |
,/ ,イーｆ'´ /´ ＼ | ,／´ ｜ヽl |
／-ト、| ┼―- ､_ヽﾒr' , -=ｌ''"ハ | ｌ
,／ | ヽ ＼ _,ノｰｆ' ´ ﾉノ ヽ ｜ |
､_ _ ‐''ｌ `ー‐―''" ⌒'ｰ--‐'´｀ヽ､_ _,ノ ノ
￣￣ | ／ ￣
255:名無し~3.EXE
06/11/27 18:31:52 uqV36mAE
>>254 Ｗ－ＷＳＨのアニメはイマイチだったぞ。
256:名無し~3.EXE
06/11/27 22:04:40 mEhuqTrR
>>250
やっぱり、難しいですよね。
257:名無し~3.EXE
06/11/28 00:54:51 Tv1LYONy
htaやwsfファイル中でPerlScriptからVBScriptやJScriptの関数って呼べます？
逆は普通に呼べるんだが．．．
258:名無し~3.EXE
06/11/28 01:03:28 V4pOQQjQ
ランチャをWSHで組んだとして
起動させたアプリからの、read/writeを規制することは
可能でしょうか？
例えば、~/tmp以外書き込み禁止とか．．．
259:名無し~3.EXE
06/11/28 01:12:07 Tv1LYONy
>>258
何でそんなことしたいのか知らんけど，Windows2000かXPであれば，新しくユーザ作成して適切なパーミッション設定して，runasでそのユーザで起動するようにすればできなくはないかも？
260:名無し~3.EXE
06/11/28 01:14:36 kOxlRyob
>>257
呼べる。とりあえずwshのリファレンス読め。
htaも同じ方法で呼べるから。
>>258
不可能。というかスクリプトの仕事じゃない。
まともなプログラム言語使え。
261:名無し~3.EXE
06/11/28 01:25:26 Tv1LYONy
>>260
呼べるのか．
<job id="main">
<script language="PerlScript">
sub perlfunc() {
$WScript->Echo("PerlScript");
}
</script>
<script language="JScript">
perlfunc();
</script>
</job>
これはいけるけどPerlScriptからJScriptのfunctionを呼ぶにはどうすれば？
wshやperlのマニュアル見ても見つからないの．サンプルプリーズ．
262:名無し~3.EXE
06/11/28 01:27:02 RRJTB0rw
&jscriptfunc()
で呼べるんでないの?
263:名無し~3.EXE
06/11/28 01:33:50 Tv1LYONy
>>262
それで呼べないんで困ってるんですわ．
264:名無し~3.EXE
06/11/28 01:34:54 ZRVbZfL6
method(); でいけるはずだが
265:名無し~3.EXE
06/11/28 01:44:28 dX4vnSDr
strconvはもちろんストア昆布だよな
266:257
06/11/28 01:57:32 Tv1LYONy
いろいろ試してたら分かってきた．
PerlScriptからVBScriptの関数は普通に呼べました．
JScriptの関数オブジェクトはPerlScriptからは扱えないみたい．
$WScript->Echo(&jsfunc());とかやるとfunctionの中身がdumpされた．
JScriptで作ったライブラリとか使えねー
PerlScriptなんて使うなってことですか．．．
<job id="main">
<script language="VBScript">
sub vbsfunc()
WScript.Echo("VBScript")
end sub
</script>
<script language="JScript">
function jsfunc() {
WScript.Echo("JScript");
}
</script>
<script language="PerlScript">
# VBScript OK
&vbsfunc();
# JScript NG
&jsfunc();
$WScript->Echo(&jsfunc());
</script>
</job>
267:名無し~3.EXE
06/11/28 02:35:59 BAbEyrhQ
引数があれば呼べるんじゃないかな
268:名無し~3.EXE
06/11/28 02:40:16 RRJTB0rw
適当な引数を付ければ呼べるみたいだね。例えば、
&jsfunc(0);
269:名無し~3.EXE
06/11/28 02:47:47 g8pNCyQB
ScriptControlを使う手もあります 呼び出し先ではWScript使えないけど＞＜
<job id="main">
<script language="PerlScript">
my $jscript = <<EOS;
function jsfunc() {
return "Perl meets JavaScript!";
}
EOS
my $sc = $WScript->CreateObject("ScriptControl");
$sc->{Language} = "JScript";
$sc->AddCode($jscript);
$WScript->Echo( $sc->Run("jsfunc") );
</script>
</job>
270:258
06/11/28 02:49:32 V4pOQQjQ
>>259
データ管理上、ローカルにデータ放置させたくないのです
小生Win環境詳しくないので、感謝
早速試してみます
>>260
元がAIX上でPerl/Tkで動いている認証機能付ランチャなのです
Win環境は詳しくないものですいません
271:名無し~3.EXE
06/11/28 07:36:45 AQr+bFyx
OutLookExpress内の任意のメールを特定のフォルダへドロップ（コピー）するような
関数を教えてください。
頭の良い方達揃いと思い、お願いします。
272:名無し~3.EXE
06/11/28 12:16:59 h8kiq/Ct
>>271
この辺の情報を参考に作ってみたら？
OE dbx file format
URLﾘﾝｸ(oedbx.aroh.de)
273:名無し~3.EXE
06/11/28 13:51:02 77idGO9L
>>271
バックアップならこういうのを使ったほうがいい。
URLﾘﾝｸ(www.tietew.net)
274:名無し~3.EXE
06/11/28 15:46:44 eQt+KJMG
>>269
>ScriptControlを使う手もあります 呼び出し先ではWScript使えないけど＞＜
使えます。VBScriptの記述では、
sc.AddObject "WScript",WScript
みたいにSC側にWScriptを渡せばよいのです。
275:名無し~3.EXE
06/11/28 19:56:04 eQt+KJMG
>>258
>>259
タスクスケジューラに登録しておいて、FolderItem.InvokeVerbで実行する。
276:名無し~3.EXE
06/11/28 19:58:54 g8pNCyQB
>>274
それは知らなかった。thx！
277:名無し~3.EXE
06/11/28 20:03:14 eQt+KJMG
>>257
あてずっぽうですが、
jscriptfunc()
で呼べませんかね。結構、非常識な発想が通ったりする世界ですから。。。
278:257
06/11/28 20:21:36 Tv1LYONy
>>267 >>268
無事呼べました．情報ありがとう．
perlじゃ引数なし()は省略されるってことね．
>>269
ふむふむ．それはVBA上からperl呼ぶとか便利に使えそうだね．
vbsやjsにできてperlにできないことはまずないから，wshでは使わないだろうけど．
279:名無し~3.EXE
06/11/28 21:48:29 tFRKZPTE
スクリプトから自動でメールを出すってできますか？
WEBページにあるフォームに入力させて「送信」ボタンを押すみたいなことをスクリプトで実現したいんですが
280:名無し~3.EXE
06/11/28 21:53:30 mWvA7je0
MsgBox でフォントの大きさを変えることはできませんか?
(全体を大きくするのではなくて、MsgBox のウインドウで
使われるフォントだけ)。
281:名無し~3.EXE
06/11/28 22:06:15 g8pNCyQB
>>279
CDO.Message で検索してみて。
>>280
一からウィンドウを作らないとダメかと。
282:280
06/11/28 22:18:48 mWvA7je0
>>281
Wsh では1からウインドウを作るのはどうやるんでしょうか?
VBScript でも JScript でもこの際なんでも構いません。
(機能はメッセージを出して OK 押したら消えるだけでいいんです。
但し大きく目立つように出したいということです)。かといって
後から何か特別なソフトをインストールしたくはないので Wsh の
VBScript の MsgBox でやっていたんですが、何か方法ありませんかね?
283:名無し~3.EXE
06/11/28 22:23:19 HgwQULRQ
HTAにしてみるとか
284:名無し~3.EXE
06/11/28 22:23:44 E3q0nv4b
>>282
WSHから使えるGUIウィンドウは
COMとして作るしか無いかと。
又はWSHではなくHTAを使うって手もある。
285:名無し~3.EXE
06/11/28 22:39:47 mWvA7je0
>>283-284
HTAというのは知りませんでした。検索したら出ましたが。これですよね。
URLﾘﾝｸ(www.microsoft.com)
調べてみます。ありがとうございました。
286:名無し~3.EXE
06/11/28 23:15:36 eQt+KJMG
PowerShellを使うと
>>36
>>206
などが簡単に出来るようになるんでしょうか？
287:名無し~3.EXE
06/11/28 23:23:34 45tW03Iv
CDO.Messageについて調べたんですが、送信元のアドレスをソースに入れないで（自動で補完）つくれないでしょうか
スクリプトを知らない多数の人が使用するという想定でつくりたいのです
288:名無し~3.EXE
06/11/28 23:42:30 Tv1LYONy
>>282
TclScript, PerlScript, RubyScriptとかならTkが使えるからGUIが自前で作れる．
それぞれの処理系をインストールしなきゃならんのでHTAの方がいいだろうけど．
>>287
1. スクリプトの先頭にadress = "foo@bar.com"とか書いておいて，各自そこだけ書き換えてもらう．
2. InputBoxやHTA使ってアドレス入力させる．毎回入力するのは面倒なので，ファイルに保存しておいて次回からはそれを読む．
など
289:名無し~3.EXE
06/11/29 00:33:36 2/mGVRQo
>286
↓で訊いてみたら？
Windows PowerShell （正式版リリース）1.0
ｽﾚﾘﾝｸ(win板)
290:名無し~3.EXE
06/11/29 22:17:21 1dkZEY39
>>272
>>273
ありがとうございます。
ただ、もっと簡単にスクリプトを組んで関数をチャチャっとやって、
できないものか思案中です。
あまり、プログラムって組んだ経験がないので・・・。
何か良いアイデア、ないでしょうかね？
291:名無し~3.EXE
06/11/29 22:41:40 DKiaM1yK
自力でプログラム書く気がないなら、このスレ向きじゃないよ。
292:名無し~3.EXE
06/11/30 01:16:13 WPzp0DQP
標準出力を使いたいので、ファイル名.vbs（wscript.exe）で実行しても
cscript.exeで実行するような書き方ってありますか
293:名無し~3.EXE
06/11/30 01:40:47 f/8+PZe+
>>292
cscript //H:CScript
294:名無し~3.EXE
06/11/30 02:14:43 oHR/u/8E
>>292
vbsじゃないけどお手製のライブラリがあるので晒そう．
以下をたとえばstdio.jsというファイル名で保存
//---------ここから------------
(function(){
if (/wscript\.exe$/i.test(WScript.FullName)) {
var args = new Array();
for ( var i = 0; i < WScript.Arguments.length; i++ ) {
var arg = WScript.Arguments.Item(i);
if ( /\s/.test(arg) ) arg = '"' + arg + '"';
args.push(arg);
}
var cmd = 'cscript.exe //Nologo "' + WScript.ScriptFullName + '" ' + args.join(' ');
WScript.CreateObject('WScript.Shell').Run(cmd, 1, false);
WScript.Quit();
}
})();
//---------ここまで------------
使い方はwsfファイルの最初でインクルードしてやるだけ．
<job>
<script language="JScript" src="stdio.js"></script>
<script language="VBScript">
'ここに好きなコードを書く
WScript.StdIn.ReadLine
</script>
</job>
既定のスクリプトホストはwscriptのままでOK．
まあ自分で使うだけなら >>293 が一番楽でしょう．
295:名無し~3.EXE
06/11/30 02:42:53 v82cYZy4
>>292
vbcという拡張子をcscriptに関連付けて､cscriptで実行したいものはvbcで作る方法がオススメ。
>>294のようにwsfでやるならjob分けした方が良い。または引数が無ければ
URLﾘﾝｸ(winscript.s41.xrea.com)
でもいける。ぶっちゃけ>>294はこれの引数対応版なだけの話だし。
まぁ固定環境で使うものなら関連付けしちゃうのが一番煩わしくないよ。
コード一切必要ないし､条件分岐も､実行し直しも､引数の処理も無いからいくらか早いし。
296:名無し~3.EXE
06/11/30 07:51:25 oeVEhWch
>>295
> vbcという拡張子をcscriptに関連付けて､cscriptで実行したいものはvbcで作る方法がオススメ。
なるほどなあ、その発想はなかった
297:名無し~3.EXE
06/11/30 10:53:55 4A8n4oNd
>>292
先頭に
REM:&@CScript.exe //E:VBS //NoLogo "%~f0" %* & GOTO :EOF
を書いて、拡張子をCMDに変える。
298:名無し~3.EXE
06/11/30 19:27:18 4A8n4oNd
>>295
関連付けで標準入出力が使えない障害はありましたが、もういいのかなぁ。
もし、駄目なときはVectorのVBCFILEを参照。
299:名無し~3.EXE
06/12/02 15:02:40 AkJV6Sni
これでｱｸｾｽ権限のないﾚｼﾞｽﾄﾘｷｰを
自動で削除する事ってできますか？
300:名無し~3.EXE
06/12/02 20:48:03 0XNYfzVD
WScript.ShellのPopup(,nSecondsToWait)が効かないってことありませんか？
HTMLやHTAのときは、そういう仕様か、と思っていましたが、WSHでも起こります。
どうもCPUが他の処理で忙しいときに抜けるみたいです。
さすがに、それは障害だと思いますが。使うときはご用心。
301:名無し~3.EXE
06/12/07 15:43:36 EC5LjnO7
>>282
こういうときは、WSHからIEを起こして操作するのが簡単。
302:名無し~3.EXE
06/12/09 18:45:02 P6CN1pgP
バッチファイルをリモートからWebに埋め込んで使う
ということをwsh使ってできますか？
303:名無し~3.EXE
06/12/09 19:13:49 pifhS49b
うん､出来る。。面倒だから普通はやらないけど。
どうしても面倒なことやりたいなら勝手にやればよい。
304:名無し~3.EXE
06/12/09 19:49:26 0qa9SSE3
>302
で、それを知って何をやりたいんだ？
305:名無し~3.EXE
06/12/10 00:08:13 UaBqXVVZ
>>296
それより、RunWithArgs.CMDを関連付けると、便利だわい。
306:名無し~3.EXE
06/12/11 22:02:52 YncVWVUZ
age
307:名無し~3.EXE
06/12/13 14:27:42 /++eaESB
WSHでDDE使う方法ないかな？
308:名無し~3.EXE
06/12/13 15:44:43 npJjnYln
>>307
DDE使えるCOMを探すか作る。
そんな回答アリかよ､と言うかも知れないが
拡張無しにWSH自身が出来る事なんてほとんど無いんだから
COMなどの外部拡張に頼らざるを得ないのは仕方ない。
309:名無し~3.EXE
06/12/13 16:38:28 5aDfYNEq
VBScript(.vbs)からExcelを操作して文字列の置換をしたいんですが、ループでセルを一つずつ見て置換していくしかないのでしょうか？
Excelの置換ダイアログみたいに一括でブック全体を置換したいんですが。
ちなみに優先順位としては
処理スピード > コードの複雑さ
です。
310:名無し~3.EXE
06/12/13 17:06:25 npJjnYln
>>309
RangeメンバのReplaceメソッドで置換すれば良いだけだよ。
Replaceメソッドの使い方はExcelVBAヘルプに載ってる。
因みに組み込み関数のReplaceじゃないので間違わないように。
ちなみに対象のシートオブジェクトを取得したら､置換は1行コードで終わる。
ループよりは速いが､どのくらい速いかはCPU依存。
311:名無し~3.EXE
06/12/13 17:48:44 5aDfYNEq
>>310
ありがとうございました！標準オプションなら↓だけで行けますね。
objApp.ActiveSheet.Range("A1").Replace <検索文字列>, <置換文字列>
後は各シートでコレを実行させました。十分実用に耐えるスピードです。
312:名無し~3.EXE
06/12/13 22:14:37 hw3Bn7Em
IEから右クリックで動作させるスクリプトなんですが、
その右クリックされた場所にある画像のURL(リンクではなくIMGタグ)
を取得するにはどうすればいいでしょうか？
313:名無し~3.EXE
06/12/13 22:49:12 qNFDZs3m
external.menuArguments.document.elementFromPoint(external.menuArguments.event.clientX, external.menuArguments.event.clientY).href
らしい。Irvine のスクリプトによると。
314:312
06/12/14 00:28:11 7FtNx5qL
>>313
ありがとうございます
315:名無し~3.EXE
06/12/14 00:29:42 DjAdsCMN
InternetExplorer.Applicationとかの情報ってWSHのﾘﾌｧﾚﾝｽに
のってないけど、どっから情報獲ってくるんだ？
316:名無し~3.EXE
06/12/14 00:42:56 WjQ1wjr4
IE オブジェクトなら MSDN にいくらでもあるっしょ
317:名無し~3.EXE
06/12/14 01:39:10 XilSwh1W
>>315
つ OLEView.exe
318:名無し~3.EXE
06/12/17 09:32:44 A0dC8xU5
以下のようにした場合、メッセージボックス(?)が表示される前に
コマンドプロンプト・ウインドウが表示されるのですが、結果の
メッセージだけを表示させるにはどうすれば… ？
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objExecCmd = objWshShell.Exec("ruby\bin\ruby -Ks search.rb")
WScript.Echo "検索結果：" & objExecCmd.StdOut.ReadAll
319:名無し~3.EXE
06/12/17 11:44:36 H95I1sD8
rubyw.exe
320:名無し~3.EXE
06/12/17 14:04:16 A0dC8xU5
>>319 ギガ㌧㌧㌧！
321:スレッドを超えたコテハン
06/12/17 15:02:58 EP+mDiGm
WSCの場合は、プロパティで定数を公開して、wsc.nameで定数を参照したほうが、
衝突の心配がないし、WSFだけでなく、VBSやJSでも使えてよさそうですが、
もし、nameだけで、参照したいときは、WSC側でreferenceメソッド作って、
function reference(Me){
Me['xxx']=111;
Me['yyy']=222;
}
VBS側で
wsc.reference me
WScript.Echo xxx
JS側で
wsc.reference(this);
WScript.Echo(xxx);
とすれば、WSFだけでなく、VBSやJSからも使えます。
322:名無し~3.EXE
06/12/18 14:59:23 P40MScLH
WSHでIEオブジェクトを作成してそれのProcessIDを取得する方法を教えて欲しいのですが。
今は下記の手順でブラウザにキー送信をしていますが、「タイトルの文字列」が変更した場合には通用しません。
なので、ProcessID指定で確実にSendKeysをしたいのです。
InternetExplorer.Application + ProcessIDでぐぐっても見つけられませんでした。
よろしくお願いします。
Set IE = WScript.CreateObject("InternetExplorer.Application","IE_")
Set sShell = WScript.CreateObject("WScript.Shell")
sShell.AppActivate("ブラウザのwebページのタイトル文字列")
sShell.SendKeys "ほげほげ"
参考にしたページ
URLﾘﾝｸ(www.atmarkit.co.jp)
＞ 一方のプロセスIDは、Execを使って起動したプログラムでは、WshScriptExecオブジェクトのProcessIDプロパティから取得できる。
323:名無し~3.EXE
06/12/19 21:38:05 4I7Im65l
マルチするならせめて一言断り入れとけよ。あとリンク。
つか IE オブジェクト使うなら大凡の操作は可能だと思うのだが。わざわざ SendKeys 使わんでも。
324:名無し~3.EXE
06/12/20 02:32:54 mM03wtmE
>>323
ファイルの指定したいんじゃないかな？
予想だけど。
>>322
<input type="file">以外の入力をしたいのなら、SendKeysなんて不安定なもの使わなくても
Document.Allで取得したHTML要素のオブジェクトを直接操作できるよ。
DHTML関係で調べると情報が見つかると思う。
<input type="file">だけはセキュリティだか何だかで値を設定できないから仕方ないけど。
325:名無し~3.EXE
06/12/20 10:45:02 RqDSiDAq
>>324
そうです。
SendKeys "%(FA)"とかでセーブしたり印刷などダイアログ操作もしたいんです。
326:名無し~3.EXE
06/12/20 13:00:07 mrdk27Jg
>>322
WMI を使う。
URLﾘﾝｸ(www.microsoft.com)
327:名無し~3.EXE
06/12/20 14:15:14 RqDSiDAq
>>326
ありがとうございます。
IEが複数起動してた場合や別プロセスにチェックあった場合とかで試してレポートしますね。
328:名無し~3.EXE
06/12/20 19:15:52 AUSJGC40
あっちのスレで質問に答えてる人が、こっちのスレを見たらどう思うだろうね。逆はどうだろう。
マルチするやつは、想像力のかけらもない、人を思いやる事のできない、最低の人種。
329:名無し~3.EXE
06/12/20 21:56:05 hALWCcKZ
痛い人はっけん伝
330:スレッドを超えたコテハン
06/12/21 00:13:52 Agf2Nj7H
>>328
というか、マルチの問題は、回答者の善意が無駄に捨てられていることだと思う。
そして、それが、本人より、それを見ているひとを刺激するのだと思う。
331:名無し~3.EXE
06/12/22 15:58:35 JvRzts1c
パワーポイントに画像
1.jpg 2.jpg...
を並べて貼るのって自動化できないの？
332:名無し~3.EXE
06/12/22 23:04:54 jt8/BZlk
マクロ書けばいいんじゃないのか？
333:名無し~3.EXE
06/12/23 12:28:39 0ryoXlyK
html で書いて読み込みとか
334:名無し~3.EXE
06/12/23 14:14:29 N/gLsGdS
SendKeys()は？
335:名無し~3.EXE
06/12/26 16:17:49 MwEmWwE0
>>103
つ subst
336:名無し~3.EXE
06/12/26 19:21:31 YnXAl3Sk
質問させて下さい。
var obFS,obFOL,colFile;
var timestamp = "";
obFS = WScript.CreateObject("Scripting.FileSystemObject");
obFOL = obFS.GetFolder("f:\\");
colFile = obFOL.Files;
var x = new Enumerator(colFILE);
for(; !x.atEnd(); x.moveNext()){
timestamp = x.item().DateCreated
}
というコードを実行すると、
timestampに"Wed Nov 29 19:35:35 UTC+0900 2006"というようなのが返ってくるのですが、
ここからyyyymmddという形式の文字列を取り出すにはどうしたらよいのでしょうか。
337:名無し~3.EXE
06/12/26 19:23:16 YnXAl3Sk
↑環境はXPSP2、Windows Script5.6です。
338:名無し~3.EXE
06/12/26 19:55:35 TReychuT
>>336
Dateオブジェクトの扱い方について学びましょう。
リファレンスにも載ってますよ。
339:名無し~3.EXE
06/12/26 19:57:26 YnXAl3Sk
>338
var timestamp = new Date(x.item().DateCreated);
ですね。いろいろいじっていたら閃きました。
340:名無し~3.EXE
06/12/27 01:45:26 uErdji5h
既に開いてある IE のウィンドウのオブジェクトを、
子ウィンドウかどうかに関係なく所得するにはどうしたらいいでしょうか？
341:名無し~3.EXE
06/12/27 11:51:57 lsopXQRq
>>340
Set IEShell = CreateObject("Shell.Application")
num = IEShell.Windows.Count
For i = 0 to num - 1
WinName = IEShell.Windows.Item(i).LocationName
WinPath = IEShell.Windows.Item(i).LocationURL
Document.write "<tr><td>" & WinName & "</td>"
Document.write "<td>" & WinPath & "</td></tr>"
Next
こんなんでどお？
342:名無し~3.EXE
06/12/27 18:21:28 Z9+O0XhD
>>327
レポートはどうしたんだろう？
343:名無し~3.EXE
07/01/04 09:48:15 pQA4Aeed
少し前に､vbscriptをコンソール実行するのにcscript.exeに関連付けした.vbcというのを用意するという話があったけど
これと同じように.wsfのコンソール実行版として.csfをcscript.exeに関連付けしたいんだけど､どうしたらいい？
単純に%SystemRoot%\System32\cscript.exe "%1" %*じゃエラーになるし､//Eに何を指定したら良いのか解らずお手上げ状態
wsfにはcscript.exeも関連付けされてるが､右クリックメニューからの選択は煩わしいのでvbcみたいに既定関連付けにしたいし
cscript.exeで実行し直すスクリプト(>>294のvbs版のようなもの)を書いてみたりもしたけど､やはり関連付けしちゃったほうがスッキリするので
344:名無し~3.EXE
07/01/05 11:38:36 IRXk0L1E
普通に%SystemRoot%\System32\CScript.exe "%1" %*でいけるだろ?
ちゃんとREG_EXPAND_SZにしてるか?
345:名無し~3.EXE
07/01/06 22:39:45 5TwI70x6
>>344
.wsfをcscript.exeに関連付けするんじゃなくて.csf(独自拡張子)をcscript.exeに関連付けする場合ですよ
本当に%SystemRoot%\System32\CScript.exe "%1" %*でスクリプトとして実行される？
こちらはちゃんとREG_EXPAND_SZにしてるし､cscript.exeやwscript.exeに直接D&Dしても同じメッセージが出るので
パスはきちんと通ってるし､コマンドも渡ってる
346:名無し~3.EXE
07/01/07 02:58:46 Jlib32pI
>>345
D&Dならこれじゃないの。
[HKEY_CLASSES_ROOT\WSFFile\ShellEx\DropHandler]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"
しかし、cscriptでD&Dとはこれ如何に…
347:名無し~3.EXE
07/01/07 06:47:22 bXPc+IQY
>>343
うちもエラーが出る。メッセージは↓だろ。
> ファイル拡張子 ".csf" を持つスクリプト エンジンはありません。
解決方法はわからん。
>>346
スクリプトファイルにD&Dしたいんじゃなくて､
｢スクリプトエンジンにD&Dしても同じエラーが出るから
関連付けのパスは間違ってないですよ｣ってことだろ。
348:名無し~3.EXE
07/01/07 14:19:39 sB9LNE5a
画像の容量やサイズを取得しJavaScriptで利用するにはどうしたらいいですか？
349:名無し~3.EXE
07/01/07 14:30:59 zkbC9oLK
>>348
>>3の doodle とか使えるんじゃない
350:名無し~3.EXE
07/01/07 17:31:26 F4E+azH/
'標準的なJPEGファイルの画像サイズ取得
GetJpegSize "sample.jpg", x, y
WScript.Echo "X=" & x & " Y=" & y
Function GetJpegSize(filename, ByRef x, ByRef y)
Set oStrm = CreateObject("ADODB.Stream")
oStrm.Open
oStrm.Type = 1 'adTypeBinary
oStrm.LoadFromFile filename
Do While (CvNum(oStrm.Read(1)) = &hFF)
Select Case CvNum(oStrm.Read(1))
Case &hD8 'SOI
Case &hD9 'EOI
Exit Do
Case &hC0 'SOF0
length = CvNum(oStrm.Read(2))
oStrm.Read(1)
y = CvNum(oStrm.Read(2))
x = CvNum(oStrm.Read(2))
Exit Do
Case &hDA 'SOS
Exit Do
Case Else
length = CvNum(oStrm.Read(2))
oStrm.Read(length - 2)
End Select
Loop
End Function
Function CvNum(bstr) ' BigEndian
For i = 1 To LenB(bstr)
CvNum = CvNum * 256 + AscB(MidB(bstr, i, 1))
Next
End Function
351:名無し~3.EXE
07/01/07 18:57:51 v/viW2rY
>>346
DropHandlerは既に設定してあるけど､問題はそこじゃないので
>>347
エラーメッセージはそれです
cscript.exe /?を見ても､//Eオプションの意味は書いてあるんだけど//Eオプションに設定出来る値とかは書いてないんだよね
.wsf形式は固定エンジンじゃないけど.vbcも//E無しで関連付けすると同じエラーが出て//E:VBSを付けると解決するから
これも//Eで解決しそうな気もするんだけど
352:名無し~3.EXE
07/01/17 20:07:13 0sN+rIEb
（･∀･∀･）
（･∀･）ｻﾃｵｼｺﾞﾄ･･･ ε三三三三（; ･∀･）鯖ﾏﾃﾞｵﾂｶｲ
HTTP/1.1 304 Not Modified
（ ･∀･）（･∀･ ）ｵﾂｶｲｵﾜﾘ 三三三三３
（･∀･∀･）
（ ´∀｀） 誰も書いてないよ
（･∀･）ｶﾝﾘｮｳ!!
353:名無し~3.EXE
07/01/19 16:29:22 e+OFGk5J
下のコードでVistaのファイルのプロパティ調べてみたら
266もあって笑った。
2000/XPだと40もなかったのに
--------------------------------
var WshShell = new ActiveXObject("WScript.Shell");
var oShell = new ActiveXObject("Shell.Application");
var oFol = oShell.NameSpace( "C:\\" );
var str= "";
for( var i = 0; i < 300; i++ )
{
str += i + ":" + oFol.GetDetailsOf( null, i ) + "\n";
}
WshShell.Popup( str );
354:名無し~3.EXE
07/01/19 18:26:35 QaLFoFFk
WSFはデフォルトをCScript.exeにする。
WScript.exeで動かしたいときは、ショートカット(.lnk)を作って
リンク先の頭にWScript.exeを入れる。
355:名無し~3.EXE
07/01/19 18:56:22 QaLFoFFk
>>348
>>356の要領で26,27,28がサイズ
356:名無し~3.EXE
07/01/19 18:58:08 QaLFoFFk
訂正
>>353の要領で26,27,28がサイズ
357:名無し~3.EXE
07/01/20 00:20:12 GPpR1ytY
>>353の
207:雰囲気
なんじゃこりゃ
358:名無し~3.EXE
07/01/20 02:42:29 ETgywjVO
envionment を直訳したのか？
359:名無し~3.EXE
07/01/20 12:57:54 N7R7pz3V
envionment (なぜか翻訳できない)
360:名無し~3.EXE
07/01/20 14:38:04 UE2i8MKk
//E:のエンジン名は可変だから、
ハードコーディングのcscript /?に書いてある訳ないわな
ヘルプぐらいででわざわざレジストリを検索するのも面倒だし
361:名無し~3.EXE
07/01/20 15:25:54 UE2i8MKk
>>359
ぐぐれ
362:名無し~3.EXE
07/01/20 16:16:36 XJ4mGjq5
>>359
つ r
363:Ｊscriptで
07/01/20 17:23:56 5Xd7S+Ct
Excel のブック中に、4月～３月のシート名を持つワークシートがあり、
各シート名内の数字が全角か半角かはあやしいものとする。
セルＡ6から下方方向に半角数字で日付が記入してあり
対応する日の’Ｃ'から'Ｇ'のセルに行事予定が記入してある。
今日も含めて3日分の予定を WScript.Echo で表示する。
エクセル.xls ファイルとJscript.js ファイルは、d:\1 フォルダ内に置く。
という条件で、とりあえず動くものを作りましたが、
ここを直した方がスクリプトが簡素になるよとか、
「今日も含めて3日」間が、月の境界の場合は無視しているので
その処理のアイデアとか
コメントを下さい。
URLﾘﾝｸ(a-draw.com)
364:名無し~3.EXE
07/01/20 20:34:48 8DNLMKa6
JScript使い始めて2日目のおいらが､勉強がてらリファレンス読みながら調べたことを書いてみる。
var XLS_FILE = WScript.ScriptFullName.replace(/\\[^\\]+$/, "\\sample.xls");
にすれば"d:\1"以外でも､同一ディレクトリにsample.xlsがあれば動く。
曜日はyday = "日月火水木金土".charAt(yday)の1行で済む。
正規表現使って(reはmonthから"^(?:10|１０)月$"のようなパターンを作る)
for(; !sub1.atEnd(); sub1.moveNext()){
if (sub1.item().Name.match(re) != null){
sh = sub1.item();
break;
}
}
という感じで対象シートを変数に取得しておけば､
while(sumSheatnc.indexOf("１")>-1){ ～ sumSheatnc.indexOf("月"+month +"月")+1))).Select;
の約50行は不要だし
ExcelApp.ActiveWorkBook.ActiveSheet.Cells(i,3) を
sh.Cells(i,3) と書ける。
半角数字はcharCodeAt+65248をfromCharCodeすれば全角数字になる
更に
if (ExcelApp.ActiveWorkBook.ActiveSheet.Cells(i,3)>"") event+= ExcelApp.ActiveWorkBook.ActiveSheet.Cells(i,3)+" ";
以下の5行に相当するものが
event = new VBArray(sh.Range(sh.Cells(i,3),sh.Cells(i,7)).Value).toArray().join("\t").replace(/\t+/, " ");
の1行で書ける。(join(" ")でもいいと思うけど)
月越えの処理は､｢2007年month月date+1or+2日｣のgetMonthがmonthより大きければ次のシートに移る処理を書けば良いのでは？
2007/2/28の場合なら､2007/2/30を指定すれば2007/3/2を返すから､末日が何日かとか考えなくても月を越えたかどうか判断できる。
次のシートはWorksheets(sh.Index+1)って感じで取得すればいい。末尾シートの場合の例外処理をお忘れなく。