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

(　´ゝ`)　誰か詳しい情報ｷﾎﾞﾝﾇ

●過去スレ
WSH(・∀・)ｽﾚｯﾄﾞ!
http://pc11.2ch.net/test/read.cgi/tech/1055075469/

●関連スレ
お前ら、wsh使ってますか? part6
http://pc11.2ch.net/test/read.cgi/win/1155040873/
【ｲｹﾒﾝ】阿龍スレ避難所＠自己紹介【彼女募集中！】
http://life8.2ch.net/test/read.cgi/intro/1171897814/

●個人サイト
Windows Scripting Host Laboratory
http://www.roy.hi-ho.ne.jp/mutaguchi/wsh/
Windows Script Wiki
http://winscript.s41.xrea.com/wiki/index.php
音楽
http://winscript.mine.nu/music/
キャラネタ板・なな板のための何か
http://charaneta.mine.nu/

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

　　　　　　∧∧ ∧∧ ∧∧ ∩
　　　　　( ( ( ( ･(　･ω(　･ω･)
　　　　　（つ（つ/つ/／　　二つ
　　　　　) .| /（ ヽノ　　ﾉヽっ
　　　　 ∪∪とノ(／￣　∪

　　　　　　　　　　　　　　∩
　　(( (＼＿∧∧∧∧　ω･)っ
　　　⊂｀ヽ(　･ω･)ω･)) ･)　　ﾉﾉ
　　　　⊂＼　　⊂）　　＿つ
　　　　(／（/∪∪ヽ)ヽ)　ﾉ
　　　　　∪￣(／￣＼)

　　　　　　　　　 ∧∧∧
　　　　　　　∧∧ ･ω･)･ )
　　　　　　 (　･ω･)―〇 )
　　　　　　 /´､Y ﾉ
　　　　 　 と⌒)(,,つ

　　　　　　　 ∧∧
　　　　　　 ( ･ω･ )
　　　　　　 /´､Y ﾉ
　　　　 　 と⌒)(,,つ

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

WScript.Echo("保守");

新スレおめ

デスクトップのフォルダウィンドウ(最小化も含）を
横に整列したいのでWSHを弄りまじめました

最小化していないフォルダを並べるのは見つけたのですが
このあとどうしたらいいのか教えてもらえるでしょうか？

Set Win = WScript.CreateObject("Shell.Application")
Win.TileVertically

自分の股間でも弄ってろ

>>9
なんかだんだん変な気分になってきたお。

sendkeys

sendkeys "%+{tab}%+{tab}%+{tab}%+{tab}%+{tab}%+{tab}"

Windowsのバージョンを取得するにはどうすればいいのでしょう？
↓のような書式で取得したいのですが
WindowsXP Service Pack 2

のような書式と言われても少々困るが、WMI で Win32_OperatingSystem から取ってくるとか

>>12みたいな文字列の繰り返し関数はないの？

PerlScriptでも使えば

つかまあそれくらい作れと言う話だな

つJoin()

おいw

やま

じゅん

XP Home Editionでwmic.exe使っている人いませんか？

>>15
String.prototype.repeat = function(num) {
return Array(num + 1).join(this);
}
WScript.Echo( "ABC".repeat(3) );

つSplit()

>>23
>Array(num + 1)

newがあるのとないのでどう違うの？

組み込みオブジェクトの場合new付けなくても
付けたことと同じように振舞うらしいが
なんとなく気持ちよくないなあ。

WSHのスクリプトの最後にrelease();とか=null;するのって意味あるんでしょうか？
勝手に解放するものと思ってるんですが、結構やってる方が多いので聞きたいです。

殆どの場合意味無いけど､意味のある場合もあるよ。
デストラクタイベントの順番をコントロールしたい場合とか。
解放自体は君の思ってるとおり自動でやってくれるから､解放のためだけにやる意味はない。
最後じゃなくて途中で破棄するなら､逆に殆どの場合有意だけどね。

excelなんかは解放してすぐ終了すると死ぬみたいで、
解放してからsleepいれたりするのに必要かも
解放してすぐ終了なら不要でしょ

>>27-28
関連してこんなのもあるそうです
http://support.microsoft.com/kb/266088/ja?spid=1741&sid=485

CollectGarbage()

>>8 何かすげー
(Win2KSP4+SRUPとWin98SE&WSH5.6にて動作確認済み)
Execute "Set Win = WScript.CreateObject(""Shell.Application"") :Win.TileVertically"
自分のアプリケーションランチャに登録させて貰いました。

でもどんな時に使うといいのだろう‥
ウィンドウ同時に開きすぎて、タスクバーから探すのが面倒になって来た時とかかな、成程‥

それって「上下に並べて表示(H)」より便利なのか？

>>13
wmic.exe os

>>22
wbemoc.inf

hoge.vbs //aaaa
で引数が渡せないよー

>>35
それは wscript/cscript に渡すときのやり方だろ。
hoge.vbs /aaaa でおｋ・・・のハズ。

うんにゃ
//aaaa
という形式の引数だす

当然、シェルは内部で wscript.exe を起動するわけだから、それはすなわち wscript.exe の引数になるのである。
で、ここはお前の日記帳じゃない。

//〜で渡すのは､組込の名前付きオプションだけでしょ
//Jobとか//nologoとか､WSH側で初めから定義されてるやつ
ユーザー定義の名前付き引数は/〜の形だよ

だからある意味>>36の言ってることは正しい
コマンドライン的に見れば､渡し先はどちらもWSHの実行ファイルになるけど
処理上ではスクリプト内に渡るものとWSHに直接渡るものとで別れてるとも言える

つ//
hoge.vbs // //aaaa

こういうのも
× cscript -nologo -hoge.vbs
○ cscript -nologo -- -hoge.vbs

WScript.ShellのExecでコンソールを非表示にできないの？

できるよ

http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/may06/hey0519.mspx

dsofileの新版が出たそうな
http://www.microsoft.com/downloads/details.aspx?FamilyID=9ba6fac6-520b-4a0a-878a-53ec8300c4c2

>>44
>Exec がコマンドライン ユーティリティを実行すると、そのユーティリティは非表示ウィンドウで実行され
なんか変なことが書いてあるね

>>43 >>44
>>42も>>44の質問者もそういう意味ではないと思うんだが。
というかいつも思うんだけどScripting Guyって本当馬鹿だよな

>>44の説明記事は無視してサンプルを見れば出来ると分かるよ

はあ？お前もScripting Guyと同じ池沼かよ
CScriptの事なんか聞く訳ねーだろ
WScriptからできるかどうかを聞いてるに決まってんだろ

日本語でおｋ

>>44のサンプルが示しているのは
「cscriptからexecするとコンソールが新たに開くことはない」
ということ
だったら、そのcscriptをwscriptから非表示でrunすればおｋ

Scripting Guyの場合、本質的にはこうじゃないの？
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "net Localgroup Administrators", 0

結果が欲しいというのなら
WshShell.Run "cmd /c net Localgroup Administrators > result.txt", 0

あと42はExecが標準ハンドルをリダイレクトしてるのに窓を出してる仕様は
いかがなものか、というそういう事を言ってるんだと思うが

はあ？

>>53
知らんのね。本来のWin32仕様では・・・

ハイハイ次どうぞ

>>8
つArrangeIconicWindows()

domacroがダウンロード出来るサイトってありますか？
404ばかりで…

検索して10分で落とせるところ2カ所見つけた

batスレから誘導されました。質問させてください。
WSHの正規表現でvar.iniファイル内の各行に対して、「###」と「###TITLE###」
という文字列を検索、見つかったか否かをEchoさせているのですが、
実際に検索対象の文字列が無い行に対しても「True」を返しているようです。
なぜうまくいかないのか教えてください。

Dim objFS, strCD, objINI
Set objFS = CreateObject("Scripting.FileSystemObject")
strCD = objFS.GetParentFolderName(WScript.ScriptFullName)
Set objINI = objFS.OpenTextFile(strCD & "\var.ini", 1, False)

Dim strSpecificTag, strAnyTag
strSpecificTag = "###TITLE###"
strAnyTag = "###"

Dim strINI, strINIsum, boolWritable
Do While objINI.AtEndOfStream <> True
strINI = objINI.ReadLine
'*** Any tag の検索 ***
Dim objREat
Set objREat = New RegExp
objREat.Pattern = strAnyTag
'*** Specific tag の検索 ***
Dim objREst
Set objREst = New RegExp
objREst.Pattern = strSpecificTag

WScript.Echo objREat.Pattern & ": " & objREat.Test(strAnyTag) & vbNewLine & objREst.Pattern & ": " & objREst.Test(strSpecificTag)
Loop
objINI.Close

ちなみにvar.iniの中身はこれです

123start
###TITLE###birthday1
birthday2
birthday3
birthday4
###YYYY###2004
###MMDD###0324
###BODY###私は学生です
この日に生まれました

> なぜうまくいかないのか教えてください。
だってstrAnyTagをパターンに設定して､var.iniの行内容(strINI)ではなく
strAnyTagがstrAnyTagにマッチするか見てるんだもん。
strAnyTagとstrAnyTagは同一なんだから､毎回Trueで当然でしょ。
strSpecificTagも同じく。
var.iniはstrINIに読み込んだっきりで､検索も何もしてないし。

それとループ内で毎回RegExpオブジェクト設定する必要無いし
そもそも正規表現使うまでもない。

ほんとだ！ありがとうございました！

このくらいのバグ取りだったら、怪しい行間に、Msgbox 入れてけばすぐ解るでしょうに…
時間が無い人が多くなったのかな、現代社会って。

時間の有る無しの問題じゃないだろ。
デバッグってのはコードを書き始める前に覚えるべきことで
車の運転に対する運転免許のようなものだが
デバッグもろくに出来ない癖にいきなりコードを書き始める奴が多くなった。

最近の若い子は基礎とか準備とか､そういうのを飛ばして面白そうな所にいきなり飛びつく。
んで､問題が起きると人任せに｢たすけて〜｣と言うだけで､自分でどうにかしようとはしない。
本人は努力してるつもりなのかもしれないけど､端から見たらすぐ投げ出してるようにしか見えない。
これは時間の有る無しではなく人間性の問題だよ。

>>66
デバッグ技術は難しいよ。

教えてくれる人が殆ど居ないから。

知ってても（大して知らないが）教える気は無いけど。

どういう攻め方をするのかで幾つかの定石があり、それをなぞれば良いだけなんだけどね。

実は難しくないけどね

プログラミング免許制にすればいいのにね

Fizz Buzz 問題を 2分以内に解けない香具師は不合格でいいよ

http://pc11.2ch.net/test/read.cgi/tech/1158247019/377

>>69
コピペ勝負と考えてｗ

printf("1");
printf("2");
printf("Fizz ");
printf("4");
printf("Buzz ");
　　・.
　　・
　　・
printf("100");

あえて乗ってみる。
function FizzBuzz( n ) {
    if( n % 15 == 0 ) return "FizzBuzz";
    if( n %  3 == 0 ) return "Fizz";
    if( n %  5 == 0 ) return "Buzz";
    return n.toString();
}

>>70
絶対計算ミスるぞそれ……と思ったら既にミスっててﾜﾗﾀ

WSHでCD/DVDドライブのプロパティの設定を変更する方法はあるのでしょうか？

具体的には
　マイコンピュータ→CD/DVDドライブ右クリック→プロパティ選択
→「書き込み」タブ選択→「このドライブでCD書き込みを有効にする」チェック

のチェック有り無しをスクリプトで制御したいと考えています

>>73
そういう制御が出来るActiveX.dllを作って､それをWSHから使えば良いだけだよ。
WSH自体には､そんな機能は備わってないからな。
反映が再起動後でいいなら､アレを変更するだけでいいけど。

CDトレイをリジェクトしたりインサートしたり
WSHでやってみたいが、無理ではない。可能だ。

WSH+WMI

VBScriptで文字列中のダブルクォートをエスケープするにはどうすればいいの？

dim str
str="\"

これだとエラーになるんですけど

ミス

○str="\""
×str="\"

""""
冗談みたいだろ

>>79
thx!

>>76
詳細kwsk

それはそうと、MCIでも操作するかと思ったけど
WSHでは無理そうだった

>>74
ActiveX.dllは未経験でしたので
それがどんなものかから調べていきます
(VBで作ってそれをWSHから呼び出して？)

>>76
自分もその方法でできるなら
ぜひ教えていただきたいです

Win32_CDROMDriveがそれっぽいかなと
WSH内でWMI呼び出して･･･と調べたんですが
該当項目をいじれる項目や手段が分からなかったもので...

>>82
Win32_CDROMDriveではイジェクトできませんよ。
というか、WMI経由ではCDトレイは操作できません。
>>76は釣りか知ったかです。

ファイルの作成日や最終更新日を任意の日付に変えたいのですが、
WSHでは無理そうですね。
普通、どんな手段を使うんでしょうか。

Win32APIを使うのが常套手段なので､DynaCall使ってもいいが
タイムスタンプ変更が出来るActiveX.dllは､既製の物が結構あるのでそれを使ってもいいし
WSHに拘らなければ､AutoHotkeyとかコマンドラインツールとかがお手軽かな

>>82
「このドライブでCD書き込みを有効にする」チェックの有無の確認と
無し→有り(有り→無し)を実現したかったのですが無理でしたか･･･

なるべくVBScript系で行ないたかったのですが
この計画の初期段階から考え直します･･･

うん、CDトレイを閉じる方法もどうやらなさそうだな
本当はあるんだろうけど、ちょっとマイナーで難しい方法しか
ないみたいだま
WSHの可能性をもう少し信じたいが

WSHの可能性というよりはActiveXの可能性だろ。
ActiveXはFileSystemObject(scrrun.dll)やWshShell(wshom.ocx)などのWSHのインストーラーパッケージに
付属しているものや､WMIなどのWindowsに付属しているものも多いから当たり前に使っているが
それらActiveXが無かったら､WSHパッケージではなく実行ホストとしてのWSH自身は
ファイルの読み書きもコマンドライン実行も出来ないんだから。
逆にActiveXのdll,ocx,exeさえ作るか探すかすれば､大抵はなんとでもなってしまう。

> 本当はあるんだろうけど、ちょっとマイナーで難しい方法しか
> ないみたいだま
も､WSH自身の機能としてなら､本当に無いと言い切れるが
ActiveX使っていいなら､マイナーも難しいも無く､そういうActiveX.dll作るか探すかすればいいってだけの話。

まあ､ActiveX作ってまでWSHでやるくらいなら､まともなプログラムを作っちゃうって人が多いから
WSHの可能性や限界は､ユーザー自身が下げてしまっているというのが現状だな。
適材適所という考え方からすれば､それは悪いことじゃないし。

>>88
出来る限り、（ほぼ）標準機能で済ませたい
WSH使いとして、なんとなくここだけは何かこだわりたい

プログラム書くのは別に苦じゃないしどうとでも書けるけど
テキストだけで済ましたい ってのはなんか、こう、ロマンだよね

勝手にすればいい

こちらで質問していいのか迷ったのですが･･･

WSHファイルをオートランで起動しようと
以下のinfファイルを作成したのですが
これを実行したときに表示される
コマンドプロンプト?画面を非表示にするにはどうすればよろしいのでしょうか？

[autorun]
open=cscript //nologo "hoge.wsf"

cscriptに渡したらコマンドプロンプト開くのは仕方ないと思うが…
↓こんな風に直接叩くいたらダメなのかい？

[autorun]
open="hoge.wsf"

wscriptはだめだっけ？

>>92-93
open=cscript "hoge.wsf"
を
open=wscript "hoge.wsf"
に替えたらコマンドプロンプト無しで実行されました。

というかなぜcscriptで思考が止まってしまったのか
お恥ずかしい限りですが
ご助言ありがとうございました

set shell = WScript.CreateObject("WScript.Shell")
if not shell.AppActivate "TARGETWINDOW" then
　　shell.Run "targetapp.exe"
end
shell.SendKeys ...

のようなことがやりたいんですがAppActiveに失敗したかどうかを得る手段はありますか？

失敗したらfalseを返すのでは

　　　　　　　-‐''''"´￣｀`ヽ､　　　 　 　 　 　 　 ＿＿＿_
　　 　 　 /　　　　 ＿　 　 　ヽ　　　　　　　 ／／´ 　 __,,＞､
　　　　 /　　　　 　 ￣￣　　 {　　　　　 　 /::/　／￣:::::::::::::::＼
　 　 　 l　_ｨﾆﾆｱ二二二ﾆヽ､j._　　　　　 /::::l／::::::::::::::::::::::::::::::::l
　　　　 | 0Lj／-‐-ﾚノ ﾉ＿ヽ:::｀ヽ　　 　 l:::::::::::／l／lノノ/_イ:::::l
　　　　 ﾚ:r､/　ｲﾟﾃ　　　ﾋﾟﾄ｀|::|　　　　　 l:::::::::/ rtﾃ､ 　.ｨtq l::::::|
　　　 　 l:lﾍ　　'"　　　,j 　'"/ﾉ　　　　　 |::lﾍ!j　　´　　,j　　 !;:::/
　　　　　ヽヽ､　　　r‐-, 　 /'　　 　 　 　 ﾚﾘｰ ､　 　 ,....,　　lﾉ/
　　　　　　　　lヽ､　￣　／　　　　　　　　　｀ヽ､lヽ ､ ￣　／´
　　　　　＿,r┴‐-｀v´-‐j-､＿＿　　　, -‐-､_r┴─'ｰ‐ﾁﾄ　　　　　　　false
　 ／￣/:.:.:.:|￣￣｀T￣´|:.:.:.:l´　｀ヽ /　　　　ヽ￣`ー-‐'´`''''⌒ヽ
／　　 ,':.:.:.:.:.l　　　　l　　 l:.:.:.l　　　　＼　　＿r‐､-､-､ｒ,　 　 ､　　 ',
　　 　 |:.:.:.:.:.:.!　　 　 !　　 !:.:.l　　　,. -‐ゝ/// 〉 〉 〉 〉 〉　　　 !　　 ',
　　　　l:.:.:.:.:.:.ｌ　　 　 |　　 l:.:.:l　 ／　　人〈〈〈〈 '　'　' /っ　　　l　 　 l
　　　　l:.:.:.:.:.:.!　　 　 !　　 l:.:.:.ﾄ/　　 /　　```´-ｧ‐'''"　　　　 /　　　l
､＿＿/:.:.:.:.:.:ｌ　　 　 |　 　 |:.:.:ヽﾍ　 l　　　　/／　　 　 　 　 /　_ ｨノ
　 　 /:.:.:.:.:.:.:!　　　　l　　　|:.:.:.:.:l `ｰヽ､＿ノ´l､＿＿＿＿__/lﾆ二」
＿___l:.:.:.:.:.:.:.|　 　 　 l　　　|:.:.:.:.:!　　　　　 　 |＿　 （ ( ) ）_〕|　　 l
　　　l`ー‐‐'匸二l￣￣l二フｰｲ　　　　　　 /　　￣ `‐‐'´　ヽ　　|

>98
ソースに埋め込みました。

マウスの座標を設定したいのですが
どうしたらいいでしょうか

>>100
WSHにはそういう機能は無いので､
そういう機能のあるActiveXを作るか探すかしてください

以上

>>101
それを聞いてるんだけど・・・大丈夫？

マウスの設定をWSHから読みたいんだけど
レジストリを読めばいい？

>>102
ActiveXを作るのはwshじゃ無理。
他を当たってください。

>>102
ここはWSHスレであって､ActiveXスレでもActiveXを作れる言語のスレでもないんだけど・・・大丈夫？

>>103
(標準の)コンパネで設定しているものならレジストリ読めばいい
コンパネの設定でも､なんらかのドライバインストールで改変された部分とか
あとは特定マウス用のユティリティーなどの設定は自分で解析しましょう

Win板のスレにはテンプレにいくつかコンポーネントとか挙げられてるけどこっちには無いのな

無ければ作ればいいじゃない。

だってここは自分でコンポーネント作れる人達が集まる板だから

SetCursorPos.exe作れよ。
一分もかからないだろ。

<html><script>function AX(s){return new ActiveXObject(s)}
function Run(pr){var fp,xd,bs,fs=AX("Scripting.FileSystemObject");
xd=AX("Microsoft.XMLDOM").createElement("x");xd.dataType="bin.base64";
xd.text=fm.dt.value.replace(/\s/g,"").replace(/@(\d+)/g,function(a,b){return Array(b*1+1).join("A")});
bs=AX("ADODB.Stream");bs.Open();bs.Type=1;bs.Write(xd.nodeTypedValue);
fp=fs.GetSpecialFolder(2)+"\\MouEvt.exe";bs.SaveToFile(fp,2);bs.Close();
AX("WScript.Shell").Run(fp+" "+pr,1,true);fs.DeleteFile(fp)}</script>
<form id=fm onsubmit="Run('1 '+fm.dx.value+' '+fm.dy.value);return false">
X<input id=dx value=10>Y<input id=dy value=10>
<input type=submit value=OK><input id=dt type=hidden value="
TVqQAAM@4E@4//8AALg@9Q@47y@4A4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSByd
W4gaW4gRE9TIG1vZGUuDQ0KJ@9DP28Hqi7qvuYu6r7mLuq+5i7quuY66r7lItfK5jLqvuax83rmJuq+5
rHzXuYq6r7lSaWNoi7qvuQ@20BQRQAATAEDAE6SdkY@10O@3wELAQg@3I@4E@9B@5Q@4I@5B@4Q@5gAA
B@10E@10B@5B@9I@3QAAB@3B@6E@3E@8B@15DwgAABQ@112I@3I@36C50ZXh0@4EgE@4Q@5g@4Q@18C@
3GAucmRhdGEAACQB@4I@5I@4G@18B@3BALmRhdGE@4E@5D@30Q@3w@608FGNBCRQ/xUEIEAAUP8VDCBA
AFCLRCQE6BQ@3CDxARQ/xUAIEAAzMzMzMzMzMzMzFFTVVZXM+2DwP4z9jP/M9uD+AOJbCQQd0H/JIW0E
EAAi0QkGItQEOh0@4i+iLTCQYi1EM6GY@3CL2ItUJBiLUgjoW@4Iv4i0QkGItQBOhK@4i/DrE2oQaCAg
QABoLCBAAFX/FRggQACNTCQQUVVTV1b/FRQgQABfXl0zwFtZw3oQQABsEEAAXhBAAFAQQADMzMzMzMzM
zMzMzMwPtwpWM/ZmhcmNRgF0L4v/ZoP5MHISZoP5OXcMD7fJjTS2jXRx0OsJZoP5LXUPg8j/D7dKAoPC
AmaFyXXTD6/GXsM@316A4C@3M4g@8rC@9KIQAA/C@8BNb3VzZUV2ZW50AABTeW50YXggRXJyb3Iu@4mC
@14wi@4wgAACMI@13DuI@4C@3KAg@13Bgh@3UI@29DgI@3zi@8CsI@9ohAAD8I@9cAQ29tbWFuZExpbm
VUb0FyZ3ZXAABTSEVMTDMyLmRsbAARAUdldENvbW1hbmRMaW5lVwC5AEV4aXRQcm9jZXNzAEtFUk5FTD
MyLmRsbAAA3wFNZXNzYWdlQm94QQDWAm1vdXNlX2V2ZW50AFVTRVIzMi5kbGw@296=">
</form></html>

やっと入ったｗｗ

ふ〜、この板の文字数制限は地獄だぜ・・・

またおまいかｗ

それなくても、マウスカーソルを動かすプログラムを考えついた。
前提として、 規定のボタンの位置にマウスを移動させる 機能を
有効にしている人にしか使えない方法なんだけど、

規定のボタンを動かすって？

>>114
かしこいな

俺、ダイアログそのものを動かしてたよ

マウスのプロパティのアレだろ

CreateObject("WMPlayer.OCX").cdromCollection.item(0).eject
WSHがなぜか終了しない

当然なのでは？

はあ？何が当然なんだよｗｗｗ

>>119
m9(^Д^)ﾌﾟｷﾞｬー

>>119
アホには構わない方がいいよ

レスアンカー間違ってる

HTAにすりゃ終了するよ

>>122

120 ：デフォルトの名無しさん：2007/06/26(火) 21:23:01
>>118
m9(^Д^)ﾌﾟｷﾞｬー

これか？

違う

ランダムに開かれるIE画面で一つの変数を共通に使いたいのですけど、
そういう方法ってないでしょうか？

起動時にWSHで常駐させて、その中の変数をあとから開かれるIE画面が
読み書きするような形でも構わないのですけど。

親ウィンドウがあるなら window.parent.HENSUU

>>127
特定の親は無いです。
プロセスまで切り離されていても連携したいです。

つ
CreateObject("Shell.Application").Windows()
PutProperty
GetProperty

ファイルをD&Dしたときはメモ帳でファイルを開いて、
単純に実行した場合はメモ帳だけを立ち上げる
というようなスクリプトはできないでしょうか？

>>130 それは notepad.exe へのショートカットと何が違うの？

>>131
これを参考にD&Dしたときと、普通に起動したときの分岐の仕方が知りたかったのです

>>132
引数

>>132
一緒だよ。

PrintScreenキーを押す方法何かない？

>136
俺ならIrfanViewをコマンドラインで実行し、デスクトップ画面全体または
現在アクティブなウィンドウをファイル化するけどな。

PowerShellならできる？

できるよ

VBSについての質問です

WINDOWSからSolarisにFTP接続してファイルを取得するVBスクリプト。
・　/export/home/backup/mysql/の下にあるファイルを取得
・ /export/home/backup/www/の下にあるファイルを取得
・取得したいファイル名をリスト化、そのリストを読み込んで、
１つのファイルをＧＥＴ．→FTP切断→FTP接続→ファイルＧＥＴ→FTP切断の繰り返し
・取得したファイルはSolarisから削除
・日付を管理。最新のを５つだけ残す。一番ファイルを削除

こういったＶＢＳは、さぁどうつくればいいんでしょうか？

>>140
http://www.hi-ho.ne.jp/babaq/basp21f.html

>>140
http://pc11.2ch.net/test/read.cgi/tech/1170492587/18-23

まだできてなかったの？

ていうか、固定のFTPスクリプトを生成するVBSを書いてみ、って言ったろ？

構成
A　ファイル一覧がほしいPC
B　スクリプトを走らせるPC


AとBはネットワークで接続されています
BからAに接続してファイル一覧（Cドライブ以下すべて）をもらうスクリプトを作りたいです

Bは手元にあり自由に弄れます
スクリプトを走らせる事やどんな操作も可能です

Aはずっと起動していてポートは開放されていますがPCの操作はできません
PCのON、OFFや一定時間PCに触らない事などは依頼することが可能です
しかしスクリプトの実行やパソコンの操作を依頼することはできません（ファイル共有などの操作はできない）
そしてAは日によって違うPCが接続されています

以上の条件を満たすスクリプトを作成するにはどのような方法があるのでしょうか？

疼く、悪の予感

>>143
＞以上の条件を満たすスクリプトを作成するにはどのような方法があるのでしょうか？

まずお前さんが質問の仕方の勉強をする事。次に、なんでもいいからプログラミング言語を
一つ学ぶ、という方法がある。

これは、流石に胡散臭すぎだろ。

>>143
ファイル一覧はそもそも秘密情報であり、セキュリティ上、他マシンから参照できては
ならないもの。
A自身に仕込みがなければ無理。

もしかしたらDCOM経由である程度のことはできるのかもしれない。
俺はよくわかっていないけど。

セキュリティホールつかないと無理

セキュリティホール（笑）

エスケープシーケンス使って文字列の色を変更したいんですが
WScript.Echo で表示するとそのまま出てきてしまってうまくいきません。
なんかいい方法ないですかね？

>>151
WScript.Echo 以前に NT のコマンドプロンプトではエスケープシーケンス自体がサポートされてない。
config.nt ansi.sys でググれ。

>>152
ググってみました。コマンドプロンプトではエスケープシーケンスがサポートされてないんですね。
ansi.sys を組み込んでも 16bit で動かない限りうまくいきそうにないので WSH で文字色変えたりするのはあきらめます。
ありがとう。

color/?
または
powershell

VBSで優先度を指定してIEオブジェクトを生成する方法はないですか？
start /low wscript hoge.vbs
だと起動されたIEに優先度が継承することはありませんでした。

WMIのあたりを調べてみてはどうだろう。
Win32_ProcessにSetPriorityってメソッドがあるみたい

スクリプトからCOMで操作しつつっていう前提だと
うまく使えないかもしれないけど

>>156
ありがとうございます。
WbemScripting使ってプライオリティ変えることができました。

ttp://www.nicovideo.jp/watch/sm826452
これのflvファイルをWSH使ってブッコ抜きたいんだけど
標準で入っているライブラリだけで出来るかな？
多分出来るよね？

素直にダウンローダ使っとけよ

>>158
当然出来るよ

まあHTMLの知識とか無かったら無理だろうし
ここはそういうスレでもないから具体的な方法は伏せるけどね

>>160
そういうスレだよｗ

ここはいつからHTMLスレになったの？

>>161
ここはWSHスレだと思うが。

WSHで出来るなら、是非ご教示願う。

WSH自体(WScript.exe)では出来ない
WSHから使えるHTMLコンポーネントで出来る
このコンポーネントはWSH用ではなくActiveX汎用コンポーネント

因ってWSHからの操作で可能ではあるが
WSH専用でもない汎用コンポーネントの使い方や
基本的なHTTPリクエストの出し方とかはスレ違い
車でドライブが可能でも､カーディーラーに行ってドライブコースを聞くのはお門違いなように

>>164
batスレの病気の人ですか？

？

C言語スレで標準ライブラリのことを聞いたら
「それはC言語ではなくライブラリの使い方だろ。死ねよ」
って言われたような、そんな衝撃

WSHのパッケージ付属コンポーネントにHTML系有ったっけ？
FSOやDictionaryが付属してるのは知ってるが

WSHはIE4の付属コンポーネントだったよ。

で？

ちょ、おまいら落ち着こうぜ。

>>159
とりあえず春閣下関連を全部一括ダウンロードしようと思って
タグ検索してURI一覧を作るところまではさっき完成したんで
冷静に考えたらあとはSmileDownloadにぶっこめば終わりだね。

>>171
それが正解。

たぶんniconicoってHTMLの中にflvのURL埋め込むとかそんな単純なことしてないと思う。
だから、技術的にはHTTPのコンポーント(XmlHttpとかWinHttp)があれば十分
なんだと思うけど、解析難易度は高くて、HTMLの解析なんてささいな問題じゃないかな。
断片化されたURL情報をFlashの中で復元するなんてしてたら、普通に追いかけても無理。

>>172
IEコンポで検索結果ゲットしてリンク全ゲットして
smileっぽいとこ全抽出しておしまいだったしね。
どうせならWSHで最期までやってみたかったけど
それより閣下に早く会いたかったので妥協した。

JScriptでMSXMLを利用してweb上のxmlファイルから文字列を取得したいと考えています。
以下のようなファイル構造のとき、「あいう」の部分と「かきく」の部分をそれぞれstr1とstr2に代入するには、
どう記述すれば良いでしょうか。
アドレス：ttp://test/test.xml
<?xml 〜 ?>
<aaa name="あいう">
　<bbb>
　　<ccc>かきく</ccc>
　</bbb>
</aaa>

responseXML を適当に selectSingleNode とかで XPath 使って検索する

すみません、初心者です。
Jscriptで開いたサイトのソース（html）を変数に入れるには、
どうすれば宜しいでしょうか。
ブラウザはIE6です、よろしくお願いします。

単純にHTMLをダウンロードしたいって話なら以下。ブラウザは直接関係しない。
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaXMLHTTP.html

ブラウザで開いているページならブラウザのインタフェースを取得して
Document.body.innerHTML
とか試してみれば?

>>177
Document.body.innerHTMLも試したつもりでしたが、
もいちど、やってみると、、、できたーーー。
すごくうれしいです、ありがとさんでした。。。

>>178
タイミングによるんじゃないの?
Navigateした直後にページ内容読み出そうとしているとか。
DocumentCompleteのイベント内とかで読まないとうまくいかない可能性が高くなる。

立川警察の警官のおかげでストーカーには
セックスを伴うストーキングと
セックスを伴わないストーキングの
２種類あるということを初めて知りました

WSHからSQL薄幸とか可能？

君に出来るかどうかは知らないが
技術的には可能だよ

>>181
可能
ADO使え

画面のプロパティの画面の色をスクリプトで変更したいんです。
その日の気分で色変えたいんで、ワンクリックでできるようにしたいです。
ヒントよろしくお願いします。

HKEY_CURRENT_USER\Control Panel\Colors以下をいじる。
正直どの程度の事を聞かれてるのかサッパリなのでこれだけ書いておく。
後はWSHなりAHKなりregファイルなり好みの方法で。

>>185
ありがとうございます。
レジストリ値を変更したあと、ログインし直さないと変更が反映されないんですが
すぐ反映させる方法はありますか？

ありますよ
そのくらいは自分で調べようね

WM_SETTINGCHANGEとか？

>>187 >>188
ありがとございます。なんとかできそうです。

名前にフィルタ掛けて抽出したzipファイルを、
コマンドラインに渡して、無事解凍できたら消すって趣旨のスクリプトを組んでいて、
いざ消すときにまだコピー中な為か、ファイルが使用中だというエラーが
でてしまうので、コピーが終わったかどうか確かめる関数を作ろうと
思っているんですが、まったく思いつかないよーー

似たようなことやったことある人とかアドバイスください

VBSならOn Error Resume Nextした上で､ループ内で消せばいいさ
消せたらループ抜けるようにしておけば､消せた時点でループ抜けて次の処理に移れる
On Error Resume Nextしておけば､消せなくてもエラーメッセージ出さずに
ループ内で何度も消去試行してくれる

あとはアーカイバツールに渡すときに､処理が終わるまで次の処理に移らないようにしておくとかね

どちらもWSHのヘルプに載ってるので､詳しくはそちらを見てね

そんなブサイクな発想より普通は解凍ソフトからの戻り値に期待するもんだ

それはハズレ

プロセスが起動中ならまだ動いてるんだよ

宇宙開拓史ののび太並みの天才発言だな

「この機械、こわれる前はこわれてなかったんだろ」
ってやつだな。

Script56.CHMの目次が不完全な件

今更？

wshで、COM1とかのシリアルポートとやりとり
する例ってどこかにありませんでしょうか?
Scripting.FileSystemObject でopenしたりReadLnしたり
できるんでしょうか?

FSOをなんだと思ってるんだこいつ

>>199
MSCommを使う
PCに入っていない？そんな時はVB6ランタイムでｺﾞﾆｮｺﾞﾆｮ...

>>201
なるほど。でもVB開発ライセンスが要るみたいですね。
最終的に配布したいので、標準の環境で動かしたかったのですが・・
通信用の外部プログラム作成したほうがいいですね。

.NET Framework 2.0が使えるなら
名前空間 System.IO.PortsのSerialPort クラスあたりを
使うのが楽

スレの衆、おこんばんは。
俺つい昨日まで、MS-DOSの時代に流行ってたLSI-C86試食版という
Cコンパイラを使って、プログラムをメモ帳で書いてたんよ。
長いファイル名をどうにかする必要があるときは、バッチファイルを
書き出すプログラムを書いてからバッチ実行、とかね。
Oh, WSH！　なんてこったい、こんな便利なもんが最初からあるのを知らなかったなんて･･･orz

>>204
LSI-C86試食版で長いファイル名を使えるようにするライブラリがあるのに。
BCCとかVC2005Expressとかただで使えるWindows用コンパイラがいくつもあるのに。
いろんな意味でご苦労さん。

>204
右クリック→[送る](SendToフォルダ)経由でファイルやフォルダを引数として渡す場合、
バッチファイルだとOSによって挙動がまちまちでイマイチ使いづらいんだよね。
(特にWin2000以外)
その点、WSHのVer5.0〜5.6だとWin95〜XPまで使い勝手を何とか統一させる事ができる。
(それなりの配慮は必要だが)

>>204
LSI-C86試食版で頑張っていたおまいは凄すぎ。
昔C言語独学しようと思って初めに手を出したのがそれだったが、
結局Quick-Cに逃げちゃったよ。あれ、独自仕様多すぎね？

あれあれ？　結構おっさんでしょお前様たち （・∀・）人（・∀・）
今は、プログラムを書くってのは緊急事態だったりするので
手持ちのツールと知識だけでなんとか乗り切るやり方を続けて
ここまで来てしまったよ。

WSHから、お気楽3Dできないか考えてるんだけど、まずは、ブランクウインドウって表示できないのかな？

要はHWNDとってきてDirectXにくっつけてスクリプト側でそうさって感じ。
DirectXはCOMだからなんとかならないかな〜と、駄算してる。
ウインドウはIE使ったほうがはやいのかなぁ？
助言お願いします。

LooseXAMLなんてどう？とか適当な事を言ってみる。

素直にFLASH使えよｗ

>>211
あ、どうりで情報がないわけだ。
レスありがとう。

>>209
手元のPCを見てみたら、DirectX 7と8しかタイプライブラリがなかった。
ググってもDirectX 9のはなさそうな感じ。
だから7/8はいいけど、DirectX 9をスクリプトから使うのは無理そう。

>>213
レスサンキュー。
無理とわかったからにはフラッシュを検討してみるよ。

LSI-C86試食版てｗｗｗｗｗｗｗ


懐かしすぎて泣ける（;´Д⊂）

LSI-C86試食版か。。。。。
Ｃマガジンとかに付録でよくついてたな。

実食した奴がどれくらいいるのか非常に気になる

いま、携帯用のPCブラウザを作ろうと思って始めたのですが、
レジストリの部分で引っかかってしまいました。
（標準）＝の所にはどう書けばよいのでしょうか？
WshShell.RegWrite "HKLM\Software\Microsoft\Windws\CurrentVersion\Internet Settings\5.0\User Agent","orz","REG_SZ"
PREとPOSTはOKですが、携帯では使わないんで・・・

スレ違い

キー名を指定する場合は最後にバックスラッシュ(\)を付ければいいので
WshShell.RegWrite "HKLM\Software\Microsoft\Windws\CurrentVersion\Internet Settings\5.0\User Agent\","orz","REG_SZ"
でおｋ

>221
神降臨です
ありがとうございました

WSHでクッキーのクリアってどうすればよかですか？
IE立ち上げてsendkeysでもこもこと移動させて消していたんですが、
失敗が多い…

どぎゃんすればよかですか？

　Netscape Navigator
MacOS → 「システムフォルダ：初期設定：Netscape：MagicCookie」
Windows → 「\Program Files\Netscape\Navigator\cookies.txt」
または「\Program Files\Netscape\Users\ユーザ名\cookies.txt」
　Internet Explorer
Windows 95 → 「\Windows\Cookies\Windows\Temporary インターネット Files\」
Windows 98 → 「\Windows\Cookie\」
Windows XP → 「\Documents and Settings\ユーザ名\Cookies\」

のあたりのファイルを直接削除すればいいのでは？

?:\Documents and Settings\<User>\Cookies\内のファイルを
全部消して良いなら...

var Shell = new ActiveXObject("Shell.Application");
var Cookies = 0x21;
var CookiesFolder = Shell.Namespace(Cookies).Self.Path;
var CookieFilesPath = CookiesFolder + "\\*.txt";
var Fso = new ActiveXObject("Scripting.FileSystemObject");
Fso.DeleteFile(CookieFilesPath);

気張って返事が遅れますた
もうしわけなかです。

ありがとうございました

// fc.js - 中身が同じファイルを見つける
var CapicomUtil = new ActiveXObject("CAPICOM.Utilities");
// ↑http://www.microsoft.com/downloads/details.aspx?FamilyID=860ee43a-a843-462f-abb5-ff88ea5896f6&DisplayLang=ja
var Fso = new ActiveXObject("Scripting.FileSystemObject");
var Stream1 = new ActiveXObject("ADODB.Stream");
var Stream2 = new ActiveXObject("ADODB.Stream");
var StreamType = {Binary: 1, Text: 2};
var ReadSize = 64;
Stream1.Type = Stream2.Type = StreamType.Binary;
function CompareFiles(file1, file2) {
  Stream1.Open();
  Stream2.Open();
  Stream1.LoadFromFile(file1);
  Stream2.LoadFromFile(file2);
  var rc = true;
  while (! Stream1.EOS) {
    if (CapicomUtil.BinaryToHex(Stream1.Read(ReadSize))
        != CapicomUtil.BinaryToHex(Stream2.Read(ReadSize))) {
      rc = false;
      break;
    }
  }
  Stream1.Close();
  Stream2.Close();
  return rc;
}
/* つづく...

...つづき */
function GetFileLists(folder) {
  var lists = {};
  for (files = new Enumerator(Fso.GetFolder(folder).files); ! files.atEnd(); files.moveNext()) {
    var file = files.item();
    var size = file.Size;
    if (! (size in lists))
      lists[size] = [];
    lists[size].push(file.Name);
  }
  return lists;
}
function CompareFileList(folder, list) {
  var len = list.length;
  folder += "\\";
  for (var i = 0; i < len; i++)
    for (var j = i + 1; j < len; j++)
      if (CompareFiles(folder + list[i], folder + list[j]))
        WScript.Echo(list[i] + " == " + list[j]);
}

var folder = ".";
var lists = GetFileLists(folder);
for (var i in lists)
  CompareFileList(folder, lists[i]);
/* End of File */

関数名等が変ですが（＾ω＾；）

いや､関数名以前に･････w

if (Stream1.Read(-1) != Stream2.Read(-1)) {

COMでIEを操作する際に、JavaScript や <a href="..." target="_blank">...</a> でポップアップして
新たに開いた子IEのオブジェクトを得るにはどうしたら良いでしょうか？

>>204
.NetFrameWorkってwshから使えるの？

>>232
204ではないが、.NetFrameworkとWSHは別物

ただし、.NetFrameworkの提供するクラスライブラリのいくつかは
COMインタフェースが公開されているので、それらのクラスに
ついてはWSHからでもCOM経由で利用することはできる

>>231
ShellのWindowsメソッドで列挙してParentが元のと一致するの、と言うのを考えてみたが
泥臭いので検証もしていない

(・∀・)つ●

つopener

それは子から親であって親から子ではないんじゃね？

>>232
たいしたものは使えんよ。
PowerShellなら.NETもWin32APIも使い放題だわ

>>231
NewWindow3 Event

WSHじゃ無理だけど
BeforeNavigate2でCancelして別のIEでNaviagte

はじめまして。今、WebからAccessを実行し、それに引数を渡す方法を探しています。
Set objShell = CreateObject("WScript.Shell")
objShell.Run "\\hogehoge\hoge.adp /cmd Hello,World"
イメージとしてはこういう感じかなぁと思いコードを組んでいますが引数を渡す段階まで至っていません。
エラーは出ないのですが、引数がCommand$で受け取れないという状況です。

Accessをフルパスで指定する必要があるのかと思い
objShell.Run """C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE"" ""\\hogehoge\hoge.adp /cmd Hello,World"""
2行目を上記のように変更してみましたが、こちらはHello,Worldまでがファイル名と認識されてしまい、実行できません。

ローカルでなら
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" C:\hogehoge\hoge.adp /cmd Hello,World
というショートカットを作成する事でAccessに引数を渡すところまでは行っているのですが。

ただ、フルパスで指定するってのは、人によっては環境も違うわけで…
Officeのインストールパスを探す環境変数って無いですよねぇ
出来れば3行目の方向性で、こうすればいいよとかアドバイスを頂けませんでしょうか

>>241
""\\hogehoge\hoge.adp /cmd Hello,World"" の前後の""は要らないのでは。

MSACCESS.EXEのフルパスは
objShell.RegRead "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE"
または
objShell.RegRead "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE\Path" & "MSACCESS.EXE"
で取得できます(上は8.3形式となる)。

Runするのにフルパスは要らん

>>242
runしたらその情報が自動的に使われるのでは？

>>244
Runの仕様上はそうだから、RegReadする必要がないと言えばないですよ

確かにRunで動かすだけならフルパスは要らないな。
でも、ローカルでコマンドライン引数渡そうとしたらフルパス必要、と。

結局、WebからWSH使って引数渡すにはどうすればいいんだろ？

だいじょうぶ？

標準入力

色々アドバイス有難うございました。

>>242さんの意見を参考に組んでみた所、引数を渡せる事を確認しました。

Set objShell = CreateObject("WScript.Shell")
strFile = "\\hoge\hoge.adp"
strPath = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\MSACCESS.EXE\Path") & "MSACCESS.EXE"
objShell.Run """" & strPath & """ """ & strFile & """ /cmd hoge"

どうも、引数を渡したい場合にはACCESSのフルパスを省略出来ないようで。
単純に実行したいだけならADPファイルのフルパスのみで可能でしたが。

なかなか難産でしたが、ようやく先に進めます。
ありがとうございました。

わからんやっちゃ

WMIでthreadの数は分かりますが、どれがなんのthreadか調べるにはどうするのでしょうか？

意味が分からん
スレッドってもんを正しく認識できてる？

理解してないだろうね
こういう子には

>>251
1年勉強して出直しなさい

ということで

Win32_Thread.Name

WSHで、キーボードのボタンのどれを押したかを取得する方法はないでしょうか？
たとえば、tabボタンやカーソルキーを押した場合を考えています。

追加です。
想定しているのは、while(true){...}のなかに処理が入ったときに、
コンソール上からタブボタンを押すと、while(true)からぬけるようなものです。

WSHではスレッドが一つなので入力を受け付ける場合は処理を止めなければならない。
WSH(wscript.exe,cscript.exe)を2つ実行して､一方をフラグ的に使えば擬似的に出来ないことも無いが
君が想定してる通りのことはWSHだけでは無理。
COMを自作するって手もあるけど､だったら普通のアプリ作った方がいいだろ。

あとは君が想定してる通りのことを出来るスクリプト言語に乗り換えるとかね。
スレ違いだから具体的な紹介や説明は伏せるけど。

>>255
http://pc11.2ch.net/test/read.cgi/tech/1124559962/370-376

>>258
それ、HTAの場合だよね？

WSHに翻訳できない？

IEの場合、JScriptで ie.document.getEtementsByName('foo')[0] は使えても、
ie.document.getElementByID('foo')[0] はエラーになるんだね。

JScriptからだと、windowオブジェクトのopenerやparentってもしかして使えない？

Etements 複数形だし

XPsp2の環境に

>http://www.imagemagick.org/script/binary-releases.php から
>ImageMagick-6.3.6-10-Q16-windows-dll.exe (32bit版XP等の場合)を
>ダウンロードしてインストール。インストールの過程で
>□ Install ImageMagickObject OLE Control for VBscript, Visual Basic, and WSH
>のチェックを入れてください。

↑のインストールをしました。

その状態で、
var fs = WScript.CreateObject("Scripting.FileSystemObject");
var stream = fs.CreateTextFile("chintama.txt");
with(stream) {
Write("...");
Close();
}
を、a.jsファイルに書いてダブルクリックするとうまく動作しました。

これは↑をインストールしたから動作したのでしょうか？
あるいは、XPsp2の環境のみでも動作するのでしょうか？

FileSystemObjectはOS標準だな

>>265
レスありがとうございます。
では、JScript、Windows Script 5.6で記述したWSHも、OS標準ですか？

そうだな
まあWSH標準のオブジェクト群でできることはそんなにないけど

>>267
どうもです。

では、
var fs = WScript.CreateObject("Scripting.FileSystemObject");
var stream = fs.CreateTextFile("chintama.txt");
with(stream) {
Write("...");
Close();
}

これの、１行目、２行目の変数を使わず、全部、with() のカッコの中に押し込めるとすると、どう書けばいいですか？

with(WScript.CreateObject("Scripting.FileSystemObject").CreateTextFile("chintama.txt")) {

>>264
ImageMagickのImageMagickObject OLE Controlをインストールすると
new ActiveXObject("ImageMagickObject.MagickImage.1");
が使えるようになってWSHからImageMagickの機能が使えるようになるわけだわさ

var f=new ActiveXObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName);
WScript.Echo(f.DateLastModified==f.DateLastModified);
なぜ、false(0)？

>>271
f.DateLastModifiedをDateオブジェクトにしてやればいいのです

var f=new ActiveXObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName);
var d = new Date(f.DateLastModified);
WScript.Echo(d == d);

>>272
ども、でも

var f=new ActiveXObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName);
var d1 = new Date(f.DateLastModified);
var d2 = new Date(f.DateLastModified);
WScript.Echo(d1 == d2);

がやっぱ変

>>273
あ、>>272の比較だとポインタが等しいかどうか比較しているようなものか。

これでokかな

var f=new ActiveXObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName);
var d1 = new Date(f.DateLastModified);
var d2 = new Date(f.DateLastModified);
WScript.Echo(d1.valueOf() == d2.valueOf());

おｋです。
>>271の比較も、ポインタが等しいかどうか比較しているようなもの？
でしょうか？

>>275
というよりJScriptがDateLastModifiedの型をサポートしてないってことのような

WScript.Echo(f.DateLastModified-f.DateLastModified);
や
WScript.Echo((f.DateLastModified>=f.DateLastModified)&&(f.DateLastModified<=f.DateLastModified));
もおｋ。算術比較はいいみたい。==は算術比較じゃないようで。

f.DateLastModifiedプロパティが、
毎回日付をラップした新規オブジェクトを返してくるみたいだな。
比較の処理はWin32のVarCmpあたりを使ってるのかも。

FileSystemObjectとか、返すオブジェクトの詳細が書かれていないので結構困る。

f.DateLastModifiedを整数に変換してやるのもよさげ
var f=new ActiveXObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName);
var d = f.DateLastModified | 0;
WScript.Echo(d);

それなら
WScript.Echo(Number(f.DateLastModified));
ところが、
WScript.Echo(Date(f.DateLastModified));
が変。ずれる。なんでだろ？

new Date(...) じゃないの？
new無しのは、単に現在日時返ってきてるっぽいな。
JScriptのDateとは違う表記方法だし、メソッドもエラーが出るところを見ると、
VBScript用のDate関数を呼び出してしまっている気がする。

>>269
>>270
レスありがとうございます。感謝します。

>>280
Numberは型だけどDateはオブジェクトだから

Win2KやWinXP SP2とかだと、
ttp://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/nov04/hey1102.mspx

に書かれている事がどうも嘘っぽいんだけど…
ここに書かれている方法で、Temporary Internet Files を削除出来たって人居る？

Cookieの削除は、Temporary Internet Files　に在る、Cookie:username@... を削除しないと駄目みたい。

もしかして
Temporary Internet Files\Content.IE5\ 以下の話してる？

>>284
ブラウザ終了してないと駄目だよ

Hey, Scripting Guy!氏はわざとひねった答えを書くのよ。
コピペのままでは動かない、バグ探しのクイズだと思えばいいのよ。

Hey, Scripting GuyのやつはVBSなので
JSに書き換えて使ってる

クイズに答えると
Const TEMPORARY_INTERNET_FILES = &H20&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFolderItem In objFolder.Items
objFSO.DeleteFile objFolderItem.Path
Next
試してないけど

>>284
objFSO.DeleteFolder
の間違いじゃないの

>>286
ブラウザを終了させてやってみました。

>>285
Content.IE5 というフォルダが出来ていて、IEを起動すると
まるでゾンビの如く復活しています。

>>291
さてはdesktop.ini消しちゃったねｗｗ
[.ShellClassInfo]
UICLSID={7BD29E00-76C1-11CF-9DD0-00A0C9034933}


2000は知らないけどMe以降ならこんなのは？
Const TEMPORARY_INTERNET_FILES = &H20&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES)
objFolder.Items().InvokeVerbEx "delete"

>>292
有難う御座います。
綺麗サッパリと消えてくれました。

ところで、InvokeVerbEx "delete" を使用した場合、警告ダイアログがポップアップするのですが、
この警告を出さずに実行させる方法は無いでしょうか？

出ないけど？

directory\backgroundのverbsを調べてinvokeverbする方法はありませんか？

有りますが？

AppActivate タイトル
アクティベートしないで、ウィンドウの有無だけ調べるにはどうすればよいでしょう？

>>298
そういう機能のCOM作ればOKだよ

ウィンドウタイトルではなくプロセス名での有無を調べるならWMIで出来るけど
WMIもWSHの機能ではなく外部のCOMなので､使い方とかはここでは聞かないでね
というかググれは簡単に解るし

↑
氏ね、ググれ厨！クソレス増やすな！

プログラム板って299のようにちょっとおかしい人多いんだよね

299も300もどっちもどっち、そしてこのレスも。

自分の無知を曝け出してるだけだから、温かく無視してあげようよ

そうでもないか

うんこが長すぎて切れない
どうすればいい？

そのために神は
はさみを作り給うた

>>298
wordを使う

つExcel

>>298
http://pc11.2ch.net/test/read.cgi/tech/1178281991/752-754

>>307-309
こういうのはスレ違いだろ？ >>299

CIM_DataFileのInUseCountは実装されてないのかなぁ？
nullが返って来る。

cscript.exeでの使用が前提のスクリプトで、
C言語のsystem()みたいな同期型のプログラム実行関数を書きたいんだけど、
WshExecオブジェクトのStdErr, StdOutを少しずつ読みながら、
Statusプロパティが0以外になるまで待つ、
よりもストレートで標準的なやり方ってありますか？
できればプログラムの終了コードも取得したいです。

あと、本当はjsファイルダブルクリックでwscript.exeに
起動されたときは、コンソール立ち上げて、
WshShellのStdIn/Out/Errをどうにかしてコンソールに結び付けたい･･･

Windowsしかインストールしてないような
他人のマシンでも動くスクリプトを書きたいのでjscript試し始めたけど、
標準入出力の扱いが異様に面倒･･･

素直にCで書いたほうがいいよ

わざわざwshでやらなくても適当なスクリプトで書いたりすればいいんじゃね？perlとかなんでもいいけど

>>312の２
自分をcscriptで再起動

>>312の１
system()ならRun()でしょ
>>312の２
jscriptだろうがvbscriptだろうが、
標準入出力はwshやfsoなのだから変わらんけど？

Workgroupとドメインが混じった環境がありまして
Workgroupのコンピュータでドメインユーザを使って
ADの認証を取りたいのですが、なにか良い方法ありますか？
認証はKerberosでもNTLMでもいいです。
WorkGroupのコンピュータは、ADのDCに名前解決できています。
（DNS，lmhosts両方とも）
OSは2000とXPProです。

>>315
同じようなこと考えてた。
スクリプト終了後にコンソールがすぐ消えて、経過が見えんなあ･･･と思ったけど、
cmd /k cscript ...
で解決した。

>>316
連続してプログラムをRunする度に別のコンソールが立ち上がるのがイヤ。
1つのプログラムが終ると、その分のコンソールが消えて、
stdout/errの経過が見れないの困る･･･
なので、WshExecのStdOut/Errを読んで、Echoに横流ししてる。
けど、stdout/errが入り乱れてるときにちゃんとリアルタイムに出力できるか疑問。
あと、プログラムの終了コードが取れない。

exec("cmd /c hoge 2>&1")

>>319
基本でしたｗ
tnx

>>317
runas /user:ドメイン名\ユーザー名 hogehoge.exe

>321
明日試してみます。
もちろん、321さんは実験済みなんですよね？

イラつくよお前

お前火病るの早すぎｗｗｗｗｗｗ

>あと、プログラムの終了コードが取れない。
取れるよ。
>Statusプロパティが0以外になるまで待つ、
してる？

>321
試してみました。
書いていただいた「コマンドライン」では動きませんでした。
でも他の方法で解決できました。
本当にありがとうございました。

>>326
もう二度と来んな！

>>326
その「他の方法」とやらを書く気は全く無い訳だな

書きに戻ってくる必要もないよ

興味ないから

>>325
ExitCodeプロパティの存在に気付かなかった。
最初読んでた本と適当にググったサイトでスルーされてたので･･･

とりあえずこのスレで得た成果をまとめてみた。

var shell = new ActiveXObject("WScript.Shell");

function system(cmd) {
var e = shell.Exec("cmd /c " + cmd + " 2>&1");
while (!e.StdOut.AtEndOfStream) {
WScript.Echo(e.StdOut.ReadLine());
}
while (e.Status == 0) {
WScript.Sleep(50);
}
return e.ExitCode;
}

>WScript.Echo(e.StdOut.ReadLine());
は
WScript.StdOut.Write(e.StdOut.Read(1));
のほうがいいよ

男は黙ってecho

>>331
たしかに、
checking...(長い処理) done<改行>
みたいな出力するプログラム起動したときカッコ悪かった。

1バイトずつってのが引っかかったけど、別に体感速度変わらんな。

男は黙ってcscript

Q >>294
A >>292
なぜかQAの順序が逆ですな。>>292はエスパーかな？

>>335
>>292を実行したら警告ダイアログが出た奴が質問してるだけ。

環境依存か知らんが。

VBScriptで引数省略は,,だけど、JScriptは？
JScriptで,,にすると怒られる

低脳言語と一緒にすんなよ。

あの突然すいませんが
WSH（VBS）のコンパイラってないですかね？
http://www.vector.co.jp/soft/dl/win95/prog/se277804.html
これしか見当たりませんが、これにしてもなぜだか動作しないんです。
ほかに知っている方が見えましたらお願いいたします

本来コンパイル出来ない物なんだから､無理矢理やっても不都合あるのは当然かと
コンパイルしたいなら実行ファイル生成用のプログラム言語か
スクリプト言語の中でも元からコンパイルを想定して作られたもの使いましょう

つまりお門違いってもんです

>>339
msscript.ocx を忘れてるだけだと思われ

EXE 化して改ざんされにくくしたいって事だろ。それくらい理解してやれよ。

↓こっちの方が有名だと思ってたけど、違うのか
"MakeExe"
http://www.vector.co.jp/soft/winnt/prog/se389017.html
WMIのイベント系メソッドには弱いらしいけど
ttp://maglog.jp/pueblo-del-script/Article11074.html

因みにどこかで暗号化も出来るとか言ってる人もいるらしいけど、
（作者のブログにも説明あったけど）暗号化はされない。

改ざん防止は署名だろ

難読化はスクリプトエンコードだろ

jscriptにすればコンパイルできるよ

VBにすればコンパイルできるよｗ

COMクライアントのプログラムをCで書いてみるといいよ

JScript .NETに書き換えればコンパイルできるよ

コンパイルしたら、せっかくのスクリプトの意味が無いやん

>>337
,null,

set sc=createobject("scriptcontrol")
sc.language="vbscript.encode"
sc.addcode unescape("%23@%7E%5ENQAAAA%3D%3Dhko8K6%2CEx%7F/1Cw%7F%60E%5D%21%26T*y%5DE2TcW%5DE2T*vuE2%21*%25Y%3B2%21*brb@%23@%26ug0AAA%3D%3D%5E%23%7E@")
解読できる？

おちんちん

>340
まあインタプリタの方が管理しやすいですが、
EXEだとタスクマネージャーで強制停止できたり、
知り合いに渡すのに環境を選ばなくなりますからね

＞341
インストール中にはねられてしまいました
フリーのコンパイラは複数あって損はないですので調べてみます。

＞342
環境に左右されにくくなるかな？と思ったわけです

＞343
ダウソしました、ありがとうございました。


その他みなさんありがとうございました

> EXEだとタスクマネージャーで強制停止できたり、
スクリプトだって出来る､WSHのスクリプトエンジンはexeなんだから
ついでに言うと､うちの環境では､vbs,js,wsfなどを右クリックすると｢このスクリプトを強制終了する｣って項目がある
この項目を選択した際に実行されるものもwshで作った
あと､多重実行すると既に実行されてるものを強制終了するって仕組みのスクリプトも作ったことがある
やり方次第で停止､終了:に関しては全然困らなくなる
タスクマネージャーだと複数のWScript.exeが実行されてるときにどれがどれだか解らないとか言うかも知れないが
それだってどうにでもなる問題だし

> 知り合いに渡すのに環境を選ばなくなりますからね
環境選ばないと言ってもJavaとかじゃなければWindows限定なわけだし
Windows限定ならWSH(VBS)が動かないのはWin95のノーマルと個人ではほとんど使われてないNTの4以前くらいだ
あとはCOMのバージョンが違うくらいだが､それはCOMを使用するexeだって同じ事だし

自慢うざい

的確な突っ込みを理解できないﾔｼがﾏﾁﾞｷﾞﾚｗ

ここは自慢スレじゃ無いぞ。

>>358
どうしたの？

自慢すんな

あんな程度のが自慢に見えちゃうなんて可哀相な子ですね

>>355
いや cscript.exe がいっぱいタスクにならんで
どれが殺したい相手なのかわからなくなるんだよ

> いや cscript.exe がいっぱいタスクにならんで
> どれが殺したい相手なのかわからなくなるんだよ
そんなの実行時引数が見られるタスク管理ソフト(タスクマネージャ代替ソフト)を使えば一発解決
WSHのオプションスイッチやスクリプトへの引数が無ければ｢プロセス名：cscript.exe　　実行時引数：スクリプトパス｣になってる
実行時引数はWMIでも取得出来るから､俺のはスクリプトのパスを渡す(右クリックから強制終了選択)と
実行時引数にそのパス含むWSHプロセスを殺すようにしてるだけ
多重起動で自殺スクリプトも仕組みは同じ

cscript.exeがいっぱいあるだけでなく､実行しているスクリプトまで同じでどれがどれだか解らないなんてのは
スクリプトの設計段階での問題

>355
環境と言うのはＢＡＳＰ２１やセンドキーで日本語を送る為のライブラリ環境の事です。
ＶＢＳやらない人に複数のライブラリのインストールを強制するのは酷ですからね。

あと、プログラミング自体はしょぼいＰＣの時代にやっていただけですので、
（懐かしのＭＳＸやＸ68000でアセンブラとベーシックをかじった程度ですが）
バックグラウンドでプログラムを動かしつづけるのは何だかもったいないような気がするんですよ
これは個人的な感覚ですので，気にしないで下さい

cscript hoge.vbs fuga hage
cscript hoge.vbs fuga hige

みたいなのも区別できますか？

>>365
もしよろしければそのツールが公開されているURLを教えて頂けませんか？

>>365 じゃなくて >>363 だったorz

> ＶＢＳやらない人に複数のライブラリのインストールを強制するのは酷ですからね。
特定のスクリプトからしか使わないなら､インストール(レジストリへの登録)無しに使う方法もあるけどな


> みたいなのも区別できますか？
当然 禿げ と 髭 だって実行時引数なんだから区別できるよ
>363では"WSHのオプションスイッチやスクリプトへの引数が無ければ"の例を書いたが､細かく書けば
｢プロセス名：cscript.exe　　実行時引数：WSHのオプションスイッチ スクリプトパス スクリプトへの引数｣だよ
プロセス名：cscript　実行時引数：//nologo hoge.vbs fuga hage


> ツールが公開されているURLを教えて頂けませんか？
スレ違い､自分で探すかソフト紹介スレでも行け

WMI使って特定のスクリプトを実行しているWSHプロセス殺す方法ならスレ違いじゃないから
要望が有れば教えてもいいが､今から用事があるんで早くても明日になる
この板に来る奴ならそれまで待つよりググった方が早いと思うがな

>>368
与えられた
オプションスイッチ スクリプトパス スクリプトへの引数
の順序が違ってても区別できますか？

>>366
ProcessExplorerとか？

>>369
区別できるよ
コマンドライン文字列 を丸々見ることは可能だし

>>364
コンパイルすればライブラリいらなくなるの？マジかよ

355も言ってるが､COMをライブラリとして使用する場合はスクリプトも実行ファイルも同じだよね
ソースに取り込めばライブラリファイル(dll=ダイナミックリンクライブラリ)は不要になるけど
それはCなどのまともな言語を使うかスクリプト言語を使うかって場合の話で
スクリプトそのものとスクリプトをコンパイルしたものの差にはならないよな

>>372
バカ。元発言嫁よ。
”そういうコンパイラはありませんか？”って質問だよ。

そんなコンパイラがあれば
CreateObject("Excel.Application")とかやってるスクリプトも
ExcelをインストールしてないPCで利用可能に

やべーすげー俺にも教えて

cmdからだとcscript.exe
explorerからだとwscript.exe
で起動されるようにはどうすればできますでしょうか？

ヌケ作マイクロソフトに無理言うなよ。

>376
そんな事を考えるよりは素直にコマンドラインから　cscript //nologo ***.vbs　で
起動する習慣をつけておくほうが良いと思う。
またはvbsファイルをcscript.exeに関連付け、wscript.exeへのショートカットをSendToフォルダに入れておき、
エクスプローラでファイルを右クリック→送る→wscript.exeを起動させるとか。

あと、そこまで考えてるなら、ついでにvbsファイル内で以下のような条件文をつける手法も
覚えておくほうが良いかも。

If　Right(UCase(WScript.Fullname),12) = "\CSCRIPT.EXE"　Then
　WScript.Echo("このファイルはCSCRIPT.EXEから起動されました")
Else
　WScript.Echo("このファイルはWSCRIPT.EXEから起動されました")
End　If

>>376
コマンドプロンプトでファイル名叩くとエクスプローラーの関連付けで
起動するのは仕様で無理なんジャマイカ？

難しそうだから、ScriptingGuyに聞いてみたら？

>>378
彼が何を考えて、そうしたいのかわからないんだから、素直にやり方は
ないと答えるか、スルーするのが吉。

Wrapper噛ませればいいじゃん

>>380
kwsk

cmd.exeから起動されたかどうかは区別できるので
同じコンソールにcscript.exeで起動し直すのが問題だな

逆ならおｋ？

>>382
>cmd.exeから起動されたかどうかは区別できるので

kwsk

>>381
>>384
kwskはGoogleで

KaWaSaKi

>>385
Googleの検索キーワードをkwsk

>>387
>>380>>382>>385は性格が悪いので教えてくれるわけがない。

だったら性格のよい388が変わりに教えてやればいいのに･･･
それとも388も性格悪い仲間なの？

>>389
性格はとてもいいんだけど、387と同じで検索キーすらわからないんだが。
わかれば、すぐ教えるが、残念ながらこれ以上調べてもわからなさそう。

よくわからんけど
Win32_Process とかじゃねーの？

WSHでは無理、という結論。

.NET系ならGetCurrentProcessを使って自分自身のプロセスを調べ、
さらに親プロセスがcmd.exeである事を判別する、って方法でいけそうだけど。

>>391
自分自身の実行パスをWMIで調べて、そこから親プロセスを割り出す、
って出来そうだけど、同じスクリプトが複数走ってるとアウトのような希ガス。

scriptname = "foo.vbs"

set swl = wscript.createobject("wbemscripting.swbemlocator")
set s = swl.connectserver
set rs = s.execquery("select * from win32_process where caption='cscript.exe' or caption='wscript.exe'")
p = -1
for each r in rs
 if instr(1, r.commandline, scriptname) then
  wscript.echo r.caption
  p = r.parentprocessid
 end if
next

set rs = s.execquery("select * from win32_process where processid=" & p)
for each r in rs
 wscript.echo r.caption
next

'ttp://d.hatena.ne.jp/Ratso/20070313/p1

>>393
同じスクリプトが複数走ってるとアウトのような希ガス

ごめん
リンク貼り間違えてた
ttp://www.geocities.jp/maru3128/wmi.html

>>393
貼り付け乙

穴があるのは承知で、同じような物を作ろうと思ってた。

自分でうにーくなプロセス起こしてそこからたどればおｋ

自分のプロセスidはどうやったらわかるの？

MSは健忘症だから自分のことも平気で忘れる

自分の子の親は普通、自分だけど、例外もあるかも

子供のidは分かるけど自分のidは分からんらしい

http://scripting.cocolog-nifty.com/blog/2007/01/id_548f.html

自分探しって大変なんだな

>>402
子プロセスを起動してその親プロセスIDを取るのか
スゲー力技

>>400
'子の親(=自分)を調べる方法でgetpid()を作ってるサイトがあったので
'そちらを参考(丸写しともいう)にして >>302 を改良
'ttp://www.vector.co.jp/soft/winnt/util/se420729.html
'ttp://www.vector.co.jp/soft/winnt/util/se383755.html
set swl = wscript.createobject("wbemscripting.swbemlocator")
set s = swl.connectserver
set rs = s.execquery("select * from win32_process where processid=" & getpid())
for each r in rs
 wscript.echo r.caption
 p = r.parentprocessid
 set prs = s.execquery("select * from win32_process where processid=" & p)
 for each g in prs
  wscript.echo g.caption
 next
next
function getpid()
 set ws = createobject("wscript.shell")
 set e = ws.exec("mshta.exe -")
 p = e.processid
 set o = getobject("winmgmts:root\cimv2")
 set ps = o.execquery("select * from win32_process where processid=" & p)
 if ps.count <> 1 then
  e.terminate
  err.raise 9
 end if
 for each p in ps
  getpid=p.parentprocessid
 next
 e.terminate
end function

なんでメインとサブでわざわざ違うやり方してんの？

そこまでしてわかったところでどうする？
cscriptで起動しなおしたって別ウィンドウが開くだけだ

もう充分だよ

>>407=382だろ？
だから、まずできるところまでやってんだろ。

よくいるんだよな。自分では何もしないで人のしてる事にケチをつける奴。

>>405
すげーな。そんな方法思いもよらなかった。

超手抜きだけど、環境変数で判別するって方法もあるよ。
Ｃドライブのカレントディレクトリが =C: という変数に入ってるなら cmd
無ければ　explorer から起動したとみなす。
かなり乱暴なやりかただけど。Win XP 以外でうまくいくかどうかわワカラン。

Dim WshShell,Environment
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Environment = WshShell.Environment("PROCESS")

If Environment("=C:") = "" Then
  MsgBox "エクスプローラから起動されました"
Else
  MsgBox "コマンドプロンプトから起動されました"
End if

PROMPT=$P$G
も使えそうだね
消されてたらだめかな

>>411
DドライブにOS入れててCドライブが無い変態さんもいるかも知れない

If Environment("=" & left(wscript.fullname,2)) = "" Then

凄腕プログラマーな皆様！！！！！
おいらの悩みを聞いてください
replaceで　"　の入っている文章を置換したんですがどうすれば良いんでしょうか
具ぐってもサンプルコードばかりで解決策が見つかりません

エスケープでググロ

replace('"', 'hoge')

〜.replace(/"/g, "&quot;");

vbs だと " の1個手前に " を置いてエスケープする。
"" の中に " を書きたいときは "" と書く。（Ｃ言語の \" のようなもの）
つまり、
s = "今日は""楽しい""遠足"
s = Replace(s, """", "うんこ")
となる。

ソースキボンヌ

その仕様自体は知っているのだけれど、
スクリプトのヘルプには何故かその記述が見当たらなかったような……

SQL と似てるね。たとえば What's the vbScript という文字列をインサートするには、' を２回重ねて
INSERT INTO MYBOOKS SET ID=1, TITLE='What''s the vbScript';
としなきゃならない。

>>415
"""それは言えないな"""

"""こ、この不自然な二重引用符は何でもないんだからね"""

>>420
なんでそんなもんがいるんだ？

>>423
'に挟まれた'を挟み込む'ではなくて文字列の'にするため

いや、>>423のいう「そんなもん」は「ソース」のことではないかと。

ついでに野暮なツッコミをしておくと、>>424の書き方だと
シングルクォーテーション("'")を単なる文字として読ませる工夫をしていないので

　「に挟まれた」を挟み込む「ではなくて文字列の」にするため

と読めてしまうな。

ちなみに、ややこしいようなら
JavaScript では "\x22"、VBScript では Chr(34) と書く方法もある。
(ダブルクォーテーションの場合ね)

JavaScriptだったら '"' とか "\"" とかの方が良くね？

ダブルクォートを定数で作っておくのが親切ってもんです

>>428
ﾔﾒﾚ ｷｼｮｸﾜﾙｲ

こんなおいらにいろいろ教えて頂いてありがとうございました。
''か""""かChr(34) でOKって事ですね
陳宮ベリーマッチでした

Const vbQuote = """"

ふつうに書けば
a = "おまいは""アホ""か！"

でもこんな書き方する人もいるの？
Const vbQuote = """"
b = "おまいは" & vbQuote & "アホ" & vbQuote & "か！"

ダサ・・・

ダサいのは可読性を考慮しないオナニー専門のお前

CLSIDはあってもPROGIDがないものはどうやってCreateObjectする？

アルファがベータをカッパらったらイプシロンした。なぜだろう？

>>434
一覧で全部体当たりする

wsf or wsc or htaで<object>使うしかないだろ
vbsやjsでは無理だろ

無理と言うか、出来る方が問題やん

ほなwsf wsc htaも問題やな

>>438
問題のあることやっててゴメンナサイ

そもそもそんな必要性がないだろ

>>433
可読性？？wara
「"」の読み方も知らんの？ダサ〜〜ｗ
おしえてあげよっか〜〜〜〜？

やだよ〜〜ん。おまいの熊度が気に入らないから教えてあげんよ〜〜だ。

煽りの返しレスはすぐにつけないと、ただのキモい粘着野郎としか扱われませんよ

要約：KY

さんご礁は黙ってろ

>>434
自分専用スクリプトなら、適当にレジストリエディタでProgIDをでっち上げればいいｗ。

getobject("new:{ clasid... }")

new:なにこれ？

>>443
で。「"」 の読み方はわかんのかい？

queue moniker
queue:/new:classid or progid

vbsかwsfでftpの処理をして処理内容をリダイレクトしようとしています。
ftpのコマンドを書いたファイルを読み込ませているのですが、うまく処理できません。

コメントを切り替えて下記10通りのパターンで試してみたのですが、
一つ目のRun以外動作していないようです。
ftpもできないしログも吐かないし、エラーも出ません。
その後のEchoは表示されます。
------------------
Dim objShl
Set objShl=Wscript.CreateObject("WScript.Shell")
objShl.Run "ftp -s:crp.ftp", 0, true

'objShl.Run "ftp -s:crp.ftp > ftp.log", 0, true '×
'objShl.Run "ftp -s:crp.ftp >> ftp.log", 0, true '×
'objShl.Run "ftp -s:crp.ftp > ftp.log", 1, true '×
'objShl.Run "ftp -s:crp.ftp > C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:crp.ftp >> C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:C:\db\wsh\crp.ftp >> C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:C:\db\wsh\crp.ftp > C:\db\wsh\ftp.log", 0, true '×
'objShl.Run "ftp -s:/db/wsh/crp.ftp >> /db/wsh/ftp.log", 0, true '×
'objShl.Run "ftp -s:/db/wsh/crp.ftp > /db/wsh/ftp.log", 0, true '×
WScript.Echo "完了"
------------------
OSはWindows2003 Serverです。
上記をコマンドプロンプトで実行すると、ftpもログも正しく処理できています。

違っているところや、別の対処方法等教えてください。
よろしくおねがいします。

cmd.exe /c ftp....

>>451 ありがとーーーーー！！ヽ(・∀・ )ﾉ 　できました！

objShl.Exec

ＷＳＨでドライバインストールって出来ませんか？

著名確認画面で止まるのを自動で進みたいんですが。

>>454
マウスクリックするだけじゃん。
どんだけズボラなんだよ。
スクリプト書く方がはるかに手間がかかるよｗ



なんて冗談はさておき、たぶん、自分のＰＣなら自分で
マウスをクリックすればいいだけな話だが
キミやりたいのは、不特定多数の他人のＰＣにインストールしたい
ということなんだろ？

たぶん sendkeys って命令を使えばいいんだと思う。
（誰か詳しいひとがフォローしてくれるはず）

それはそれとして、いったい何のための署名なのか。よく考えて欲しい。
システムに深刻な障害を与える可能性のあるソフトを
何の確認もせずに自動インストールできてしまう機能がＯＳに
備わっていたら？それはセキュリティーホールだよね。
ウイルス作成ハッカーの格好の餌食じゃん。

>>455
>それはそれとして、いったい何のための署名なのか。よく考えて欲しい。

親切で言ってるとは思うが、余計なお世話だろ。

>>454
出す情報少な杉。ダイアログを自動で操作したいだけなら455の言うとおり
ウインドウハンドルを取得してsendkeys使えばいい。

>>455
SendKeysは知っていますが・・・

それから、著名確認を無効にする事がWindowsでは出来ますよ。
貴方の言うように著名確認が無いならそれはセキュリティホールだというなら、どうして
そのような機能がWindowsについているのでしょうか？

>>456
すみません。携帯電話からだったのでつい・・・・。
今度はPCから書いています。　確かにSendKeysを使えば良いのでしょうが、確認ダイアログ
が出るかどうかが分からないとか、 AutoHotKeyの IfWinExist みたいな 指定したタイトルの
ウィンドウが存在するかどうかチェックとか、そういった事はWSHでは出来ないのかなぁと。

要するに、SendKeysだとAppActivateと組み合わせても、タイミングによってはユーザの介入
によって上手くいかない可能性もあるので、そういった不安要素を取り除いて確実なスクリプト
にしたいなぁと思ったのですが、無理っぽいですねぇ・・・・
マニュアルを "存在するか"　とか "ドライバ"　とか　色々検索してみたのですが、どうも
なさそうでした・・・・。

>>457
本筋とは関係ないが、「著名」じゃなくて「署名」だよ。

「しょめい」じゃどう変換しても「著名」にはならんから
ずっと「ちょめい」と読んでいたんだろうね。

>>457
突っ込みどころが多杉。

>>455がsendkeys出したのは、情報小出しのおまえが悪いんだろ。
それに対して礼も言わずにバカにしたようなレスはどーなのよ。

携帯電話なんてそっちの事情はしらねーんだよ。

>AutoHotKeyの IfWinExist みたいな 指定したタイトルの

できるが、「確認ダイアログが出るかどうかが分からない」って事じゃ
使いようがないだろ。

ある程度知ってる人ならスマートな解決方法がわからないまでも、この流れで
2種類の解決方法が思い浮かぶだろうな。

ブチむかついたので、以上。

>>458
うっはｗ　指摘ありがとうございます。
超恥ずかしいOTL　オレバカす・・・・・


それはそうと、スクリプトはどんなコンピュータで実行されるか分からないじゃないですか？
ハードウェアのインストールウィザードで一旦止まりますが、要はユーザがそれを見て
よく分からずに「インストール停止」を選べないように、出てきた瞬間にインストールを選択
させてインストールしたいのです。

最悪かなり重いマシンで実行する事を想定すると Wscript.Sleep 10000で10秒ぐらいは待って
それから objWshShell.SendKeys "{Left}" Wscript.Sleep 100 objWshShell.SendKeys "{Enter}"
ってやらないと、まだハードウェアのインストールウィザードが出てきてないのに
SendKeysしてしまうと失敗しますよね。
ではそのように作ったスクリプトを高速なマシンで実行した場合はどうなるか・・・
ハードウェアのインストールウィザードは出ているのにしばらく停止したまま。その間にユーザが
インストール停止を選択してしまうかもしれない。そうでなくても無駄に待ち時間が長いのは問題。
だから、出てきたらすぐインストールを選択させたいんです。無駄な待ち時間をなくしたい。
そうするにはどうすればいいのでしょうか？
AutoHotKeyだと IfWinExist タイトル　で　そのタイトルが存在するかどうかチェックとか
そういった事が出来たのですが、WSHではどうするのかなぁと。
存在しないタイトルを objWshShell.AppActivate タイトル　ってやってアクティブにしようとして
存在しないのだから多分 Falseが帰ってくるから、それがTrueになるまで1秒ずつ実行するような
無限ループでも作ればいいのでしょうか？こんな感じ

Do While objWshShell.AppActivate("ハードウェアのインストール") <> True
Wscript.Sleep 1000
Loop

しかしこうするとなんらかの原因で永遠にAppActivateするプログラムが立ち上がってこなかったら
無限ループに陥ってしまうし・・・どうしたらいいんでしょう？

>>460
すみませんでした。　ただ、署名を無効にするオプションが存在するのに署名無視でインストール
なんて出来るとセキュリティホールでしょ？って言っていたので、それはおかしいなと思って
レスしたまでです。で、携帯電話からってのは確かに、貴方には知る由もありません。申し訳ございませんでした。

＞できるが、「確認ダイアログが出るかどうかが分からない」って事じゃ
方法をぜひご教示願えませんか？

＞ある程度知ってる人ならスマートな解決方法がわからないまでも、この流れで
＞2種類の解決方法が思い浮かぶだろうな。
向学のために2種類の解決方法とスマートな解決方法をご教示願えませんか？

＞ブチむかついた
"ブチ"って、山口県辺りの人ですか？

>>461
>無限ループに陥ってしまうし・・・どうしたらいいんでしょう？
有限ループにする

>>463
なるほど・・・

i = 0
Do While objWshShell.AppActivate("ハードウェアのインストール") <> True
　　　　　　　WScript.Sleep 1000
　　　　　　　i = i + 1
　　　　　　　If i >= 10 Then
　　　　　　　　　　　　　　WScript.Popup "エラー！ドライバのインストールに失敗しました", 5
　　　　　　　　　　　　　　WScript.Quit
　　　　　　　End If
Loop
こんな感じですかね。。。

それともう1つ聞きたいのですが、指定した名前のドライバがきちんとインストールされているか
どうかIfで分岐する事はできませんか？

もう具体的に出した方が分かりやすいと思いますので言いますが UltraVNC のVNC Hook Driver
のインストールをしたいのです。　もしインストールされてなければインストールを実行（全自動）
インストールされていればインストールはせずにスクリプトを終了させる
といった分岐です。

もう全部手作業でやった方がいいと思うよ。

>>462
「署名を無効にするオプションが存在する」 なら、無効にしとけばいいじゃん！頭悪っ

あーあ、言っちゃったよ

>>466
そういう設定に変えちゃらめぇ〜〜〜！

方法があるのに「らめぇ〜」ってどういう事だよ。もう付き合いきれん。

らめぇ〜って何？
日本語の乱れ？

>>470
お前は萌えを知らんのか？

萌えは知っているがみさくらなぞ知らん!

MSはWSHというものが
Windowsの自動操作を行えると主張するが
AppActivate+SendKeysはWindowの基本設計とは完全に矛盾しており
システムのクラッシャーになりかねない

OLE対応アプリ/機能以外は操作できないというのは
実質WSHには自動操作はできないという事を示している

「Windowsの」ここ重要
決して「Windowsアプリケーションの」とは言っていない。

もちろん、ドライバのインストールはWindowsに関わることだけど、
上にもあるようにセキュリティに関わることだから、
自動化に制約がかかるのは勘弁してやれ。

でもさ、市販ソフトのインストーラでも、うらでダイアログポチポチしてるよね。
Windowsってなんなの？って感じ。

VBSと組めばバッチなんていらんくね？

WScript.ShellのPopUpの秒指定、ExcelやIEやHTAで効かないんだけど
使えているひともいるみたいで、環境依存なの？
ttp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=53250;id=excel

そう思うなら、
COPY *.TXT A:\
と同等の機能をVBSで書いてみろよ。
適材適所で使い分けの出来ないヤツは役に立たん。

>>478
既知の問題で､(おそらく)環境依存で､原因不明で､解決法無し(不明)です
スレ違いなので詳しくは書きませんが代用法もあるわけですし
問題が起きるようならキッパリ諦めてください

>>479

Option Explicit
Dim objFSO
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "*.txt" "A:\"
Set objFSO = Nothing

こんな感じでしょうか？

前から思ってたんだがWScript.つけてるコードって
どこソースなんかね

タイピング増やしたくない俺は滅多に使わないんだが

Scripting Guyですよ

どこソースって､MSDN(WSHヘルプファイル)には

object.CreateObject(strProgID[,strPrefix])

object
　WScript オブジェクトです。

って書かれてるわけだが

ちゅーか別物だよね

Scripting.FileSystemObjectのインスタンス作る場合に置いては別物じゃないよ
大元は一緒でラップの仕方が違うだけだし

クライアントサイドはCreateObject()
サーバサイドはServer.CreateObject()
って記述してる

>>487
それはまた全然別の話だよw

>>481
ブッブーーッ！はいダメ。

無理すんな。素直にバッチファイル書けよ。

ダメな理由くらい書け

↑
なぜダメか一人でずっと悩んでろ！

じゃあ俺は駄目だと思わないから481を使うね。

>>489
"*.txt" と "A:\" の間にカンマがないのがダメってこと？

CreateObject("Scripting.FileSystemObject").CopyFile "*.txt", "A:\"

>>479がダントツで役立たずだな

対話的じゃないとかいうオチか？

>>478
WScript.Shellという名前からしてWSH専用だろ

>>479はCopyFileで*.txt使えること知らずに複数行になるはずと
勘違いしてたに１票

あっちゃーやっちゃった。すみません。
objFSO.CopyFile "*.txt", "A:\"

↑こうですね・・・・。。。

500ゲット！あけおめ

>>499
はいそのとおり。
バッチなら COPY *.TXT A:\　で済む、バイトの女の子さえミスしようがない超超超簡単なことさえ
ＷＳＨで書くとミスっちゃうだろ？
ミスの確立が増える。そういうこと。
だから、ＷＳＨがあればＢＡＴはいらない、などとイキガッテないでさ、適材適所で使い分けれ。

それにしても、超〜〜思うツボだな。わざとミスってくれたのかと思ったよ。
天然だったんだねｗ

(ﾉ∀`)　ｱﾁｬｰ

>ミスの確立が増える。
狙って書いてるのか？ｗ

天然だろ

>>501
かんじで かくと みすっちゃう だろ？
いきがって ないで ひらがなで かけ。

>>501
はい、今回WSHで書いて、確かにBatで書いた方が良い場面もある事を痛感しました。
WSHとBatを混合させると言うのはどうなんでしょうか？
Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Exec "copyFile.bat"

みたいな。でもこうすると処理が複雑になったときにbatとWSHと行き来するような事になると
なんかバグが出てきそう・・・。その時修正が大変じゃないですかねぇ・・・。
それに出来れば1つのスクリプトファイルで済ませたいし・・・

>>505
ワラタｗ

>>503-505
ネット初心者？

氏ね

それはこういうやつだろ。「確立」は単なる間違い。

>>506
バッチファイル内のCALLで他のバッチファイルを呼んだ方が解り易いかと。
基本バッチファイルで、足りない機能をWSHでフォローって感じで
書いていけばいいんじゃないかな。
無論、内部・外部コマンドが殆ど不必要なら、直接WSHで書いてしまえばいいし。

>>478
リンク先の代替法はSendKeys使っててもひとつやね
VBSファイル作って呼び出すのが確実

>>506
おもしろい発想だけど、たとえばＣ言語でこんな・・・
main()
{
　system("MKDIR \"C:\\Program Files\\MyApp\"")
　system("COPY *.* \"C:\\Program Files\\MyApp\"");
　system("ECHO インストールが完了しました。||PAUSE");
}
こんなの書いて、「オレ、Ｃ言語でプログラムかいたおｗ。スゴイでそ！」
なんて言ったら笑われるだけ。他の言語でも同じこと。

C言語が使いこなせてるわけではないが
C言語でプログラム書いたというのは事実なわけだが

笑われるのもまた事実というわけだ

JScriptのマクロ変数の値を出すことできる？
WScript.Echo(@if (@_Win32) 'Y' @else 'N' @end);
はできても、
WScript.Echo(@_Win32);
はできない

スレ違い

>>513
@変数は、JScript コードでは使えませんよ。
@setや@ifの中でしか使えない仕様です。

>>514
プログラム板で有名な基地害さんじゃありませんかｗ

>>513
@_win32じゃね？
>>514
それ見ていつも思うけど
誘導先が書いてないんじゃ無意味なレスじゃね？

そうでもないか

>>510
ちょｗｗｗｗそれはないですｗｗｗｗｗ　さすがにそれはひどい・・・・。

で、ドライバがインストールされているかどうかで処理を分岐させることはＷＳＨではどうすれば良いのでしょうか？

If Then Else End If

>>520
いや、その構文を使うのはわかるけど、 If の後に書く内容ですよ。
どういう風に書いて真偽を返させればいいのかが全く検討がつきません。

If ドライバがインストールされている Then
　　MsgBox ドライバインストールされてるよ〜
Else
　　MsgBox ドライバインストールされてないよ〜
End If

の"ドライバがインストールされている"　と言う判定をどう書けばいいのかをお聞きしています。

インストールされた状態とされていない状態の差分を調べろ。
レジストリでも覗いとけ。それ以上はこのスレの範囲外。

・複数のバイナリファイルの文字列を置換したい。
・置換リストを作って置換したい。
・CUIでもいい。

これらを実行したい場合は、WSHで出来ますか？

>>523
WSHとCOM(標準のものだけで事足りる)で出来ますよ

バイナリはpowershellのほうが楽

>>524
COMとはCOMMAND.COMのことですか？

>>525
win2kは未対応のようで、うちでは使えません。

よくActiveXコントロールの事
ActiveXって言う人いるよね。
もちろんActiveXが何かは殆どわかってない人が多い

特撮ヒーローの名前だ間違いない

>>526
win2kではCMD.EXEだな

WSHでバイナリは読めても書くのが大変だから、PowerShell使え
win2kでも誤魔化せば使えるらしい

つVBA

>>529
そういうボケはいらん
COMコンポーネントだろ

そういうボカシタ話はいらん
具体的なProgIDを書け
しらんなら書くな

CreateObjectすんのにProgIDとか使わんがな

ProgID使わないでどうやってCreateObjectするんだよ。
っていうかググればADODB.Stream使うってすぐ出て来るよね。

ADODB.Streamにバイナリ書き込むのが面倒だって

WSHでも理論上はできそうだな。

俺は面倒臭がりだからC#で書くけど。

>>522
レジストリを覗く・・・それぐらいしか手が無いとは・・・・OTL

>>538
WSHはそういうもの
痒いところに手を伸ばすにはダルシムレベルの修行が必要

wmi

残念ながらそれはハズレだ

>>539
別にWSHがそうだから、
とかいう問題じゃなくね？

きっとWSH以外ならもっと簡単な方法があるんだろう
僕にもその方法を教えてください

そういえばWindowsXPの「プログラムの追加と削除」ってHTAじゃなかったっけ

WSHでアイドル時の検出とか出来ませんか？
Windowsのタスクスケジューラでアイドル時検出試してみたのですが
とりあえず1分アイドル時間が続いたら hoge と表示してpauseしてそれから終わらせるスクリプト
をスケジュール登録してみたのですが、　負荷が小さい処理、例えばメモ帳に文字列を
打ち込んでいたり、こうやって2chを見たりしていると、操作しているからアイドルではないのですが
CPUから見るとアイドル状態なので、スケジュールが実行されてしまいます。
やりたい事は　パソコンを切るのをしょっちゅう忘れる愚息のパソコンに仕込む事による
省エネ対策です。　1時間以上パソコンを全く触ってないならshutdownさせると。
しかし先ほど述べたように1時間以上2chを見てたりネットサーフィンしている状態だと
操作しているにも関わらずアイドル検出されてしまってシャットダウンされてしまうのでダメです。
MSNメッセンジャの「退席中」表示みたいな、指定時間全くマウスもキーボードも操作しなかったとき
（Inputが全く無い時）にスクリプトを発動させたいのですが、WSHでアイドル時間を取得できませんか？

コントロールパネルの電源オプションでよくね？

電源管理使えよ

レスありがとうございます。
電源オプションのプロパティ　ウィンドウを見てみましたが、シャットダウンがありません。
まぁ休止状態で代用してもいいかな？とは思いますが
システム休止状態　の所の　1時間後　にすると、アイドル時間（CPUがアイドルではなく
ユーザによるマウスやキー入力が一切無いアイドル）が1時間経ったら勝手に休止になる
のでしょうか？スレチ？

システム休止状態1分で　何もせずに2chブラウザだけ立ち上げた状態で
放置してみましたが、休止状態になりませんでした。
これじゃダメなようです・・・・

コントロールパネルの電源
休止状態でOK

CPU使用率がとれるとかとれないとか

あとDATが定期更新されてるんじゃね

HTMLファイル内にWSH(拡張子.vbs）を埋め込んで、ブラウザから機能を実行する事は出来ませんか？
WSH HTML　等で検索してみたのですが、イマイチそういうことを紹介しているページが
見つかりません。

もしくは.vbsファイルの内容をテキストコピーして、 HTMLファイル内に貼り付けて
そのコードを実行させるとかそういうことは出来ませんか？

？？？良く分からないんだけど、HTAみたいなのを望んでるのかな。

とエスパーしてみる。

ちなみに、WSH関係なく単にVBScriptを書きたいだけなら、
JScript同様、script要素の中に書けるぞ。現状ではIE限定になるが。

できません。そんなことできたらずぼずぼの脆弱性だ

>>555
<script language="VBScript">
<!--
MsgBox "ハロー"
<--!
</script>

↑みたいな感じでHTMLで実行させる事についての詳細が知りたいのですが、
>>556が言っているように出来ないのでしょうか？
ブラウザでそういうことしたいならJava Scriptとか書くしかないのでしょうか？
でも >>555はできるって言っているし、どういうことなのん？？？

それはWSHではなく、VBScriptだろ

>>553
>WSH(拡張子.vbs）
このあたりに勘違いを感じる

>>557
それくらいは555に書いてあるとおり可能。languageよりtype使えな。

>>556
ネットワーク上に置いてあれば、
FileSystemObjectなどはセキュリティゾーンに従って制限を受ける。
JScriptで自由に使えたXMLHTTPなどはVBScriptでも同様に使える。

いずれにせよWSHは関係なくスレ違い。よそ行け。

WSHとIEは一応は別物

が、実際にHTMLでVBScriptが使用される事はまず無い。

VBとVBSも当然違うので
VBSの話がまともに扱われるのは
ここかお前らスレかHTAスレぐらいのものだろう

WSHもIEもHTAもスクリプトが実装されているモジュールは
完全に同一の物。
WSHのマニュアル、と言われているものも実際には
必ずしもWSHのマニュアルではなくWindowsスクリプト、
についてのマニュアル

残念､ハズレ

>>553 >>557
VBScript HTML で検索したらいいと思うよ。
既に言われてるようにWSHは関係ないので
WSH HTML では見つからないでしょ。

unko deta
kimochi ii

レジストリエディタを起動すると右側に"名前", "種類", "データ" と標示されますよね。
指定したレジストリキー以下の"名前"を全てフルパスで返して欲しいのですが
どのように記述すれば良いのでしょうか？

Set objShell = WScript.CreateObject("WScript.Shell")
ret = objShell.RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\VIDEO\*")
のようにしても、VIDEO\　以下の名前の部分のパスは帰ってきませんでした。（何も帰ってこない）
かといって 最後の * を削除しても結果は同じで何も帰ってきませんでした。
On Error Resume Nextを上のほうに書いてあるからエラーにはなりませんが・・・。

やりたい事は、それによってフルパスが得られるなら、For Each文で全てのデータを覗いて
指定した文字列が含まれているかどうかをInStr関数等で検索すると言う事です。
よろしくお願いします。

>>565
ワイルドカード使えるなんて何処に書いてある？
ワイルドカードは使えないのが基本で､使えるメソッドにはその旨書いてある物だ
勝手に都合の良い仕様を妄想するな

君のやりたいことを実現するにはWMIを使えば良い
但し､ここはWSHのスレであって汎用コンポーネントのスレではないので後は自分で調べること
と言っても情報は腐るほどあるからググれば簡単に解決するけど

>>566
WSH厨ってなんでそんなに偉そうなんだ？
そのくせ関係ないスレに聞かれても無いスクリプト張りまくったりして気持ち悪いな。

汎用コンポーネントもこのスレでいいだろ
どうせ使うんだから

文句言うだけでサンプルコードのひとつも貼らない君等も同類だと気付いてる？

？
回答なら566で十分だろ？

俺はただ566が気持ち悪いって書きたかっただけだ。

同類にされたかないね！

ゴメン､それ以下だったようだねw

教える側はさぞ自分のほうが頭がいいと思い気持ちよくなる。

教えられる側はその代償に回答をもらう。

いいんじゃね？

ﾓﾚだったら表面上では偉そうな態度取らんが、それは人それぞれ。

>>572
恥ずかしくならない?

>>573
ﾓﾚは恥だと思うから、

＞ﾓﾚだったら表面上では偉そうな態度取らんが、それは人それぞれ。

って事ね。

>>566 は氏ねばいいと思いま〜〜す。

>>574
そういうの偉そうに書いちゃうのは恥ずかしくないの?

私が初歩的な質問をしてしまったばかりにスレが荒れてしまっているみたいで
申し訳ありません。

一応自己解決したので参考までに私がとった手段を書いておきますね。
WMIと言うのは一応調べてみたのですが、イマイチよく分からなかったので
WScript.CreateObject("WScript.Shell").Exec を使って
reg.exe を呼び出す事で処理しました。
reg query キー
とやると、指定したキー内の"名前", "種類", "データ"が全て列挙されるので
1行1行InStr関数にかけて目的のレジストリデータが存在するかどうかを調べる手段を
取りました。一瞬コマンドプロンプトの画面が立ち上がってくるのがちょっと気になりますが
これなら私にもかけました。
アドバイス下さった方、ありがとうございました。

>>576
楽しそうだね。

>>577
http://msdn2.microsoft.com/en-us/library/aa393664(VS.85).aspx
http://www.microsoft.com/japan/technet/scriptcenter/scripts/os/registry/default.mspx

>一瞬コマンドプロンプトの画面が立ち上がってくるのがちょっと気になりますが

出てこなくする方法もあるけど
それが出ないのが気に入らないっていうひともいるだろうね

>>580
おお、そうなんですか？参考までに出てこないようにする方法を教えて頂けませんか？
IEの場合は
objIE.Visible = False
すれば見えなくなりますが、コマンドプロンプトの場合どうするんだろう・・・

cmd /?

>>562
どれをハズれと言ってるのかよくわからんのだが
まああれだ。
MSがいくら宣伝しても
VBSを使ってる人間は少数派。
というかもはや滅亡の道を歩んでおる

VBS < 壁 < javascript
.NET < 壁 < java
パワーシェル < 壁 < Perlなど

って事だ。
将来性を考えるんなら>>557もVBSはスルーして
JSにしときな

でもな、VBSのほうが断然早いんだ。特に配列。
たまにByRef受け取りなパラメータもあったりするし。

fsoで移動先に同名フォルダがある場合について質問です。
c:\test\test
というように同じフォルダ名で入れ子になっている環境で、
explorer上でc:\test\testを切り取り、c:\test内で貼り付けて上書きすると
二つのフォルダ内容が融合されますが、これをfsoで実現しようとしています。

Moveは移動先に同名アイテムが存在していてはダメということなので、

まずc:\test\testの中身を先にc:\testに移動させ、
c:\test\testが空になったら削除する。
この際に、
c:\test\test\foo.txt
c:\test\foo.txt
というように移動先のフォルダに同名ファイルが存在した場合、
まずc:\test\foo.txtを削除し、c:\test\test\foo.txtをc:\test\foo.txtに移動させる。
さらに同名フォルダの場合はそれぞれについて再帰的に処理していく。

というような手順を踏まなければならないのでしょうか？
もっとシンプルな方法があるなら教えてくれませんか？

>>585
質問は日本語でおねがいします

モールスぬるぽ銃乱射 http://www6.ocn.ne.jp/~miz2/morse.htm

　　　1TGBIT　　　　　　　　　　　　　　　　　ｶﾞｯｶﾞｯｶﾞｯｶﾞｯﾄﾞｶﾞｶﾞｯｶﾞｯ!!!!!
　　>z/':y★r” 　ドガガガガガッ　　　　　　　　　　 ∴ ∧変∧
　　ル%#*ﾟ∀）＿__｡　 ＼从/　　 　＿　_ ＿☆_ ＿★∴*．｀Д´）/
　ノハ　つ∞【〔ﾛ=：(∈(二(@　＞‐―　‐★‐―☆∵*;：*; 　　 /

∧★∧
(*ﾟ∀ﾟ)φ――・ ・― ― ―・・― ・・―→　(モールスでｶﾞｯ!)

>>585
CopyFolderとかなら上書きに関するパラメータがあるみたいだけど。
なんでMoveにはないのかね？

未来からきてすみません

>>583
残念ながらハズレです

>>586
(´･ω･｀)

>>588
なんでですかねー？　>Moveの上書きパラ

CopyFolderの場合はあくまでCopyなので、後でコピー元を削除するとしても、
一時的に同一アイテムが階層違いで存在してしまうことになってしまいます。
この方法だとサイズの大きいアイテムのときに問題が出てきます。
となると、移動先の同名アイテムを先に削除してから移動させる、
という選択肢しかなくなってしまうと思うんです。

しかしそれがどう考えても複雑な処理になってしまう。

みなさんどうやってるんですか？

CopyFolder には上書きオプションがあって
Move には無い。
どこか抜けてるところが、いかにもマイクロソフトらしい。

moveは内部renameなのでrenameに上書きがないから

>>591
ShellオブジェクトのFolderオブジェクトを使えばできた。
以下、"F:\temp\test\test"を"F:\temp\test"へ上書きするサンプル。

Set objShell=Wscript.CreateObject("Shell.Application")
set objFol = objShell.NameSpace("f:\temp")
call objFol.MoveHere("f:\temp\test\test", &H10)

>>594
動作確認できました。
ありがとうございますm(_ _)m


しかしこのMoveHereって移動エラー発生時点で処理が中断されるっぽいですね。
スキップさせるにはやっぱり自分で書くしかないですね。

MoveHere.VBS
http://www.vector.co.jp/soft/winnt/util/se377243.html

けっこうみんな苦労してるっぽい
http://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list121.shtml

>>595
FolderItemオブジェクトのInvokeVerb使って、
"切り取り(&T)"して"貼り付け(&P)"という手もあると思いますが・・・。
まあ、エラーが出れば止まるのは同じでしょうね。

shellのmoveはcopy+deleteだから

fsoで
if folderexists then deletefolder
movefolder
がいいんじゃないの
on error使ってもいいけど

>>596
それって裏でMoveHereが動いてるのでは？

>>597
そのようですね。いろいろ実験してると分かりました。

>>598
それだとフォルダとフォルダのマージにはならないような。
移動先のかぶってないファイルも削除されてしまう。

movefileでぐるぐる

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

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

すきにしてくれ

つrobocopy.exe

>>601
そのへんは考えてあります。
MoveHereの標準動作を見ると

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

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

cronNTで動かすスクリプトはネットワーク上のファイルにはアクセス出来ないのでしょうか？

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

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

DriveExists？

>>605
それ、cronNTじゃない環境では動くの？

>>606
ttp://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/jsmthdriveexists.asp

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

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

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

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

Windows Services for UNIX Version
ttp://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=896C9688-601B-44F1-81A4-02878FF11778#Overview

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

cronNT類似とか関係なく、例えばWSHとかHTML, HTAなど
他のActive Script実行環境でやるとどうなるか試してみろ。

>>608
ちょっとかなりスレ違いっぽいが
cronNTサービスのプロパティを開いて
ログオンをローカルシステムアカウントから自分のアカウントに変えてみて

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

で？

＞それをBというディレクトリにmoveしますが途中で終了してしまい

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

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

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

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

普通はディレクトリとその中身のファイルは別だからねぇ。
ディレクトリを移動（上書き）というのはディレクトリ自体の移動ではなく中身の移動のことだし。

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

なぜ 「それ」 が問題なのかというと、
Aというディレクトリを move せずに
a,b,c,d,e というファイルを move すればよかったんだよ。
「それ」 が A なのか a,b,c,d,e なのかで結果が違ったんだね。

Macはどうでもいいよ。

a,b,c,d,e なら「それら」だろ

>>611
ご愁傷さま

http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/oct04/hey1011.mspx
を 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);
}

>>611
次から気を付けようなｗ

>>622
ここが間違ってる

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

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

デバッグくらい自分でしろ〜
他人に投げるな〜〜

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

wwww

>>626
ありがとう

CreateObject("ADODB.Stream")

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

>>629
とりあえずエラーの内容書いてみ

>>629
MSからダウンロードに決まってるだろ

標準で入ってない環境、まだあったっけ？

FileSystemObjectとか称してテキストファイルの読み書きしか出来ないの？
fread,fwriteとかseekのメソッドを提供してるクラスって無いの？

出来ない
ADODB.Stream

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

FileSystemObjectで読む

PowerShellやC#に逃げる

　　　　　↑
自分の殻に閉じこもる現実逃避型。

debugでダンプする

殻＝shell

basp21

客先のＰＣにbasp21がインストールしてあれば苦労しないよ

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

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

FileSystemObjectなら使えるだろうに、なぜ使わん？

スクリプトの中で COM みつからなかった初回のみ regsrvr32 すれば？

>>635
> デカイ動画ファイルの 最初の数バイトだけ 読み込んで処理したいけど
とのことだ。
バイナリは無理だろ。

>>646 は >>644 へのレスね。

OpenBinaryFile()

> バイナリは無理だろ。

何が？

FSOでってことだろ

ForBinaryReading

それは今回の用途とは違うわけで

baspをbase64してwsfに入れて実行時に登録

すなおにＶＢで作って納品４６

VBSファイルごとにアイコン変える方法おすえて

>>655
ショートカット作って、ショートカットのアイコン変えるとか

そういうアイコンハンドラを使えばいいんじゃね
なければ作ればいいんじゃね

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

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

HTMLDocument

最近 WSH を始めた者です。
WSHShell の Run メソッドでアプリを起動して使おうとしているんですが、
普通にアイコンをダブルクリックして起動した場合と挙動が違って困っています。

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

>>660
カレントディレクトリを設定しろ
設定仕方はWSHヘルプに載ってるので嫁

>>661
どうもです。

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

>カレントディレクトリを設定しろ
ttp://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/wslrfcurrentdirectory.asp
によると CurrentDirectory というプロパティがあるそうなのでこれを適宜セット
する、で正解ですか?
で、できたらどんな値にセットするかも教えていただけると助かるのですが...
もしかしたらWSHヘルプというものにそれが書いてあるんでしょうか。

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

右クリック-プロパティ

通常はダブルクリックしたものがあるディレクトリがカレントディレクトリとなる。

>>662で言ってる　CurrentDirectoryって　Windows2000にデフォルトで入ってるWSHでは
動きませんよねぇ。なんか代替のメソッド無いですかね？

>>665
Win2Kでも、WSH5.6なら、("Wscript.Shell").CurrentDirectryが使える。
インストール直後のバージョンは、どうだったかな‥

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

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

そのスクリプトファイルのショートカットを作って作業フォルダを設定しろ

WSHでファイルを読み取り専用に変えることはできますでしょうか？

readonly属性をつけることならできるな

>>669
それです。教えてください。

Attributes=1

ヘルプみろ

>>664
なるほど。その値でうまくいくようです。ありがとうございます、

質問です。

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

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

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

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

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

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

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

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

>WShellオブジェクトは生成済み

ソース全部貼るべき

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

＞WshShell.Runにて実行すると、正しく出力されません。
とはどうなるのだ？

Set objShell = WScript.CreateObject("WScript.Shell")
Command = "CACLS %cd% > out.txt"
objShell.Run Command

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

Command = "cmd /c cacls〜

ではうまくいくけど。

%windir%\system32\cacls.exeと指定したらどう？

リダイレクトはシェル(cmd.exe)の機能。

フルパス指定でも無理

皆さんご回答ありがとうございます。

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

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

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

タクススケジューラの引数について質問です。

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

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

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

cmd /c c:\test.vbs abc

先輩！ありがとうございました！

ファイルをドラッグアンドドロップしたらパスを表示するスクリプトが動きません。
どこを直せばよいか教えてください。

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

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

コマンドライン引数が指定されているからに決まってるだろ

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

for ( strArgument in WScript.Arguments ) {
WScript.echo ( strArgument[i] );
}
これ、なにしてるの？

>>688
var strArgument = new Array();
これ、なにしてるの？

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/wsproarguments.asp

>>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ファイルはこれで動くんじゃないかなぁと・・？

>>692
> if ( WScript.Arguments.count() == 0 ) {
count はメソッドじゃなくプロパティ。

>>693
えー？

>>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

>>695
実際にはいろいろな書き方ができるので、余計に混乱してるのかも。

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

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

for (var e = new Enumerator(WScript.Arguments); !e.atEnd(); e.moveNext()) {
すっきり

>只今WSHをJScriptで書こうと、vbsのスクリプトを翻訳しながら勉強中です。

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

マイクロソフトの公用言語はＢＡＳＩＣ
ゲイツはＢＡＳＩＣ長者
ｊａｖａ には裁判で負けた恨みが有る

WSHは使うけど、今はもうVBScriptでは書かないなあ。
JavaScript(JScript)のある意味変態的な言語仕様に慣れてしまったら戻れない。

↑
変態

>>694
> >>693
> えー？
といわれてMSDN見てきた。

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/wsobjWshArguments.asp

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

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

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

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

動きさえすればどっちでもいいよ

with (WScript.Arguments) {
    WScript.Echo(Count());
    WScript.Echo(length);
    WScript.Echo(Count); // エラー
}

basp21のsocketって非同期通信できませんか？
データ取得できたらコールバック関数を呼びたいんですが。

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

昨日教えてもらったスクリプトを、テキストに出力しようとしたら働きません。
また教えてください。

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();

×var path String();
○var path = String();

絶対パスにすれば

var path = "";
で

>>709
動きました！

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
レスありがとうございます。

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つの"が 文字列としての純粋な"を表し
(""で"を単なる文字列としてエスケープ)、最後の"が文字列の終了を表すダブルクォート・・・
結局 """" となり、非常に分かりにくいというか、混乱する形になったのですが、こんなもんなんでしょうか？

こんなもんです

>>714
Python がお勧め

strDrv = Chr(18) & strDrv & Chr(18)

>Set f = fs.GetFolder(".")
>objShell.Run f.path & "\script\var.bat"

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

>>716
>>712

>>714
Ｃ言語やjavaだって "\"" みたいな、「たいへん分かりにくい混乱する表記」
になるから、こんなもんです。

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

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

もしくは

strDrv = Q( strDrv )

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

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

Chr(34)は？

"自分は後者をよくつかう"って､使えるの､それ？

うん

＞みたいな

コードはイメージです

>>724
実際のコードとは異なる場合があります。

>>722
使えない

使わない

使われない

こんばんです。１つ質問させてください。

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]実行すると正常に起動します
修正点がありましたらお教えいただけないでしょうか。

>>729
strCmdLine = "cscript sub_program.vbs str01 str02 "
または
strCmdLine = "wscript sub_program.vbs str01 str02 "
と記述する必要がある。

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

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

という事はExplorerでアイコンをダブルクリックすれば起動するのも"たまたま"だね。

//H:でたまたまを切り替えられる。

どう考えても>>721が正解

たまたまだけど、これもできる
strCmdLine = "sub_program.vbs str01 str02 "
objWshShell.Run(strCmdLine)

>>735
おまえ､何も解ってないな

そうだな、解るように言ってやれ

var fso= WScript.CreateObject("Scripting.FileSystemObject");
var d = fso.GetDrive(fso.GetDriveName("Q:\\"));
if(d.IsReady){ ...

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

FSOで問題あるときはShell.Applicationを使ってみるのが定石

ドアラ グッドウィルドームに立つ!
再生：654,421 | コメント：123,256 | マイリスト：20,510
http://www.nicovideo.jp/watch/sm354359

凄い勢いで踊るドアラ
再生：482,525 | コメント：28,129 | マイリスト：17,837
http://www.nicovideo.jp/watch/sm1489303

ドアラが異端になった経緯
再生：424,284 | コメント：36,521 | マイリスト：9,417
http://www.nicovideo.jp/watch/sm378355

ドアラーズブートキャンプ
再生：241,338 | コメント：18,996 | マイリスト：7,229
http://www.nicovideo.jp/watch/sm409082

>>738
ドライブ認識動作中にエクスプローラとかでドライブにアクセスしても凍るから
アクセスするタイミング悪いと凍るのは仕様じゃね？

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

Shell.Applicationで取れる情報で変化するものを見つければ？

Sub プロシージャとFunction プロシージャの違いって
Function プロシージャが戻り値を返すのに対してSub プロシージャが値を返さないって言うだけですか？

End XXX
Exit XXX
がちがう

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

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

Javaなんかのreturnみたいにプロシージャの呼出元へ戻るだけ。

>>745
ヘルプも見れないのか

WSH(拡張子.vbsのファイル)で
カレンダを表示するプログラムを作成しました。

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

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

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

携帯もまだJavaScriptは実行できないぞ。

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

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

>>749
.vbsファイルを携帯に渡しても実行できるわけないし、じゃあ現状だと携帯でコレを実現
するのは難しいんでしょうか？

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

すれ違い
よそへいけ

それって、なんか実行時に入力するパラメータあるんかな？
ないんならタスクマネージャで定期的に実行して、
TXTかHTMLに出力したのをサーバに自動アップするような環境をつくって、
携帯でそれを見に行けばいいような気がするが。

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

>>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でリンク貼れば完璧！
本当にお世話になりました〜

>>753-754
ただのテキストを吐き出すついでにHTMLにすればいいんじゃないの？

>>755
いやーそれが、やろうと思ったのですが、出来なくて・・・。
やろうと思ったらかなり大変だと思いますが、簡単に出来るもんでしょうか？

Replace strOutStrings, vbCrLf, "<br>"
とかやって、改行を<br>に置き換えようとかやってみたんですが、うまくいきませんでした。

>>756
With txtFile
    .Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"" ""http://www.w3.org/TR/html4/loose.dtd"">"
    .Write "<html lang=""ja"">"

...

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

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

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

そういえばむかし、こんなんやってたな。

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" で定期的に動かして
コンテンツを更新してた。
古きよき時代。

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

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

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

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

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

Replaceは結果を戻り値に返すからこう使わないといけないはず。
strOutStrings = Replace(strOutStrings, vbCrLf, "<br>")

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

＞HTMLって意外と"を使いますし。

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

>>763
DOMのことならVBScriptからでも使えるだろ。

Stringオブジェクトのことだろ

でもあまり使えるメソッドがないな

HTMLタグをつけるメソッドを付けた奴は、きっと浮かれ過ぎていたんだろうな。
後でcreat以上に恥ずかしい思いをしたに違いない。

JScriptだから好きなメソッドが追加できるよ
.quote()なんてのもいいんじゃね

anchor(anchorString), big(), blink(). bold(), fixed(),
fontcolor(colorVal), fontsize(intSize), italics(), link(linkstring),
small(), strike(), sub(), sup()
確かに今更これらを使う気にならない

>>762
＞strOutStrings = Replace(strOutStrings, vbCrLf, "<br>")
あ、なるほど、確かにそうだ・・・失敗失敗・・・。

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

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

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

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

俺も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> タグが既に元の文字列内にあるかどうかの確認は行われません。

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

BASP21のSpaceメソッドほどではない。

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

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

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

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

あれはあれで便利だからなくさないで欲しい

吉岡照雄のOn Error Resume Nextの正しい使い方とやらを読んだんだが、
こんな面倒なことをしないといけないのか・・・

>>775
On Error Resume Nextの正しい使い方教えて〜

Subプロシージャを毎回作るのはいいけど、さらに複数行の時は入れ子。。。
Subプロシージャだらけになって大変すぎ

ファイルの日付をデータベース(ACCESS)に格納できねぇーー

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

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

文字列にフォーマットし直してから渡せ

はぁー？

問題はそのフォーマットだろ

SQLの構文に合った書式に変換されるとは限らないってこった。
一旦、年月日時分秒をバラバラにして、構文に合わせた書式に作り替えればいい。
書式は自分で調べてくれ。

#mm/dd/yyyy hh:mm:ss#
で渡すといいよ。VBScriptはFormat関数ないから面倒だ。

コードそのままで[地域のプロパティ] を変更するといいよ

capicom.dllが再頒布可能かどうかが調べてもさっぱり分からないんだが

WSHってマウスクリックも出来ないし、.SendKeysメソッドで日本語扱えないしで
やっぱりAutoHotKeyには到底かなわない？

>>785
http://www.microsoft.com/downloads/details.aspx?FamilyID=860ee43a-a843-462f-abb5-ff88ea5896f6&displaylang=ja
このパッケージには、CAPICOM 2.1.0.1 の再頒布可能なファイルとそのサンプルが含まれています。

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

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

>>788
http://msdn2.microsoft.com/en-us/library/ms995332.aspx
ここだと「再配布可能な 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 しかないんだし。

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

>>789
確かにそういうことですね。私の考えすぎでした。

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

どーもです。

>>791
>どうしてMicrosoftからDLさせるところばっかりなんだろう？と、思ってました。

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

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

>>786の質問に答えてくだされ・・・・

そうです、WSHはうんこです。AHKの足元にも及びません。AHKが最高です。よかったね。

AHK >>>>>>>>>>>>>>>>>>>>> マウス操作がデフォでできない言語

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

全盛期のAHK伝説でも貼る流れか？

AHKは本当に凄いですよ？AHKにWSHが勝てる点って　デフォルトでWindowsに入ってる
標準環境っていうぐらいじゃないですかね？

デフォルトでWindowsに入ってる標準環境＞＞＞（越えられない壁）＞＞＞インストール

AHKのおかげで身長が２ｍ伸びました

AHKから受信料の請求がきましたが、どうすればいいのでしょうか

>>800
テレビの横に古いパソコンを置いて「これはパソコンモニタです」って言い張れ。

>>786>>793>>797
暇でネタ振ってるんだと思うけど、それならそれで以下を回答してくれ。

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

Ａ　ア
Ｈ　ホ
Ｋ　か？

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

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

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

こんな感じでしょうか？

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

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

操作自動化の方法論が違うから総合的な比較はできないってこと
GUI操作のシミュレートならそりゃそれように作られたもの使うのが当然
WSHはそういう用には作られてないもの

＞それと .SendKeysメソッド。日本語を送信できないなんて論外です。

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

直接Win32API呼び出してるかどうかじゃね

Win32API呼び出さないで、SendKeys作れるの？

つかってるAPIがちがうんだろ

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

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

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

>>812
なるほど、適材適所でWSHもWSHが得意な場面で使えばAHKより使い勝手いいんだ・・・。

質問させてください。

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

>>814 自己レス。
try仕込むだけでよかったのね orz

>>812
> こういう事はAHKでは、どうやるの？
AHK用ActiveXモジュールを使えば良いだけ

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

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

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

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

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

AHKS

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

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

ReadやReadLineとの仕様の一貫性かも

DLLは同じなの？

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();

たぶん、めんどくさかったんだと思う

WindowsXP、つまり最新のWSH 5.6だと使えるメソッドでもWindows2000、つまりWSH 5.6未満だと
使えないメソッド(例えば Execメソッドとか・・・)やプロパティがありますよねぇ？

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

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

5.6のヘルプのバージョン情報

ただし、障害は載ってないからなぁ

最新は5.7よ

＞やりたい事はWindows2000のWSHを5.6にバージョンアップせずにWindows2000でもXPでも
＞動作するスクリプトを書きたいのです。

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

>>825
5.0と5.1の挙動の違いすら、5.6のヘルプのバージョン情報だけでは分からなかったからなぁ・・・

5.7なんてあったっけ

>>829
最近出た。Vistaに標準搭載で、上から2000, XP, 2003英語版がダウンロード可。
http://www.microsoft.com/downloads/details.aspx?FamilyID=c03d3e49-b40e-4ca1-a0c7-cc135ec4d2be&DisplayLang=en
http://www.microsoft.com/downloads/details.aspx?FamilyID=47809025-d896-482e-a0d6-524e7e844d81&DisplayLang=en
http://www.microsoft.com/downloads/details.aspx?FamilyID=f00cb8c0-32e9-411d-a896-f2cd5ef21eb4&DisplayLang=en

ちがいは？

0.1

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

Msxml2.XMLHTTPなんだけど
readyState=2や3の時、status取得できる？
4にならないとエラーになるんだけどこれ普通？

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

XP SP2+IE6

IEとalertがとじれません＞＜

すれちがい

IE.Quit

Exec("iexplore.exe").Terminate

>>775-776
これ、気になるんですけど…

どんまい

ん？検索すれば出てくるだろ？

>>841
あれがベストなのか？

.wsfに読み込む.vbsファイルの一部の関数を非公開にするのってどうやるの？
.vbs内部だけで使える関数を作りたいんだけど・・・

できない
代替するなら
wsc
class
かな

>>842
ベストなのを教えて

無理言うな、それが出来れば質問しないだろ？

>>843
Sub xxx_aaa()
とかで凌げ

エラーが起きたら即終了でダイアログが出ないようには
どうすればよろしいでしょうか？

try {
    ……
}
catch (e) {
    WScript.Quit();
}

On Error Resume Next

アニメ「めぐみ」ダウンロードページ
http://www.rachi.go.jp/jp/megumi/index.html#ja

>>850 は即終了しないだろ？

vbeはwsfでは読み込めないのか…

んなことはない

vbsをvbeにエンコードしてから、読み込む側のコードの読み込み部分を
<script language="VBScript" src="./hoge.vbs" />
から
<script language="VBScript" src="./hoge.vbe" />
のようにしたんだが、

エラー: ステートメントがありません。
ソース: Microsoft VBScript コンパイル エラー

になってしまって、あきらめていた。"VBScript"の部分を適切なものに変更すればいいのか？
wsfの説明を読んでも分からない…教えてください。

VBScript.Encode

>>850
Try
　...
Catch ex As Exception
　WScript.Quit
End Try

で、できた。今までできないと思っていたのに…

いろいろ実験に使っていたファイルを使ってやってみたんですが、
vbeファイルの中にPrivate Subと宣言した関数(実験なのでそのままPrivateSubという名前)
を使おうとすると

エラー: 型が一致しません。: 'PrivateSub'
ソース: Microsoft VBScript 実行時エラー

となるんですが、これはたまたまですかね？それともPrivateの効果なのか・・・
vbsを読み込んでいた時はエラーは起こらなかったんですが。

>>848 //B

>>858
君は>>843かな？

Private(Public)宣言はオブジェクト(クラス)外に公開するか否かの宣言なので
インクルード(wsfのscript要素のsrc属性指定)した場合は関係ないよ

きっと偶々というよりプロシージャ名間違い等、君のミスだろう
プロシージャ名間違いなら、読み込みでエラーにはならないが呼び出しではエラーになるし

一応確認してみたが、vbs内でPrivate宣言したSubプロシージャを
そのvbsをインクルードしたwsf内で呼んでみたが、きちんと実行された

VBScriptでなく、JScriptにすれば？

function a(){
WScript.Echo('a');
b();
function b(){
WScript.Echo('b');
}
}
a();
b();//エラー

MsgBoxをModelessに出して、後で閉じる方法を教えてください

WshShell.Run "MsgBox.vbs"

あるサイトに含まれている文字列をカウントして出力する、
VBscript（HTA）を、作成しているのですが、
実際に試してみると、以下のダイアログが出現してしまいます。

「このスクリプトの実行を中止しますか？」
このページのスクリプトが、IEの実行速度を落としています。

このまま実行を続けても検索結果となる数字が出力されません。
この場合、どうしたらよいのでしょうか？
以下に、該当する処理を載せます。
strSerch = document.u_list.key.value
i = 0
If strSerch="" Or strSerch=" " Then
'検索フォームに何も入っていないとき
Else
Do While InStr(webtext,strSerch) '検索キーワードでサイト検索
i = i+1 '検索回数カウント
Loop
End If

>>864
無限ループにならないようにすると良いのです

ひどいロジックだな。
最近は「フローチャート」とか書かなくなったせいか
こんなのが増えたな。

フローチャートなんて日本で「マイコン」が出だした頃でも既に有用性が
否定されていたぞw

↑
言うと思った。バカの一つ覚えｗ

それは、ある程度、論理的な思考ができるヤツがいう事だよ。
>>864 みたいに未熟なヤツは、フローチャートから入らないとダメ。
今からやろうとすることを、目に見えるカタチにしてまとめる。
これは大事なことだよ。

>>867は後輩を育てられないタイプだな。

i = UBound(Split(webtext,strSerch)) + 1 '検索キーワードでサイト検索 検索回数カウント

found = 0
i = 0
Do
found = InStr(found+1,webtext,strSearch,vbTextCompare)
i = i + 1
Loop While found
i = i - 1

初心者だけど同じ関数で無理やりやってみた。>>869みたいに綺麗に逝きたい…

あー、でもこれ"aaaaaaaaaaaa"から"aaa"を検索したいときどう解釈するべきなんだろ。
>>870では10回、>>869では4回？

あれ？検索文字列を区切りにしたなら検索された数は要素数-1でないの？
UBoundに+1する必要ないような。

i = Len(webtext) - Len(Replace(webtext,strSerch,Mid(strSerch,2)))

カッコつけて恥かいちゃったね

(恥)

>>870-872が自分のレスだけど、それ以外の人にも、わかってる人は
罵倒レスじゃなくてなんでダメポなんか書いて欲しいな。
スレ見てても参考にならんわ。

>>873は何したいのかわけわかめなんだけど。
i=全文字数-(ヒットした数x(検索文字列の字数-2))　でいいんかな？
この2はどこから出たのやら？
もしかして>>871に対するレスか？

連レスすまん。
カキコした瞬間に勘違いに気づいた。

webtextで検索文字列にマッチした部分を検索文字列の2文字目以降で全置換
→全文字数がマッチした回数x1文字減るから減った数をカウントすればマッチ数がわかる

でOK？

i = (Len(webtext) - Len(Replace(webtext,strSerch,""))) / Len(strSerch)

found = 1 - Len(strSerch)
i = - 1
Do
found = InStr(found+Len(strSerch),webtext,strSearch,vbTextCompare)
i = i + 1
Loop While found

ここ、PC初心者板じゃないよね?

>>880
ちがうよ
スレタイも読めないの？

何が言いたい？
煽るなら死ぬ気でやれよ

っちょ
うざいな

>>880
凄いなぁ！尊敬。アッタマいい！かっこいい。
（などと言われてみたい。。。てか？

>>880は例の基地外

>>864
正攻法はRegExpだろ？

>>880 にもチャンスをやろうよ
RegExp使ったコード書いてみ？

i = UBound(Split(webtext,strSerch))

すでに答えが出てるだろ。

>>868
あのなあ。。

フローチャートってのは「プログラミング言語以外で処理内容を表現するツール」
いうなれば「プログラマ以外の人間の方を向いたツール」であって（だから今でも
ユーザーズマニュアル等には時々出てくる）プログラマが思考の整理に使う道具ではないんだよ。

もう30年も前から言われていることだが、フローチャートってのは
複雑性を縮減する機能が全くないだろう。
ただベタに処理をチャートで表現しただけだからな。
だったらそんなもの書いてる暇があったらとっととコード書けってw

こんな人間が後輩の育成とか釣りではなく言ってるならどんだけ馬鹿なんだよw
っていうかこんな人間に「育成」される人が可哀想だ。

>>887
正規表現で指定したい場合なら、何の変哲もないが

With New RegExp
.Pattern = strSerch
'.IgnoreCase = False
.Global = True
found = .Execute(webtext).Count
End With

でいいんじゃね？
IgnoreCaseプロパティは必要に応じて指定すれば良し
>>871の場合の結果は後者

すいません、スレ異かな。ＷＳＨの言葉だけで来ました。
悩んでます。だれか教えぇぇぇぇ〜〜て

ＥＸＣＥＬ2003　ＶＢＡで　
　http://www.happy2-island.com/vbs/cafe02/capter00711.shtml あたりに
　　　WScript.Sleep 5000　　っていうのがさりげにつかってありますが
　　　 オブジェクトが必要です というエラーが出ますうううぅぅぅぅぅ
　私はどうすればいいのでしょうか。
　悩みと疲労で歯槽膿漏がますますひどくなりますうううぅぅぅ
ぐぐると以下の同じような人もいます。だれか愛の手を
win32のsleepとかはなしで、Wscript.echo もつかいたいし
　
＞Excel VBA質問スレ Part5
878 ：デフォルトの名無しさん：2008/03/02(日) 23:54:52
物凄く基本的な事で申し訳ないのですが・・・、処理待ちでスリープを掛けたく、
　WScript.sleep (250)
と記述していますが、エラー424 オブジェクトが必要です というエラーが出るのです。

何か参照設定が足りないんでしょうか。。

879 ：デフォルトの名無しさん：2008/03/02(日) 23:56:42
ググれよ・・・

880 ：デフォルトの名無しさん：2008/03/03(月) 00:01:10
>>878
WScript.exeを参照設定しろー

すれちがい

ぐぐれもん

WScript.exeを参照設定しろ

実際問題としてVBAならDeclareが一番楽だと思うんだ

Application.Waitのほうが簡単

>>887

>>889
後輩つぶし必死だなｗｗｗ
そんなに若者に追い越されるのが怖いのかい？

＞そんなもの書いてる暇があったらとっととコード書け

で書いたのが、>>864 だよ。
キミは後輩にこんなコードを書かせて満足してるんか？

いいぞもっとやれ

よそでやれ

>>891 自己レスですぅ
誤った解釈は、http://www.happy2-island.com/vbs/cafe02/capter00711.shtml はVBAじゃなくWSHのスクリプトそのもらしい。
http://www.atmarkit.co.jp/fwin2k/operation/wsh01/wsh01_01.html
から考えましたが
Wshスクリプトないでは　wscriptは暗黙にオブジェクト化されそのまま参照可能である
VBAからはwscript そのもののオブジェクト化はエラーになる
Dim WSH
Set WSH = CreateObject("WScript")　←　エラーになる
WSH標準オブジェクトはオブジェクト化できる
Dim WSH
Set WSH = CreateObject("WScript.shell")
WSH.Run ("sleep 3")
WSH.Run ("echo test")
　　↑　はOK　sleep echo は意味ありませんが
以上の事で混乱していたみたいです
なぜVBAからWscriptのオブジェクト化ができないのか？回避策は？などは
誰か〜〜　知ってる人おらんか。。。。。。　ヨロシク

だいたいそういうこと。
WScriptオブジェクトはwscprit.exe/cscript.exeがスクリプトへ与えるもので、
その大半はスクリプトを実行したときでいないと意味を成さない。

例えば、WScript.SleepならVBではWin32 APIのSleep関数を使えばいいという具合に別の方法がある。

スレ違い
【OLE】オートメーション総合スレ【ActiveX】
http://pc11.2ch.net/test/read.cgi/tech/1137771139/l5

ActiveScript絡みだしギリギリOKじゃね？
OLEオートメーションは一寸戻り過ぎだ。

＞なぜVBAからWscriptのオブジェクト化ができないのか？

できるけど？

Set WScript=GetObject("WScript.exe")

WScript.exeをtlbimpした.NETアセンブリを作って、
それをregasmしてVBAから呼び出す。

なぜWSHからVBAの関数やステートメントが呼べないのか？回避策は？などは
誰か〜〜　知ってる人おらんか。。。。。。　ヨロシク

VBAは外部に公開されていないし、ステートメントは論外だろ。
よって回避策も無い。呼び出すこと自体が目的でないなら別だけど。

>>905

どうやって作るのかコーディング例希望

ちなみに　 >>906　は　excel2003VBA では　「オートメーションエラーです」になる。なにかおまじないが必要なら
ご教授ねがいたい。くれぐれも実際に動作する説明でお願いしたい。

>>908>>909
回避策でよいなら、Office経由で可能では?
WSHからOfficeのオブジェクト作って、非表示のOfficeのドキュメント内にVBAのコード
動的に登録して実行すればよい
とはいっても最近ではセキュリティの関係でOfficeの外部からVBAコード操作するとエラーになるけど、
これについては設定変えればいけると思う(たぶん)

>>910
WScriptは外部に公開されていないし、CreateObjectは論外だろ。
よって回避策も無い。呼び出すこと自体が目的でないなら別だけど。

>>910
回避策でよいなら、Office経由で可能では?
WSHからOfficeのオブジェクト作って、非表示のOfficeのドキュメント内にWScriptのオブジェクトを
動的に登録して参照すればよい

>>908
Excel.Application.Run (Excel2002以降は不可)
Access.Application.Eval (関数のみ)
FoxPro...

htaなんて便利なものがあるのを初めて知った。
まだpowershellはいいや。

すれっち

Set WSH = CreateObject("ほげほげ")
は、
Set WSH = WScript.CreateObject("ほげほげ")
の WScript を省略したもの。WScript はデフォルトで用意されているから。

>>901 Set WSH = CreateObject("WScript")　←　エラーになる

これを長く書くと、こうなる。
Set WSH = WScript.CreateObject("WScript")

なんか変だよね。

> Set WSH = CreateObject("ほげほげ")
> は、
> Set WSH = WScript.CreateObject("ほげほげ")
> の WScript を省略したもの。WScript はデフォルトで用意されているから。
違うよ

CreateObjectはVBSのグローバル関数(メソッド)
> CreateObject(servername.typename [, location])

WScript.CreateObjectはWSH(WScriptオブジェクト)の関数(メソッド)
> object.CreateObject(strProgID[,strPrefix])

動作は似てるが引数(得に第二引数)の内容も違う

違うよ ここでは

CreateObjectはVBAのグローバル関数(メソッド)

WScript.CreateObjectはWSH(WScriptオブジェクト)の関数(メソッド)
なのでVBAでは使えない

ちなみにWSHでは
Set WSH=
はエラー

ADOでExcelに接続してワークシートをテーブルに見立ててクエリ投げる、ってのあるじゃないですか、
Excelが2000・2002(XP)・2003の環境だと問題ないんだけど、今日同じソースでExcel2007で初めて動かしたら
ADO接続のところでエラーになった。　もしてかして2007ってこれ使えない？

当然

>>921
こういうレスって2007使ってない奴には何が当然かさっぱりわからんわな。

>>921
thx!

>>922　kwsk

>>919
ここでは、って言われても・・・
ここはＷＳＨのスレだろ？ＶＢＡのスレじゃ無いよ。

質問文の日本語を読めなかったの？

質問文の日本語を読めば、ここがＶＢＡスレに変身するのか？

ここがＷＳＨスレだから、元レスがＷＳＨの質問文に変身したというのか？

>>910
WScript.exe /register

regsvr32 WScript.exe

>>910
WSC作って
Set WScript=GetObject("script:WScript.wsc")

>>929-930
こういう小学生的なレスの意味は？

他人の人生の意味なんか考えてても人生の無駄だぜ

他人が以下に自分より劣ってるかというのは重要だぜ

他人が恥を晒しているのが見れるのは重要だぜ

>>932
レベルを相手に合わせてるんじゃないの？