お前ら、wsh使ってますか? Part8

**名無し~3.EXE** · 2010/12/19(日) 22:20:35

こんなことコンピュータにやらせろよ。そう思ったことはありませんか？
簡易的な実行環境も含めて普通のOSだったら当たり前に備わっている自動実行。
Windowsの標準に備わっているそれがWSH(Windows Script Host)です。
また、ここではWSHだけに限らずWMI、ADSIなどのネタもOKです。

・煽りや荒らしは無視の方針で。基本的にsage進行です。

・ここでヒントを得て完成したスクリプトは、出来れば皆さんにお披露目してください。
　同じことで悩んでいる人のためになります。

・質問する際は、OS及び使用するコンポーネントのバージョンもお忘れなく。

前スレ
お前ら、wsh使ってますか? Part7
http://hibari.2ch.net/test/read.cgi/win/1190548945/

**名無し~3.EXE** · 2010/12/19(日) 22:22:00

2 名前：名無し~3.EXE[sage] 投稿日：2007/09/23(日) 21:03:13 ID:2RosR0QK
●便利なリンク
Windows Script
http://www.microsoft.com/japan/msdn/scripting/default.asp
MSDN Library (オンラインドキュメント)
http://msdn.microsoft.com/library/ja/
Windows Script 5.6 ドキュメントダウンロード (exe 形式; 1.67 MB)
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/JA/scd56jp.exe
OLE/COM Object Viewer ダウンロード (exe 形式; 656 KB)
http://download.microsoft.com/download/win2000platform/oleview/1.00.0.1/NT5/EN-US/oleview_setup.exe

Sesame Script (スクリプト作成初心者向けコラム)
http://www.microsoft.com/japan/technet/scriptcenter/resources/begin/default.mspx
Hey, Scripting Guy! (スクリプトのＱ＆Ａ・ハウトゥ集)
http://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/default.mspx
Windows管理者のためのWindows Script Host入門 (@IT内記事)
http://www.atmarkit.co.jp/fwin2k/operation/wsh01/wsh01_01.html
Windows XP に含まれるコマンドラインツールの紹介 (@IT内記事)
http://www.atmarkit.co.jp/fwin2k/xp_feature/013commandtool/commandtool.html
ADSI (Active Directory Service Interfaces) の特集記事全文
http://web.archive.org/web/20050309045811/http://www.galliver.co.jp/writing/nikkei_tokushu/wad002/index.html

●個人サイト
Windows Script Wiki
ttp://winscript.s41.xrea.com/wiki/index.php
趣味のJavaScriptなページ
ttp://homepage3.nifty.com/aya_js/
Windows Scripting Host Laboratory
ttp://www.roy.hi-ho.ne.jp/mutaguchi/wsh/
Tips - （小技にも満たない）微ワザ集
ttp://www1.u-netsurf.ne.jp/~tomo_c/tips/Scr002.html

**名無し~3.EXE** · 2010/12/19(日) 22:23:08

●コンポーネント関連リンク

○Microsoft 製外部コンポーネント
DCOM
(98/Me ※リンク切れ) http://www.microsoft.com/japan/com/dcom/dcom98/dcom13.asp
(95)　　http://www.microsoft.com/japan/com/dcom/dcom95/dcom13.asp
MDAC - データベース･メールボックス･WebDAV･バイナリの操作
http://msdn2.microsoft.com/ja-jp/data/aa937730.aspx
WMI(95/98/NT4.0) - 統一されたコンピュータオブジェクト化モデルを提供するスクリプティングAPI、リモート管理
http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=AFE41F46-E213-4CBF-9C5B-FBF236E0E875
ADSI - Active Dictoryの機能を操作
http://www.microsoft.com/downloads/details.aspx?FamilyID=f4bf2bf6-ed15-4789-9c63-e849d530a6df&DisplayLang=ja
MSXML - XMLパーサ、SAX･DOM API、XSLT変換、POST/HTTPダウンロード
http://www.microsoft.com/downloads/details.aspx?familyid=993c0bcf-3bcf-4009-be21-27e85e1857b1

○サードパーティ製外部コンポーネント
BASP21 - メール、ファイルエンコード、文字コード変換、FTP/HTTPアップ、その他
http://www.hi-ho.ne.jp/babaq/basp21.html
Doodle2 - グラフィック変換、操作、描画
http://www.vector.co.jp/soft/winnt/prog/se219120.html
DynaCall - Win32APIコール
http://people.freenet.de/gborn/WSHBazaar/WSHDynaCall.htm
AutoItX - マウス・キーボード・クリップボード操作
http://www.hiddensoft.com/AutoIt/

**名無し~3.EXE** · 2010/12/19(日) 22:24:05

●WSH(COM)参考書籍

「はじめてのWindows Scripting Host」　(株)アンク著　技術評論社
http://www.amazon.co.jp/gp/product/477410650X/

「[改訂版] VBScriptポケットリファレンス」
http://www.amazon.co.jp/gp/product/4774127930/

「使いながら覚えるWindows Scripting Hostプログラミング入門」竹田英雄著　エーアイ出版
http://www.amazon.co.jp/gp/product/4871936678/

「Windows Scripting Host入門 with VBScript」　毎日コミュニケーションズ
http://www.amazon.co.jp/gp/product/4839900906/

「WSHで楽しむWindows95/98/NT4.0版　ウィンドウズ・スクリプティング入門　VBScript編」　メディアテック出版
http://www.amazon.co.jp/gp/product/4896270207/

「WSHクイックリファレンス」　羽山博著　オライリー・ジャパン
http://www.amazon.co.jp/gp/product/4873110068/

「Rubyを２５６倍使う本　邪道編」　arton著　ASCII
http://www.amazon.co.jp/gp/product/4756136036/

「ADSIスクリプトによるWindows2000システム管理 Windows2000管理者ガイドブック」ピアソン・エデュケーション　トーマス・エック著
http://www.amazon.co.jp/gp/product/4894712881/　(どちらかというとVBによる操作本？)

「標準ASPテクニカルリファレンス」山田祥寛著　SOFTBANK
http://www.amazon.co.jp/gp/product/4797314001/

**名無し~3.EXE** · 2010/12/19(日) 22:25:19

●JavaScript、VBScript 以外のWSHで使える言語

TCLScript
http://tclscript.sourceforge.net/
Perl
http://www.activestate.com/Products/Download/Download.plex?id=ActivePerl
Ruby
http://www.geocities.co.jp/SiliconValley-PaloAlto/9251/ruby/
Python
http://www.python.jp/Zope/download
PHP
http://www.php.net/downloads.php
REXX
http://www.borg.com/~jglatt/rexx/win32/rxusrw32.htm

**名無し~3.EXE** · 2010/12/20(月) 01:30:01

言いたいことも言えないこんな世の中じゃ
乙

**名無し~3.EXE** · 2010/12/20(月) 01:37:26

テンプレ乙

**名無し~3.EXE** · 2010/12/20(月) 02:20:06

>>11 に無駄口さんが来るかな、来ないかな。

**名無し~3.EXE** · 2010/12/24(金) 01:04:53

hosyu

**名無し~3.EXE** · 2010/12/25(土) 10:14:02

Wscript.Echo("保守");

**名無し~3.EXE** · 2010/12/25(土) 16:11:37

---------------------------
Windows Script Host
---------------------------
スクリプト: C:\Users\10\Desktop\10.js
行: 1
文字: 1
エラー: 'Wscript' は宣言されていません。
コード: 800A1391
ソース: Microsoft JScript 実行時エラー

---------------------------
OK
---------------------------

**名無し~3.EXE** · 2010/12/30(木) 00:17:30

WSHで１番汎用的なのって結局vbsなんですか？

**名無し~3.EXE** · 2010/12/30(木) 00:42:04

wsfだろ

12 · 2010/12/30(木) 17:02:11

>>13
一般的なデフォルトだと使えるのはVBSとJSCRIPTですよね？

**名無し~3.EXE** · 2010/12/30(木) 17:08:36

wsfが何か解ってての発言ならそう
解ってなくての発言なら「wsfもデフォルト、しかもwsf内でVBSとJS、更に他のActiveScript対応言語が混在できる」と言っておく

**名無し~3.EXE** · 2010/12/30(木) 17:55:32

日本語でおｋ

**名無し~3.EXE** · 2010/12/31(金) 10:08:00

えっ

**名無し~3.EXE** · 2010/12/31(金) 20:09:14

汎用的なんつー曖昧なことをいうからだ。
どれも何かの処理に特化したもんでもないし*それなりに*汎用的だ。

**名無し~3.EXE** · 2011/01/01(土) 16:30:59

wsfはvbsより専用的？
jsはvbsより専用的？
一般的なデフォルト？
特殊なデフォルト？

**名無し~3.EXE** · 2011/01/02(日) 18:32:59

vbsはvbscript専用。jsはjscript専用。wsfはvbscript、jscript両用なので汎用

**名無し~3.EXE** · 2011/01/03(月) 20:37:47

>>20
rubyとかだと物足りないの？

**名無し~3.EXE** · 2011/01/04(火) 03:43:46

>>21
使ってないから

**名無し~3.EXE** · 2011/01/08(土) 02:47:48

rubyは一般的なデフォルトで使えないから汎用的でないんだよ

**名無し~3.EXE** · 2011/01/11(火) 18:20:42

>>23
デフォルトだとJSCRIPTとVBSCRIPTは使えるけど、って事？

**名無し~3.EXE** · 2011/01/13(木) 17:38:31

汎用的なデフォルトは一般的でないんだよ

**名無し~3.EXE** · 2011/01/13(木) 20:44:52

>>25
うん
質問が悪かった
窓APIとかWMIいじるならrubyよりVBSのがいいって事だよね？

**名無し~3.EXE** · 2011/01/14(金) 15:33:32

rubyはスレチガイ
http://hibari.2ch.net/test/read.cgi/tech/1170047838/l50

**名無し~3.EXE** · 2011/01/14(金) 23:51:58

>>27
>>4は？

**名無し~3.EXE** · 2011/01/15(土) 16:21:12

>>28
27ではないけど、書名にあるようにRuby側から見たらあくまで「邪道」
ただRubyやPerlそのものでは無くて
ActiveScriptRubyや、PerlScriptに依存した話なら
ここで良いのではと思う

**名無し~3.EXE** · 2011/01/15(土) 16:21:56

窓APIとかWMIいじるならrubyよりPowerShellがいいって事だよ

**名無し~3.EXE** · 2011/01/16(日) 16:57:09

わざわざwshでrubyしていいことあるのか？

**名無し~3.EXE** · 2011/01/18(火) 21:09:35

HTAでActiveScriptRubyやPerlScriptやりたいならわからんでもないが

**名無し~3.EXE** · 2011/02/04(金) 19:18:50

Temporary Internet Files に溜まっている容量を食う画像ファイルの削除方

var fs = new ActiveXObject( "Scripting.FileSystemObject" );

function d1(aaa)
{
if(fs.FileExists(aaa)) fs.DeleteFile( aaa );
}

d1( "J:/Documents and Settings/inet2004user.ZISAKUPCAT1.001/Local Settings/Temporary Internet Files/Content.IE5/07HBQI7X/*.jpg" );
d1( "J:/Documents and Settings/inet2004user.ZISAKUPCAT1.001/Local Settings/Temporary Internet Files/Content.IE5/07HBQI7X/*.gif" );
d1( "J:/Documents and Settings/inet2004user.ZISAKUPCAT1.001/Local Settings/Temporary Internet Files/Content.IE5/09CZH168/*.jpg" );
d1( "J:/Documents and Settings/inet2004user.ZISAKUPCAT1.001/Local Settings/Temporary Internet Files/Content.IE5/09CZH168/*.gif" );
たらたら

スマートではないな。

**名無し~3.EXE** · 2011/02/04(金) 19:21:56

環境変数くらい使えｗ

**名無し~3.EXE** · 2011/02/05(土) 17:42:37

そんなもんバッチファイルでやれや

**名無し~3.EXE** · 2011/02/05(土) 18:19:50

バッチファイルとかDOS窓ひらくじゃん

**名無し~3.EXE** · 2011/02/05(土) 18:28:22

それくらい最小化すればええがな

**名無し~3.EXE** · 2011/02/07(月) 08:37:45

むしろ俺はWSHもcscriptでやるし、wscriptでもmsgbox表示するぞ
何かしらの表示があったほうが進行状況が分かって個人的に安心できる

**名無し~3.EXE** · 2011/02/07(月) 14:58:51

いみふ　日本語使え

**名無し~3.EXE** · 2011/02/07(月) 18:42:46

わかるだろｗ

**名無し~3.EXE** · 2011/02/07(月) 21:08:05

color f0
ってやれば気にならねーよ

**名無し~3.EXE** · 2011/02/07(月) 21:50:23

ついでに
title Temporary Internet Files に溜まっている容量を食う画像ファイルを削除中です...

**名無し~3.EXE** · 2011/02/09(水) 21:43:47

>>38
バッチファイルからCSCRIPT.EXEで.vbsファイルを呼び出す手法は、私も良く使うほうだな。

**名無し~3.EXE** · 2011/02/10(木) 03:35:40

個人的にはバッチファイルならJSかな

@if (0)==(0) @echo off
cscript.exe "%~f0" //Nologo //J:JScript %*
goto :EOF
@end
var args = new Enumerator(WScript.Arguments)

この辺まで個人的にテンプレ文だわ

**名無し~3.EXE** · 2011/02/10(木) 16:10:00

>>44
//Jてなんだよ

やっぱバッチもVBSが楽だな
rem; & @cscript.exe "%~f0" //Nologo //E:VBScript %* & @goto :EOF

**名無し~3.EXE** · 2011/02/10(木) 17:14:47

俺は拡張子でwscript.exeとcscript.exeを使い分けてる
.vbs､.js､.wshはwscript.exe､.vbc､.jcs､.cshはcscript.exeってね
C Shell等､別な物と被るなら他の拡張子でもいいし

エディタが拡張子で言語見分けてるから､.bat拡張子だと
中身がJSやVBSでもバッチファイルの強調表示や入力補完になっちゃうし

**名無し~3.EXE** · 2011/02/10(木) 21:49:52

>>45
ごめん間違えたw Eで合ってる

VBSだとそういう書き方になるんだな

**名無し~3.EXE** · 2011/02/13(日) 00:53:31

// jscriptでも１行でいけるね
@if (0)==(0) (@cscript.exe "%~f0" //nologo //e:jscript %*) & (@goto :eof) & @end

for(var iii=0;iii<WScript.Arguments.length;iii++){ WScript.Echo(iii + '-'+ WScript.Arguments(iii));};
new ActiveXObject('WScript.Shell').popup(WScript.Arguments.length);

**名無し~3.EXE** · 2011/02/13(日) 23:01:21

>>45
コマンドエコーが玉に瑕だね

**名無し~3.EXE** · 2011/02/13(日) 23:22:03

それほどの事でもないだろ

**名無し~3.EXE** · 2011/02/14(月) 06:15:38

>>45
remの後って、セミコロン？
; だと上手く行かなくて、^ に変えたら上手く行ったんだけど…

**名無し~3.EXE** · 2011/02/14(月) 15:25:37

昔はVBSのほうがドキュメントもそろってたけど、もう立場は逆転した感じ。

**名無し~3.EXE** · 2011/02/14(月) 17:13:42

コロンだっちゃ

**名無し~3.EXE** · 2011/02/14(月) 19:39:06

>>52
JavaScriptだとWEB関連でJSだとあやしいのがひっかかり検索しにくい困ったところ

**名無し~3.EXE** · 2011/02/15(火) 02:33:03

ちょっと教えてください。
時刻の文字列から、合計の秒数を計算して表示しようとしてるのだけれど、数字によって表示がおかしくなります。
何か大事なことを忘れてるんでしょうか？
わけがわからないです。

oshl=new ActiveXObject('WScript.Shell');
var nsec=33.48 ;
nsec=nsec + 60;
oshl.popup(nsec);/ * なにも文字を付け足さないと表示は問題ない * /;
oshl.popup(nsec +''+ " 60を足した結果に、文字を付け足すと数字がおかしくなる");

var nsec=33.48 ;
nsec=nsec + 100;
oshl.popup(nsec);/ * なにも文字を付け足さないと表示は問題ない * /;
oshl.popup(nsec +''+ " 100を足した結果に、文字を付け足しても数字がおかしくならない");

55 · 2011/02/15(火) 02:49:44

わかりにくいかもしれないんで、書き直します。たとえば、関数の戻り値がおかしくなっちゃうのです。

test=function(n){
return( "合計 "+ (33.48 + n)+ "" + " 秒です");
};

oshl=new ActiveXObject('WScript.Shell');

n=60;
oshl.popup( test(n));// この場合は、数字がおかしい。

n=100;
oshl.popup( test(n));// この場合は、数字は問題ない。

55 · 2011/02/15(火) 03:13:19

ぐぐったら、これがjavascriptの仕様なんだとｗ　そ、そんな馬鹿なと思ったけど。
少数を含む数値を1000倍にしといて整数にしてから計算して、1000で割ることにしました。まんどくせえｗ

test=function(n){
return( "合計 "+ (33.48 + n)+ "" + " 秒です");
};

test2=function(n){
return( "合計 "+ (((33.48)*1000 + (n*1000))/1000)+ "" + " 秒です");
};

oshl=new ActiveXObject('WScript.Shell');

n=60;
oshl.popup( test(n));// 数字がおかしい。

n=60;
oshl.popup( test2(n));// 数字は問題ない。

**名無し~3.EXE** · 2011/02/15(火) 11:21:20

nが文字列になる瞬間に数字が変わってるね。
「return n;」だと異常ないのに、「return n+"";」だと循環小数になる。
こっちでもっと良い解決方法が無いか15分くらい探してみたけど、見付からなかった……。

あと、returnは関数ではなくて文なので、「return(n);」でなくて「return n;」の方が良いと思う。

**名無し~3.EXE** · 2011/02/15(火) 11:26:34

「return n;」の前に「n+=33.48;」って書いて説明するの忘れてた……。

function test(n){
n+=33.48;
//return n;/*93.48*/
//return n+"";/*93.47999999999999*/
return "合計"+n+"秒です";
};
var oshl=new ActiveXObject('WScript.Shell');
oshl.Popup(test(60));

**名無し~3.EXE** · 2011/02/15(火) 17:27:27

俺はVBSがメインでJSは多少しか使わないんだけど
MsgBox関数に相当するようなのはJSでは何？

デバッグ用によく使うんだけど、JS使うときいつも困る。

**名無し~3.EXE** · 2011/02/15(火) 18:31:31

WScript.Echo()

**名無し~3.EXE** · 2011/02/15(火) 18:33:56

>>59
return "合計"+Math.ceil(n*1000)/1000+"秒です";

**名無し~3.EXE** · 2011/02/15(火) 18:45:58

// スクリプトコントロールのVbscriptで逃げられるかと思ったら、引き算がアウトだった。
// nilscriptもjscriptと同じく駄目。dmscriptで試すと、引き算を除いて、問題なしだった。
oshl=new ActiveXObject('WScript.Shell');
ovbscript=new ActiveXObject('ScriptControl');
ovbscript.Language = 'VBScript';
ovbscript.AddCode("Function vbscriptexecute(scommand):dim sret:Execute scommand:vbscriptexecute=sret:End Function");

sreteval=function(scommand){return ovbscript.Run('vbscriptexecute',scommand);};

**名無し~3.EXE** · 2011/02/15(火) 18:47:51

n=33.48; nplus=60;
oshl.popup( (n + nplus)); oshl.popup( (n + nplus) + "どうですかjs");
oshl.popup( sreteval('n=33.48:nplus=60:sret=(n + nplus) & "どうですかvbs"'));
oshl.popup( sreteval('sret= (33.48 + 60) & "どうですかvbs"'));

n=1.01; nplus=1.1;
oshl.popup( (n + nplus)); oshl.popup( (n + nplus) + "どうですかjs");
oshl.popup( sreteval('n=1.01:nplus=1.1:sret=(n + nplus) & "どうですかvbs"'));
oshl.popup( sreteval('sret= (1.01 + 1.1) & "どうですかvbs"'));

n=1.01; nplus=-1.1;
oshl.popup( (n + nplus)); oshl.popup( (n + nplus) + "どうですかjs");
oshl.popup( sreteval('n=1.01:nplus=-1.1:sret=(n + nplus) & "どうですかvbs"'));
oshl.popup( sreteval('sret= ((1.01 - 1.1)+0.01) & "どうですかvbs"'));

**名無し~3.EXE** · 2011/02/15(火) 19:02:44

@set @SHORT_CIRCUIT = true/* & (@title batdm:%~nx0) & (@dm.exe "%~f0" %*) & (@goto :eof) & @end */
// d-monkeyのdmscriptでも一行バッチが動いたわ。jscriptでも起動の部分だけ変えると動くね。

**名無し~3.EXE** · 2011/02/15(火) 22:18:48

>>60
cscriptからだとダイアログ絡みはオブジェクトの管轄になっちゃう
俺はダイアログ使うようなのはVBS、テキストフィルタみたいなのはJSでやってるかな

**名無し~3.EXE** · 2011/02/16(水) 14:03:18

>>60
関数作ればいいじゃん。
function msgbox(s,n){new ActiveXObject('WScript.Shell').Popup(s,n);};

msgbox("www");

**名無し~3.EXE** · 2011/02/19(土) 10:10:15

スクリプトコンポーネント（WSC）内部から
呼び出し元のコンテキスト（グローバルオブジェクト）を取得することってできるかな。
WSC内のグローバルオブジェクトと
呼び出し元（例えばWSH）のグローバルオブジェクトは異なるんだよね。
現状WSH側から明示的にthisを渡しているけど、
できればこれを暗黙的にやりたいんだ。

**名無し~3.EXE** · 2011/02/19(土) 10:28:51

>>55
小数点の桁合わせには toFixed メソッド使うといいよ。
return "合計 "+ (33.48 + n).toFixed(2) + " 秒です";

**名無し~3.EXE** · 2011/02/19(土) 20:38:09.30

>>68
executeglobalつかえばできるんじゃね

**名無し~3.EXE** · 2011/02/19(土) 23:30:19.14

>>70
WSC側でexecuteglobalを呼び出す限り
WSCのグローバルコンテキストで実行されるだけなんだよね（eval系は全部同じ）。

ちなみにJScript使っているんだけど
WSC側でevalするとWSCのグローバルコンテキストで評価される。
WSHのグローバルを受け取って（仮に変数wshに入れておくとする）
WSC側でwsh.evalとするとWSH側のグローバルコンテキストで評価される。
これをしたいがためにWSH側のグローバルオブジェクトが必要だった。
WSH側から明示的には渡せるけど、
WSC側から暗黙的に取得することは可能なのかなと思った次第っす。

**名無し~3.EXE** · 2011/02/20(日) 00:27:41.73

通りすがりです

>>71
>WSH側から明示的には渡せるけど、
>WSC側から暗黙的に取得することは可能なのかなと思った次第っす。
これいろいろ探したけどダメだったな

>WSC側でwsh.evalとするとWSH側のグローバルコンテキストで評価される。
オレもこれやったな
wsh 側のメソッドを wsc 側で再定義して利用したとき気がついた

**名無し~3.EXE** · 2011/02/20(日) 22:06:10.54

classはexecuteglobalできたがwscはだめみたいね

**名無し~3.EXE** · 2011/02/20(日) 22:20:30.93

それってWSC側で、たとえばWSHのJscriptを使ってるときには、WSCの関数の中で勝手にWScriptオブジェクトを使い、
HTAから呼び出す場合は、locationを、エディタのマクロからだとEditorオブジェクトを使えるよう出来るって話でもある？
それが出来たらシンプルになるなぁ。
でも一回は外からオブジェクトを渡さないと無理なんでしょ？

**名無し~3.EXE** · 2011/02/20(日) 22:59:44.10

>>69
もうちょっと教えてくれない？　こういう処理でも問題ないのかな？

oshl=new ActiveXObject('WScript.Shell');

n=60;
s = "合計 "+ ((33.48 + n)-0) + " 秒です。小数がだらだら続く・・・orz";
oshl.popup(s);

s = "合計 "+ ((33.48 + n).toFixed(13) -0) + " 秒です。.toFixed(13);トレビア～ン！";
oshl.popup(s);

s = "合計 "+ ((33.48 + n).toFixed(14) -0) + " 秒です。.toFixed(14);・・・orz";
oshl.popup(s);

13桁にしとくと問題ないみたいだが。14桁だとまた出てくる。この境目に重大な謎が潜んでるですかね？
とりあえず((33.48 + n).toFixed(13) -0)　って感じに書き換えて動かしていきます。ありがとう。

**名無し~3.EXE** · 2011/02/20(日) 23:27:24.33

人間の考える小数とは違うんよ。
「浮動小数点数」ってのを知っとくといいよ。

**名無し~3.EXE** · 2011/02/21(月) 00:12:12.32

>>76　いまぐぐってます。ありがとう。
とりあえず計算のあとには、 .toFixed(13)-0 をつけることにします。

**名無し~3.EXE** · 2011/02/21(月) 01:39:52.68

>>74
現状、既定のメソッドを定義して
new ActiveXObject('foo.bar')(this)
という一行で済ましているよ。
とりあえず呼び出し側のグローバルさえ渡せば
WSC内である程度自由にできるから。

呼び出し側とWSCの連係で厄介なのは
グローバルオブジェクトの交換はできても
両者のスコープは完全に独立しているってこと
関数をどちらのコンテキストで実行するかで
スコープチェーンが異なってくるんだよね。
arguments.callerとか使うとハマるwww

**名無し~3.EXE** · 2011/02/21(月) 23:19:21.24

>>78
WSCへthisで渡すってか。またひとつ勉強になった。ノシ

**名無し~3.EXE** · 2011/02/23(水) 01:28:34.67

@set @s=1;/* & (@title batjs:%~nx0) & (@"cscript.exe" //nologo //e:jscript "%~f0" %*) & (@goto :eof) & @end */;g=GetObject("script:"+"C:\\g.wsc").init(this);

g.popup("cscriptでwscを使うバッチを1行でまとめてみた。");

/* g.wscの中身
<?xml version="1.0" encoding="shift_jis" ?>
<component><?component error="true" debug="true"?><public>
<method name="popup"/>
<method name="init"/>
</public><implements type="Behavior" id="Behavior"/>
<script language="JScript"><![CDATA[
var oshl=new ActiveXObject('WScript.Shell');
function popup(smes,nsec){return oshl.popup(smes,nsec);};
function init(othis){
if(typeof(othis.WScript)=='object'){WScript=othis.WScript;
}else if(typeof(othis.location)=='object'){location=othis.location;
};return this;
};
]]></script></component>
*/

**名無し~3.EXE** · 2011/02/23(水) 01:48:39.04

大したことではないけど
popup メソッドのディスパッチIDを０にしておけば、
メソッド名も省略して呼び出せるよ。
これはJScriptではなくCOMコンポーネントの規約。

**名無し~3.EXE** · 2011/02/23(水) 02:42:23.12

wscのほうで、 <method name="init" dispid="0"/>
にしておけば、スクリプトのほうで
g=GetObject("script:"+"C:\\g.wsc")(this);
でいいってことなんだ。
それが　>>78 の
new ActiveXObject('foo.bar')(this)
の話なわけだ。
やっと理解できたｗ
やっぱり晒して添削を受けてみるもんだね。ありがとう。
さっきぐぐったら英語の記事で、dispid=0 in .WSC does not work in Vista　がうんたらかんたらと出てきたがワケワカメ・・・

**名無し~3.EXE** · 2011/03/03(木) 17:58:00.79

三陸産カットワカメ・・・

**名無し~3.EXE** · 2011/03/03(木) 22:08:51.13

おまえはどこのワカメじゃ！

**名無し~3.EXE** · 2011/03/03(木) 22:56:09.53

素人の質問ですみません。以下の記述で

～～～
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

FilePATH = "C:\WINDOWS\system32\drivers\etc\hosts"
set PNTR_fullPATH = objFSO.GetAbsolutePathName( FilePath )
～～～

オブジェクトがありません。: '[string: "C:\WINDOWS\system32\"]'
とエラーが返ってくるのですが、いまいち原因が分かりません。

すみませんが教えて下さい。

**名無し~3.EXE** · 2011/03/03(木) 23:07:48.07

set要らない

**名無し~3.EXE** · 2011/03/04(金) 03:21:31.70

あ・・・ありがとうございます！！

**名無し~3.EXE** · 2011/03/04(金) 19:46:37.57

@echo off
ruby -x "%~0"
goto :exit

#!ruby
puts "hello"

で.batとrubyを混在させることができますが
同様に.vbsファイル中にbatのコードを記述するやり方があったら教えてください。

**名無し~3.EXE** · 2011/03/04(金) 19:50:14.75

はぁ？逆じゃね？

**名無し~3.EXE** · 2011/03/04(金) 20:16:18.74

>>89
そうだよな

>>88
batファイルの中に vbs のコードを記述するんだろ？
>>45 とかじゃね

**名無し~3.EXE** · 2011/03/04(金) 20:17:01.88

100レスもないこのスレを読めばいいよ

**名無し~3.EXE** · 2011/03/04(金) 20:23:04.12

逆ではないです。>>88の質問の通りです。

**名無し~3.EXE** · 2011/03/04(金) 20:30:56.41

同様にって言うならrubyの中にbatを混在させてなきゃいけないだろ。
出来るのかどうか知らんが。

bat中にruby書いてる>>88の例から言うなら「逆に」等の接続詞が妥当。

**名無し~3.EXE** · 2011/03/04(金) 21:44:20.76

どっちでも>>45でええんじゃね

**名無し~3.EXE** · 2011/03/04(金) 22:16:57.68

中の概念崩壊？

**名無し~3.EXE** · 2011/03/05(土) 00:32:27.66

var str = "abc";
typeof str は "string"
str instanceof Object は False
なのに str.constructor はエラーにならず String と出る
constructor プロパティは Object のメンバーのはず。
暗黙的な new String はどこで行われている？

**名無し~3.EXE** · 2011/03/05(土) 00:57:31.81

適当な考えだが、
バリアント型なんで評価時にクラスが決定されるんでないのかね。

var x ="123"; // これだと string

さらに

x++; // こうすると number になる

**名無し~3.EXE** · 2011/03/05(土) 07:18:20.64

>>96
ttp://msdn.microsoft.com/ja-jp/library/0y7dd8cx.aspx

> JScript の Object は特殊です。
> オブジェクトは Object コンストラクターで作成された場合にだけ
> Object のインスタンスであると見なされます。

つまり、StringはObjectの派生であるからObjectのメソッドが使えるのだが
incetanceofがObjectの直接のインスタンス以外を
Objectのインスタンスとして認めない、という話

JSではObjectを連想配列(ハッシュ、辞書)のように使うことがあるから
そのための配慮だと思われるが、ややこしいな

**名無し~3.EXE** · 2011/03/05(土) 12:00:42.65

>>97,98
サンクスです。
仕様ということで頭に入れておけばいいのでしょうけれど
typeof や instanceof を使った条件分岐の際、
あいまいな理解だと予期せぬ動作を引き起こしそうですねｗ。

**名無し~3.EXE** · 2011/03/06(日) 16:57:59.80

javascriptのプロトタイプの例としてtrim()コマンドってのがあります。
ぐぐるとよく出てきます。
このようなprototypeをwscに登録して、関数やプロパティのように楽して使いたいのですが
よくわからんです。
いまの自分のwscの理解の状態は、関数やプロパティをwscに書いて、
jscriptやhtaのgetobjectから呼ぶことは出来るレベルです。
windows script component に詳しい人がいたらヒントをお願いします。

**名無し~3.EXE** · 2011/03/06(日) 20:15:06.19

>>100
wscは既存のオブジェクトを拡張するための機能ではないよ。
新規にオブジェクトを設計してそれをスクリプトから再利用出来るようにするもの。

君の場合、jsやvbsで拡張用のコードを用意しておいて
それをwsfやhtaから利用するほうが楽なんじゃないかな？
scriptタグを使って読み込めるからね。
質問から察するにそちらのほうが正攻法だと思う。

もちろんWSCを使って呼び出し元のオブジェクトを
無理矢理拡張できないこともないけど。

**名無し~3.EXE** · 2011/03/06(日) 22:39:37.78

WSC prototypeでぐぐって見たら、
ttp://moz-addon.g.hatena.ne.jp/ZIGOROu/?word=*[WSC]
が引っかかりました。wsc経由でも、prototypeが使えるらしい。　　やった！ｗ
・・・が細かい記述はなし。
あと、スクリプト内部の外部ファイル化も出来るらしい。試したら・・・出来た！ｗ
<property name="test0"/>
<script language="JScript" src='./test0.js'/>
これ便利だわｗ

prototypeが出来るか？もうちょっと粘ってみます。

**名無し~3.EXE** · 2011/03/06(日) 23:21:41.58

>>102
ひとつ言っておくけど
wscのグローバルコンテキストと呼び出し元のそれとは異なるからね。
つまりwsc内のStringオブジェクトのプロトタイプを拡張しても
呼び出し元のStringオブジェクトには使えないということ。
まあ試せるだけ試して、また来なさいな。

**名無し~3.EXE** · 2011/03/07(月) 00:34:09.18

たしかにｗ　WSFかHTAでやったほうがいいね。WSFなら<job>と<script src=....>タグで包めばいいだけだものね。
<job><script src=./test0.js /><script src=./prototype0.js /><script>

s=" Trim WSH ";
oshl=new ActiveXObject('WScript.Shell');
test0.alert3("WSFから読み込んで実行" + "\n" + s +"\n" + s.trim());
test0.表示する2("---"+ s +"---\n" +"---"+ s.をトリム()+"---");

/*
// test0.jsの中身
test0={
alert3 : function(s){oshl.popup(s,3);},
表示する2 : function(s){oshl.popup(s+"\n\n"+s);}
};
// prototype0.jsの中身
trim = function(){return this.replace(/^[ \t　]+/,'').replace(/[ \t　]*$/,'');};
String.prototype.trim = trim; String.prototype.をトリム = trim;
*/
</script></job>

**名無し~3.EXE** · 2011/03/07(月) 03:50:20.20

結論を先に言うと、WSCに書いたprototypeのtrimを、WSC側だけでなく、スクリプト本体からも使えるようですｗ！
スクリプト本体からGetObjectでWSCに送るオブジェクト this にprototypeを付け足せばOKのようです。
　
で、下記のサンプルのjsファイルと同じフォルダに、別記のthistest.wsc ファイルと
wscに読み込むための test1.js ファイルを置いて試して見て下さい。
trimとコマンドラインの引数を表示するサンプルです。
とりあえず動くようなんでこれで問題ないかな？と思ってるんですけど、どうかな？

**名無し~3.EXE** · 2011/03/07(月) 03:52:33.62

main=function(){
s=" test ";
sTrim= "TrimBefore==="+s +"==="+"\n";
sTrim+="TrimAfter ==="+s.trim()+"==="+"\n";
sTrim+="TrimAfter ==="+s.をトリム()+"==="+"\n";
sTrim+="TrimAfter ==="+funsub(s)+"==="+"\n";
oshl.popup("trim()のテスト\n\n"+ s + "\n\n"+ sTrim);
test1.alert3(" --- コマンドラインの引数argcl=\n" + argcl.join("\n"));
test1.表示2( 3333 );
n = ( 999 + 1000 ).を表示(); sss=(" 終了です " + n ).を表示();
oshl.popup("---"+sss+"---");
};

pWscのパス=WScript.Scriptfullname.replace(/^(.+)[\\]([^\\]+)$/,'$1')+"\\thistest.wsc";
GetObject("script:" + pWscのパス)(this);

funsub=function(s){return s.trim();};

main();

/*** thistest.wsc から読み込む test1.js ファイルの中身。 thistest.wscは別記する。
test1={ alert3 : function(s){oshl.popup("==="+ s.trim()+"===",3);},
表示2 : function(s){oshl.popup(s+"\n\n"+s);}
};
***/;

**名無し~3.EXE** · 2011/03/07(月) 03:56:57.64

<?xml version="1.0" encoding="shift_jis" ?><component><?component error="true" debug="true"?><public>
<method name="init" dispid="0"/> <property name="test1"/>
</public><implements type="Behavior" id="Behavior"/>
<script language="JScript" src='./test1.js'/>
<script language="JScript"><![CDATA[
var oshl=new ActiveXObject('WScript.Shell');
var ofso=new ActiveXObject('Scripting.FileSystemObject');
trim = function(){return this.replace(/^[ \t　]+/,'').replace(/[ \t　]*$/,'');};
String.prototype.trim = trim; String.prototype.をトリム = trim;
を表示= function(){oshl.popup(this);return this;};
String.prototype.を表示 = を表示; bWScript=false; blocation=false;

function init(ooo,sopt){
if(typeof(ooo.WScript)=='object'){
bWScript=true; WScript=ooo.WScript; ppScriptfullname=WScript.ScriptFullname;
getArgcl=function(){var aaa=[];for(var iii=0;iii<WScript.Arguments.length;iii++){aaa.push(WScript.Arguments(iii));};return aaa;};
}else if(typeof(ooo.location)=='object'){
blocation=true;location=ooo.location;ppScriptfullname=location.pathname;getArgcl=function(){var aaa=[];return aaa;};
};
ooo.test1=test1; ooo.ppScriptfullname=ppScriptfullname; ooo.argcl=getArgcl(); ooo.oshl=oshl; ooo.ofso=ofso;
ooo.String.prototype.trim = trim; ooo.String.prototype.をトリム = trim;
ooo.String.prototype.を表示 = を表示; ooo.Number.prototype.を表示 = を表示;
return this;
}; ]]></script></component>

**名無し~3.EXE** · 2011/03/07(月) 19:34:50.38

>>105
そうですね、>>78 でも書いたけど、現時点においては
呼び出し元のグローバルオブジェクトを渡すというのが唯一の解法だと思う。
少なくとも私は他の方法を知らない。ほとんどの場合、それで事足りると思うけど、
両者のスコープは完全に独立しているという点だけは注意しておいたほうがいいよ。
コードによっては弊害が発生するから。

何か特殊なことをしたいのでなければ
このコードは明らかにwsfのほうが向いていると思うけど、
WSCの調査目的でやっているのなら、そいつはお節介かｗ。

**名無し~3.EXE** · 2011/03/08(火) 00:08:48.35

昨日いろいろ試していて、>>78 new ActiveXObject('foo.bar')(this)
g=new ... というような戻り値を取らない意味がやっと理解出来ましたｗ
呼び出し元がWSHの場合は、thisに返すことも出来るってことですね。
>>102 のURLの中の人の解説も、今になると少しは理解できましたｗ

WSCを掘ってみようと思ったのは、WSHとは役目の違うAutohotkeyなどのスクリプト言語からもJscriptで作った関数を楽に使いたかったからです。
関数を一つ一つScriptControlするかという手もあるけど、ScriptControlからGetObjectで一括で取り込んでしまおう！というわけです。
WSCを経由することのスピードのロスは、自作のツールだから割り切れますんでね。
これで、Bat偽装のJscriptで作ったツールを、prototypeを除いてAutohotkeyやhtaboxコアからもほぼ同じように再利用出来ることがわかってよかったです。
このスレには、WSHやjavascript関係でググると出てくる方たちが何人か常駐してるんだろうねｗ
>>108 さんをはじめみなさんいろいろ教えてもらってありがとう！

**名無し~3.EXE** · 2011/03/09(水) 05:55:35.07

JScriptでcatchブロックの下にあるfinallyブロックを使い、
ソースコードを定期的かつ自動的に実行したいのですが
どのように記述しするべきなのでしょうか？

ちなみにfinallyブロックはこのように記述されていて、
IEブラウザが勝手に閉じてくれます

finally{
ie.Quit();
}

**名無し~3.EXE** · 2011/03/09(水) 09:22:51.55

try～catch～finally はそういう用途で使うもんじゃないんでないの

**名無し~3.EXE** · 2011/03/09(水) 22:12:50.52

WSHでクリップボードを使おうと思って次のようなコードを書きました。
値の取得はできるのですが、値の設定がうまくいかないんです。
xxxは表示されず、それ以前にクリップボードに入れた値が表示されます。
どうすれば値の設定ができるようになりますか？

var cb = new ActiveXObject("htmlfile").parentWindow.clipboardData;
cb.setData("text", "xxx");
new ActiveXObject("WScript.Shell").popup(cb.getData("text"));

**名無し~3.EXE** · 2011/03/10(木) 01:52:14.41

インターネットオプション　セキュリティ　インターネット　低

**名無し~3.EXE** · 2011/03/10(木) 05:07:35.87

>>112
SFCminiのDLLをインストールしてやる方法もあるよ。

CopyPathToClipBoard.vbs

ttp://d.hatena.ne.jp/Shinez/20100730/p1

**名無し~3.EXE** · 2011/03/10(木) 05:14:36.60

ただこんな話もあるようですが・・・
ttp://d.hatena.ne.jp/Fio/20050321
データ実行防止
　DynaCallを使って、WSHでクリップボードを直接操作したりすることをテストしているのですが、ほんのわずかのテキストだったらいいのですが、ちょっと数が多くなるとてきめんにデータ実行防止の画面が出てきてWSHを落とされます。

　これはXPのSP2以降の機能のようですが、ウィルスでないWSHスクリプトをウィルスといっしょにすなーー

**名無し~3.EXE** · 2011/03/10(木) 05:29:08.75

>>113
about:blankを信頼済みに追加して「スクリプトによる貼り付け処理の許可」を有効にしています。
ここを無効にするとクリップボードの読み取りも不可になるのでちゃんと反映されていると思うんですが。
WSHから呼び出したときabout:blankであることは以下のコードで確認しました。
var win = new ActiveXObject("htmlfile").parentWindow;
new ActiveXObject("WScript.Shell").popup(win.location);
IEのバージョン依存とかもあるんですかね。自分の環境はIE8です。
>>113 さんの環境では値の設定もできてますか？

>>114
参照先を見てみました。今の自分にはちょっと難しそうなのでこれから勉強してみます。

**名無し~3.EXE** · 2011/03/10(木) 05:55:38.56

GetObjectだとコンピュータゾーンになるらしいけど
ただ、どっちにしてもsetDataで設定できないみたいね
InternetExplorer.Applicationとかは

**名無し~3.EXE** · 2011/03/10(木) 07:37:59.38

about:blank の新規窓作ってスクリプトでコンテンツ作成するサイトもあるよ

**名無し~3.EXE** · 2011/03/10(木) 19:31:42.80

>>118
うう、なるほど。
about:blankだからといって安心出来ないわけですね。

**名無し~3.EXE** · 2011/03/10(木) 21:23:25.37

alert()はできてもprompt()はできないのと一緒
parentWindowは実際にosのwindowを持ってないからだめ

**名無し~3.EXE** · 2011/03/11(金) 00:20:10.33

>>112
WSH は元々クリップボードを扱うことを想定していないから、
OLE の初期化という処理をアプリケーション側で行っていないんだよね。
だからクリップボードに値を設定することができない。
HTA のように OLE の初期化を行っているスクリプトホストであれば
>>112 のコードは正しく実行される。

じゃあ WSH では不可能なのかというと、API を直接呼び出して
WSH 上で OLE の初期化をさせてしまうという強引な方法もある。
コードの理解には DynaCall や Win32API の知識が必要になるけど、
DynaCall を登録後、以下の三行をオマジナイとして
>>112 のコードの前に追加してみてください。
WSH でもクリップボードに値を設定できるはずだよ。

var dynwrap = new ActiveXObject('DynamicWrapper');
dynwrap.register('ole32','OleInitialize','f=s','i=l','r=l');
dynwrap.OleInitialize(0);

>>114
SfcMini だとこんな感じかな。
var API = new ActiveXObject('SfcMini.DynaCall');
API.LoadLibrariesW('ole32');
API.OleInitialize(0);

ちなみに OleInitialize の戻り値は WSH では 0 だけど HTA だと 1 になる。
これは HTA が既に OLE 初期化済みですよというエラーコード。
つまり 1 が返るスクリプトホストであれば OleInitialize は不要ってこと。
OleInitialize が何をしているかについてはかなり専門的な話になるので省略。
ネットで詳細な解説を見つけるのは難しいかも。興味がある人は以下の本を読むとよろし。
http://www.amazon.co.jp/dp/4756102379

**名無し~3.EXE** · 2011/03/11(金) 01:28:02.40

割り込みスマン。

出来たわ。そういう手もあるのか。

**名無し~3.EXE** · 2011/03/12(土) 15:38:51.55

メルトダウンか・・・

**名無し~3.EXE** · 2011/03/12(土) 17:51:36.66

お～い、おまいら生きてるか？

**名無し~3.EXE** · 2011/03/29(火) 15:01:07.19

UTF-8のtarget.csv、Shift-JISのmaster.txtがある
master.txtにはtarget.csvで置換したい文字列が入っている

target.csv
1,2,3,fuga,5
1,piyo,4,5,5
...

master.csv
hoge
fuga
piyo
...

概要
master.csvの1レコード目の値を取得（変数keyとする）
keyでtarget.csvの1行目を検索する。
HITするならnullに置換。（要は削除したい）
HITしないなら2行目。
target.csv内でループ
master.csv内でループ

問題点
文字コードが違う為、print、write、ODAの使用ができない。
（ODAは文字コード関係ないって聞いた事があったのに…）
これではソースコード内で置換できても、出力ができない上に
文字列を取得する際も文字化けしてしまっている為、処理ができない。

JAVAなんかだと文字コード変換する関数があるけど
JSCRIPTではやっぱ無理？

**名無し~3.EXE** · 2011/03/29(火) 15:16:03.05

FSOかADODB.Stream使えばいいんじゃね？

**名無し~3.EXE** · 2011/03/29(火) 17:03:21.21

>>126
両方駄目だった
UTF-8のテキストを読み込んでアラート出すと2バイト文字が化ける

**名無し~3.EXE** · 2011/03/29(火) 17:11:32.48

それはばけるでなくばかなんだろｗ

**名無し~3.EXE** · 2011/03/29(火) 17:31:23.95

>>127
君がちゃんと使えてないだけだから頑張れ

**名無し~3.EXE** · 2011/03/29(火) 17:50:11.87

>>129
マジで出来るのか
もう1度やってみる
ありがとう

**名無し~3.EXE** · 2011/04/04(月) 21:15:15.89

wshに渡した引数のダブルクォートが消えないようにするにはどうしたらいいでしょうか。

用途はだいなファイラーの補助スクリプトです。
マクロで変換後スクリプトには"a" "b"...のように渡るのですが、これがa b...になってしまいます。
渡す文字列に半角空白が含まれている場合に不都合です。

**名無し~3.EXE** · 2011/04/05(火) 10:02:01.81

>>131
ダブルクォーテーションで括れば？

**名無し~3.EXE** · 2011/04/05(火) 10:02:45.94

個人寄付ランキング

100億孫正義（ソフトバンク）
10億柳井正(ユニクロ) 三木谷浩史（楽天）
6億ブリトニー・スピアーズ（米・歌手）
5億似鳥昭雄（ニトリ）
2億久米宏(アナウンサー）中居正宏（SMAP4億、内2億）
1.2億レディー・ガガ（米・歌手）
1億イチロー（マリナーズ）
8000万サンドラ・ブロック（米・俳優）
7500万ぺヨンジュン（韓・俳優）
5000万安室奈美恵（歌手）
3500万浜崎あゆみ（歌手）
3200万ジャッキー・チェン　←New
100万堀江貴文（ホリエモン）
33万蛯原友里(タレント)
6万9千内田裕也（ロック）
体で支払い江頭2:50(タレント)
折り鶴　　アブネスチャン

**名無し~3.EXE** · 2011/04/05(火) 17:59:30.38

>>131
マ社に入社してソースを変更しろ
他の文字に変えて全体括って戻す
環境変数で渡す
wmiでコマンドラインを取得する

**131** · 2011/04/05(火) 23:27:40.19

回答ありがとう。またいろいろ調べて試してくる

**名無し~3.EXE** · 2011/04/16(土) 11:27:42.13

ダイアログを表示させずにファイルをごみ箱へ移動するスクリプトがw2kで正常に動きません(XPだと動く)
エクスプローラでこのスクリプトにファイルをD&Dすると、ファイルの移動先が"C:\Documents and Settings\ユーザー"へ
他のファイラ(X-Fｉｎｄｅr)だと、そのファイラの実行ファイルの有るフォルダに移動します
2000で動かす方法は無いですか

var fso=new ActiveXObject("Scripting.FileSystemObject");
var args = WScript.Arguments;
var Shell=new ActiveXObject('Shell.Application');
var Folder=Shell.NameSpace(fso.GetAbsolutePathName(fso.GetParentFolderName(args(0))));
var FolderItem=Folder.Items().Item(fso.GetFileName(args(0)));
Shell.NameSpace(10).MoveHere(FolderItem);

忍法帖【Lv=15,xxxPT】 · 2011/04/16(土) 15:09:10.47

ゴミ箱のプロパティに、確認しないようにするチェック欄あるけど、2000だとそれないの?

**名無し~3.EXE** · 2011/04/16(土) 19:39:45.68

Shell.NameSpace("::{645FF040-5081-101B-9F08-00AA002F954E}")

**136** · 2011/04/16(土) 22:37:16.64

>>137
チェック欄を変更してみたけれど効果有りません

>>138
書き換えてみたけれど変化ありませんでした

var Shell=new ActiveXObject('Shell.Application');
WScript.echo(Shell.NameSpace("::{645FF040-5081-101B-9F08-00AA002F954E}"));
WScript.echo(Shell.NameSpace(0xa));
WScript.echo(Shell.NameSpace(10));

三つとも「ごみ箱」と出るけど、移動先が>>136になります

**名無し~3.EXE** · 2011/04/16(土) 23:14:45.38

カレントディレクトリ変えるとか

**名無し~3.EXE** · 2011/04/16(土) 23:21:20.32

非同期だから待ち合わせしないとあかんみたいよ

参考ソース
ttp://www.vector.co.jp/soft/winnt/util/se427319.html

**136** · 2011/04/17(日) 00:02:04.93

>>141
136はvector(Remove.CMD)のソースをテスト用に改変したものです。Remove.CMDも2000では動きません
非同期回避のループ文が有るとファイルが本来と違う場所に移動した後でエラーを吐きます

またD&D操作でなく、スクリプト内で削除するファイルを決め打ちにするとファイルは移動もしなくなります
2000のwshバージョンを5.7に上げても効果ありませんでした

**名無し~3.EXE** · 2011/04/17(日) 00:35:04.26

copyhereは？

**名無し~3.EXE** · 2011/04/17(日) 01:54:12.61

ttp://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list39.shtml
の
管理人むたぐちさん (mutaguchi@roy.hi-ho.ne.jp) 2001年 06月 22日 22時 45分 04秒
に既出やね

**名無し~3.EXE** · 2011/04/17(日) 09:13:00.95

Shell Automation Service は
shell32.dll に実装されているけど
単にこれが古いというオチじゃないかな
まあW2K版shell32.dllのバグという見方もできるが。
強引にAPIのSHFileOperationでも使う？ｗ

**名無し~3.EXE** · 2011/04/17(日) 09:19:07.96

そうそう、久しぶりにMiTeC覗いたら
OLEViewerのバージョンが上がってたよ
といってもiviewers.dllは提供されていないから
基本的な性能は変わっていないんだけどｗ

他にも色々と有用なツールがあるから
興味がある人は覗いてみては？

http://www.mitec.cz/

**名無し~3.EXE** · 2011/04/23(土) 02:18:54.08

WSHでUSBポートの監視、制御ってできますか？
できるのであればAPIの宣言方法を教えて下さい

**名無し~3.EXE** · 2011/04/23(土) 08:31:31.29

覚えた当時文字列処理系の関数が多かったからvbsにしたんだけど
世間じゃjsが流行ってんな～

IEのjsエンジン高速化されまくってるみたいだけど
wshでもjsのが高速だったりするの？

**名無し~3.EXE** · 2011/04/23(土) 09:26:59.69

>147
接続や切断ってことかい？
とりあえずRegisterDeviceNotification あたりから調べてみ。
ただ頭からケツまでAPIでゴリ押しする気なら
言語の選択を考え直したほうがいい。
C++とかで書く以上に面倒になると思うぜ。

**名無し~3.EXE** · 2011/04/23(土) 10:34:29.25

>>148
JSは慣れりゃVB以上に色々出来るからなあ

**名無し~3.EXE** · 2011/04/23(土) 10:58:21.98

>148
オレは関数型言語がキライという理由かな
だからphpも好きじゃない
あくまで書き方に限った話だがｗ

**名無し~3.EXE** · 2011/04/23(土) 11:36:59.05

>>149
thx
やりたい事が漠然としてるんでWSHでどこまでできるのか知りたかったんだ
無論Cも考えてる。ありがとうさぎ

**名無し~3.EXE** · 2011/04/23(土) 13:22:59.86

>>151
phpのどこが関数型言語の書き方なんだ…

**名無し~3.EXE** · 2011/04/24(日) 07:05:08.61

web の cache の property を知りたくて調べて行くうちに
ADSI というのにたどりついたんですが、
この方向は、正しいのでしょうか？
何か、2000のころの技術だったりするみたいですが、
これで作ってXPやVista、Win7で動くものが出来上がるのでしょうか？

**154** · 2011/04/24(日) 17:22:51.00

すいません。 >>2 も読まずに書き込んでしまいました。
調べていたら、どうも違っているような気がするし、
もう少し調べて出直してきます。

**名無し~3.EXE** · 2011/05/06(金) 18:17:10.29

何か原始的なスクリプトですいませんが、これは Vista や Win7 で動くものなのでしょうか？
XP や 2000 上では試したつもりです。

Option Explicit
const Win2k="5.0",WinXP="5.1",WinVista="6.0",Win7="6.1"
dim ver: ver=get_os_version()
if ver=Win2k then
msgbox "Windows 2000"
elseif ver=WinXP then
msgbox "XP"
elseif ver=WinVista then
msgbox "Vista"
elseif ver=Win7 then
msgbox "Windows7"
end if
続く

**名無し~3.EXE** · 2011/05/06(金) 18:17:39.53

続き
function get_os_version()
Dim wshell: Set wshell = CreateObject("WScript.Shell")
dim objExec: Set objExec = wshell.Exec("%comspec% /c ver")
dim str: str = objExec.StdOut.ReadAll
str=right(str,len(str)-6)
Dim regEx: Set regEx = New RegExp
regEx.IgnoreCase = True: regEx.Global = False: regEx.Pattern = ".*Version *"
str = regEx.Replace(str,""): str = left(str,3)
get_os_version = str
end function

**名無し~3.EXE** · 2011/05/08(日) 17:07:59.03

64bitOSを想定しないのならそれでオケ。64bitかサーバーOSを想定するのならダメ。
WMIのWin32_OperatingSystemクラスを使うべきじゃないか？

**名無し~3.EXE** · 2011/05/08(日) 19:26:32.97

>>158
使い方調べるの面倒なら単純にシステムのプロパティ-全般タブ見るという手もあるね

**名無し~3.EXE** · 2011/05/08(日) 21:55:17.51

>>158
64bit だと。今想定している本体が、動かないだろうから。
それ以外でOKだったら大丈夫です。特殊なサーバーOSで動かす人もいないだろうし
これでOKということですね。ありがとうございました。
>>159 さんの言っていることは、私のスキルでは理解できませんが、情報ありがとうございます

**名無し~3.EXE** · 2011/05/11(水) 18:58:17.23

画面の右下に出るリマインダーをWSHで実装できないですか？
流石にVBSからのAPIでは対応してないですかね

**名無し~3.EXE** · 2011/05/12(木) 00:58:45.25

APIってのがWin32APIではなく
COMなども含めた総合的なAPIのことなら
VBSからAPI(COM)使って実現できるよ

**名無し~3.EXE** · 2011/05/12(木) 08:09:01.23

>>162
成る程ー
WinAPIでは無理がありますか
ありがとうございましたー

**名無し~3.EXE** · 2011/05/25(水) 19:43:11.61

ラジオボタンで選択できるインターフェースをできればvbsから関数的に呼び出して使用したい。なんかいい方法はないですか？
元々のvbsのソースが膨大なのでHTA化は避けたいです

**名無し~3.EXE** · 2011/05/25(水) 20:04:38.42

ScriptFormとかのGUI作れるCOM使うとか
外部にラジオボタン選択インターフェイスだけのHTA作ってVBSから呼ぶとか

ScriptFormはだいぶ前に公式は死んでたけど､他の所から落とせたから
今でも探せばどっかにあるんじゃないかな？

**名無し~3.EXE** · 2011/05/25(水) 22:24:06.22

hta で vbs だけは使うまい、ておもたわ。

**名無し~3.EXE** · 2011/05/26(木) 00:25:27.39

HTAを呼び出して選択した結果を受け取るのってどうやるの？
なんか参考になるサイトとかあったら教えていただけませんでしょうか

**名無し~3.EXE** · 2011/05/26(木) 01:39:18.55

そこまでするならpowershell使うわ

**名無し~3.EXE** · 2011/05/26(木) 19:24:49.18

ドライブに挿入された音楽CDの
CDシリアル番号を取得することってできる？

cdaファイルをパースするのはナシの方向で。
というのもCDがマルチセッションだと
cdaファイルにパス名でアクセス出来ないので。

**169** · 2011/05/27(金) 21:25:55.55

難しく考えすぎてたorz

**名無し~3.EXE** · 2011/05/29(日) 16:53:43.65

>>167
お手軽なのは、連絡用ファイルを設定して、HTA側から結果をカキコ。
WSH側は.Sleep → Loop 辺りでテキト～に待ち合わせ。

神ブログ：ttp://scripting.cocolog-nifty.com/blog/2007/07/hta_2d73.html
をパクって、CreateHTAObject()を作ってみたこともあったが、
アイ～ン立ち上げて、またHTA≒アイ～ン立ち上げるのは、やっぱ速度でほんのり難が＾＾

**名無し~3.EXE** · 2011/05/29(日) 18:05:14.02

>>171
mshtaをwscript.shellのexecで起こしてhtaから標準出力に書き出してやれば？
そこにGetStandardStreamのサンプルがあるから探してみ

**名無し~3.EXE** · 2011/05/29(日) 18:25:31.32

>>172
WshShell.Execで窓を表示しない方法も、神ブログに書いてるけど、
お手軽方法で、別に不満なかったから、自分はあまり追求しなかったな。
HTAをオブジェとして使う事が重要なら、ぜひ追求してみるべきだろうね。

**名無し~3.EXE** · 2011/05/29(日) 18:50:47.38

>>173
？
mshtaはコンソールアプリでないからコンソールは出ないが？

**名無し~3.EXE** · 2011/05/29(日) 20:41:59.51

>>174
あﾞ～、完全にわし間違ってた。173は撤回する。

**名無し~3.EXE** · 2011/05/29(日) 23:52:39.96

こういうのじゃダメ？俺の勘違いか？
http://yozda.exblog.jp/9679436/
http://yozda.exblog.jp/12246492/
JScriptでも同様のがあるけど。

**名無し~3.EXE** · 2011/05/30(月) 01:44:11.04

勘違いというか､HTA化を避けたいと言ってる奴に
IE使えってのはあり得ない話だと思うのだが

**名無し~3.EXE** · 2011/05/30(月) 02:19:12.01

そうかvbs(wsh)からIEコンポも使っちゃいけないのか。
それはスマン。
俺はただvbsをhtaに全面書き換えるのがイヤなだけだと思ってた。

**名無し~3.EXE** · 2011/05/30(月) 08:18:11.77

vbsをhtaにするのに､全面書き換えなんて必要ないよ
前後をタグで囲んで拡張子変えるだけで､vbs部分の書き換えなんてしなくて良い

**名無し~3.EXE** · 2011/05/30(月) 15:43:23.73

あほは放置で

**167** · 2011/05/30(月) 22:59:05.05

>>171-179
皆様ありがとうございます。もう見放されたかと思ってましたw
HTAから標準出力を使いたかったのですが自力ではできなかったので、vb.netで挑戦しようかと考えていました。
これからレスと参考リンクを読んでいろいろやってみます。

**名無し~3.EXE** · 2011/05/31(火) 16:40:25.93

ぐぐってたら、javascriptとQTを使えるスクリプトエンジンが出てたよ。Qtjsって奴。WinでもLinuxでもMacでも動くそうだ。
ttp://www.vector.co.jp/vpack/browse/person/an054784.html ttp://qt.loftz.net/
XPで試したら素直に動いたわ。日本語使うならUTF-8で保存。
Titaniumもあるし、Htaboxcoreもあるし、javascriptの世界は広がりますね。
// sample.qtjs
var _window=QWidget();
_window.setWindowTitle("test window");
_window.setGeometry(100,100,220,100);

var _edit=QTextEdit(_window);
_edit.setGeometry(100,30,90,50);

var _b1=QPushButton("button 1",_window);
var _b2=QPushButton("button 2",_window);
_b1.move(10,30);
_b2.move(10,60);
_b1.connect("clicked",_edit,function(){@setText("button 111")});
_b2.connect("clicked",_edit,function(){@setText("button 222")});

var _label=QLabel("button text",_window);
_label.move(10,10);
_window.show();
sys.exec();

**名無し~3.EXE** · 2011/05/31(火) 18:58:03.11

>>182
QtはマルチプラットフォームだけどqtjsはMAC対応してないよ

jsの汎用性は凄いよねー

**名無し~3.EXE** · 2011/05/31(火) 22:27:42.25

>>182
処理が比較的早く、簡単にGUIツールが作成できるのはいいが、
結局、クライアント（実行するPC）にもQtjs.exeがないとダメって事じゃん
これは微妙かも。あくまで自分のPCでGUI使ってなんかツール作りたい時は便利かもだけど、
オレオレツールって自分が理解してればいいからわざわざGUIにしなくてもって思うわ

あと、ショートカットリンクから実行しても動かない。
これじゃ使えないわ。cmdショートカットなら動くんだろうけど

[Window Title]
X:\Qtjs\qtjs_win_20110529_rev37_qt4_7_2_gcc\qtjs.exe

[Content]
X:\Qtjs\qtjs_win_20110529_rev37_qt4_7_2_gcc\qtjs.exe は有効な Win32 アプリケーションではありません。

**184** · 2011/05/31(火) 23:29:37.09

悪い、変なエラーが出てて気になって再起動したら
Blue Screen Of DEATH食らった
Windows7はBlue Screen Of DEATHにならないって聞いてたけど
あれは嘘なんだなｗ
（まぁ青画面になっても死なないようにはなってるみたいだけど）

復旧せずに通常起動後に実行したら普通にショートカットからでも起動した

QtjsはC++利用だからマウス操作の自動化処理もJavaScriptで書けるって事なのかな？
何か従来のWSHより全然汎用的でビビったわ
慣れれば間違いなくWSHよりQtjsのがいいね

**名無し~3.EXE** · 2011/06/01(水) 01:29:18.93

// <job id='qtjs'><resource id='qtjs'><![CDATA[;;;
// sample.wsf としてUTF-8で保存。これを起動すると、最初の起動はWSHで実行して、下のパスのQtjs.exeで再実行する形になる。関連付けしてなくても動く。
var label = QLabel("Hello, world!"+"\n\n"+"ポポポポ～ん！");
label.show();
sys.exec();
//
// ]]></resource><script>
/* ここからはjscript。関連付け無しでも実行できるようにする処理。var pqtjsexeでQtjs.exeのパスを決め、そのexeでスクリプトを実行する。*/;
if(typeof(WScript)=='object'){
//var pqtjsexe="V:\\Script_Qtjs_Win\\Qtjs.exe";/ * パスを決めうちの場合 * /;
var oshl=new ActiveXObject("WScript.Shell");
var ofso=new ActiveXObject("Scripting.FileSystemObject");
var pdirscript = ofso.GetFile(WScript.ScriptFullname).ParentFolder;
var pqtjsexe=pdirscript + "\\Qtjs.exe";/ * 同じフォルダにqtjs.exeの環境がある場合 * /;
oshl.run("\""+pqtjsexe+"\""+ " " + "\""+ WScript.ScriptFullName+"\"",1,false);
};
//</script></job>

**名無し~3.EXE** · 2011/06/01(水) 01:41:57.48

上の奴は、拡張子Qtjsを関連付けしてる場合は、ファイル名の拡張子を.qtjsで保存すればそのまま動くよ。
スクリプトの最後のほうを変えればWSHから引数も引き継げると思う。
for(var arg=WScript.Arguments,iii=0,sadd='';iii<arg.length;iii++){sadd+=" " + "\""+ arg(iii)+"\"";};
oshl.run("\""+pqtjsexe+"\""+ " " + "\""+ WScript.ScriptFullName+"\""+" "+sadd,1,false);

**名無し~3.EXE** · 2011/06/01(水) 01:45:57.06

>>183
ほんとだ。Macは対応してなかったｗスマソ

**名無し~3.EXE** · 2011/06/01(水) 18:34:22.79

>>187
拡張子設定すりゃいいだけか！thx
最近出だばっかみたいだけど、これからに期待だわ
いい加減スレチだけど、過疎気味だからいいかw
オレオレツールがGUIでサクッと作れて簡単なコーディングで色々出来るのがいい

**名無し~3.EXE** · 2011/06/02(木) 19:48:10.79

ActiveXからCODのMessage使ってメール送信してるんですが
受信したメールを転送できなくさせるプロパティや別の方法ありませんか？
ご教示を…

**名無し~3.EXE** · 2011/06/02(木) 22:31:31.17

もうちっと背景を晒せ
なぜメールを送りたいのか　相手は人間なのか
相手はどんなツールで転送するのか　相手が転送したら何がまずいのか

**190** · 2011/06/02(木) 22:58:43.37

>>191
>なぜメールを送りたいのか
システム上で使用する為

>相手は人間なのか
受信者は人間

>相手はどんなツールで転送するのか
超マイナーなメーラ

>相手が転送したら何がまずいのか
セキュリティ上の問題
本文コピペすりゃ意味ないんだけどねｗ

簡単に概略を説明を付け足す
VB系言語で使用しており、現に正常に機能している。
VB内でActiveXのCODオブジェクトを使用し、Message関数でメールをSMPT送信している。
この部分に機能を追加すると言う意味です。
欲しい機能は、受信者がそのメールを転送できなくする事。

メール送信時にMessage関数のプロパティとかで付加できないかなぁと淡い期待をいだいている。
そもそもメールが転送できなくなる機能がメールプロトコルに存在した事すら今日知った。
メールのオプションで「重要」とか「受信者がメール開いたら送信者へ受信確認を行う」とかの設定あるでしょ？
あんな感じで「転送不可」にする設定があるらしい。
それをWSHやらのWindows Scriptでちょちょいとハックしてやりたい。

**190** · 2011/06/03(金) 21:55:17.68

解決した
Message.Sensitivityでできる
ただSMTP送信ではムリだったので諦めてVBのSendで結局やる事になりそうだわ

**名無し~3.EXE** · 2011/06/03(金) 22:44:08.40

Sensitivityって、ほとんどOutllookでしかサポートされてないのとちゃう？

**190** · 2011/06/04(土) 11:53:30.64

>>194
OL以外でもSensitivityが機能するメーラがあるんだな、これが
まぁ、普通はこんな機能使わないし本文コピペできるから意味ないけどw

**名無し~3.EXE** · 2011/06/08(水) 20:27:12.99

basp21のdllでメールの送受信するスクリプト書いてます。
sslの処理は、melonにお願いしてpop3で受信してます。
メールの受信でほかにもっと便利なActiveXのDLLはあるんでしょうか？

**名無し~3.EXE** · 2011/06/11(土) 18:57:59.05

いくらでもあるけど､何を以て便利と感じるかは人それぞれ

なので､いろいろ使って自分が一番便利だと思うのを使えば良い

**名無し~3.EXE** · 2011/06/11(土) 19:15:07.83

IE9を入れるとmshta.exeがバージョンアップし
sfcminiのCallBackが利かなくなるんだが
誰が解決策を見つけた人がいたら教えて。
何らかのセキュリティ制限に掛かっていると思うんだが。

**名無し~3.EXE** · 2011/06/11(土) 22:03:58.47

wsc

**名無し~3.EXE** · 2011/06/12(日) 08:19:26.03

>199
UIはどうするの？