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

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

662:デフォルトの名無しさん
08/02/02 07:34:31
>>661
どうもです。

>WSHヘルプ
すみません、実はこれが何を指すのか分からん程度なんですがw

>カレントディレクトリを設定しろ
URLﾘﾝｸ(msdn.microsoft.com)
によると CurrentDirectory というプロパティがあるそうなのでこれを適宜セット
する、で正解ですか?
で、できたらどんな値にセットするかも教えていただけると助かるのですが...
もしかしたらWSHヘルプというものにそれが書いてあるんでしょうか。

逆に考えると、普通にダブルクリックで起動したアプリではカレントディレクトリが
適宜セットされているから動く、ということでしょうか? もしそうなら一体どんな値になって
いる? という疑問がわきますが...

663:デフォルトの名無しさん
08/02/02 08:38:11
右クリック-プロパティ

664:デフォルトの名無しさん
08/02/02 09:38:40
通常はダブルクリックしたものがあるディレクトリがカレントディレクトリとなる。

665:デフォルトの名無しさん
08/02/02 11:10:49
>>662で言ってる　CurrentDirectoryって　Windows2000にデフォルトで入ってるWSHでは
動きませんよねぇ。なんか代替のメソッド無いですかね？

666:デフォルトの名無しさん
08/02/02 13:14:22
>>665
Win2Kでも、WSH5.6なら、("Wscript.Shell").CurrentDirectryが使える。
インストール直後のバージョンは、どうだったかな‥

古いWSHでも、("Wscript.Shell").Run """ショートカットファイル.lnk""",,False なら
問題ない。False設定しか使えなくなっちゃうけども。

Wscript.ScriptFullName のほうは今回無関係ですかね。

667:デフォルトの名無しさん
08/02/02 16:33:34
そのスクリプトファイルのショートカットを作って作業フォルダを設定しろ

668:デフォルトの名無しさん
08/02/03 02:07:27
WSHでファイルを読み取り専用に変えることはできますでしょうか？

669:デフォルトの名無しさん
08/02/03 02:20:08
readonly属性をつけることならできるな

670:デフォルトの名無しさん
08/02/03 03:43:53
>>669
それです。教えてください。

671:デフォルトの名無しさん
08/02/03 17:41:54
Attributes=1

672:デフォルトの名無しさん
08/02/03 18:09:40
ヘルプみろ

673:662
08/02/04 06:06:35
>>664
なるほど。その値でうまくいくようです。ありがとうございます、

674:デフォルトの名無しさん
08/02/06 16:53:29
質問です。

現在、VBSCriptで各ディレクトリのアクセス権限を
テキストに書き出す仕組みを作成しています。

コマンドは下記のようになっております。
CACLS <ディレクトリ名> >> <出力ファイル>

ディレクトリ名、出力ファイル名はパラメータとして受け取り、
文字列を結合してWshShell.Runに渡しております。・・・【1】

ここで問題なのですが、【1】の文字列をコピペして
DOSプロンプトで実行すると、正しく出力がされているのですが、
WshShell.Runにて実行すると、正しく出力されません。

この部分のコードは下記のようになっております。----------*

Command = "CACLS " & DIRName & " > " & ExportFileName
objShell.Run Command ' WShellオブジェクトは生成済み

--------------------------------------------------------*

恐れ入りますが、どなたかこのような現象を経験されておりましたら、
解決策の指南のほどよろしくお願いいたします。

675:デフォルトの名無しさん
08/02/06 18:26:05
>WShellオブジェクトは生成済み

ソース全部貼るべき

「・・・【1】」って違う場所に書いてない？

676:デフォルトの名無しさん
08/02/06 18:27:44
＞WshShell.Runにて実行すると、正しく出力されません。
とはどうなるのだ？

677:デフォルトの名無しさん
08/02/06 19:11:25
Set objShell = WScript.CreateObject("WScript.Shell")
Command = "CACLS %cd% > out.txt"
objShell.Run Command

これで試してみたけど、うまくいかないね。

Command = "cmd /c cacls～

ではうまくいくけど。

678:デフォルトの名無しさん
08/02/06 20:04:10
%windir%\system32\cacls.exeと指定したらどう？

679:デフォルトの名無しさん
08/02/06 21:50:01
リダイレクトはシェル(cmd.exe)の機能。

680:デフォルトの名無しさん
08/02/07 06:34:50
フルパス指定でも無理

681:674
08/02/07 09:15:53
皆さんご回答ありがとうございます。

＞＞WshShell.Runにて実行すると、正しく出力されません。
＞とはどうなるのだ？
パラメータ無しで実行したCACLSのように、ヘルプが表示されます。

経過ですが、
>>677さんの"cmd /c cacls～"で試してみたところ、うまくいきました。

大変お世話になりました。

682:デフォルトの名無しさん
08/02/08 12:25:55
タクススケジューラの引数について質問です。

Windowsタクススケジューラで設定した引数が渡ってこない（WScript.Arguments.Count = 0）のです。
同じパス（コマンドライン）で作ったショートカットを実行すると引数が渡ってくる（WScript.Arguments.Count > 0 ）のです。

実際に試した記述は、「c:\test.vbs abc」と「c:\test.vbs "abc"」と「"c:\test.vbs abc"」です。

何か特別な記述方法などあるのでしょうか？
先輩方、よろしくご教授ください。

683:デフォルトの名無しさん
08/02/08 13:36:44
cmd /c c:\test.vbs abc

684:デフォルトの名無しさん
08/02/08 15:31:49
先輩！ありがとうございました！

685:デフォルトの名無しさん
08/02/08 21:29:01
ファイルをドラッグアンドドロップしたらパスを表示するスクリプトが動きません。
どこを直せばよいか教えてください。

var strArgument = new Array();
if ( WScript.Arguments.count() == 0 ) {
WScript.Echo ("コマンドライン引数が指定されていません。");
}
else {
for ( strArgument in WScript.Arguments ) {
WScript.echo ( strArgument[i] );
}
}

686:685
08/02/08 21:37:42
スクリプトをダブルクリックした時は正常作動しますが
ファイルをドロップすると何も表示されません。
スクリプトエラーも出ないので困っています。

687:デフォルトの名無しさん
08/02/08 22:03:46
コマンドライン引数が指定されているからに決まってるだろ

688:デフォルトの名無しさん
08/02/08 22:04:54
var strArgument = new Array();
if ( WScript.Arguments.count() == 0 ) {
　　 WScript.Echo ("コマンドライン引数が指定されていません。");
}
else {
　　 WScript.Echo ("コマンドライン引数が指定されました。");
}

689:デフォルトの名無しさん
08/02/08 22:18:40
for ( strArgument in WScript.Arguments ) {
WScript.echo ( strArgument[i] );
}
これ、なにしてるの？

690:デフォルトの名無しさん
08/02/08 22:42:40
>>688
var strArgument = new Array();
これ、なにしてるの？

691:デフォルトの名無しさん
08/02/08 22:52:48
URLﾘﾝｸ(msdn.microsoft.com)

692:デフォルトの名無しさん
08/02/08 23:25:21
>>685
// var strArgument = new Array();
if ( WScript.Arguments.count() == 0 ) {
WScript.Echo ("コマンドライン引数が指定されていません。");
} else {
for (i = 0; i < WScript.Arguments.length; i++ ) {
WScript.echo ( WScript.Arguments(i) );
}
}

.vbsファイルしか作った事がないけど、なんとなく.jsファイルはこれで動くんじゃないかなぁと・・？

693:デフォルトの名無しさん
08/02/08 23:56:38
>>692
> if ( WScript.Arguments.count() == 0 ) {
count はメソッドじゃなくプロパティ。

694:デフォルトの名無しさん
08/02/09 00:10:28
>>693
えー？

695:685
08/02/09 00:12:24
>>692
動きました。ありがとうございます。
只今WSHをJScriptで書こうと、vbsのスクリプトを翻訳しながら勉強中です。
でもJSのサンプルコードが少なくて困ってました。
今回は元コードに配列を使っているように見えたので、それらしく書き換えたけど動きませんでした。
なんでここまで違いが出るのか、まだ理解してませんw
↓元のサンプルコード
Option Explicit
Dim strArgument

If WScript.Arguments.Count = 0 Then
WScript.Echo "コマンドライン引数が指定されていません。"
Else
For Each strArgument In WScript.Arguments
WScript.Echo strArgument
Next
End If

696:デフォルトの名無しさん
08/02/09 00:28:24
>>695
実際にはいろいろな書き方ができるので、余計に混乱してるのかも。

元のスクリプトになるべく忠実に対応させるなら、以下のような書き方もできる。

if (WScript.Arguments.length == 0) {
WScript.Echo("コマンドライン引数が指定されていません。");
}
else {
var e = new Enumerator(WScript.Arguments);
for (; !e.atEnd(); e.moveNext()) {
WScript.Echo(e.item());
}
}

697:デフォルトの名無しさん
08/02/09 00:31:07
for (var e = new Enumerator(WScript.Arguments); !e.atEnd(); e.moveNext()) {
すっきり

698:デフォルトの名無しさん
08/02/09 00:41:48
>只今WSHをJScriptで書こうと、vbsのスクリプトを翻訳しながら勉強中です。

なぜ？遅いのに。いろいろ細かいことにうるさいのに。などなど

699:デフォルトの名無しさん
08/02/09 01:35:29
マイクロソフトの公用言語はＢＡＳＩＣ
ゲイツはＢＡＳＩＣ長者
ｊａｖａには裁判で負けた恨みが有る

700:デフォルトの名無しさん
08/02/09 09:13:38
WSHは使うけど、今はもうVBScriptでは書かないなあ。
JavaScript(JScript)のある意味変態的な言語仕様に慣れてしまったら戻れない。

701:デフォルトの名無しさん
08/02/09 14:37:22
↑
変態

702:693
08/02/09 15:58:20
>>694
> >>693
> えー？
といわれてMSDN見てきた。

URLﾘﾝｸ(msdn.microsoft.com)

プロパティとメソッド、両方あるな……。

ふだんはJScriptで length 使うか Enumerator にして扱ってるんで、
確認不足で適当に書いてしまった。スマソ

703:デフォルトの名無しさん
08/02/09 16:38:49
＞プロパティとメソッド、両方あるな……。

プロパティを見るとメソッドになってて、メソッドしかないような

704:デフォルトの名無しさん
08/02/09 17:18:48
動きさえすればどっちでもいいよ

705:デフォルトの名無しさん
08/02/09 17:22:03
with (WScript.Arguments) {
　　 WScript.Echo(Count());
　　 WScript.Echo(length);
　　 WScript.Echo(Count); // エラー
}

706:デフォルトの名無しさん
08/02/09 20:48:58
basp21のsocketって非同期通信できませんか？
データ取得できたらコールバック関数を呼びたいんですが。

接続できなかった場合とかタイムアウトになるまで
他の処理ができない

707:685
08/02/09 23:10:36
昨日教えてもらったスクリプトを、テキストに出力しようとしたら働きません。
また教えてください。

var objFso = new ActiveXObject("Scripting.FileSystemObject");
var objFile = objFso.OpenTextFile("testdirlist.txt", 8, true);
var path String();
objArgs = WScript.Arguments;
for (i = 0; i < objArgs.length; i++)
{
path = path + objArgs(i) + "\n";
}
//WScript.Echo(path);//←働く
objFile.WriteLine(path);//←働かない
objFile.Close();

708:685
08/02/09 23:13:59
×var path String();
○var path = String();

709:デフォルトの名無しさん
08/02/09 23:46:55
絶対パスにすれば

710:デフォルトの名無しさん
08/02/10 00:18:19
var path = "";
で

711:685
08/02/10 00:30:39
>>709
動きました！

712:デフォルトの名無しさん
08/02/11 12:28:54
WSH 5.1(Win2k)環境でカレントディレクトリを変更したいのですが
Set foo = WScript.CreateObject("WScript.Shell")
foo.CurrentDirectory =
と言った.CurrentDirectoryプロパティはWSH 5.6(WinXP)以降の環境でしか動作しません。
もちろんWin2kのWSHをバージョンアップすれば動くのですが、それは手間がかかる為
やらずに解決したいと思っています。

やりたい事は、WSHスクリプトファイル(仮にhoge.vbs)と同じ階層に scriptと言うフォルダがあり、
そのフォルダの中に var.bat と言うファイルがあるとして

Set objShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(".")
objShell.Run f.path & "\script\var.bat"
等として、他のフォルダ内の実行ファイルを実行したいのです。
しかし実際にコレをやると、指定されたファイルが見つかりません　とエラーが表示されて実行できません。
確かにファイルは存在しますし、WScript.Echo f.path & "\script\var.bat" とかやってパスを確認しても
正しいパスです。

なので、カレントディレクトリを実行ファイルのある場所に移動しないと実行できないのかなと
考え、CurrentDirectoryを変更する方法を考えているのですが・・・
普通に考えてCurrentDirectoryを変更せずとも実行できるはずですよねぇ・・アドバイス頂けませんか？

713:デフォルトの名無しさん
08/02/11 12:37:49
パスをだぶるくぉーてーしょんで囲みなさい

714:デフォルトの名無しさん
08/02/11 14:26:29
>>713
レスありがとうございます。

strDrv = strCurrent & "driver\install.bat"
↑これで、カレントディレクトリ\driver\install.bat がstrDrv に入ります。
その後
objWshShell.Run strDrv
で、今までは出来ませんでした。なのでこれを" " で囲みます
objWshShell.Run "strDrv"
しかしこうすると、strDrvと言う文字列を起動しようとしてしまい、strDrvが変数として扱われず
単なる文字列として扱われるため動作しません。
objWshShell.Run ""strDrv""
として、"をエスケープしてみてもだめ～　とか考えてたら

strDrv = strCurrent & "driver\install.bat"
strDrv = """" & strDrv & """"
WScript.Echo strDrv
objWshShell.Run strDrv
これでいけました。最初の"が文字列の開始、中2つの"が文字列としての純粋な"を表し
(""で"を単なる文字列としてエスケープ)、最後の"が文字列の終了を表すダブルクォート・・・
結局 """" となり、非常に分かりにくいというか、混乱する形になったのですが、こんなもんなんでしょうか？

715:デフォルトの名無しさん
08/02/11 14:47:54
こんなもんです

716:デフォルトの名無しさん
08/02/11 16:13:45
>>714
Python がお勧め

717:デフォルトの名無しさん
08/02/11 16:15:22
strDrv = Chr(18) & strDrv & Chr(18)

718:デフォルトの名無しさん
08/02/11 17:42:26
>Set f = fs.GetFolder(".")
>objShell.Run f.path & "\script\var.bat"

objShell.Run ".\script\var.bat"

719:デフォルトの名無しさん
08/02/11 18:10:32
>>716
>>712

720:デフォルトの名無しさん
08/02/11 23:38:48
>>714
Ｃ言語やjavaだって "\"" みたいな、「たいへん分かりにくい混乱する表記」
になるから、こんなもんです。

もし、コードをスッキリさせたかったら、

Const QQ = """"
strDrv = QQ & strDrv & QQ

もしくは

strDrv = Q( strDrv )

Function Q(ByVal str)
　　Return """" & str &""""
End Function

みたいな方法がありますよ。（自分は後者をよくつかう）

721:デフォルトの名無しさん
08/02/12 01:25:32
Chr(34)は？

722:デフォルトの名無しさん
08/02/12 07:40:18
"自分は後者をよくつかう"って､使えるの､それ？

723:デフォルトの名無しさん
08/02/12 16:41:25
うん

724:デフォルトの名無しさん
08/02/12 16:56:37
＞みたいな

コードはイメージです

725:デフォルトの名無しさん
08/02/12 20:18:12
>>724
実際のコードとは異なる場合があります。

726:デフォルトの名無しさん
08/02/12 20:24:57
>>722
使えない

727:デフォルトの名無しさん
08/02/12 23:32:48
使わない

728:デフォルトの名無しさん
08/02/12 23:43:08
使われない

729:デフォルトの名無しさん
08/02/13 00:07:38
こんばんです。１つ質問させてください。

vbsでプログラムを組んでいるのですが、vbs親プログラムからvbs子プログラムを
起動は出来ないのでしょうか？
～～～～～vbs親プログラム内～～～～～～～～～
Set objWshShell = WScript.CreateObject("WScript.Shell")
strCmdLine = "sub_program.vbs str01 str02 "
objWshShell.Exec(strCmdLine)

この記述で「sub_program.vbs」を引数２つ与えて起動できると思うのですが出来ません。
尚、コマンドプロンプトで[sub_program.vbs str01 str02]実行すると正常に起動します
修正点がありましたらお教えいただけないでしょうか。

730:デフォルトの名無しさん
08/02/13 00:16:04
>>729
strCmdLine = "cscript sub_program.vbs str01 str02 "
または
strCmdLine = "wscript sub_program.vbs str01 str02 "
と記述する必要がある。

コマンドプロンプトでは、"たまたま" cscriptまたはwscriptが省略できる。

731:729
08/02/13 00:23:32
>>730
ありがとうございました。無事起動すること出来ました。
コマンドプロンプトでは"たまたま"省略可能なんですか・・・

732:デフォルトの名無しさん
08/02/13 07:49:15
という事はExplorerでアイコンをダブルクリックすれば起動するのも"たまたま"だね。

733:デフォルトの名無しさん
08/02/13 08:13:26
//H:でたまたまを切り替えられる。

734:デフォルトの名無しさん
08/02/13 09:19:40
どう考えても>>721が正解

735:デフォルトの名無しさん
08/02/13 16:36:06
たまたまだけど、これもできる
strCmdLine = "sub_program.vbs str01 str02 "
objWshShell.Run(strCmdLine)

736:デフォルトの名無しさん
08/02/13 21:57:32
>>735
おまえ､何も解ってないな

737:デフォルトの名無しさん
08/02/14 00:12:08
そうだな、解るように言ってやれ

738:デフォルトの名無しさん
08/02/15 21:53:59
var fso= WScript.CreateObject("Scripting.FileSystemObject");
var d = fso.GetDrive(fso.GetDriveName("Q:\\"));
if(d.IsReady){ ...

とやってDVD-ROMドライブが準備できているかどうか調べているのですが、
DVDを入れて認識している最中にIsReadyが実行されるとウィンドウズ自体が数秒止まってしまいます
バックグラウンドで動かしていてもフォアグラウンドアプリまで停止してしまうので困っているのですが
これを回避するにはどうしたらいいのでしょうか？

739:デフォルトの名無しさん
08/02/15 22:14:09
FSOで問題あるときはShell.Applicationを使ってみるのが定石

740:デフォルトの名無しさん
08/02/16 06:37:35
ドアラグッドウィルドームに立つ!
再生：654,421 | コメント：123,256 | マイリスト：20,510
URLﾘﾝｸ(www.nicovideo.jp)

凄い勢いで踊るドアラ
再生：482,525 | コメント：28,129 | マイリスト：17,837
URLﾘﾝｸ(www.nicovideo.jp)

ドアラが異端になった経緯
再生：424,284 | コメント：36,521 | マイリスト：9,417
URLﾘﾝｸ(www.nicovideo.jp)

ドアラーズブートキャンプ
再生：241,338 | コメント：18,996 | マイリスト：7,229
URLﾘﾝｸ(www.nicovideo.jp)

741:デフォルトの名無しさん
08/02/16 13:36:40
>>738
ドライブ認識動作中にエクスプローラとかでドライブにアクセスしても凍るから
アクセスするタイミング悪いと凍るのは仕様じゃね？

>>739
Shell.ApplicationにIsReadyはないけどな

742:デフォルトの名無しさん
08/02/16 17:20:40
Shell.Applicationで取れる情報で変化するものを見つければ？

743:デフォルトの名無しさん
08/02/18 16:30:09
Sub プロシージャとFunction プロシージャの違いって
Function プロシージャが戻り値を返すのに対してSub プロシージャが値を返さないって言うだけですか？

744:デフォルトの名無しさん
08/02/18 16:51:11
End XXX
Exit XXX
がちがう

745:デフォルトの名無しさん
08/02/18 19:34:19
>>744
End Sub
End Function
が違うって言うのは分かりますし、Functionの場合のみ Function名 = 値　で値を返す事が出来る
のも分かりますが(Javaで言うコンストラクタに値代入したらreturn文みたいな振る舞いすんのな）

Exit Sub　Exit Function　というのがあるのですか？それはいったいどういう・・・？
単に終わらせるだけですか？　呼び出し元に戻りますか？

746:デフォルトの名無しさん
08/02/18 21:25:12
Javaなんかのreturnみたいにプロシージャの呼出元へ戻るだけ。

747:デフォルトの名無しさん
08/02/18 21:50:22
>>745
ヘルプも見れないのか

748:デフォルトの名無しさん
08/02/19 22:10:48
WSH(拡張子.vbsのファイル)で
カレンダを表示するプログラムを作成しました。

出力はMsgBoxでしてます。
こんなかんじ
MsgBox strResult, , "カレンダ"

これを、携帯電話からも実行できるようにしたいと考えました。
携帯のカレンダがあるじゃないかと言われると困るのですが・・・
便宜上カレンダと言っているだけで、実際は他の物を出力するので。
イメージ的にはカレンダというと一番伝わりやすいので・・・。

で、そのアイディアとして、サイト上に掲載すればいいと考えました。
携帯のブラウザからそのサイトにアクセスした際に.vbsで作ったのと同じような出力が
得られれば良いのですが、これを実現するのに簡単な方法は無いでしょうか？
今のところ私に考え付くのは JavaScriptを勉強してJavaScriptに書き直して
やるぐらいかなぁと思っているのですが、そんな事しないとやっぱ出来ませんか？
そうなると関数とか文法とかいろいろ勝手が違うでしょうから覚え直しですかね？・・。
.vbsファイルの出力のWeb版を作りたいみたいな感じです。よろしくお願いします。

749:デフォルトの名無しさん
08/02/19 22:16:13
携帯もまだJavaScriptは実行できないぞ。

ASPと言って、Windowsサーバ上でVBScriptやJScriptをCGIのように実行する環境があった。
お前が欲しいのはきっとそれに違いない。

問題は、世間がASP.NETへ移行しつつあるということ。
ASP.NETはC#とかVB.NETとかを使うまた別物。

750:デフォルトの名無しさん
08/02/19 23:00:35
>>749
.vbsファイルを携帯に渡しても実行できるわけないし、じゃあ現状だと携帯でコレを実現
するのは難しいんでしょうか？

仮に携帯で実現するのが難しいとして、ブラウザに実装･･と言うか
第三者がWebブラウザでアクセスしてきた時に表示するようなのは
JavaScriptになりますかね？

751:デフォルトの名無しさん
08/02/19 23:01:39
すれ違い
よそへいけ

752:デフォルトの名無しさん
08/02/19 23:02:43
それって、なんか実行時に入力するパラメータあるんかな？
ないんならタスクマネージャで定期的に実行して、
TXTかHTMLに出力したのをサーバに自動アップするような環境をつくって、
携帯でそれを見に行けばいいような気がするが。

753:デフォルトの名無しさん
08/02/19 23:12:23
>>752
おお！なんか凄いアイディア聴けた！
えっとですね、1日に1回更新されるので、1日に1回実行してやればいいですね。
後はそれをTXT・・・には出来るのかなぁ・・・　ああ、そうか MsgBoxじゃなくてFileに出力
してやればいいんだ・・・　ああ、HTMLからそのTXTにリンクを貼るってのもありだし、
HTMLの中にそのTXTの内容を直接埋め込むのもありか！凄い！なるほど！
ちょっと試行錯誤してみます。ありがとうございましたっ！

754:デフォルトの名無しさん
08/02/19 23:27:45
>>752
ありがとうございました！

Dim objFso, txtFile
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set txtFile = objFso.OpenTextFile("hogehoge.txt", 2, True)
txtFile.Write strResult
txtFile.Close
Set txtFile = Nothing
Set objFso = Nothing

こんなコードで生成できました！後はこの.txtファイルにHTMLでリンク貼れば完璧！
本当にお世話になりました～

755:デフォルトの名無しさん
08/02/19 23:57:23
>>753-754
ただのテキストを吐き出すついでにHTMLにすればいいんじゃないの？

756:デフォルトの名無しさん
08/02/20 00:29:27
>>755
いやーそれが、やろうと思ったのですが、出来なくて・・・。
やろうと思ったらかなり大変だと思いますが、簡単に出来るもんでしょうか？

757:756
08/02/20 00:30:22
Replace strOutStrings, vbCrLf, " "
とかやって、改行を に置き換えようとかやってみたんですが、うまくいきませんでした。

758:デフォルトの名無しさん
08/02/20 00:47:19
>>756
With txtFile
　　 .Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""URLﾘﾝｸ(www.w3.org)"">"
　　 .Write "<html lang=""ja"">"

...

End With
こんな感じで書き出せばいいだけだろ。

>>757
そのテキストをpre要素の中に入れてしまうというのはどうだ？

759:デフォルトの名無しさん
08/02/20 00:47:33
Dim objFso, txtFile
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
Set txtFile = objFso.OpenTextFile("hogehoge.htm", 2, True)
txtFile.Write "<HEAD><TITLE>うんこやろ～</HEAD></HEAD>"
txtFile.Write "<BODY>"
txtFile.Write "<CENTER>なんか文句あっか！</CENTER>"
txtFile.Write "</BODY>"
txtFile.Close
Set txtFile = Nothing
Set objFso = Nothing

760:デフォルトの名無しさん
08/02/20 00:51:57
そういえばむかし、こんなんやってたな。

10 OPEN "INDEX.HTM" FOR OUTPUT AS #1
20 PRINT #1,"<HEAD><TITLE>ハナクソ</TITLE></HEAD>"
30 PRINT #1,"<BODY>"
40 PRINT #1,"<CENTER>うんこちんちん！</CENTER>"
70 PRINT #1,"</BODY>"
90 CLOSE #1
100 SYSTEM

これを N88BASIC.EXE /T:RUN"HOGE.BAS" で定期的に動かして
コンテンツを更新してた。
古きよき時代。

761:756
08/02/20 16:22:22
>>758
それやろうとしたんですが、HTMLファイル中の" を ""と置き換えないといけないのが面倒でした。
HTMLって意外と"を使いますし。
それに.txtファイルに出力してしまって HTMLからリンクを貼るだけの方がとても楽だったので・・。

それにしてもWithステートメントかぁ、ヘルプを見て初めて知りましたが、こんな便利なのが
あったんですね。今までだったら txtFile. を何度も書かないといけなかったのに、これを知った
おかげで完全修飾しなくてすむからもっとコードが楽にスッキリかけそうです。ありがとうございます。

＞そのテキストをpre要素の中に入れてしまうというのはどうだ？
これもまた素晴らしいアイディアだと思います。考え付きませんでした。
確かにそれなら簡単ですね。なるほどなるほど・・・。
しかしどうして>>757のコードで改行が に置き換わらないのでしょうか？

>>759
＞txtFile.Write "<HEAD><TITLE>うんこやろ～</HEAD></HEAD>"
この行</HEAD>が2個あります。</TITLE>の間違いでしょうか(内側のHEAD)

>>760
へぇ・・・そんな時代があったんですかぁ～・・・。

762:デフォルトの名無しさん
08/02/20 16:34:20
Replaceは結果を戻り値に返すからこう使わないといけないはず。
strOutStrings = Replace(strOutStrings, vbCrLf, " ")

""がうざいのは、
ダブルクォーテーションではなくシングルクォーテーションを使うとか、
（属性はシングルでいい。でもDOCTYPEはわからない）
先頭（head要素が終わるまでくらい）をテキストに用意しておいて、
txtFileの頭にそれを書き出すとかでどう。
.Write objFso.OpenTextFile("c:\header.txt", 1).ReadAll

763:デフォルトの名無しさん
08/02/20 16:46:23
＞HTMLって意外と"を使いますし。

ならJScriptつかえよ
HTMLタグをつけるメソッドもあるし

764:デフォルトの名無しさん
08/02/20 17:58:02
>>763
DOMのことならVBScriptからでも使えるだろ。

765:デフォルトの名無しさん
08/02/20 18:18:23
Stringオブジェクトのことだろ

766:デフォルトの名無しさん
08/02/20 18:45:06
でもあまり使えるメソッドがないな

767:デフォルトの名無しさん
08/02/20 19:49:38
HTMLタグをつけるメソッドを付けた奴は、きっと浮かれ過ぎていたんだろうな。
後でcreat以上に恥ずかしい思いをしたに違いない。

768:デフォルトの名無しさん
08/02/20 20:09:23
JScriptだから好きなメソッドが追加できるよ
.quote()なんてのもいいんじゃね

769:デフォルトの名無しさん
08/02/20 20:15:50
anchor(anchorString), big(), blink(). bold(), fixed(),
fontcolor(colorVal), fontsize(intSize), italics(), link(linkstring),
small(), strike(), sub(), sup()
確かに今更これらを使う気にならない

770:756
08/02/20 22:51:33
>>762
＞strOutStrings = Replace(strOutStrings, vbCrLf, " ")
あ、なるほど、確かにそうだ・・・失敗失敗・・・。

＞先頭（head要素が終わるまでくらい）をテキストに用意しておいて、
txtFileの頭にそれを書き出すとかでどう。

なるほどねぇ・・・参考になります。

>>763
JScript使った事無いので全然知りません。

>>769
が言っている事がさっぱり分からない・・・

771:デフォルトの名無しさん
08/02/20 23:13:16
俺もJScriptは使わないけど、ヘルプはあるんでJScriptのヘルプより抜粋。

> anchor メソッド参照
> link メソッド| String Object メソッド | String Object プロパティ
>
> 対象: String オブジェクト
> 必要条件
> バージョン 1
> String オブジェクトに格納されている文字列の前後に HTML の NAME 属性を指定する <A> タグを挿入します。
>
> strVariable.anchor(anchorString)
> 引数
> strVariable
> 必ず指定します。String オブジェクトの名前またはリテラルを指定します。
> anchorString
> 必ず指定します。アンカータグの NAME 属性に挿入する文字列を指定します。
> 解説
> anchor メソッドを呼び出すと、String オブジェクトから名前付きアンカーが作成されます。anchor メソッドの使用例を次に示します。
>
> var strVariable = "これはアンカーです";
> strVariable = strVariable.anchor("Anchor1");
> 2 つ目のステートメントの実行後、変数 strVariable は次の値になります。
>
> <A NAME="Anchor1">これはアンカーです</A>
> このメソッドの実行時には、<A> タグが既に元の文字列内にあるかどうかの確認は行われません。

後の関数も似たようなもんだろ。さすがにこれはどうかね・・・

772:デフォルトの名無しさん
08/02/23 10:32:49
BASP21のSpaceメソッドほどではない。

# あれは馬場さん自身「作者の無知からくる全くのゴミメソッド」なんておっしゃってたな...

773:デフォルトの名無しさん
08/02/23 10:43:06
｜BASP21メソッド編
｜　1. BASP21のSpaceメソッドはなんであるの
｜　　　えーとこれは、作者の無知からくる全くのゴミメソッドです。
｜　　　HTML でスペースをあけるのに全角のスペースを使うことがありますが、
｜　　　IMEでなぜか入力できなかったから（IMEのプロパティが半角スペースになっていただけ）。
｜　　　たぶん、誰も使ってないと思いますがどうでしょう。

babaq さんオッチョコチョイ杉ﾜﾛﾀ

せっかくだから今度どこかで無理矢理にでも使ってあげようっと

774:デフォルトの名無しさん
08/02/23 12:50:03
あれはあれで便利だからなくさないで欲しい

775:デフォルトの名無しさん
08/02/23 13:30:14
吉岡照雄のOn Error Resume Nextの正しい使い方とやらを読んだんだが、
こんな面倒なことをしないといけないのか・・・

776:デフォルトの名無しさん
08/02/23 15:11:12
>>775
On Error Resume Nextの正しい使い方教えて～

777:デフォルトの名無しさん
08/02/23 15:23:10
Subプロシージャを毎回作るのはいいけど、さらに複数行の時は入れ子。。。
Subプロシージャだらけになって大変すぎ

778:デフォルトの名無しさん
08/02/23 16:39:25
ファイルの日付をデータベース(ACCESS)に格納できねぇーー

strSQL = "INSERT INTO Log " & _
" (Name " & _
" ,Date " & _
" ,SIZE) " & _
"VALUES ('" & fol.Name & "'" & _
" ,#" & fol.DateCreated & "#" &_ '←ここがおかしいらしい
" ," & fol.Size & ")"

なんか
『Insert into ステートメント　の　構文エラーです』
とか出るんだけどなにがおかしいのか・・・

779:デフォルトの名無しさん
08/02/23 17:27:26
文字列にフォーマットし直してから渡せ

780:デフォルトの名無しさん
08/02/23 18:51:51
はぁー？

781:デフォルトの名無しさん
08/02/23 18:55:22
問題はそのフォーマットだろ

782:デフォルトの名無しさん
08/02/23 19:22:20
SQLの構文に合った書式に変換されるとは限らないってこった。
一旦、年月日時分秒をバラバラにして、構文に合わせた書式に作り替えればいい。
書式は自分で調べてくれ。

783:デフォルトの名無しさん
08/02/23 20:40:43
#mm/dd/yyyy hh:mm:ss#
で渡すといいよ。VBScriptはFormat関数ないから面倒だ。

784:デフォルトの名無しさん
08/02/23 21:39:48
コードそのままで[地域のプロパティ] を変更するといいよ

785:デフォルトの名無しさん
08/02/23 22:21:37
capicom.dllが再頒布可能かどうかが調べてもさっぱり分からないんだが

786:デフォルトの名無しさん
08/02/23 22:31:22
WSHってマウスクリックも出来ないし、.SendKeysメソッドで日本語扱えないしで
やっぱりAutoHotKeyには到底かなわない？

787:デフォルトの名無しさん
08/02/23 22:40:13
>>785
URLﾘﾝｸ(www.microsoft.com)
このパッケージには、CAPICOM 2.1.0.1 の再頒布可能なファイルとそのサンプルが含まれています。

788:デフォルトの名無しさん
08/02/23 22:47:45
>>787
そこだけみると、間違いなく再頒布可能なファイル=CAPICOM.dllな気がするんだが、
DLしてライセンス(英語)を読むと、
再頒布可能なのは、REDIST.TXTに記載されたものと書いてあるが、
REDIST.TXTなんてどこにもない・・・

ググってもググってもはっきりどこにも書いてないorz

789:デフォルトの名無しさん
08/02/23 23:40:10
>>788
URLﾘﾝｸ(msdn2.microsoft.com)
ここだと「再配布可能な CAPICOM ActiveX control」と表現してる。
Platform SDK で CAPICOM で ActiveX control なのは capicom.dll しかないので限定できる。

The Platform SDK contains CAPICOM samples, API documentation, and the redistributable CAPICOM ActiveX control.

というか考えすぎと思う。
再配布して意味のあるものは capicom.dll しかないんだし。

790:デフォルトの名無しさん
08/02/23 23:43:07
>>779
#とか'とか何度もやったし
>>781
Accessに設定したフォーマットは、yyyy/mm/dd hh:mm:ssで、
DateCreatedも書式一緒だからそのままにした
>>782,783

Dim day, m, n, strDt, strEd
strDt = "2090/02/23 00:00:00"
day = Split(strDate, " ")
m = Split(day(0),"/")
n = Split(day(1), ":")
strEd = m(1) & "/" & m(2) & "/" & m(0) & " " & n(0) & ":" & n(1) & ":" & n(2)
WScript.Echo strCom

煩雑だ
>>784
[英国]とか[米国]でもダメだけどorz

フィールド名にDateはダメだったの？
Dateから日付に直したらできたよ
ふぉぉぉぉぉっふぉおおおっ！！

791:デフォルトの名無しさん
08/02/24 00:08:27
>>789
確かにそういうことですね。私の考えすぎでした。

これで、capicom.dllを一緒に配布できるってことか。
一緒に配布している例が見あたらなくって、
どうしてMicrosoftからDLさせるところばっかりなんだろう？と、思ってました。

どーもです。

792:デフォルトの名無しさん
08/02/24 00:26:28
>>791
>どうしてMicrosoftからDLさせるところばっかりなんだろう？と、思ってました。

これについてはセキュリティリスクが関係すると思う。

同梱は可能であっても、同梱してしまうとバグやセキュリティ問題で capicom が更新されたとき、
企業責任として製品自体の更新版を出すことを検討しなければならない。
別途ダウンロードさせる場合にはそれは必要ない。

793:デフォルトの名無しさん
08/02/24 02:28:06
>>786の質問に答えてくだされ・・・・

794:デフォルトの名無しさん
08/02/24 02:34:26
そうです、WSHはうんこです。AHKの足元にも及びません。AHKが最高です。よかったね。

795:デフォルトの名無しさん
08/02/24 09:26:00
AHK >>>>>>>>>>>>>>>>>>>>> マウス操作がデフォでできない言語

こんな定義でおｋ？AHKってどんだけ凄いんだよ（ｗ

796:デフォルトの名無しさん
08/02/24 09:40:34
全盛期のAHK伝説でも貼る流れか？

797:デフォルトの名無しさん
08/02/24 10:05:09
AHKは本当に凄いですよ？AHKにWSHが勝てる点って　デフォルトでWindowsに入ってる
標準環境っていうぐらいじゃないですかね？

798:デフォルトの名無しさん
08/02/24 10:24:06
デフォルトでWindowsに入ってる標準環境＞＞＞（越えられない壁）＞＞＞インストール

799:デフォルトの名無しさん
08/02/24 13:03:14
AHKのおかげで身長が２ｍ伸びました

800:デフォルトの名無しさん
08/02/24 13:06:38
AHKから受信料の請求がきましたが、どうすればいいのでしょうか

801:デフォルトの名無しさん
08/02/24 13:29:44
>>800
テレビの横に古いパソコンを置いて「これはパソコンモニタです」って言い張れ。

802:デフォルトの名無しさん
08/02/24 13:43:11
>>786 >>793 >>797
暇でネタ振ってるんだと思うけど、それならそれで以下を回答してくれ。

・WSHとは何か、具体的に。
・どのように比較してその結論に達したか。

803:デフォルトの名無しさん
08/02/24 15:12:23
Ａ　ア
Ｈ　ホ
Ｋ　か？

804:797
08/02/24 16:47:52
>>802
WSHとはWindows Script Hostingの事で、拡張子 .vbsのファイルにして実行できる
Windowsのスクリプト(Batとは違うのだよ、Batとは！)です。
Linuxで言うShell Scriptみたいなものかと思っています。

比較は、やはりマウスクリックですね。操作の自動化をしたいので、GUIアプリケーションを操作
する際に、Alt + Key みたいな感じにキーが割り当てられてない、クリックでしか出来ない操作を
自動化しようとするときにWSHだと無理なんですよ。
それと .SendKeysメソッド。日本語を送信できないなんて論外です。

その点AHKなら日本語も送信できるしマウスクリックも出来るし、記述が簡単(インスタンス生成
とか面倒な事しなくても簡単な記述でいい、ただし引数の多さがたまに傷かな)な所が良いと思います。

こんな感じでしょうか？

805:デフォルトの名無しさん
08/02/24 17:22:37
WSHはオートメーションオブジェクトの操作がメインだったりする。
他のアプリの制御はアウトプロセスサーバとして制御してくれ、って方針。
Perlが標準入出力の扱いに最適化されているように、
ATKはGUIアプリの操作シミュレートによる制御に最適化されている、と。
ATKはWMIの制御やりにくいから糞、とか言われても困るだろ？

806:797
08/02/24 17:52:35
>>805
1行目、2行目、5行目の貴方の言っている事がスキルの低い私には理解できません・・・。
意味が分からないです・・・。すみません。

807:デフォルトの名無しさん
08/02/24 17:56:37
操作自動化の方法論が違うから総合的な比較はできないってこと
GUI操作のシミュレートならそりゃそれように作られたもの使うのが当然
WSHはそういう用には作られてないもの

808:デフォルトの名無しさん
08/02/24 18:06:30
＞それと .SendKeysメソッド。日本語を送信できないなんて論外です。

日本語が送れるVBのSendKeysと送れないVBSのSendKeysは、
仕組み上でどういう違いがあるのでしょうか？

809:デフォルトの名無しさん
08/02/24 18:13:14
直接Win32API呼び出してるかどうかじゃね

810:デフォルトの名無しさん
08/02/24 18:15:12
Win32API呼び出さないで、SendKeys作れるの？

811:デフォルトの名無しさん
08/02/24 18:22:31
つかってるAPIがちがうんだろ

812:802
08/02/24 21:37:27
>>804
WSHというのは、スクリプト言語からWindows操作をする為の手段(WSHオブジェクト)
の提供と、そのスクリプト言語をデフォルトではVBScriptとJScriptを内包している。

君の比較しているのはVBScriptのようだけど、これは>>805の言っている通り
WSH以外のオブジェクトにもアクセスできる。例えば、IEやEXCEL、WMI....etc
こういう事はAHKでは、どうやるの？

というか、よく見たら>>807が結論出してるね。
GUI操作だけで比較したら、その機能に特化しているAHKが優れているが、
それは総合的な比較じゃないでしょ。理解できた？

813:797
08/02/24 23:23:04
>>812
なるほど、適材適所でWSHもWSHが得意な場面で使えばAHKより使い勝手いいんだ・・・。

814:デフォルトの名無しさん
08/02/24 23:59:03
質問させてください。

ファイルが書き込み不能かどうかを検出するにはどうすればよいでしょうか？
リードオンリ属性ではなく、ファイルを削除するとき稀に出てくる
「ほかのプログラムが使用しているため削除できません」ってやつの状態です。

815:デフォルトの名無しさん
08/02/25 00:01:04
>>814 自己レス。
try仕込むだけでよかったのね orz

816:デフォルトの名無しさん
08/02/25 01:18:15
>>812
> こういう事はAHKでは、どうやるの？
AHK用ActiveXモジュールを使えば良いだけ

逆にWSHでのポインティング操作などは
そういう機能を提供するCOMを使えば良いだけ

このレベルのことなら､やり易さに違いはあっても
結果的に"出来ること"ではWSHもAHKも大差ない

ポインティング操作に限って言えば
WSHは最初からWindowsに入っているが､ポインティング操作機能は後付けになる
AHKはWindowsに対して後付けで入れないと使えないが､ポインティング操作は最初から備えてる
ってだけの違い

817:797
08/02/25 02:18:45
>>816
なんか凄くお詳しいですね・・なるほど、参考になります。
構文とかの簡単さはどちらの方に軍配が上がりますか？
情報量の多さでいくと、WSHの方が色々なところで解説されているだろうし
メジャーだと思います。

AHKはもっと普及してれば敷居低くなるのになぁと思ったり。

818:デフォルトの名無しさん
08/02/25 02:49:55
AHKS

819:デフォルトの名無しさん
08/02/28 09:15:26
FileSystemObjectのTextStreamオブジェクトのReadAllメソッドって
サイズ0のテキストファイルに対して実行するとどうしてエラーになるのかよくわからん
長さ0の文字列返せばいいのに
なんで？

あとVB6でFileSystemObjectのGetParentFolderNameメソッドを使うと親フォルダ名のみだけど
VBScriptだと親フォルダのフルパスが返ってくるけどこれもなんでだろ？
同じFileSystemObjectでもVB6が使ってるのは別物なの？
なんで？

820:デフォルトの名無しさん
08/02/28 20:06:21
ReadやReadLineとの仕様の一貫性かも

DLLは同じなの？

821:デフォルトの名無しさん
08/02/28 21:57:16
ReadAll()する前にAtEndOfStreamを調べなきゃならないようですね

var ForReading = 1, ForWriting = 2;
var Fso = new ActiveXObject("Scripting.FileSystemObject");
var f = Fso.OpenTextFile("null.txt", ForReading);
if (! f.AtEndOfStream)
　　 WScript.StdOut.Write(f.ReadAll());
f.Close();

822:デフォルトの名無しさん
08/02/28 22:01:31
たぶん、めんどくさかったんだと思う

823:デフォルトの名無しさん
08/03/01 23:17:11
WindowsXP、つまり最新のWSH 5.6だと使えるメソッドでもWindows2000、つまりWSH 5.6未満だと
使えないメソッド(例えば Execメソッドとか・・・)やプロパティがありますよねぇ？

それらを調べたいのですが、何を見ればそういうことがまとまって書かれてありますか？
WSHのヘルプファイルを見てみたのですが、見つけきれませんでした。

やりたい事はWindows2000のWSHを5.6にバージョンアップせずにWindows2000でもXPでも
動作するスクリプトを書きたいのです。だから予めどのメソッドが動作しないとか、
引数が違うとかそういうことを把握しておきたいのです。

824:デフォルトの名無しさん
08/03/01 23:46:07
5.6のヘルプのバージョン情報

825:デフォルトの名無しさん
08/03/01 23:47:24
ただし、障害は載ってないからなぁ

826:デフォルトの名無しさん
08/03/02 08:26:53
最新は5.7よ

827:デフォルトの名無しさん
08/03/02 13:02:12
＞やりたい事はWindows2000のWSHを5.6にバージョンアップせずにWindows2000でもXPでも
＞動作するスクリプトを書きたいのです。

いまさらやめとけ　それに2.0じゃたいしたことはできねー

828:デフォルトの名無しさん
08/03/02 16:42:46
>>825
5.0と5.1の挙動の違いすら、5.6のヘルプのバージョン情報だけでは分からなかったからなぁ・・・

829:デフォルトの名無しさん
08/03/19 11:24:42
5.7なんてあったっけ

830:デフォルトの名無しさん
08/03/19 12:40:52
>>829
最近出た。Vistaに標準搭載で、上から2000, XP, 2003英語版がダウンロード可。
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(www.microsoft.com)
URLﾘﾝｸ(www.microsoft.com)

831:デフォルトの名無しさん
08/03/19 15:47:18
ちがいは？

832:デフォルトの名無しさん
08/03/20 03:21:19
0.1

833:デフォルトの名無しさん
08/03/20 03:37:06
>>831
不具合修正・セキュリティパッチの統合もあるが、
JScriptで大量のオブジェクトが生成された時のGC高速化がメインかと。
dramaticallyとまで書かれているあたり、結構凄いのかもしれない。

834:デフォルトの名無しさん
08/03/20 19:20:03
Msxml2.XMLHTTPなんだけど
readyState=2や3の時、status取得できる？
4にならないとエラーになるんだけどこれ普通？

Msxml2.ServerXMLHTTPなら2や3でできるんだよね・・・
最近IEがおかしくなってきてるので
どっか壊れてるんだろうか・・・？

XP SP2+IE6

835:デフォルトの名無しさん
08/03/29 00:32:37
IEとalertがとじれません＞＜

836:デフォルトの名無しさん
08/03/29 02:02:27
すれちがい

837:デフォルトの名無しさん
08/03/29 02:09:26
IE.Quit

838:デフォルトの名無しさん
08/03/29 15:04:13
Exec("iexplore.exe").Terminate

839:デフォルトの名無しさん
08/03/29 17:42:24
>>775-776
これ、気になるんですけど…

840:デフォルトの名無しさん
08/03/29 17:59:25
どんまい

841:デフォルトの名無しさん
08/03/29 18:41:22
ん？検索すれば出てくるだろ？

842:デフォルトの名無しさん
08/03/29 19:05:52
>>841
あれがベストなのか？

843:デフォルトの名無しさん
08/03/29 19:10:55
.wsfに読み込む.vbsファイルの一部の関数を非公開にするのってどうやるの？
.vbs内部だけで使える関数を作りたいんだけど・・・

844:デフォルトの名無しさん
08/03/29 19:13:42
できない
代替するなら
wsc
class
かな

845:デフォルトの名無しさん
08/03/29 19:18:08
>>842
ベストなのを教えて

846:デフォルトの名無しさん
08/03/29 23:13:48
無理言うな、それが出来れば質問しないだろ？

847:デフォルトの名無しさん
08/03/29 23:45:48
>>843
Sub xxx_aaa()
とかで凌げ

848:デフォルトの名無しさん
08/03/30 00:02:50
エラーが起きたら即終了でダイアログが出ないようには
どうすればよろしいでしょうか？

849:デフォルトの名無しさん
08/03/30 00:07:35
try {
　　 ……
}
catch (e) {
　　 WScript.Quit();
}

次ページ