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

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

[前50を表示]
600:デフォルトの名無しさん
08/01/08 17:29:09
movefileでぐるぐる

601:デフォルトの名無しさん
08/01/08 21:50:28
> まずc:\test\foo.txtを削除し、c:\test\test\foo.txtをc:\test\foo.txtに移動させる。
> さらに同名フォルダの場合はそれぞれについて再帰的に処理していく。

ファイル名とフォルダ名が同じだったらどうするんだろ

602:デフォルトの名無しさん
08/01/08 21:58:05
すきにしてくれ

603:デフォルトの名無しさん
08/01/08 22:24:30
つrobocopy.exe

604:585
08/01/09 06:53:12
>>601
そのへんは考えてあります。
MoveHereの標準動作を見ると

移動先に同名アイテムがない　→　移動
移動元：ファイル　→　移動先：ファイル　→　コピー先削除　→　移動
移動元：ファイル　→　移動先：フォルダ　→　エラー（中断）
移動元：フォルダ　→　移動先：ファイル　→　エラー（中断）
移動元：フォルダ　→　移動先：フォルダ　→　マージ（再起処理へ）

ということみたいですが、
ファイル-フォルダ、フォルダ-ファイルの場合の中断は問題があるので
ダイアログでも出すか、スキップするかで対応。

605:デフォルトの名無しさん
08/01/09 16:41:28
cronNTで動かすスクリプトはネットワーク上のファイルにはアクセス出来ないのでしょうか？

var objFSO = new ActiveXObject("Scripting.FileSystemObject");
WScript.Echo((objFSO.DriveExists("\\\\Server\\SharedDocs")).toString());;

というスクリプトをcronNTで動かした場合、falseになります。

606:デフォルトの名無しさん
08/01/09 18:12:05
DriveExists？

607:デフォルトの名無しさん
08/01/09 20:35:09
>>605
それ、cronNTじゃない環境では動くの？

608:デフォルトの名無しさん
08/01/09 23:44:50
>>606
URLﾘﾝｸ(msdn.microsoft.com)

>>607
コピペミスで2行目に　;　が1個余分に付いてしまったorz

foo.js というファイル名で保存して、コマンドプロンプトから cscript で実行させれば動きます。

共有フォルダに置いてあるDLL（AutoItX3.dll等）を regsvr32 した後、スクリプト中で
ActiveXObject() して使おうと思い、コマンドプロンプトからの動作確認ではうまく動いたので
cronNT に起動スケジュールを書いておいたら動いてはくれず、色々と調べていたら
共有フォルダへのアクセスに失敗している事が分った次第です。

もし、cronNT が原因で他の類似ソフトでは再現しない問題なら他に良い物が有れば
それに乗り換えようとも思ってます。
ただ、VMware Player の中で動かしている都合
（無料版はディスクイメージの容量を後から大きくするツールが付属しない）で、
しかも既に残り容量にも余裕が全く無い為、

Windows Services for UNIX Version
URLﾘﾝｸ(www.microsoft.com)

の様なのでは無く、もっと軽い物でないと無理です。

609:デフォルトの名無しさん
08/01/10 01:57:32
cronNT類似とか関係なく、例えばWSHとかHTML, HTAなど
他のActive Script実行環境でやるとどうなるか試してみろ。

610:デフォルトの名無しさん
08/01/10 09:00:52
>>608
ちょっとかなりスレ違いっぽいが
cronNTサービスのプロパティを開いて
ログオンをローカルシステムアカウントから自分のアカウントに変えてみて

611:デフォルトの名無しさん
08/01/10 11:28:47
Aというディレクトリに a,b,c,d,e というファイルがありました
それをBというディレクトリにmoveしますが途中で終了してしまい
a,b,cまでしかmoveされませんでした
その後もう一度AをBにmoveしたところ上書きしますか？と聞かれたので
「はい」で最後まで完了したのですがBのナカミを見たところ
d,eしかありませんでした
あるOSで実際に起こった出来事です

612:デフォルトの名無しさん
08/01/10 13:53:18
で？

613:デフォルトの名無しさん
08/01/10 15:46:01
＞それをBというディレクトリにmoveしますが途中で終了してしまい

「それ」とは何か。具体的に書け。

614:デフォルトの名無しさん
08/01/10 16:54:33
>「それ」とは何か。具体的に書け。

単数形だから「Aというディレクトリ」じゃね

615:デフォルトの名無しさん
08/01/10 17:24:00
>611
最初のmoveにより、ディレクトリAからファイルa,b,cが消えた。
その状態でディレクトリAを再びmoveさせれば、ディレクトリBにファイルd,eしかないのも別におかしくないだろ。

616:デフォルトの名無しさん
08/01/10 20:57:58
普通はディレクトリとその中身のファイルは別だからねぇ。
ディレクトリを移動（上書き）というのはディレクトリ自体の移動ではなく中身の移動のことだし。

中身の移動であるという観点から見れば、上書きが発生すること自体おかしな話だわな。

617:デフォルトの名無しさん
08/01/10 21:32:01
なぜ「それ」が問題なのかというと、
Aというディレクトリを move せずに
a,b,c,d,e というファイルを move すればよかったんだよ。
「それ」が A なのか a,b,c,d,e なのかで結果が違ったんだね。

618:デフォルトの名無しさん
08/01/10 21:57:15
Macはどうでもいいよ。

619:デフォルトの名無しさん
08/01/11 17:16:43
a,b,c,d,e なら「それら」だろ

620:デフォルトの名無しさん
08/01/11 20:19:27
>>611
ご愁傷さま

621:デフォルトの名無しさん
08/01/11 20:56:54
URLﾘﾝｸ(www.microsoft.com)
を JScript に移植したくて以下のように書きましたが、実行すると
xxx.js(4, 1) SWbemServicesEx: 無効なクエリです。
というエラーで止まってしまいます。
どこが間違っているでしょうか？

var strComputer = ".";
var objWMIService = GetObject("winmgmts:\\\\" + strComputer + "\\root\\CIMV2");

var colMonitoredEvents = objWMIService.ExecNotificationQuery(
"SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " +
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " +
"TargetInstance.GroupComponent= " +
"'Win32_Directory.Name=\"c:\\\\scripts\"'");

while (true)
{
var objLatestEvent = colMonitoredEvents.NextEvent;
WScript.Echo(objLatestEvent.TargetInstance.PartComponent);
}

622:デフォルトの名無しさん
08/01/11 20:58:28
>>611
次から気を付けようなｗ

623:デフォルトの名無しさん
08/01/11 20:59:57
>>622
ここが間違ってる

var colMonitoredEvents = objWMIService.ExecNotificationQuery(
"SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " +
"Targetinstance ISA 'CIM_DirectoryContainsFile' and " +
"TargetInstance.GroupComponent= " +
"'Win32_Directory.Name=\"c:\\\\scripts\"'");

624:621
08/01/11 21:09:46
>>623
すみません、書き方が悪かったです。
どこが間違ってるかはエラーメッセージが教えてくれているのでわかってました。
どう直せばいいんでしょうか？

625:デフォルトの名無しさん
08/01/11 21:41:29
デバッグくらい自分でしろ～
他人に投げるな～～

626:デフォルトの名無しさん
08/01/11 21:42:52
var colMonitoredEvents = objWMIService.ExecNotificationQuery(
"SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE "
+ "Targetinstance ISA 'CIM_DirectoryContainsFile' and "
+ "TargetInstance.GroupComponent= "
+ "'Win32_Directory.Name=\"c:\\\\\\\\scripts\"'");

627:デフォルトの名無しさん
08/01/11 22:38:22
wwww

628:621
08/01/15 17:17:28
>>626
ありがとう

629:デフォルトの名無しさん
08/01/18 06:33:04
CreateObject("ADODB.Stream")

上記でエラーがでます。
おそらく、ファイルが必要だと思うのですが、
それはどうやったら手に入りますか？

630:デフォルトの名無しさん
08/01/18 07:29:28
>>629
とりあえずエラーの内容書いてみ

631:デフォルトの名無しさん
08/01/18 21:42:53
>>629
MSからダウンロードに決まってるだろ

632:デフォルトの名無しさん
08/01/18 22:22:49
標準で入ってない環境、まだあったっけ？

633:デフォルトの名無しさん
08/01/19 09:49:15
FileSystemObjectとか称してテキストファイルの読み書きしか出来ないの？
fread,fwriteとかseekのメソッドを提供してるクラスって無いの？

634:デフォルトの名無しさん
08/01/19 09:59:08
出来ない
ADODB.Stream

635:デフォルトの名無しさん
08/01/19 15:46:30
ADODB.Stream ってファイル全体をいっぺんに読み込んでしまうよね？
デカイ動画ファイルの最初の数バイトだけ読み込んで処理したいけど
ファイル全体を読み込んでしまうため時間がかかってしょうがない。
何か良い手は無いですか？

636:デフォルトの名無しさん
08/01/19 16:18:25
FileSystemObjectで読む

637:デフォルトの名無しさん
08/01/19 22:25:52
PowerShellやC#に逃げる

638:デフォルトの名無しさん
08/01/20 01:04:11
　　　　　↑
自分の殻に閉じこもる現実逃避型。

639:デフォルトの名無しさん
08/01/20 01:25:31
debugでダンプする

640:デフォルトの名無しさん
08/01/20 17:01:36
殻＝shell

641:デフォルトの名無しさん
08/01/20 22:13:18
basp21

642:デフォルトの名無しさん
08/01/20 22:46:52
客先のＰＣにbasp21がインストールしてあれば苦労しないよ

643:デフォルトの名無しさん
08/01/20 23:24:23
スクリプトをインストール(=使用準備なので何処かのディレクトリにスクリプト置くだけでインストールになる)は可能なのに
COMコンポーネントのインストールは不可なんて馬鹿げたことを言い出すような低レベルな奴など相手にするな

こんなこと言い出すのは､嫌レジストリ厨とか"インストール"の意味を分かってない奴とか､相当な初心者の類だが､
もし"客先"ってのが会社なら､そんな奴がシステム管理においての権限を持ってるなんてゾッとしないねw
まあそれ以前にWSHスクリプトを外注する会社ってのもアレだけどw

644:デフォルトの名無しさん
08/01/20 23:37:16
FileSystemObjectなら使えるだろうに、なぜ使わん？

645:デフォルトの名無しさん
08/01/21 00:12:46
スクリプトの中で COM みつからなかった初回のみ regsrvr32 すれば？

646:デフォルトの名無しさん
08/01/21 00:14:43
>>635
> デカイ動画ファイルの最初の数バイトだけ読み込んで処理したいけど
とのことだ。
バイナリは無理だろ。

647:デフォルトの名無しさん
08/01/21 00:15:20
>>646 は >>644 へのレスね。

648:デフォルトの名無しさん
08/01/21 01:28:09
OpenBinaryFile()

649:デフォルトの名無しさん
08/01/21 01:50:38
> バイナリは無理だろ。

何が？

650:デフォルトの名無しさん
08/01/21 01:55:19
FSOでってことだろ

651:デフォルトの名無しさん
08/01/21 04:47:12
ForBinaryReading

652:デフォルトの名無しさん
08/01/21 10:21:14
それは今回の用途とは違うわけで

653:デフォルトの名無しさん
08/01/21 16:21:14
baspをbase64してwsfに入れて実行時に登録

654:デフォルトの名無しさん
08/01/21 16:36:19
すなおにＶＢで作って納品４６

655:デフォルトの名無しさん
08/01/23 01:59:20
VBSファイルごとにアイコン変える方法おすえて

656:デフォルトの名無しさん
08/01/23 02:11:42
>>655
ショートカット作って、ショートカットのアイコン変えるとか

657:デフォルトの名無しさん
08/01/24 21:41:26
そういうアイコンハンドラを使えばいいんじゃね
なければ作ればいいんじゃね

658:sage
08/01/31 00:57:14
１．WSHを使って指定ＵＲＬをＩＥから立ち上げる
２．（１）のＵＲＬのＨＴＭＬに含まれるjavascriptを解析して
自動で実行したい

ＷＳＨで１．はできると思うのですが、２はできますでしょうか？
できるのであればヒントを教えていただけぬか

659:デフォルトの名無しさん
08/01/31 00:59:05
HTMLDocument

660:デフォルトの名無しさん
08/02/01 20:30:46
最近 WSH を始めた者です。
WSHShell の Run メソッドでアプリを起動して使おうとしているんですが、
普通にアイコンをダブルクリックして起動した場合と挙動が違って困っています。

とりあえずわかったことは、そのアプリは ¥Document and Settings¥ユーザ名¥
Application Data¥アプリ名以下に一時ファイルを作るんですが、WSH から
起動した場合ファイルが生成されないようです。
WSH の場合でもちゃんと走るようになる為には何か別途設定がいるのでしょうか?
今は基本的に WSHShell.Run(アプリのバス, 4, True) を呼んでるだけです。

661:デフォルトの名無しさん
08/02/01 21:42:20
>>660
カレントディレクトリを設定しろ
設定仕方はWSHヘルプに載ってるので嫁

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から日付に直したらできたよ
ふぉぉぉぉぉっふぉおおおっ！！

次ページ