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

お前ら、wsh使ってま� ..

206:名無し~3.EXE
06/11/10 02:09:09 AYtg+sjS
Windowsがロック(Win+L)されてると、AppActivate→SendKeysではキー送れない…ですよね？
何か代替策ありますでしょうか？

WshShell.Run('notepad.exe', 1, false);
WshShell.AppActivate('メモ帳');
WshShell.SendKeys('0{ENTER}');

207:名無し~3.EXE
06/11/10 02:31:12 ktKvkKru
>>206
COM使ってSendMessage
具体的な方法はCOM付属のドキュメントやWeb上の解説読んで

208:名無し~3.EXE
06/11/10 08:13:38 AYtg+sjS
>>207
㌧クス!
まだまだ知らないことばっかりだ(ﾟ∀ﾟ;)

209:名無し~3.EXE
06/11/11 04:37:38 jLixVM07
PowerShellって完成遅くね?
もしかしてVistaに入ってない?

210:名無し~3.EXE
06/11/11 07:33:18 OPUQTd1+
XMLHTTPでWebから落としてきたテキストファイルが文字化けするんだけど
文字化けしないで表示させるるにはどうな感じにやればいいの?

var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP");
xmlhttp.open( ～ );
xmlhttp.send( ～ );
win1.document.open();
win1.document..clear();
win1.document..write(xmlhttp.responseText);
win1.document..close();
xmlhttp.abort();

↑はスゲｰ適当にしたけど、今はこんな感じ。処理の流れを言葉で表せは、
win1からコンテキストメニュー経由でスクリプト起動、xmlhttpでアクセス、ページ落としてそれをwin1にそのまま表示。
って感じ。

あと、落すのは普通のwebページ。ゆえにサーバーの方は弄れないし、文字コードは予め判らない。
そして、ググッていくつかの参考サイト見たけど、全然理解できなかったぐらいおれは馬鹿。

よろしくお願いします。

211:名無し~3.EXE
06/11/11 09:34:07 OPUQTd1+
桃子って馬鹿っぽい声だな

212:名無し~3.EXE
06/11/11 09:36:39 yLvGNxuk
URLそのまま表示するだけなら、普通にwin1.location.href="URL"でええやん（´・ω・）

213:名無し~3.EXE
06/11/11 19:52:55 fv8aBk4Z
>>203
「とある変数」は冗長。

214:名無し~3.EXE
06/11/11 21:17:05 OPUQTd1+
>>212
フォームのアクションへ POST して取ってくる感じ

215:名無し~3.EXE
06/11/11 21:55:05 yLvGNxuk
>>210
内容を一旦テンポラリファイルに保存してから、それを開くって感じではどう？
ADODB.Stream 使って XMLHTTP.responseBody を保存すれば、正確に表示できる。

216:名無し~3.EXE
06/11/12 09:26:37 paxoE75X
>>215
やってみたら文字化けしませんね。
一度保存するってのをベースにこれから作ってみます。
どもありがとです。

217:名無し~3.EXE
06/11/12 09:53:43 UX7xiFXQ
ファイルに書き出さんでも、Write した後 Position を 0 にしてやれば
Type やら Charset やら ReadText やら可能になるよ。

218:名無し~3.EXE
06/11/12 10:13:55 2A2d5Z9x
ファイルに保存せずに、ストリームを直接ブラウザに表示なんてできる？

219:名無し~3.EXE
06/11/12 12:41:42 eheFZjLZ
wshであるサーバがtelnetできるかというのを自動化しようとしてます。

Runメソッドでtelnet.exeを動かすスクリプトを作ってみたのですが、
ログインしている状態では動くのですが、
ログアウトしてスケジューラで動かしてみると、パスワードとかの入力ができません。

' Connect Server
strCMD = "telnet.exe -a -l root -f telnet.log 192.168.1.100
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run strCMD,2
' Send Password
WScript.Sleep 5000' Wait 5 sec
WshShell.AppActivate "Telnet"
WshShell.SendKeys "rootpsaaword~"
' Exit Telnet
WScript.Sleep 2000' Wait 2 sec
WshShell.AppActivate "Telnet"
WshShell.SendKeys "exit~"

Execメソッドにしてみたところ、telnetが動いてもくれません。
Dim WshShell, oExec
strCMD = "telnet.exe -a -l root -f telnet.log 192.168.1.100
Set WshShell = CreateObject("WScript.Shell")
Set oWshExec = WshShell.Exec(strCMD)

telnetできなかったらメールを送るとかのスクリプトを作りたいのですが
どなたか同じことをやられている方はいませんでしょうか。

220:名無し~3.EXE
06/11/12 14:13:34 2A2d5Z9x
メールを送るだけなら CDO.Message でできる。
詳細はググってください。

221:名無し~3.EXE
06/11/12 15:18:11 0ftkh14m
>>219
標準のtelnet.exeじゃなくて、
ログインまで自動化できる別のソフトを使えば？

222:名無し~3.EXE
06/11/13 23:10:05 qiz2dlwS
>>219
> WshShell.SendKeys "rootpsaaword~"
> WshShell.SendKeys "exit~"

CRLF は送らなくていいのか？

223:名無し~3.EXE
06/11/14 20:48:44 eUOyYwez
ローカルPCのプロセス一覧を書き出す VBScript があります。
これは正常に動作します。

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Process",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Next

これをJScriptに変換しようとしているのですが、
var strComputer = ".";
var objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2");
↑
この行で既に
「Microsoft JScript 実行時エラー: オートメーションの操作中にファイル名または
　クラス名を見つけられませんでした。」となってしまい、実行できません。
\記号が何か変なことになってるんでしょうか？

どうすればいいのでしょうか？
WSH 5.6 / Windows XP SP1 Professional の環境です。

224:223
06/11/14 20:50:34 eUOyYwez
あ、ごめんなさい。
エラーの行に WScript をつけて、以下のようにしても同様でした。
var obj = WScript.GetObject("winmgmts:\\" & strComputer & "\root\CIMV2");

225:名無し~3.EXE
06/11/14 20:53:15 7Tv2z1qt
JScript の文字列連結演算子は + だが。

226:名無し~3.EXE
06/11/14 21:43:55 7Vc/ugR3
\→\\

227:名無し~3.EXE
06/11/15 05:49:24 eq52+nBC
PowerShell正式版来たな

228:名無し~3.EXE
06/11/15 08:49:19 eq52+nBC
PowerShell 1.0
URLﾘﾝｸ(support.microsoft.com)
これおもしろいな。昔Monadスレあった気がしたけど、消えた?

229:223
06/11/15 10:11:55 8Giezelv
>>224-225
初歩的なことですみません＆ありがとうございます。

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

のようにしてみましたが、今度は
(null): 0x800C000D
のようなエラーで止まってしまいます。

試しに
var obj = WScript.GetObject("winmgmts:");
とすると上記と同じエラーが、

var obj = WScript.GetObject("winmgmts"); // ←コロンを取った
とすると>>223と同じエラーが出てしまいます。

原因として何が考えられるでしょうか？

230:223
06/11/15 10:18:39 8Giezelv
解決しました。

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

はダメで

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

ならOKでした。ムムム。

231:名無し~3.EXE
06/11/15 23:24:20 F3PSFGj/
>228
Windows Server 2003 Service Pack 1 および Windows XP Service Pack 2 用ってのがアレだけどな。

232:名無し~3.EXE
06/11/16 10:54:00 X8pn6xyi
PowerShell入れてみたけど、気に入ったｗ。
wsh捨てる決心ついたよ。

233:名無し~3.EXE
06/11/16 12:14:40 qnfm5A7w
コマンド入力まで時間かかるんだが、どうにかならんの

234:名無し~3.EXE
06/11/17 00:37:42 qH260wvA
Me使いのオレは移行したくとも出来んのだよ。

235:名無し~3.EXE
06/11/17 01:02:22 rS+zXwC5
PowerShellってパイプを流れるのもオブジェクトなのな。
CMDで
dir | sort
dir | sort /r
と
PSで
dir | sort
dir | sort -des
と比べて、頭の古い俺はちょっとびびった。

cd hklm:
でおいおい俺レジストリにいるよ、とか。

Vistaにデフォで入っていない上にデフォのセキュリティもガチガチだけど
やれること考えたら仕方ないか…。

236:名無し~3.EXE
06/11/17 12:14:12 tuTlaVuD
explorer切ってこっちをシェルにできんかな

237:名無し~3.EXE
06/11/18 02:21:35 OLX52wf8
ご案内

Windows PowerShell （正式版リリース）1.0
ｽﾚﾘﾝｸ(win板)

238:名無し~3.EXE
06/11/18 15:10:02 AegbpAMY
ADODB.Stream関連のプロパティを紹介してるＨＰを知りませんか？

239:名無し~3.EXE
06/11/18 15:16:39 rOSuiBco
>>238
Microsoft Data Access SDK 2.8
をダウンロードしたら?

240:名無し~3.EXE
06/11/18 15:20:25 mdx8HK1h
>>238
URLﾘﾝｸ(msdn.microsoft.com)

241:名無し~3.EXE
06/11/22 21:59:57 Hl8ABRjt
エクセルの中身をスクリプトで抜きたいんですが、可能でしょうか？
アクセスに移行しないと無理ですかね？

242:名無し~3.EXE
06/11/22 22:12:10 ag1e260U
エクセルの中身というのを xls ファイルの中身であると解釈して。
Excel.Application からオートメーションすればいいっしょ。

243:名無し~3.EXE
06/11/22 22:36:18 FtHukSom
>>241
できる

244:名無し~3.EXE
06/11/22 23:20:06 t8oZlpFH
>>241
ADO使えばできる
URLﾘﾝｸ(homepage3.nifty.com)

245:名無し~3.EXE
06/11/22 23:47:23 EyhEga7i
皆様ありがとうございます。
>>244のって工夫すればなかなか便利に使えそうですね

246:名無し~3.EXE
06/11/25 04:54:10 fL/fbuiK
>>244
いろいろいじってみたけど、これすげく楽しいな
ADOでのSQLについて詳しいページってありませんか？

247:名無し~3.EXE
06/11/25 12:16:26 Z7NXJrJB
ググれ

248:名無し~3.EXE
06/11/25 12:41:31 qXN1g3LQ
　　＿＿＿＿_
　　＼　 _　_／
　　　( *ﾟ∀ﾟ)
　　（９　⌒)９ﾞ　ｸﾞｸﾞｯ
　 "⊂＿）∪,,

249:名無し~3.EXE
06/11/25 23:07:22 OspuG9g+
>>248

( ﾟ∀ﾟ)o彡ﾟ　wsh！wdh！

250:名無し~3.EXE
06/11/26 21:34:24 tNFTdH9d
OutLookExpress内の任意のメールを特定のフォルダへドロップ（コピー）するような
スクリプトは、どのような関数を使えばよいでしょうか？

emlファイルに出来ればＯＫです。
WSHに詳しい先輩達にご意見をお聞きしたいです。

251:名無し~3.EXE
06/11/27 00:56:10 1iJUdyxp
COMってコム？それともシーオーエム？
WSHは？ウィンドウズスクリプトホスト？ダブリュエスエイチ？ウーシュ？

252:名無し~3.EXE
06/11/27 01:06:33 nxeZfR/d
COMはコムって読んでる
WSHはそのままW・S・H

253:名無し~3.EXE
06/11/27 01:20:04 YbmUHCoW
wshはウッシュだなあ
関係ないけど、zshはズッシュ、tcshはティッシュと
呼んでた俺。

254:名無し~3.EXE
06/11/27 02:33:55 nUiU//Yl
　　　　　　　 lヽﾉ l　　　　　　　　ｌ l　ｌヽ　　ヽ
　 )'ｰーノ(　 |　|　 | ､　　　　　 / l｜ｌ　ハヽ　　|ｰ‐''"ｌ
　/　W　　|　|　|／| ﾊ　　/ / ,/ /|ﾉ /l /　ｌ l ｌ|　ｌ　 W ヽ
　l 　･　　i´ |　ヽ､| |ｒ|| |　//--‐'" 　｀'メ､_ｌﾉ| /　・　 /
　|　 S　　l　トー-トヽ| |ノ　''"´｀　　　ｒｰ-/// |　 S　｜
　|　･　　 |／　　　 | l ||､　''"""　 j　""''/ | |ヽｌ　・　｜
　|　 H 　 |　　　　 | l |　ヽ,　　― 　／　| |　ｌ　 H　 |
　| 　 !!　 |　　　 /　| | |　　 ` ｰ-‐ ' ´||　,ﾉ| |　|　　!!　｜
ノｰ‐---､,|　　 /　│ｌ､l　　　　　　　 |ﾚ' ,ﾉﾉ　ﾉハ､_ノヽ
　/ 　　　　／　ノ⌒ヾ､　ヽ　　　ノハ,　　　　 |
,/ 　　　　,イーｆ'´ /´　　＼　| ,／´ ｜ヽl　　　　 |
　　　　／-ト、|　┼―- ､_ヽﾒr'　, -=ｌ''"ハ　　　　|　ｌ
　　 ,／　　|　ヽ　＼　　_,ノｰｆ' ´　　ﾉノ　ヽ　　｜　|
､_　　　 _ ‐''ｌ　　`ー‐―''" ⌒'ｰ--‐'´｀ヽ､_ 　　_,ノ　ノ
　￣￣　　 |　　　　　　　　　　／　　　　　￣

255:名無し~3.EXE
06/11/27 18:31:52 uqV36mAE
>>254 Ｗ－ＷＳＨのアニメはイマイチだったぞ。

256:名無し~3.EXE
06/11/27 22:04:40 mEhuqTrR
>>250
やっぱり、難しいですよね。

257:名無し~3.EXE
06/11/28 00:54:51 Tv1LYONy
htaやwsfファイル中でPerlScriptからVBScriptやJScriptの関数って呼べます？
逆は普通に呼べるんだが．．．

258:名無し~3.EXE
06/11/28 01:03:28 V4pOQQjQ
ランチャをWSHで組んだとして
起動させたアプリからの、read/writeを規制することは
可能でしょうか？
例えば、~/tmp以外書き込み禁止とか．．．

259:名無し~3.EXE
06/11/28 01:12:07 Tv1LYONy
>>258
何でそんなことしたいのか知らんけど，Windows2000かXPであれば，新しくユーザ作成して適切なパーミッション設定して，runasでそのユーザで起動するようにすればできなくはないかも？

260:名無し~3.EXE
06/11/28 01:14:36 kOxlRyob
>>257
呼べる。とりあえずwshのリファレンス読め。
htaも同じ方法で呼べるから。

>>258
不可能。というかスクリプトの仕事じゃない。
まともなプログラム言語使え。

261:名無し~3.EXE
06/11/28 01:25:26 Tv1LYONy
>>260
呼べるのか．

<job id="main">
<script language="PerlScript">
sub perlfunc() {
$WScript->Echo("PerlScript");
}
</script>
<script language="JScript">
perlfunc();
</script>
</job>

これはいけるけどPerlScriptからJScriptのfunctionを呼ぶにはどうすれば？
wshやperlのマニュアル見ても見つからないの．サンプルプリーズ．

262:名無し~3.EXE
06/11/28 01:27:02 RRJTB0rw
&jscriptfunc()
で呼べるんでないの?

263:名無し~3.EXE
06/11/28 01:33:50 Tv1LYONy
>>262
それで呼べないんで困ってるんですわ．

264:名無し~3.EXE
06/11/28 01:34:54 ZRVbZfL6
method(); でいけるはずだが

265:名無し~3.EXE
06/11/28 01:44:28 dX4vnSDr
strconvはもちろんストア昆布だよな

266:257
06/11/28 01:57:32 Tv1LYONy
いろいろ試してたら分かってきた．
PerlScriptからVBScriptの関数は普通に呼べました．
JScriptの関数オブジェクトはPerlScriptからは扱えないみたい．
$WScript->Echo(&jsfunc());とかやるとfunctionの中身がdumpされた．

JScriptで作ったライブラリとか使えねー
PerlScriptなんて使うなってことですか．．．

<job id="main">

<script language="VBScript">
　　sub vbsfunc()
　　　　WScript.Echo("VBScript")
　　end sub
</script>

<script language="JScript">
　　function jsfunc() {
　　　　WScript.Echo("JScript");
　　}
</script>

<script language="PerlScript">
　　# VBScript OK
　　&vbsfunc();
　　# JScript NG
　　&jsfunc();
　　$WScript->Echo(&jsfunc());
</script>

</job>

267:名無し~3.EXE
06/11/28 02:35:59 BAbEyrhQ
引数があれば呼べるんじゃないかな

268:名無し~3.EXE
06/11/28 02:40:16 RRJTB0rw
適当な引数を付ければ呼べるみたいだね。例えば、
&jsfunc(0);

269:名無し~3.EXE
06/11/28 02:47:47 g8pNCyQB
ScriptControlを使う手もあります　呼び出し先ではWScript使えないけど＞＜

<job id="main">
<script language="PerlScript">
my $jscript = <<EOS;
　　 function jsfunc() {
　　　　 return "Perl meets JavaScript!";
　　 }
EOS

my $sc = $WScript->CreateObject("ScriptControl");
$sc->{Language} = "JScript";
$sc->AddCode($jscript);
$WScript->Echo( $sc->Run("jsfunc") );
</script>
</job>

270:258
06/11/28 02:49:32 V4pOQQjQ
>>259
データ管理上、ローカルにデータ放置させたくないのです
小生Win環境詳しくないので、感謝
早速試してみます

>>260
元がAIX上でPerl/Tkで動いている認証機能付ランチャなのです
Win環境は詳しくないものですいません

271:名無し~3.EXE
06/11/28 07:36:45 AQr+bFyx
OutLookExpress内の任意のメールを特定のフォルダへドロップ（コピー）するような
関数を教えてください。

頭の良い方達揃いと思い、お願いします。

272:名無し~3.EXE
06/11/28 12:16:59 h8kiq/Ct
>>271
この辺の情報を参考に作ってみたら？

OE dbx file format
URLﾘﾝｸ(oedbx.aroh.de)

273:名無し~3.EXE
06/11/28 13:51:02 77idGO9L
>>271
バックアップならこういうのを使ったほうがいい。
URLﾘﾝｸ(www.tietew.net)

274:名無し~3.EXE
06/11/28 15:46:44 eQt+KJMG
>>269
>ScriptControlを使う手もあります　呼び出し先ではWScript使えないけど＞＜
使えます。VBScriptの記述では、
sc.AddObject "WScript",WScript
みたいにSC側にWScriptを渡せばよいのです。

275:名無し~3.EXE
06/11/28 19:56:04 eQt+KJMG
>>258
>>259
タスクスケジューラに登録しておいて、FolderItem.InvokeVerbで実行する。

276:名無し~3.EXE
06/11/28 19:58:54 g8pNCyQB
>>274
それは知らなかった。thx！

277:名無し~3.EXE
06/11/28 20:03:14 eQt+KJMG
>>257
あてずっぽうですが、
jscriptfunc()
で呼べませんかね。結構、非常識な発想が通ったりする世界ですから。。。

278:257
06/11/28 20:21:36 Tv1LYONy
>>267 >>268
無事呼べました．情報ありがとう．
perlじゃ引数なし()は省略されるってことね．

>>269
ふむふむ．それはVBA上からperl呼ぶとか便利に使えそうだね．
vbsやjsにできてperlにできないことはまずないから，wshでは使わないだろうけど．

279:名無し~3.EXE
06/11/28 21:48:29 tFRKZPTE
スクリプトから自動でメールを出すってできますか？
WEBページにあるフォームに入力させて「送信」ボタンを押すみたいなことをスクリプトで実現したいんですが

280:名無し~3.EXE
06/11/28 21:53:30 mWvA7je0
MsgBox でフォントの大きさを変えることはできませんか?
(全体を大きくするのではなくて、MsgBox のウインドウで
使われるフォントだけ)。

281:名無し~3.EXE
06/11/28 22:06:15 g8pNCyQB
>>279
CDO.Message で検索してみて。

>>280
一からウィンドウを作らないとダメかと。

282:280
06/11/28 22:18:48 mWvA7je0
>>281
Wsh では1からウインドウを作るのはどうやるんでしょうか?
VBScript でも JScript でもこの際なんでも構いません。
(機能はメッセージを出して OK 押したら消えるだけでいいんです。
但し大きく目立つように出したいということです)。かといって
後から何か特別なソフトをインストールしたくはないので Wsh の
VBScript の MsgBox でやっていたんですが、何か方法ありませんかね?

283:名無し~3.EXE
06/11/28 22:23:19 HgwQULRQ
HTAにしてみるとか

284:名無し~3.EXE
06/11/28 22:23:44 E3q0nv4b
>>282
WSHから使えるGUIウィンドウは
COMとして作るしか無いかと。
又はWSHではなくHTAを使うって手もある。

285:名無し~3.EXE
06/11/28 22:39:47 mWvA7je0
>>283-284
HTAというのは知りませんでした。検索したら出ましたが。これですよね。
URLﾘﾝｸ(www.microsoft.com)
調べてみます。ありがとうございました。

286:名無し~3.EXE
06/11/28 23:15:36 eQt+KJMG
PowerShellを使うと
>>36
>>206
などが簡単に出来るようになるんでしょうか？

287:名無し~3.EXE
06/11/28 23:23:34 45tW03Iv
CDO.Messageについて調べたんですが、送信元のアドレスをソースに入れないで（自動で補完）つくれないでしょうか
スクリプトを知らない多数の人が使用するという想定でつくりたいのです

288:名無し~3.EXE
06/11/28 23:42:30 Tv1LYONy
>>282
TclScript, PerlScript, RubyScriptとかならTkが使えるからGUIが自前で作れる．
それぞれの処理系をインストールしなきゃならんのでHTAの方がいいだろうけど．

>>287
1. スクリプトの先頭にadress = "foo@bar.com"とか書いておいて，各自そこだけ書き換えてもらう．
2. InputBoxやHTA使ってアドレス入力させる．毎回入力するのは面倒なので，ファイルに保存しておいて次回からはそれを読む．
など

289:名無し~3.EXE
06/11/29 00:33:36 2/mGVRQo
>286
↓で訊いてみたら？

Windows PowerShell （正式版リリース）1.0
ｽﾚﾘﾝｸ(win板)

290:名無し~3.EXE
06/11/29 22:17:21 1dkZEY39
>>272
>>273
ありがとうございます。

ただ、もっと簡単にスクリプトを組んで関数をチャチャっとやって、
できないものか思案中です。

あまり、プログラムって組んだ経験がないので・・・。

何か良いアイデア、ないでしょうかね？

291:名無し~3.EXE
06/11/29 22:41:40 DKiaM1yK
自力でプログラム書く気がないなら、このスレ向きじゃないよ。

292:名無し~3.EXE
06/11/30 01:16:13 WPzp0DQP
標準出力を使いたいので、ファイル名.vbs（wscript.exe）で実行しても
cscript.exeで実行するような書き方ってありますか

293:名無し~3.EXE
06/11/30 01:40:47 f/8+PZe+
>>292
cscript //H:CScript

294:名無し~3.EXE
06/11/30 02:14:43 oHR/u/8E
>>292
vbsじゃないけどお手製のライブラリがあるので晒そう．

以下をたとえばstdio.jsというファイル名で保存
//---------ここから------------
(function(){
　 if (/wscript\.exe$/i.test(WScript.FullName)) {
　　 var args = new Array();
　　 for ( var i = 0; i < WScript.Arguments.length; i++ ) {
　　　 var arg = WScript.Arguments.Item(i);
　　　 if ( /\s/.test(arg) ) arg = '"' + arg + '"';
　　　 args.push(arg);
　　 }

　　 var cmd = 'cscript.exe //Nologo "' + WScript.ScriptFullName + '" ' + args.join(' ');
　　 WScript.CreateObject('WScript.Shell').Run(cmd, 1, false);
　　 WScript.Quit();
　 }
})();
//---------ここまで------------

使い方はwsfファイルの最初でインクルードしてやるだけ．
<job>
<script language="JScript" src="stdio.js"></script>
<script language="VBScript">
'ここに好きなコードを書く
WScript.StdIn.ReadLine
</script>
</job>

既定のスクリプトホストはwscriptのままでOK．
まあ自分で使うだけなら >>293 が一番楽でしょう．

295:名無し~3.EXE
06/11/30 02:42:53 v82cYZy4
>>292
vbcという拡張子をcscriptに関連付けて､cscriptで実行したいものはvbcで作る方法がオススメ。

>>294のようにwsfでやるならjob分けした方が良い。または引数が無ければ
URLﾘﾝｸ(winscript.s41.xrea.com)
でもいける。ぶっちゃけ>>294はこれの引数対応版なだけの話だし。

まぁ固定環境で使うものなら関連付けしちゃうのが一番煩わしくないよ。
コード一切必要ないし､条件分岐も､実行し直しも､引数の処理も無いからいくらか早いし。

296:名無し~3.EXE
06/11/30 07:51:25 oeVEhWch
>>295
> vbcという拡張子をcscriptに関連付けて､cscriptで実行したいものはvbcで作る方法がオススメ。

なるほどなあ、その発想はなかった

297:名無し~3.EXE
06/11/30 10:53:55 4A8n4oNd
>>292
先頭に
REM:&@CScript.exe //E:VBS //NoLogo "%~f0" %* & GOTO :EOF
を書いて、拡張子をCMDに変える。

298:名無し~3.EXE
06/11/30 19:27:18 4A8n4oNd
>>295
関連付けで標準入出力が使えない障害はありましたが、もういいのかなぁ。
もし、駄目なときはVectorのVBCFILEを参照。

299:名無し~3.EXE
06/12/02 15:02:40 AkJV6Sni
これでｱｸｾｽ権限のないﾚｼﾞｽﾄﾘｷｰを
自動で削除する事ってできますか？

300:名無し~3.EXE
06/12/02 20:48:03 0XNYfzVD
WScript.ShellのPopup(,nSecondsToWait)が効かないってことありませんか？
HTMLやHTAのときは、そういう仕様か、と思っていましたが、WSHでも起こります。
どうもCPUが他の処理で忙しいときに抜けるみたいです。
さすがに、それは障害だと思いますが。使うときはご用心。

301:名無し~3.EXE
06/12/07 15:43:36 EC5LjnO7
>>282
こういうときは、WSHからIEを起こして操作するのが簡単。

302:名無し~3.EXE
06/12/09 18:45:02 P6CN1pgP
バッチファイルをリモートからWebに埋め込んで使う
ということをwsh使ってできますか？

303:名無し~3.EXE
06/12/09 19:13:49 pifhS49b
うん､出来る。。面倒だから普通はやらないけど。
どうしても面倒なことやりたいなら勝手にやればよい。

304:名無し~3.EXE
06/12/09 19:49:26 0qa9SSE3
>302
で、それを知って何をやりたいんだ？

305:名無し~3.EXE
06/12/10 00:08:13 UaBqXVVZ
>>296
それより、RunWithArgs.CMDを関連付けると、便利だわい。

306:名無し~3.EXE
06/12/11 22:02:52 YncVWVUZ
age

307:名無し~3.EXE
06/12/13 14:27:42 /++eaESB
WSHでDDE使う方法ないかな？

308:名無し~3.EXE
06/12/13 15:44:43 npJjnYln
>>307
DDE使えるCOMを探すか作る。

そんな回答アリかよ､と言うかも知れないが
拡張無しにWSH自身が出来る事なんてほとんど無いんだから
COMなどの外部拡張に頼らざるを得ないのは仕方ない。

309:名無し~3.EXE
06/12/13 16:38:28 5aDfYNEq
VBScript(.vbs)からExcelを操作して文字列の置換をしたいんですが、ループでセルを一つずつ見て置換していくしかないのでしょうか？

Excelの置換ダイアログみたいに一括でブック全体を置換したいんですが。

ちなみに優先順位としては
処理スピード > コードの複雑さ
です。

310:名無し~3.EXE
06/12/13 17:06:25 npJjnYln
>>309
RangeメンバのReplaceメソッドで置換すれば良いだけだよ。
Replaceメソッドの使い方はExcelVBAヘルプに載ってる。
因みに組み込み関数のReplaceじゃないので間違わないように。

ちなみに対象のシートオブジェクトを取得したら､置換は1行コードで終わる。
ループよりは速いが､どのくらい速いかはCPU依存。

311:名無し~3.EXE
06/12/13 17:48:44 5aDfYNEq
>>310
ありがとうございました！標準オプションなら↓だけで行けますね。

objApp.ActiveSheet.Range("A1").Replace <検索文字列>, <置換文字列>

後は各シートでコレを実行させました。十分実用に耐えるスピードです。

312:名無し~3.EXE
06/12/13 22:14:37 hw3Bn7Em
IEから右クリックで動作させるスクリプトなんですが、
その右クリックされた場所にある画像のURL(リンクではなくIMGタグ)
を取得するにはどうすればいいでしょうか？

313:名無し~3.EXE
06/12/13 22:49:12 qNFDZs3m
external.menuArguments.document.elementFromPoint(external.menuArguments.event.clientX, external.menuArguments.event.clientY).href
らしい。Irvine のスクリプトによると。

314:312
06/12/14 00:28:11 7FtNx5qL
>>313
ありがとうございます

315:名無し~3.EXE
06/12/14 00:29:42 DjAdsCMN
InternetExplorer.Applicationとかの情報ってWSHのﾘﾌｧﾚﾝｽに
のってないけど、どっから情報獲ってくるんだ？

316:名無し~3.EXE
06/12/14 00:42:56 WjQ1wjr4
IE オブジェクトなら MSDN にいくらでもあるっしょ

317:名無し~3.EXE
06/12/14 01:39:10 XilSwh1W
>>315
つ OLEView.exe

318:名無し~3.EXE
06/12/17 09:32:44 A0dC8xU5
以下のようにした場合、メッセージボックス(?)が表示される前に
コマンドプロンプト・ウインドウが表示されるのですが、結果の
メッセージだけを表示させるにはどうすれば… ？

Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objExecCmd = objWshShell.Exec("ruby\bin\ruby -Ks search.rb")
WScript.Echo "検索結果：" & objExecCmd.StdOut.ReadAll

319:名無し~3.EXE
06/12/17 11:44:36 H95I1sD8
rubyw.exe

320:名無し~3.EXE
06/12/17 14:04:16 A0dC8xU5
>>319 ギガ㌧㌧㌧！

321:スレッドを超えたコテハン
06/12/17 15:02:58 EP+mDiGm
WSCの場合は、プロパティで定数を公開して、wsc.nameで定数を参照したほうが、
衝突の心配がないし、WSFだけでなく、VBSやJSでも使えてよさそうですが、
もし、nameだけで、参照したいときは、WSC側でreferenceメソッド作って、
function reference(Me){
Me['xxx']=111;
Me['yyy']=222;
}
VBS側で
wsc.reference me
WScript.Echo xxx
JS側で
wsc.reference(this);
WScript.Echo(xxx);
とすれば、WSFだけでなく、VBSやJSからも使えます。

322:名無し~3.EXE
06/12/18 14:59:23 P40MScLH
WSHでIEオブジェクトを作成してそれのProcessIDを取得する方法を教えて欲しいのですが。

今は下記の手順でブラウザにキー送信をしていますが、「タイトルの文字列」が変更した場合には通用しません。
なので、ProcessID指定で確実にSendKeysをしたいのです。
InternetExplorer.Application + ProcessIDでぐぐっても見つけられませんでした。
よろしくお願いします。

Set IE = WScript.CreateObject("InternetExplorer.Application","IE_")
Set sShell = WScript.CreateObject("WScript.Shell")
sShell.AppActivate("ブラウザのwebページのタイトル文字列")
sShell.SendKeys "ほげほげ"

参考にしたページ
URLﾘﾝｸ(www.atmarkit.co.jp)
＞　一方のプロセスIDは、Execを使って起動したプログラムでは、WshScriptExecオブジェクトのProcessIDプロパティから取得できる。

323:名無し~3.EXE
06/12/19 21:38:05 4I7Im65l
マルチするならせめて一言断り入れとけよ。あとリンク。

つか IE オブジェクト使うなら大凡の操作は可能だと思うのだが。わざわざ SendKeys 使わんでも。

324:名無し~3.EXE
06/12/20 02:32:54 mM03wtmE
>>323
ファイルの指定したいんじゃないかな？
予想だけど。

>>322
<input type="file">以外の入力をしたいのなら、SendKeysなんて不安定なもの使わなくても
Document.Allで取得したHTML要素のオブジェクトを直接操作できるよ。
DHTML関係で調べると情報が見つかると思う。

<input type="file">だけはセキュリティだか何だかで値を設定できないから仕方ないけど。

325:名無し~3.EXE
06/12/20 10:45:02 RqDSiDAq
>>324
そうです。
SendKeys "%(FA)"とかでセーブしたり印刷などダイアログ操作もしたいんです。

326:名無し~3.EXE
06/12/20 13:00:07 mrdk27Jg
>>322
WMI を使う。
URLﾘﾝｸ(www.microsoft.com)

327:名無し~3.EXE
06/12/20 14:15:14 RqDSiDAq
>>326
ありがとうございます。
IEが複数起動してた場合や別プロセスにチェックあった場合とかで試してレポートしますね。

328:名無し~3.EXE
06/12/20 19:15:52 AUSJGC40
あっちのスレで質問に答えてる人が、こっちのスレを見たらどう思うだろうね。逆はどうだろう。
マルチするやつは、想像力のかけらもない、人を思いやる事のできない、最低の人種。

329:名無し~3.EXE
06/12/20 21:56:05 hALWCcKZ
痛い人はっけん伝

330:スレッドを超えたコテハン
06/12/21 00:13:52 Agf2Nj7H
>>328
というか、マルチの問題は、回答者の善意が無駄に捨てられていることだと思う。
そして、それが、本人より、それを見ているひとを刺激するのだと思う。

331:名無し~3.EXE
06/12/22 15:58:35 JvRzts1c
パワーポイントに画像
1.jpg 2.jpg...
を並べて貼るのって自動化できないの？

332:名無し~3.EXE
06/12/22 23:04:54 jt8/BZlk
マクロ書けばいいんじゃないのか？

333:名無し~3.EXE
06/12/23 12:28:39 0ryoXlyK
html で書いて読み込みとか

334:名無し~3.EXE
06/12/23 14:14:29 N/gLsGdS
SendKeys()は？

335:名無し~3.EXE
06/12/26 16:17:49 MwEmWwE0
>>103
つ subst

336:名無し~3.EXE
06/12/26 19:21:31 YnXAl3Sk
質問させて下さい。

var obFS,obFOL,colFile;
var timestamp = "";

obFS = WScript.CreateObject("Scripting.FileSystemObject");
obFOL = obFS.GetFolder("f:\\");
colFile = obFOL.Files;

var x = new Enumerator(colFILE);

for(; !x.atEnd(); x.moveNext()){
timestamp = x.item().DateCreated
}

というコードを実行すると、
timestampに"Wed Nov 29 19:35:35 UTC+0900 2006"というようなのが返ってくるのですが、
ここからyyyymmddという形式の文字列を取り出すにはどうしたらよいのでしょうか。

337:名無し~3.EXE
06/12/26 19:23:16 YnXAl3Sk
↑環境はXPSP2、Windows Script5.6です。

338:名無し~3.EXE
06/12/26 19:55:35 TReychuT
>>336
Dateオブジェクトの扱い方について学びましょう。
リファレンスにも載ってますよ。

339:名無し~3.EXE
06/12/26 19:57:26 YnXAl3Sk
>338

var timestamp = new Date(x.item().DateCreated);
ですね。いろいろいじっていたら閃きました。

340:名無し~3.EXE
06/12/27 01:45:26 uErdji5h
既に開いてある IE のウィンドウのオブジェクトを、
子ウィンドウかどうかに関係なく所得するにはどうしたらいいでしょうか？

341:名無し~3.EXE
06/12/27 11:51:57 lsopXQRq
>>340
Set IEShell = CreateObject("Shell.Application")
num = IEShell.Windows.Count
For i = 0 to num - 1
WinName = IEShell.Windows.Item(i).LocationName
WinPath = IEShell.Windows.Item(i).LocationURL
Document.write "<tr><td>" & WinName & "</td>"
Document.write "<td>" & WinPath & "</td></tr>"
Next

こんなんでどお？

342:名無し~3.EXE
06/12/27 18:21:28 Z9+O0XhD
>>327
レポートはどうしたんだろう？

343:名無し~3.EXE
07/01/04 09:48:15 pQA4Aeed
少し前に､vbscriptをコンソール実行するのにcscript.exeに関連付けした.vbcというのを用意するという話があったけど
これと同じように.wsfのコンソール実行版として.csfをcscript.exeに関連付けしたいんだけど､どうしたらいい？

単純に%SystemRoot%\System32\cscript.exe "%1" %*じゃエラーになるし､//Eに何を指定したら良いのか解らずお手上げ状態
wsfにはcscript.exeも関連付けされてるが､右クリックメニューからの選択は煩わしいのでvbcみたいに既定関連付けにしたいし
cscript.exeで実行し直すスクリプト(>>294のvbs版のようなもの)を書いてみたりもしたけど､やはり関連付けしちゃったほうがスッキリするので

344:名無し~3.EXE
07/01/05 11:38:36 IRXk0L1E
普通に%SystemRoot%\System32\CScript.exe "%1" %*でいけるだろ?

ちゃんとREG_EXPAND_SZにしてるか?

345:名無し~3.EXE
07/01/06 22:39:45 5TwI70x6
>>344
.wsfをcscript.exeに関連付けするんじゃなくて.csf(独自拡張子)をcscript.exeに関連付けする場合ですよ
本当に%SystemRoot%\System32\CScript.exe "%1" %*でスクリプトとして実行される？

こちらはちゃんとREG_EXPAND_SZにしてるし､cscript.exeやwscript.exeに直接D&Dしても同じメッセージが出るので
パスはきちんと通ってるし､コマンドも渡ってる

346:名無し~3.EXE
07/01/07 02:58:46 Jlib32pI
>>345
D&Dならこれじゃないの。

[HKEY_CLASSES_ROOT\WSFFile\ShellEx\DropHandler]
@="{60254CA5-953B-11CF-8C96-00AA00B8708C}"

しかし、cscriptでD&Dとはこれ如何に…

347:名無し~3.EXE
07/01/07 06:47:22 bXPc+IQY
>>343
うちもエラーが出る。メッセージは↓だろ。
> ファイル拡張子 ".csf" を持つスクリプトエンジンはありません。
解決方法はわからん。

>>346
スクリプトファイルにD&Dしたいんじゃなくて､
｢スクリプトエンジンにD&Dしても同じエラーが出るから
関連付けのパスは間違ってないですよ｣ってことだろ。

348:名無し~3.EXE
07/01/07 14:19:39 sB9LNE5a
画像の容量やサイズを取得しJavaScriptで利用するにはどうしたらいいですか？

349:名無し~3.EXE
07/01/07 14:30:59 zkbC9oLK
>>348
>>3の doodle とか使えるんじゃない

350:名無し~3.EXE
07/01/07 17:31:26 F4E+azH/
'標準的なJPEGファイルの画像サイズ取得
GetJpegSize "sample.jpg", x, y
WScript.Echo "X=" & x & " Y=" & y
Function GetJpegSize(filename, ByRef x, ByRef y)
Set oStrm = CreateObject("ADODB.Stream")
oStrm.Open
oStrm.Type = 1 'adTypeBinary
oStrm.LoadFromFile filename
Do While (CvNum(oStrm.Read(1)) = &hFF)
Select Case CvNum(oStrm.Read(1))
Case &hD8 'SOI
Case &hD9 'EOI
Exit Do
Case &hC0 'SOF0
length = CvNum(oStrm.Read(2))
oStrm.Read(1)
y = CvNum(oStrm.Read(2))
x = CvNum(oStrm.Read(2))
Exit Do
Case &hDA 'SOS
Exit Do
Case Else
length = CvNum(oStrm.Read(2))
oStrm.Read(length - 2)
End Select
Loop
End Function
Function CvNum(bstr) ' BigEndian
For i = 1 To LenB(bstr)
CvNum = CvNum * 256 + AscB(MidB(bstr, i, 1))
Next
End Function

351:名無し~3.EXE
07/01/07 18:57:51 v/viW2rY
>>346
DropHandlerは既に設定してあるけど､問題はそこじゃないので

>>347
エラーメッセージはそれです

cscript.exe /?を見ても､//Eオプションの意味は書いてあるんだけど//Eオプションに設定出来る値とかは書いてないんだよね
.wsf形式は固定エンジンじゃないけど.vbcも//E無しで関連付けすると同じエラーが出て//E:VBSを付けると解決するから
これも//Eで解決しそうな気もするんだけど

352:名無し~3.EXE
07/01/17 20:07:13 0sN+rIEb
（･∀･∀･）
（･∀･）ｻﾃｵｼｺﾞﾄ･･･　　　　　　　　　　ε三三三三（; ･∀･）鯖ﾏﾃﾞｵﾂｶｲ
HTTP/1.1 304 Not Modified
（･∀･）（･∀･）ｵﾂｶｲｵﾜﾘ　三三三三３
（･∀･∀･）
（　´∀｀）　誰も書いてないよ
（･∀･）ｶﾝﾘｮｳ!!

353:名無し~3.EXE
07/01/19 16:29:22 e+OFGk5J
下のコードでVistaのファイルのプロパティ調べてみたら
266もあって笑った。
2000/XPだと40もなかったのに

--------------------------------
var WshShell = new ActiveXObject("WScript.Shell");
var oShell = new ActiveXObject("Shell.Application");
var oFol = oShell.NameSpace( "C:\\" );
var str= "";

for( var i = 0; i < 300; i++ )
{
　　　　str += i + ":" + oFol.GetDetailsOf( null, i ) + "\n";
}

WshShell.Popup( str );

354:名無し~3.EXE
07/01/19 18:26:35 QaLFoFFk
WSFはデフォルトをCScript.exeにする。
WScript.exeで動かしたいときは、ショートカット(.lnk)を作って
リンク先の頭にWScript.exeを入れる。

355:名無し~3.EXE
07/01/19 18:56:22 QaLFoFFk
>>348
>>356の要領で26,27,28がサイズ

356:名無し~3.EXE
07/01/19 18:58:08 QaLFoFFk
訂正
>>353の要領で26,27,28がサイズ

357:名無し~3.EXE
07/01/20 00:20:12 GPpR1ytY
>>353の

207:雰囲気

なんじゃこりゃ

358:名無し~3.EXE
07/01/20 02:42:29 ETgywjVO
envionment を直訳したのか？

359:名無し~3.EXE
07/01/20 12:57:54 N7R7pz3V
envionment (なぜか翻訳できない)

360:名無し~3.EXE
07/01/20 14:38:04 UE2i8MKk
//E:のエンジン名は可変だから、
ハードコーディングのcscript /?に書いてある訳ないわな
ヘルプぐらいででわざわざレジストリを検索するのも面倒だし

361:名無し~3.EXE
07/01/20 15:25:54 UE2i8MKk
>>359
ぐぐれ

362:名無し~3.EXE
07/01/20 16:16:36 XJ4mGjq5
>>359
つ r

363:Ｊscriptで
07/01/20 17:23:56 5Xd7S+Ct
Excel のブック中に、4月～３月のシート名を持つワークシートがあり、
各シート名内の数字が全角か半角かはあやしいものとする。

セルＡ6から下方方向に半角数字で日付が記入してあり
対応する日の’Ｃ'から'Ｇ'のセルに行事予定が記入してある。

今日も含めて3日分の予定を WScript.Echo で表示する。
エクセル.xls ファイルとJscript.js ファイルは、d:\1 フォルダ内に置く。

という条件で、とりあえず動くものを作りましたが、

ここを直した方がスクリプトが簡素になるよとか、
「今日も含めて3日」間が、月の境界の場合は無視しているので
その処理のアイデアとか
コメントを下さい。

URLﾘﾝｸ(a-draw.com)

364:名無し~3.EXE
07/01/20 20:34:48 8DNLMKa6
JScript使い始めて2日目のおいらが､勉強がてらリファレンス読みながら調べたことを書いてみる。

var XLS_FILE = WScript.ScriptFullName.replace(/\\[^\\]+$/, "\\sample.xls");
にすれば"d:\1"以外でも､同一ディレクトリにsample.xlsがあれば動く。

曜日はyday = "日月火水木金土".charAt(yday)の1行で済む。

正規表現使って(reはmonthから"^(?:10|１０)月$"のようなパターンを作る)
for(; !sub1.atEnd(); sub1.moveNext()){
　　if (sub1.item().Name.match(re) != null){
　　　　sh = sub1.item();
　　　　break;
　　}
}
という感じで対象シートを変数に取得しておけば､
while(sumSheatnc.indexOf("１")>-1){　～　sumSheatnc.indexOf("月"+month +"月")+1))).Select;
の約50行は不要だし
ExcelApp.ActiveWorkBook.ActiveSheet.Cells(i,3)　を
sh.Cells(i,3)　と書ける。
半角数字はcharCodeAt+65248をfromCharCodeすれば全角数字になる

更に
if (ExcelApp.ActiveWorkBook.ActiveSheet.Cells(i,3)>"") event+= ExcelApp.ActiveWorkBook.ActiveSheet.Cells(i,3)+" ";
以下の5行に相当するものが
event = new VBArray(sh.Range(sh.Cells(i,3),sh.Cells(i,7)).Value).toArray().join("\t").replace(/\t+/, " ");
の1行で書ける。(join(" ")でもいいと思うけど)

月越えの処理は､｢2007年month月date+1or+2日｣のgetMonthがmonthより大きければ次のシートに移る処理を書けば良いのでは？
2007/2/28の場合なら､2007/2/30を指定すれば2007/3/2を返すから､末日が何日かとか考えなくても月を越えたかどうか判断できる。
次のシートはWorksheets(sh.Index+1)って感じで取得すればいい。末尾シートの場合の例外処理をお忘れなく。

365:名無し~3.EXE
07/01/20 23:24:24 slWIhDIN
Excel上にVBAで書いたモジュールを
jsやvbsから呼び出す方法ってあるんですかね？
ぐぐってみたんですけど、わからんのですorz

366:名無し~3.EXE
07/01/20 23:42:48 Lkiodn1p
ネット中毒なっている若者はオナニーでもしておれ！！

367:名無し~3.EXE
07/01/21 14:39:38 fTYEC1jK
>>365
ｋｗｓｋ

368:名無し~3.EXE
07/01/21 16:02:19 ilBf4mqg
>>364
ありがとうございます。参考にさせて頂きます。

正規表現のところは、こちらの能力の限界で、今分かっても数ヶ月のちには屁理屈を忘れてしまいそうなので
ブラックボックスのまま置いておくか、wsh HELP ページや参考となるところのURL までコメントとして詳しく書き入れるか
どうしよう。

ここも人が少なくなりましたね。サンプルソースコードは、2,3日後には消しますね。
でわ。

369:名無し~3.EXE
07/01/21 16:11:18 eMwqitJ2
>>365
URLﾘﾝｸ(www.vector.co.jp)
とか参考にならん？

370:365
07/01/22 00:19:18 o8eRiI+8
>>369
返信ありがとうございます。

なんとか解決できないだろうかと、
会社の帰りに本屋でExcelマクロの本を読み漁って、
Application.run ってのが探してたものだとわかりました。
お手数おかけしました。

371:名無し~3.EXE
07/01/23 01:49:09 15EbuWWs
回避策はわかったのですが、
どなたか知っていたら教えてください。

<やりたい事>レジストリの値名が\から始まっているデータをRegReadで取得する方法
<環境>WinXP SP2 Pro/WSH5.6

<例>キー[HKLM\HARDWARE\DEVICEMAP\SERIALCOMM]
値名 \Device\Serial0
データ COM1
この場合は、「COM1」を取得したい

<やった事>RegReadで簡単に取得できるだろうと思ったのですが、全然取れませんでした。
<回避策>reg.exeからはデータの取得が可能

Set objWSH = WScript.CreateObject("WScript.Shell")
'RegReadで取得失敗した例
'WScript.Echo objWSH.RegRead("HKLM\HARDWARE\DEVICEMAP\SERIALCOMM\\\Device\\Serial0")
'WScript.Echo objWSH.RegRead("HKLM\HARDWARE\DEVICEMAP\SERIALCOMM\\\Device\Serial0")
'WScript.Echo objWSH.RegRead("HKLM\HARDWARE\DEVICEMAP\SERIALCOMM\\Device\\Serial0")
'WScript.Echo objWSH.RegRead("HKLM\HARDWARE\DEVICEMAP\SERIALCOMM\\Device\Serial0")
'WScript.Echo objWSH.RegRead("HKLM\HARDWARE\DEVICEMAP\SERIALCOMM\Device\Serial0")

'回避策
WScript.Echo objWSH.Exec("reg query HKLM\HARDWARE\DEVICEMAP\SERIALCOMM /v \Device\Serial0")

372:名無し~3.EXE
07/01/23 01:51:52 dZzOJZ4W
\は全部\\にしろ

373:名無し~3.EXE
07/01/23 02:01:31 4m7yBxl6
自己解決能力低すぎ
ぐぐればわかるだろうに

374:371
07/01/23 02:26:27 15EbuWWs
>>372
\でエスケープしてみたがダメだった。
値名が\以外なら、アッサリ取得できるのだが・・・

WScript.Echo objWSH.RegRead("HKLM\\HARDWARE\\DEVICEMAP\\SERIALCOMM\\\Device\\Serial0")
WScript.Echo objWSH.RegRead("HKLM\\HARDWARE\\DEVICEMAP\\SERIALCOMM\\Device\\Serial0")

>>373
すまん。ぐぐってもRegReadで取得する方法がわからかった。
WMIでならやれそうな気もするが、教えてくれまいか

375:名無し~3.EXE
07/01/23 02:53:05 rRUN1PnK
ググれば解ることとはいえ､\のエスケープ方法はMSDNやダウンロード版ドキュメントのRegRead項目にに書いておくべきだよな。

でもRegReadでの\のエスケープを覚えておくより､WMIの扱いを覚えていた方が身になるぞ。
\のエスケープは｢可能なこと｣だが､WScript.Shellのレジストリ操作はそれ以外に｢不可能なこと｣が多すぎる。
｢不可能なこと｣に直面したときにあたふたするよりは､WScript.ShellのRegRead､RegWrite､RegDeleteで出来ることも
全てWMIでやるようにしておいた方が遙かにいいだろ。数年前だとWIMの情報は少なかったが今はあふれかえってるし。

376:373
07/01/23 19:49:29 4m7yBxl6
ああ、勘違いしてたよ。
それなら俺もわからんわ。

wmiでやるならWin32_SerialPort*あたりだろ
サンプルなら
URLﾘﾝｸ(www.activexperts.com)
とかじゃない？

377:371
07/01/23 21:37:04 15EbuWWs
>>375、>>376
RegReadで\をエンコードする方法はあるんですね。
私はわからんかったので、
WMIのEnumKeysとEnumValueで実装し直しておきました。
レスサンクスでした。

次ページ