06/11/08 19:11:29 PcQgSeRB
うっしゅ
201:名無し~3.EXE
06/11/09 18:28:17 /TzE/TZH
既定のブラウザをIE5.01SP4とfirefox2(J) とに交互に切り替えるJscript を恵んでくださいな。
202:名無し~3.EXE
06/11/09 20:33:49 nGi8ytVm
>201
交互っつったって、どんなタイミングで切り替えるんだ？
既定ブラウザ自体はレジストリ変更でどうにかなりそうだが…
203:名無し~3.EXE
06/11/09 21:13:34 /TzE/TZH
（既定ブラウザを切り替えたいときに、机の上にある jscript ファイルをダブルクリックする。）
// 1 変数の初期設定
// 2 該当レジストリを読み出す。
// 3 既定ブラウザが IE だったら、とある変数に firefox2 を代入する。
// 4 既定ブラウザが firefox2 だったら、とある変数に IE を代入する。
// 5 既定ブラウザが上記以外だったら、とある変数に 逝ってよし を代入する。
// 6 とある変数が逝ってよし以外なら、 該当レジストリに書き込んで、とある変数 に切り替えましたと表示する。
// 7 とある変数が逝ってよしなら、とある変数をそのまま表示する。
こんな感じです。
204:名無し~3.EXE
06/11/09 21:48:39 qNCmXvkB
何にしてもここは｢スクリプトの作成を依頼するスレ｣じゃないからね。
自分で作る気が無いなら帰れってことになる。
205:名無し~3.EXE
06/11/09 23:00:35 /TzE/TZH
じゃ帰りまつ。
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で実装し直しておきました。
レスサンクスでした。
378:名無し~3.EXE
07/01/24 01:03:32 ww8gbHgn
だれか教えて下さい。
WSHでマウス移動の自動化って出来るんですか？
キー送信の自動化とか出来るんですか？
ディスプレイカラーの値を読み込む事って出来るんですか？
プリントスクリーンみたいな画像保存って出来るんですか？
379:名無し~3.EXE
07/01/24 01:59:45 Yau2S1mD
できる。
できる。
意味不明。
できる。
380:名無し~3.EXE
07/01/24 03:40:31 eGutPL5I
RegReadの代替、こんなのも
Set Installer=CreateObject("WindowsInstaller.Installer")
WScript.Echo Installer.RegistryValue(2,"HARDWARE\DEVICEMAP\SERIALCOMM","\Device\Serial0")
381:名無し~3.EXE
07/01/24 07:39:03 7G/RPQuZ
ありがとうございます。
ディスプレイカラーの値を読み込む事って出来るんですか？
→24ビットカラーのRGBの値です。
382:名無し~3.EXE
07/01/28 18:16:25 bulVaiB4
>>375
>でもRegReadでの\のエスケープを覚えておくより､WMIの扱いを覚えていた方が身になるぞ。
>\のエスケープは｢可能なこと｣だが
ほんと？聞いたことないな～
383:名無し~3.EXE
07/01/28 20:31:04 t8jFe24C
var str=prompt("str1","str2");
の代わりになるものが欲しいのですが、何かいい方法はないですか？
384:名無し~3.EXE
07/01/28 20:48:56 ce6F4Ah9
どういう時に何が欲しいのかさっぱりだ
385:名無し~3.EXE
07/01/28 23:02:41 Jx0Q5hq7
IEでは window.prompt が使えるけど WSH では使えないって
話じゃないか？
VBScript だと InputBox 関数が使えるが、JScript だと
相当するメソッドはない。
386:名無し~3.EXE
07/01/29 03:01:15 RMea5nPo
そんなときはIEオブジェクト作ってprompt使う
387:名無し~3.EXE
07/01/29 03:48:33 Zhbkzilw
wsfにしてvbscriptで関数書いたらだめ？
<job id="main">
<script language="VBScript">
Function vbinput( mssg, defi )
vbinput = InputBox( mssg, WScript.ScriptName, defi )
End Function
</script>
<script language="JScript">
function prompt( msasg, defd ) {
if ( !msasg ) msasg = "";
if ( !defd ) defd = "";
return vbinput( msasg, defd );
}
</script>
<script language="JScript">
388:名無し~3.EXE
07/02/02 14:06:21 io3AcPQD
htaでのjsでEnumeratorってつかえないの？
389:名無し~3.EXE
07/02/02 17:19:48 2buUxDcl
つかえとるがな。
390:名無し~3.EXE
07/02/02 17:30:37 l8a6AAPU
スレ違いと思うが、Enumeratorが使えるかどうかは、
コレクション側の仕様。HTMLでは使えないコレクションが多い
てぇことじゃないの。インデクス使え。
391:名無し~3.EXE
07/02/02 19:04:18 io3AcPQD
>>389-390
なるほど。
じつは、ファイル挙列したかったんだ。
インデックスつかえるのかー。ちょっとやってみる。
392:391
07/02/02 19:26:54 io3AcPQD
うーん。ファイル数はあってるんだけど。
なんでVBSのfor eachはできるのにjsはできないんだろう・・・。それとも、また勘違いなのか。。。
一応残骸をはってみるけど、あきらめたーー！
function EnumFileName(path){
var Names = new Array();
var Fso = new ActiveXObject("Scripting.FileSystemObject");
var Fo = Fso.GetFolder(path);
// alert(Fo.Files.Count);
var i=0;
for(var i=0;i<Fo.Files.Count;i++){
var Fi = Fo.Files[i];
Names.push(Fi.Name);
}
return Names;
}
393:名無し~3.EXE
07/02/02 19:34:39 2buUxDcl
>>392
<html lang="ja"><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>quote</title><script type="text/jscript"><!--
while (1){ try{ resizeTo( 0, 0 ); break; } catch(e){} }
//--></script><HTA:APPLICATION id="hta" border="none" /><script type="text/jscript"><!--
//配列とオブジェクトの宣言
var strCmdLine = hta.commandLine, strHTADir
if ( strCmdLine.indexOf('"') == 0 ) strHTADir = strCmdLine.match( /"(.+?)[^\\]+?"/ )[1];
else strHTADir = strCmdLine.replace( /[^\\]+?(?: .+)?$/, "" );
var objSFS = new ActiveXObject("Scripting.FileSystemObject");
var list = new Array();
var inFiles = objSFS.GetFolder(strHTADir).Files;
//こうするとコレクションのすべての要素に対する繰り返しができるらしい
var enumInFiles = new Enumerator(inFiles);
while ( !enumInFiles.atEnd() ) {
list.push( enumInFiles.item().Name );
enumInFiles.moveNext();
}
//まとめて出力
var dialogMessage = new String( inFiles.count );
for (i in list) dialogMessage += "\n" + list[i];
alert( dialogMessage );
close();
//--></script></head><body></body></html>
学習用にスクリプトと同じディレクトリ内のファイルを列挙するWSHを作ったのが残ってたのでHTAにしてみた。
参考になるか知らないが。whileのところはforでもおｋ。
394:Adrienne ◆HI8ebVe8lo
07/02/02 19:50:11 fKLh6VfE
>>392
（ちょっと、>>393とかぶるけど）
7行目の var i=0; は不要。
それに、JScriptではforステートメントの制御変数は宣言しないのが流儀。
for( i=0; i<Fo.Files.Count; i++ )でOK.
↓みたいな感じでやるといいよ～
var fso = new ActiveXObject("Scripting.FileSystemObject");
var f = fso.GetFolder(path)
var fc = new Enumerator(f.files);
var names = new Array();
for (; !fc.atEnd(); fc.moveNext()){
names.push( fc.item() );
}
395:Adrienne ◆HI8ebVe8lo
07/02/02 20:08:35 fKLh6VfE
var f = fso.GetFolder(path); // →正
var f = fso.GetFolder(path) // →誤：文終了子がない
ね。わざわざ訂正する必要もないと思うけど、一応。
396:名無し~3.EXE
07/02/02 20:14:21 pU/AdnT5
i をグローバルで使うのってどこの流儀？
397:Adrienne ◆HI8ebVe8lo
07/02/02 20:29:13 fKLh6VfE
>>396
function test(){
for( i=0; i < 5; i++ ){
}
}
WScript.Echo( i );
試しに↑を走らせてみて。6行目の i は宣言されていないとエラーが出るはず。
つまり、for文の制御変数は宣言なしでも暗黙でローカル変数として扱われるということ。
もちろん、どうしても気持ち悪いなら for( var i=0; ……と書いても構わない。
398:392
07/02/02 21:33:58 io3AcPQD
>>393-395
おまえら！ほんとうにありがとう。できました！
後はエラーチェックとか必要に応じて追加すれば完了だ！！
で、以下のようになったよ。
function EnumFileName(path){
var Names = new Array();
var Fso = new ActiveXObject("Scripting.FileSystemObject");
var Fo = Fso.GetFolder(path);
var EnFiles = new Enumerator(Fo.Files);
// alert(Fo.Files.Count);
var i=0;
for(; ! EnFiles.atEnd();EnFiles.moveNext()){
Names.push(EnFiles.item().Name);
// alert(EnFiles.item().Name);
}
return Names;
}
399:名無し~3.EXE
07/02/02 22:56:36 4UL0tw6S
Enumerator の作成を for の初期化節でやるのって少数派なんだろうか
for (var e = new Enumerator(list); !e.atEnd(); e.moveNext()) {
400:名無し~3.EXE
07/02/02 23:04:02 2buUxDcl
省略が好きな人はやるんじゃない？
自分の場合はそのときの気分。
401:名無し~3.EXE
07/02/02 23:07:19 KzBlSYpP
htmlをぶっこ抜く時に
１．CreateObject("MSXML2.XMLHTTP.4.0")
２．CreateObject("InternetExplorer.application")
とかあると思うんだけど、君らならどっち使う。
それとそれぞれのメリット・デメリットあれば教えて下さい。
402:名無し~3.EXE
07/02/03 00:12:55 ZQXI4k07
>>397
あまり知ったかはしない方がいいよ。ボロが出るから。
> つまり、for文の制御変数は宣言なしでも暗黙でローカル変数として扱われるということ。
実行コンテキストが違うからだろ。
悪いことは言わん、スコープチェーンの勉強でもして出直して来い。
ちなみに>>398の var i=0; はマジで余計だな。単なる消し忘れだろうけど。
403:名無し~3.EXE
07/02/03 00:26:29 ZQXI4k07
いや、俺は俺で変なこと書いてるな。
>>397の例で、最終行で i を参照出来ないのは
そもそも関数 test() を1度も呼び出していないからだよ。
試しに
function test(){
for( i=0; i < 5; i++ ){
}
}
test();
WScript.Echo( i );
でやって味噌。これでもエラー出る？
この時 i は立派にグローバル変数になっているよ。
スクリプト中のどこからでも参照出来る。
404:Adrienne ◆HI8ebVe8lo
07/02/03 00:44:08 yTQ/iH6h
>>403
試しに
var i=100;
function test(){
for( var i=0; i < 5; i++ ){
}
}
test();
WScript.Echo( i );
でやってみた。うん、明らかにグローバルになってるね。一つ利口になった。ありがとう。
ってか、ドキュメント等で悉く宣言省略されてるから無意識にローカル変数になるものと思ってたよ。
なんか、自宣言省略できたり勝手に型変換されたりといったJScriptの仕様は、
逆に難解だよね。
405:名無し~3.EXE
07/02/03 03:11:51 pDHMAoqQ
>>404
「変数の宣言を明示的に行わなければグローバル変数になる」と覚えておけば
問題ないよ。
ややこしいのは for なんかのブロック内で宣言したとき。JavaScript では
変数のスコープはグローバルか関数内かの２つしかない。
（最新版では違うらしいけど。）
for(var i=0; ... みたいにブロック内で var を書いても、これは関数あるいは
スクリプトの先頭でvar したのと同じこと。
>ドキュメント等で悉く宣言省略されてるから
は、宣言したらブロック内スコープを持つものと開発者が勘違いしてバグるの
を心配してのことかも。
横着するには便利んだけどね。関数内で for ループ書くときに、いちいち
関数の先頭でカウンタ変数を宣言しないですむから。
406:名無し~3.EXE
07/02/03 03:36:27 5xiUQTdM
letが使えんからな。
407:名無し~3.EXE
07/02/03 20:43:52 In8o1+SV
匿名関数の中から外部のローカル変数を参照してるクロージャとかもややこしい。
408:名無し~3.EXE
07/02/04 09:01:18 pYYZVU6i
MSXML2.XMLHTTPで
Open "GET", URL, True
と非同期実行した場合､readyStateで通信状態を取得できますが､これをWinHttp.WinHttpRequestで
実行した場合､通信状態はどのようにして取得したら良いのでしょうか？
主要なメソッド､プロパティは共通のようですが､readyStateに該当するものが見つけられずに困ってます。
OSはWindowsXP SP1､WSHは5.6､WinHttp.WinHttpRequestは5.1です。
409:名無し~3.EXE
07/02/04 13:16:16 XUYfkIsH
試してないしドキュメントにもどうなるのか書いてないけど、
WaitForResponse をタイムアウト 0 で呼び出してみるとか？
410:名無し~3.EXE
07/02/04 14:49:19 /70Bq45h
誰か>>401お願いします
411:名無し~3.EXE
07/02/04 16:38:11 Lw9wofTu
>>410
2だと画像などの付属品もダウンロードしてしまう。
412:名無し~3.EXE
07/02/04 21:47:54 MbUYtnwe
こんちわー。
htaで揮発性環境変数（PATH）の設定をするために以下のようにコードを書きました。
ネットを回って得たものなので根拠とかが欠落してます。＠＠；
それで、ですね。
tagに環境変数名をいれてParhに場所を記述したものをOSに登録したいのですが、下のコードではうまくいきませんでした。
どのように書けばうまくいきそうですか？
function AddSystemPath(tag,path){
//var WshShell = WScript.CreateObject("WScript.Shell");
var WshShell = new ActiveXObject("WScript.Shell");
var WshEnv = WshShell.Environment("VOLATILE");
if( tag.toUpperCase() == "PATH" ){
WshEnv.Item(tag) = WshShell.ExpandEnvironmentStrings("%Path%") + ";" + path;
}else{
WshEnv.Item(tag) = path;
}
}
これができたら次のステップにいけるんですー。
作ってるのは簡易版GUI似非Makeです。
413:名無し~3.EXE
07/02/04 22:12:37 JVVlKIId
>>411
1.だとhtml以外は取得しないということですね。ありがとうございます
414:名無し~3.EXE
07/02/04 23:37:47 3x53LZg+
>>412
よくわからんが、
pathに登録したいならレジストリ直接弄ればよいんじゃね？
415:名無し~3.EXE
07/02/05 00:29:38 vT9R2Dhh
>>414
うわ。それは勘弁してください。
"VOLATILE"指定すれば、遺恨も残らないということらしいので、便利だなーとおもったんですけど。
うーん、前途多難ですねぇ。基本機能はほぼできててあとこれだけなんですよ。
まぁ、いいや。またきます。
おやすみなさいー。
416:名無し~3.EXE
07/02/05 00:37:29 xw+mOdqs
勘弁も何も一番簡単だろ。
417:名無し~3.EXE
07/02/05 01:22:47 fqy0z/kI
揮発性の意味・意義をわかってない奴がいるな
418:名無し~3.EXE
07/02/05 01:59:52 ybbbBATF
揮発性環境変数も保持される場所はレジストリであることを知らないのかな？
419:名無し~3.EXE
07/02/05 02:19:32 xw+mOdqs
HKEY_CURRENT_USER\Volatile Environment
420:名無し~3.EXE
07/02/05 02:54:38 xw+mOdqs
function AddSystemPath(tag,path){
var WshShell = new ActiveXObject("WScript.Shell");
var WshEnv = WshShell.Environment("VOLATILE");
WshEnv.Item(tag) += ";" + path
}
いろいろやってみたけどこれで十分じゃね？
421:名無し~3.EXE
07/02/05 03:40:16 ttc4Lfai
>>412
MSDN見たら、PATHとかの予約されてる環境変数はVolatileは
使えないと書いてある。
URLﾘﾝｸ(msdn.microsoft.com)
けど、今試したらうまく動いた。(WinXP)
しかもわざわざ既存のPATHに追記しなくても、追加したいパスを指定
するだけでマージされる。
（考えてみればSystemとUserのPATH環境変数もそんな関係だ。）
うまくいかないのは、すでに動いてるプロセスに反映させたいと思ってるから
とかではない？
SystemだろうがVolatileだろうが、環境変数の反映は新しいプロセス
から有効だよ。
422:名無し~3.EXE
07/02/05 16:49:35 vT9R2Dhh
>416-421
皆さんありがとう！
えっと、VOLATILEでもレジストリに登録されるのは知りませんでした。
>>420をやってみたところ、>>419の場所に登録はされてるんですけど、
>>421にあるように、登録したHTAには反映されてないのかもしれません。
Terapadで書いてはメニューから起動って感じにやってるんですけど・・・。
あ！ってちょっと実験・・・。うげ！できた。
……なんか、起動もと（Terapad）のPath設定を受け継いでたみたいです。。。
エディタ再起動したらうまくいきました。なんてこった。
結局>>421の"すでに動いてるプロセスに反映させたいと思ってるからとか"の部分でした。
お騒がせしました。
・・・しかし、これはちょっと不便だなー。
423:名無し~3.EXE
07/02/05 19:47:41 0J0/Livg
普通に bat に書き出して実行した方が早いんじゃないかな・・・
424:422
07/02/05 21:50:23 vT9R2Dhh
結局それがベターなのかなー。
車輪を知るには車輪を再発明するのが一番！とかわけのわからんことをのこしつつ、
そっちの方向を模索してみますー。スクリプトいじりすぎて動かなくなったことだし。。。＠＠；
さて、皆さんどうもありがとう。；D
425:422
07/02/05 22:45:24 vT9R2Dhh
ああそうそう。
危険な残骸ほしい人います？
URLﾘﾝｸ(kansai2channeler.hp.infoseek.co.jp)
超危険だしめちゃくちゃ汚いから、扱いには注意してください。
そういうわけでまたどこかで！
426:名無し~3.EXE
07/02/07 16:45:15 AYyF197a
xmlhttpでsetRequestHeaderでIf-Modified-Since付けてsendすると何十分経っても応答こないサイトがあるんだけど、なんで？
427:名無し~3.EXE
07/02/07 20:48:05 CeKP5txc
URL プリーズ
428:名無し~3.EXE
07/02/07 21:51:07 0PYxyQ85
ダウンローダ対策かな
429:名無し~3.EXE
07/02/08 13:22:42 R1J4DUrt
「Volatile」（「揮発性の」という意味）は、現在のログオン・セッションのみに適用さ
れる。名前が示すとおり、Volatile環境変数は一時的に使われるもので、ログオ
ン中のユーザーがログオフしたり、コンピュータを再起動したりすると、変更した内
容は変更前の内容に戻る。
430:名無し~3.EXE
07/02/08 16:44:18 d3kjRTBg
で？
431:名無し~3.EXE
07/02/09 11:30:07 fnbavqX5
>>430
「Process」は、現在のプロセスにのみ適用される環境変数である。Process環境変数は、
コマンド・プロンプトが終了するなど、現在のプロセスが終了すると、変更内容が元に戻る。
変数 System User Volatile Process
NUMBER_OF_PROCESSORS ○ × × ○
PROCESSOR_ARCHITECTURE ○ × × ○
PROCESSOR_IDENTIFIER ○ × × ○
PROCESSOR_LEVEL ○ × × ○
PROCESSOR_REVISION ○ × × ○
OS ○ × × ○
COMSPEC ○ × × ○
HOMEDRIVE × × ○ ○
HOMEPATH × × ○ ○
PATH ○ × × ○
PATHEXT ○ × × ○
PROMPT × × × ○
SYSTEMDRIVE × × × ○
SYSTEMROOT × × × ○
WINDIR ○ × × ○
TEMP × ○ × ○
TMP × ○ × ○
環境変数の種類と利用できる変数（○＝利用可、×＝利用不可）
432:名無し~3.EXE
07/02/09 12:21:51 Z70kHm//
で？
433:名無し~3.EXE
07/02/09 16:47:48 /+8ALF64
コピペばかりで何が言いたいやら。
434:名無し~3.EXE
07/02/11 00:58:40 XFBIDHB0
おいらみたいなスクリプトをちょっといじるだけの人間には逆にありがたいが・・
検索してもちゃんとわかりやすく解説してるサイトとかなんか見かけないし(;´д｀)
WSHのドキュメントには>>431みたいなこれが使える使えないの表とよく分からんコメントがちょろっとしかないし
435:名無し~3.EXE
07/02/11 12:30:23 tgvQIzzh
検索の能力が無いんじゃないか？
URLﾘﾝｸ(www.microsoft.com)
436:名無し~3.EXE
07/02/11 14:17:35 83xaTx2C
おせーてください。
var A = new Date(); ってやると
DateオブジェクトのインスタンスへのポインタがAに格納されるのかなと
思ってるんです。
だからもう一回
A = new Date(); をやると
新しいDateオブジェクトのポインタがAに入りますよね。
ということは１回目のDateオブジェクトの確保されたメモリの開放は
されてないんじゃないの？と思ったわけです。
メモリの開放はする必要はないのでしょうか？ そもそも認識誤り？
ループで数万回newを実行するのが怖い・・。
437:名無し~3.EXE
07/02/11 15:10:40 XTg9OO+A
>>436
やってみれ
438:名無し~3.EXE
07/02/11 15:41:54 jfeZcFaS
>>435
そんな入り口じゃなくてSystemとUserとVolatileとProcessの違いを書いてるところを直接貼れですぅ
それかおまいがさっさとSystemとUserとVolatileとProcessの違いを「素人に毛が生えた程度のヤツにも」「わかりやすく」教えやがれですぅ
439:名無し~3.EXE
07/02/11 15:58:54 83xaTx2C
>>437
やってるんですよ、でリソースエラーで落ちてるんで
コードを見直しすと
もしかしてこのせいではと思ってるんです。
MSのサイトみてもdestroyメソッドなんてないし・・・
440:そのまま System User Volatile Process でググレ、カス。
07/02/11 16:29:15 tgvQIzzh
>>438
ググルこともできない奴は、「 あ き ら め れ 」
441:名無し~3.EXE
07/02/11 22:42:10 gLg6x3i4
>>436
参照が外れた時点で自動的に解放されるので大丈夫。
while (true) {
var A = new Date();
}
とか実行してみればわかるけど、メモリ使用量は増えずに一定。
ただし、
var A = [], i = 0;
while (true) {
A[i++] = new Date();
}
とかやったら、いつまで経ってもオブジェクトは解放されず、
メモリ使用量はガンガン増える。
442:名無し~3.EXE
07/02/11 23:18:15 GhIBrlc6
>>436
GCは自動
強制的にnull代入したり、deleteする必要があるのはまれ
443:名無し~3.EXE
07/02/12 02:04:02 3LVpBfdW
なんでここで GC の話がでてくるんだろうか...。
444:名無し~3.EXE
07/02/12 02:08:09 QgYwe6Xo
>>439
HTAでかけるならHTAで書いてみてみ。
実行速度云々のダイアログが出るなら何か間違ってるから。
445:436
07/02/12 08:05:03 731Di+ID
いやー、皆様ありがとうございます。
441さんのやり方でテストもしてみて確かに増えないですよね。
参照がはずれると自動開放ということで安心しました。
ということは、他の部分で落ちているということですので
444さんの教えどおりHTAで書いて試してみます。
助かります！
446:名無し~3.EXE
07/02/12 11:53:33 9qzGp9MR
>>443
勉強が足りない
447:名無し~3.EXE
07/02/12 12:00:38 0DSgfs+L
>>443
参照されていないオブジェクトのメモリを回収するのは
GCのお仕事だからだよ。
448:名無し~3.EXE
07/02/12 12:03:44 gVWGPkUz
GC を任天堂のゲーム機だと思ってしまった、とか
449:名無し~3.EXE
07/02/12 12:04:57 QgYwe6Xo
がべぃじこれくたー
450:名無し~3.EXE
07/02/12 17:24:26 Zi22y/xv
WSH、得意なのはバッチ代わり？
ちゃんとしたアプリは作れない？
んなことなくてVBで作れるようなものはたいがい作れる？
GAMEとかシューティングのようなものとか。
451:名無し~3.EXE
07/02/12 17:41:02 gVWGPkUz
まあ止めといた方が良いだろう
452:名無し~3.EXE
07/02/12 17:56:40 Zi22y/xv
ぶっちゃけ、これでGAMEとかRPGとか作れるのかなあと。
453:名無し~3.EXE
07/02/12 18:02:05 Zi22y/xv
>>451
レスありがとう。更新しなくて書いたのですれ違いすいません
これってある意味無料だから、修得したら便利かなって。
GAMEが作れるなら、シューティングとかRPGが作れるなら、たいがいのものは
作れるだろうと思ったんですよ。
GAMEにかぎらず、ちょっと目立つようにJPGを重ねたり動かしたりとかいうのは
良くあるでしょうから。
やめといたほうがいいんですね 有り難う御座いました
454:名無し~3.EXE
07/02/12 18:06:21 hmPAvRl0
>>450
jsやvbsなどのスクリプト言語でGUIツール使いたいならWSHではなくHTAの方がいいよ。
｢GAMEとかシューティングのようなもの｣というのがどの程度のものを想定してるのか知らないが
HTAならスキル次第でそこそこのGUIツールが作れる。WSHでもIEのインスタンス作ればどうにかなるけどね。
455:名無し~3.EXE
07/02/12 18:09:35 9qzGp9MR
>>453
できるけどEXEのほうが高速かつ無難
玄人じゃないと高速なゲームを作るのは難しい
JavaScript製のブラウザゲームがどの程度、同内容のEXEのゲームと張り合えているのか考えるとよろし
456:名無し~3.EXE
07/02/12 18:19:38 gVWGPkUz
VS すら無料の時代だぜ？
457:名無し~3.EXE
07/02/12 19:25:32 3LVpBfdW
>>447
論点はそこじゃないだろ。
しょぼい知識を披露したかったのか？ (w
458:名無し~3.EXE
07/02/12 19:36:20 WOrUc4U6
ろっ、ろんてんはどこなの～～？？
459:名無し~3.EXE
07/02/12 21:20:57 PkhDhK5r
オレ論点 w
460:名無し~3.EXE
07/02/12 21:28:27 QgYwe6Xo
ガベージコレクションは自動。って書いてりゃ良かったのだろう。
>>441と本筋は同じだすね。がべーじこれくたーってのを説明にまじぇただけで
461:名無し~3.EXE
07/02/13 02:30:05 Ep5PwYrj
意外と知られていないが、Microsoft JScript には
undocumented な CollectGarbage() なる関数が存在する。
ただ、よっぽどのことでもない限り、使用すべきではないでしょう。
(通常、生涯使う機会がないと思うけど)
URLﾘﾝｸ(support.microsoft.com)
URLﾘﾝｸ(support.microsoft.com)
462:名無し~3.EXE
07/02/13 02:36:55 Ep5PwYrj
> 関数
メソッドですた。
463:名無し~3.EXE
07/02/13 03:57:12 3QRyx/IL
なんかJavaScriptでFPS作るデモがあったような気がするが
464:名無し~3.EXE
07/02/13 10:24:15 h83QHOwZ
>>454
>>455
レスありがとう！
PDAのスマートフォンであるX01HTやシグマリ3やW-ZERO3で
動くWSH方式のNSBASICというのがあるんですよ。これがほとんどWSHと
文法も同じ。だからWSHを覚えようかなあと。WindowsCE上でも開発できるし。
GAMEを作るにしても作るレベルは、昔MSXで作っていたレベルです。出来れば
当時は線画で3DRPGやシューティングを作っていましたが、これをRPGなら面画で3Ｄ表示
できればいいなあと。
市販するとかシェアウエアレベルのものなんて求めていないですから、
当時のBASICなみに気軽にサンデープログラミング出来るのかなあとWSHが。
その程度のものなら出来るというのであれば、WSHアマサンデープログラマーの仲間入り
したいんですが。長々とすいません。
465:名無し~3.EXE
07/02/13 10:25:52 h83QHOwZ
ぐぐってみたんですが、WSHの入門サイトは引っかかったんですが
作った作品のスクリーンショットを公開してるサイトがめっからなくて。
だからWSHがどのくらいの目安を持っているのか、分からなかったんですよ
466:名無し~3.EXE
07/02/13 12:32:37 XbSpjXDZ
そりゃWSHのGUIってメッセージボックス程度しかないから
スクリーンショットを公開してるとこはないだろうね。
467:名無し~3.EXE
07/02/13 13:40:11 RyIkaJG+
メッセージボックスで何か作れる？
468:名無し~3.EXE
07/02/13 14:43:18 7IiMzH02
「はい」の時に[いいえ]ボタンを、「いいえ」の時に[はい]ボタンを押す、
メッセージボックスによる反射神経ゲーム。
var max = 10; // 回数。
var objWSHShell = WScript.CreateObject("WScript.Shell");
var arr = new Array("はい", "いいえ");
var answer, rnd, i;
var time = (new Date()).getTime();
for (i = 0; i < max; i++) {
rnd = (Math.random() + "").substr(2, 1) % 2;
answer = objWSHShell.PopUp(arr[rnd], 0, "[ はい / いいえ ] 反射神経測定", 36);
if (rnd + answer != 7) break; // お手付きにつきゲーム終了。
}
if (i == max) { // 全問正解。
WScript.Echo("全問正解！\n\n掛かった時間: " + ((new Date()).getTime() - time) / 1000 + "秒");
} else { // お手付き。
WScript.Echo("お手付き！\n\n成功回数: " + i);
}
469:名無し~3.EXE
07/02/13 16:34:20 RyIkaJG+
>>468
4.469でした
470:名無し~3.EXE
07/02/13 20:28:04 OHI0QKKv
なにげに良展開あげ
471:名無し~3.EXE
07/02/13 22:00:53 RyIkaJG+
「3 < 7-5」みたいな式が正しいかを答える
var max = 5;
var WshShell = WScript.CreateObject("WScript.Shell");
var getX = [function () {return String(Math.floor(Math.random()*9)+1);},
function () {return this[0]()+(Math.floor(Math.random()*2) ? " + " : " - ")+this[0]();}];
do {
var time = new Date().getTime();
for (i=0; i<max; i++) {
var question = getX[Number(i>3)]()+" < "+getX[Number(i>1)]();
var answer = WshShell.PopUp("この式は正しい？\n\n"+question, 0, "不等式", 36);
if (answer == 7 == eval(question)) break;
}
} while (WshShell.PopUp("( "+i+" / "+max+" ) "+(i == max ? "全問正解！" : "お手付き！")
+"\n経過時間: "+((new Date().getTime()-time)/1000)+"\n\nまだ続ける？", 0, "Result", 36) == 6);
472:名無し~3.EXE
07/02/14 20:44:58 R5pO5sAJ
ダブルクォーテーションを文字としてコマンドライン引数に渡し、
"ARG ARG"
となることを期待して
cscript example.vbs "\"ARG ARG\""
と実行したのですが、
WScript.Arguments(0)が勝手にダブルクォーテーションを削除しているのか、
ARG ARG
としてしか受け取れません。
もうよくわからず、
cscript example.vbs "\"\"ARG ARG\"\""
などとして二重にしてみたりしたのですが当然だめでした。
ものすごく初歩的なことな気がするのですが、検索しても解決できません…。
どなたかお教えいただけないでしょうか。
473:名無し~3.EXE
07/02/14 20:49:03 eKYTLQYh
^
474:名無し~3.EXE
07/02/14 20:56:11 R5pO5sAJ
>>473
おお、素早い返事ありがとうございます。
最初はキャレットでエスケープしたのですがだめでした。
また、結果の表示を間違えて書いてしまいました。
詳しく状況を説明すると、
WScript.Echo WScript.Argument(0)
WScript.Quit()
という、example.vbsを作成し、コマンドラインから
cscript example.vbs "\"ARG ARG\""
を実行すると「\ARG」と表示されます。
また、この円マークをキャレットに変更すると「^ARG」と表示されます。
単純にダブルクォーテーションが削除されて、空白で区切られてしまっているように見えます。
475:名無し~3.EXE
07/02/14 21:45:33 BFGnaiNb
プレフィックスエスケープではなくエンコードエスケープすれば良いのでは？
可逆で有ればなんでも良いわけだが､全体変換ではなく部分変換なら実態参照がいいかも。単純にやるなら
実行：cscript example.vbs ""ARG ARG""
変換：WScript.Echo Replace(WScript.Arguments(0), """, """")
更に"を&"でエスケープ出来るようにするなら､組み込み関数のReplaceではなく
正規表現で｢s/(?<!&)"/"/g｣だな。但しVBScript.RegExpでは後読み｢(?<!…)｣が使えないので
VBScript.RegExpでやるとすれば｢s/(^|[^&])"/$1"/g｣って感じかな。
引数の中に'が使われないとするなら
実行：cscript example.vbs "''ARG ARG''"
変換：WScript.Echo Replace(WScript.Arguments(0), "''", """")
でもいいし。
ただ､WshShellのRunなどで使うだけなら､普通に"ARG ARG"を渡して､
スペースが含まれてたら""で囲う処理を用意した方が良いと思うけど。
476:名無し~3.EXE
07/02/14 22:12:22 R5pO5sAJ
>>475
おおなるほど、別の文字を変換するのですか。
ついダブルクォーテーションを渡すことばかり考えてしまいました。
実体参照では見通しが悪りそうなので、
シングルクォーテーションを重ねる方法を頂きたいと思います。
単純なショートカットを作成するスクリプトを作りたかったのですが、
ショートカット先へ渡すコマンドライン引数にスペースが含まれることがあるので、
それをダブルクォーテーションで囲みたかったため、この文字をそのまま出力する必要がありました。
おかげさまでなんとかなりそうです。
どうもありがとうございました。助かりました。
477:名無し~3.EXE
07/02/15 23:32:27 wVnZTfYP
>>463
JavaScriptでウィンドウズGUIを再現してるのを見たことはあるな。
まあよっぽどJavaScriptでやるメリットが無い限りはわざわざ選ぶモノでもないけど
478:名無し~3.EXE
07/02/19 03:18:56 2jm0n8Yc
質問です。VBSで標準出力に文字列を出力したいのですが、
WScript.StdOut.Write "hoge"
で「ハンドルが無効です」とエラーが出ます。
また WScript.Echo も標準出力にならず、ウィンドウに文字列が表示されます
どうすれば標準出力に出力できるのでしょうか？
479:名無し~3.EXE
07/02/19 03:53:42 Ea8qR7RP
>478
wscript.exeではなくcscript.exeでvbsファイルを実行する。
480:478
07/02/19 03:55:55 2jm0n8Yc
>>479
上手くいきました。
どうもありがとうございます。
481:名無し~3.EXE
07/02/19 23:36:26 J+D6xycq
【正社員募集】ドワンゴ大卒未満限定で技術者採用【学歴重視】
ｽﾚﾘﾝｸ(prog板:79番)
で、「windows script host(Jscript) でがんばっている俺は却下ですか？」
ってカキコしても誰にも相手にされんかったわ。
482:名無し~3.EXE
07/02/23 11:26:09 GFWOF5op
IPアドレスやホスト名リストを読み込んで、nslookupを実行し
その結果を表示させながら、ファイルに書き出すようにしたいのですが
まったく検討がつかないので方法をお教えください。
483:名無し~3.EXE
07/02/23 11:48:25 zLQ4KMwL
>>482
nslookupというものを知ってるなら､あとはWSHのヘルプ(Windows Script 5.6 ドキュメント)を読めば解ることです。
ヘルプ読んでも解らないと言うなら､日本語を理解できないと言うことだからここで日本語の説明をしても無駄だろうし､
コード書いてくれなんてのはスレ違いなので､あとは自分で頑張りましょう。
484:名無し~3.EXE
07/02/23 12:06:25 soUk2p3d
>>483
うつ病に頑張れは禁句
485:名無し~3.EXE
07/02/23 13:58:27 0m+mdoh4
>>483
日本語が理解できない場合はそのレスも理解できないわけだが
486:名無し~3.EXE
07/02/24 15:06:35 wTaW1+v2
>>482
プログラム書けないやつが本も何も読まず、wshを使えばできると
聞きかじり、2chで人に書いてもらおうなんてあさましいな・・
サイテー
487:名無し~3.EXE
07/02/24 21:44:51 M2W6NVuE
>>482
詰まっている段階が分かりにくいのですが、ここが参考になりませんか。
URLﾘﾝｸ(www.atmarkit.co.jp)
#煽るだけの奴は消えろ。
#見苦しい。
488:名無し~3.EXE
07/02/25 00:20:31 EQ4Q9T2k
#のコメントで後書きする人って何なの
489:名無し~3.EXE
07/02/25 05:58:51 pI2XMlMi
煽るだけの奴とか言うけど、
例え質問に答えてもフレームを混ぜる奴は同類です。
490:名無し~3.EXE
07/02/25 15:09:54 xOojygct
>>488
/.er
491:名無し~3.EXE
07/02/25 17:49:13 TzBAKqFp
スラドなんかよりもはるかに古い文化ですけど
492:名無し~3.EXE
07/02/25 20:16:34 Bn9vmEGX
おもしろおかしい
493:名無し~3.EXE
07/02/25 22:09:24 3p3uGprt
/. はたまにのぞくけど、独自の文化（オフトピなのでACとか）が育ってて
2chやってると違和感があるんだよなー
# オフトピなのでAC
494:名無し~3.EXE
07/02/25 22:16:35 d5QT1Xvl
しかし何故コメントが # 開始なんだろう？
WSH と言うとやはりメインは VBS か JScript。
' か // が基本だと思うのだが。PerlScript もあるけどさ。
495:名無し~3.EXE
07/02/25 22:47:15 +XEJRyC1
/*
>>496以降のレスは全てコメントアウトされる。ざまぁカンカンｗ
496:名無し~3.EXE
07/02/25 22:48:21 H3CLTB50
*/
再開↓
497:名無し~3.EXE
07/02/25 22:51:57 V5hQEo4p
×>>496以降のレスは全てコメントアウトされる。
○>>496以降､最初の */ までのレスは全てコメントアウトされる。
だな
>>496
乙
498:名無し~3.EXE
07/02/25 23:43:00 H3CLTB50
>>495だけが見事にコメントアウトされた件
499:名無し~3.EXE
07/02/26 00:07:50 ybuIjVJ6
ﾜﾗﾀ
500:名無し~3.EXE
07/03/01 08:41:46 Snwf3Oai
501:名無し~3.EXE
07/03/02 20:17:06 imQofTdk
こういう流れになると絶対過疎るなｗ
502:名無し~3.EXE
07/03/05 22:13:49 pkRZSKvF
以下のダイアログで
自動的に送信しない
を選びたいのですが、どうすればいいのでしょうか？
-------------------------------
問題が発生したため、**を終了します。ご不便をおかけして申し訳ありません。
この問題をMicrosoftに報告してください
503:名無し~3.EXE
07/03/05 22:35:25 70huv0vk
俺ならダイアログを出ないようにするな。
504:名無し~3.EXE
07/03/06 19:21:09 jTn4SU/3
JavaScriptスレにて、
40 ：Name_Not_Found ：sage ：2007/03/06(火) 18:53:49 ID:???
指定したURLからhtmlソースを取得して、
その中から指定した文字列を含むlength個の文字列を抽出し
取得順に配列str[i]に格納しWScript.Echoで出力するプログラムを
今日中に作らないと卒業できなくなるんですが
友達いないボクには無理です神様タスケテクダサイ
というのが来たから誘導しましたｗｗｗよろしくｗｗｗ
505:名無し~3.EXE
07/03/06 19:26:41 7bsQ1z2v
知るかボケ
506:名無し~3.EXE
07/03/06 21:28:29 rVrCV3Y3
そんなんで卒業できるなんてどこの中学だよ
507:名無し~3.EXE
07/03/07 00:18:40 vyb0FCD/
>>506
卒業できなくなるとは書いているが、卒業できるとは書いていない。
508:名無し~3.EXE
07/03/07 00:27:14 mpEBXn45
つまり必要条件であって十分条件ではないと
509:名無し~3.EXE
07/03/07 01:24:08 Dw1HeTg9
今ieで見ているページを、そのアドレスをfirefoxに送って別に起動するようなieのブックマークレットを誰か作ってください。
自分で考えるのが億劫になりました。 あﾞーー、もちろん普段はieのスクリプトは切ってます。よろです。
510:名無し~3.EXE
07/03/07 01:29:00 mpEBXn45
そんな事がブックマークレットでできたら、とっくにウィルス漬けです。
511:名無し~3.EXE
07/03/07 02:07:24 Dw1HeTg9
えーできねの。
じゃ、ツールボタンで。
512:名無し~3.EXE
07/03/07 02:09:30 kgCU6w5M
URLﾘﾝｸ(www.google.com)
513:名無し~3.EXE
07/03/07 03:06:44 Dw1HeTg9
コンテキストメニューかツールバー経由しかない。
しかし、これ以上入れる場所の余裕が無いんぜ。
514:名無し~3.EXE
07/03/07 11:41:39 pUN54nVl
>>502
ダイアログ出さない設定あるよ
515:名無し~3.EXE
07/03/07 19:35:29 duOZYfea
>>509
他人に教えるのが億劫になりました。
516:名無し~3.EXE
07/03/15 16:34:37 WU5+3R9H
初めまして 以下のことはWSHで出来るでしょうか？
とある固定ディレクトリにあるファイルを選ぶダイアログを出す
このときに、相手先（テキストファイルから読み出す）とコメント入力をする
選択されたファイルをLHAに渡し、圧縮作業が行われ
任意のルールで圧縮名をつけて、いつも決まったところに入れる
決まったところに入った圧縮ファイルは、先ほど決めた
相手先にいつも決まったテンプレートとコメントをつけて
添付ファイルとして送り出す。
出来るか出来ないか教えてくださいまし。お時間をくださいませ
よろしくお願いします。こういうのはWSHのはんちゅうを超えているでしょうか？
517:名無し~3.EXE
07/03/15 16:49:19 lKniy2Bp
＞とある固定ディレクトリにあるファイルを選ぶダイアログを出す
これがファイル選択ダイアログならこの時点で無理。
518:名無し~3.EXE
07/03/15 19:52:36 gd0AF5kn
「WSHのはんちゅう」が
スクリプトエンジン： VBScript v5.5 / JScript v5.5
スクリプトランライム： Scripting.Dictionary / Scripting.FileSystemObject
Windows Script Host 標準オブジェクト各種
だけなら無理っぽい。
外部プログラムやcomをガンガン使っていいなら話は別だが。
519:名無し~3.EXE
07/03/15 20:11:54 WU5+3R9H
>>517
ええ、ファイル選択ダイアログのつもりでした。仕事は建築でして
選択されたDXFファイルを自動的にルールに従い圧縮ファイルにして
それをOUTLOOKを起動して、添付ファイルとして、最初に指定した相手に送る直前まで
やりたかったんですよ。送信ボタンを押すのみのところぐらいまで。
ちゅうのは、うちの会社、けっこう年寄りの建築業者（60歳前後が最も多い）が多く、CADは覚えたけどWindowsは
とてもじゃないが覚えきれない人が多数いまして。手順をメモに残しても恐ろしいようです。
毎回DXFアウトからあとよろしくと呼ばれて自分の仕事が止まるのでこの辺なんとかならないかなあと。
>>518
レスありがとうございます。コレガできるならWSHに手をつけようかな
と思っていましたが、ちと残念です。自分的にはWSHってのはマクロスクリプト感覚でしたので
できそうかな？と思っていましたが。
社内で外部から派遣されてる人のPCにはCADしか入れられなくて。この間ようやくLHAとDWというファイラーが
入れるように出来たんですよね。
しかも目の前でこんな動きが出来るんですよと説明して許可書を取ってようやく。
今回のこれはCADに必要だということで作ったなら入れてもいいとようやく許可をもらったんですよ。
自分の仕事に差し支えるからと言ったら通りやすくなったみたいですが
長々と書いてすいません
520:名無し~3.EXE
07/03/15 20:14:27 lKniy2Bp
HTAなら頑張ればできるかもしれない。
521:名無し~3.EXE
07/03/15 20:16:14 WU5+3R9H
OUTLOOKは入ってるXPマシンです。
めちゃくちゃ久しぶりにVB5を取り出すかあ(;´Д`) 6年ぶりぐらい？
まずVB5がXPで動くかっちゅうところから調べないと。
正直言いますとWSHは、インタプリンタ型のＶＢなのかもなあと
思っていました。
522:名無し~3.EXE
07/03/15 20:45:28 N9Eg5QZi
インタプリンタw
523:名無し~3.EXE
07/03/15 20:48:07 jNvzAAvj
> めちゃくちゃ久しぶりにVB5を取り出すかあ
なんでここでVB5が出てくるの？
ソフトを勝手に入れられないんじゃ､VB5を引っ張り出しても意味無いし
VB5で作ったアプリを入れられるなら､ActiveXコンポーネントを入れることで
WSHでも解決できる問題でしょ。
524:名無し~3.EXE
07/03/15 21:37:43 2Y/tNLpI
URLﾘﾝｸ(www.microsoft.com)
Hey, Scripting Guy!
ファイルを選択するためのダイアログ ボックスを表示する方法はありますか
525:名無し~3.EXE
07/03/15 22:51:43 mA1C3Gzd
outlookが入っているならVBAでできるだろうに。
なくても標準的に入ってるCDO.Message使ってできるんじゃないの。
526:名無し~3.EXE
07/03/15 23:19:34 A7maWzfR
OutlookかOutlook Expressであるフォルダのメール全てに保存されている添付
ファイルを一気にどこかに保存するスクリプトって書けますか？
527:名無し~3.EXE
07/03/15 23:42:19 9FGCV+mK
>>524
どうせならこっち紹介しようぜ
URLﾘﾝｸ(www.vector.co.jp)
528:名無し~3.EXE
07/03/17 14:44:09 K8WNJf+j
Y岡か。懐かしいな。今頃どこでどうしてるやら。
529:名無し~3.EXE
07/03/17 14:46:30 K8WNJf+j
たしかExpressは無理だったような気が。
530:名無し~3.EXE
07/03/20 01:22:03 b9ZVd0cO
ADOのStreamを使って
ふつーのファイルを開こうと思ったんですが
オブジェクト作ってOpenしてなんとかfileloadして
さあRead(1)ってやったら （バイナリファイルを読みたいの）
「お前に食わせる担麺は許可がありません」
とか（文面はうろおぼえ）言ってエラーになったなdけど
なんでですかね？
Widows2kSP4, 普通のテキストファイルの読み出しのやつは
うまくいってます
531:名無し~3.EXE
07/03/20 01:25:56 kDerUjCx
お前に食わせるタンメンがないんじゃないですかね
532:名無し~3.EXE
07/03/23 18:16:44 +CYmGPKo
携帯から失礼します。
wshのプロ達に質問があります。
vbsでPOSTかGETを使って、文字列をWEBサーバに送信したいのですが、どうやれば良いのでしょうか?
533:名無し~3.EXE
07/03/23 18:22:58 G1TmW4yG
>>532
Microsoft.XMLHTTP とか MSXML2.XMLHTTP とか使えばいいよ。
使い方はここのログでも何度も出てきてるし､ググれば解説もサンプルもいっぱい転がってるから自分で調べよう。
534:名無し~3.EXE
07/03/23 22:47:00 cFMNGSpo
URLﾘﾝｸ(www.uploda.org)
上の画像のダイアログにユーザー名とパスワードを入力して
OKボタンを押すと動作をしたいのですが、アドバイスをお願いできませんでしょうか？
VBSを使っていて、他の部分は完成しているのですが、ここの部分だけがどうしても解りません。
535:名無し~3.EXE
07/03/23 23:13:34 byjtAjTE
セキュリティがそんなに重要じゃないなら
URLﾘﾝｸ(username:password@192.168.11.1)
を開くようにする
536:名無し~3.EXE
07/03/23 23:20:01 cFMNGSpo
>>535
ありがとうございます。
入力はそういうやり方もあるのですね。
その後のOKボタンを押す方法はないのでしょうか？
537:名無し~3.EXE
07/03/23 23:22:55 oZiRW3es
WshNetworkについて教えてください。
現在、webサーバーのJscriptを使用して、
クライアントのコンピュータ名を取得するプログラムがあります。
そのプログラム自体は、下記のとおりとなります。
エラーは２行目でおきているようです。
var WshNetwork;
WshNetwork = new AcriveXObject("Wscript.Network");
Com_Name = WshNetwork.ComputerName;
実は、クライアントの権限が今までドメインのadministratorであったものを、
ドメインのDomain Userとしました。
そのDomain Userには、クライアントのadministrator権限を追加してあります。
多分、ActiveXかWshのcomが読めなくなっているのではないかと思うのですが、
どこを調査していいのかわかりません。
使用しているwebサーバーはWindows 2000server、
クライアントはWindows 2000 sp3となります。
どんな小さなことでもいいですので、ご指導いただけないでしょうか？
よろしくお願いします。
538:名無し~3.EXE
07/03/24 00:32:32 jifbJ56b
>>536
>535をやればわかるさ
539:名無し~3.EXE
07/03/24 00:36:34 jjWZ4P7E
>>538
やったんですけど、OK押さないと進みません・・・。
540:名無し~3.EXE
07/03/24 00:57:10 jjWZ4P7E
PostMessage使えばいいのかもしれないのかな
541:名無し~3.EXE
07/03/24 01:03:19 jjWZ4P7E
すみません、SendKeys使うことで解決しました。
542:名無し~3.EXE
07/03/24 17:38:05 YkL2wEfh
CreateObject("Shell.Application").NameSpace("D:\").Items.Item.InvokeVerb "取り出し(&J)"
Win98 でこれを動かそうとすると「メモリが不足しています」とエラーが
出て上手く行きませんでした orz XPだと動いたのですけれども、Win98で
このvbsを動かすのは難しいでしょうか？
543:名無し~3.EXE
07/03/24 17:55:43 ZHR7dm/d
俺はWSHなんて使ったことない中学生だけど最新のWSHにうｐだてすればいいんじゃないの？
URLﾘﾝｸ(www.microsoft.com)
544:名無し~3.EXE
07/03/24 18:31:13 5S0it1X0
>>537
エラー書けよ
>エラーは２行目でおきているようです。
3行目だろ？
545:名無し~3.EXE
07/03/24 18:57:09 ZyDgRrWX
>>544
うるせーよカス
546:名無し~3.EXE
07/03/24 18:58:49 ZyDgRrWX
>>544
カス
547:名無し~3.EXE
07/03/24 20:41:59 HRUO8j8b
>>542
Items.item.やめて
NameSpace(17).Items().Item("D:\")つかえ
548:名無し~3.EXE
07/03/25 00:01:03 HRUO8j8b
>>530
Typeをバイナリにしたんかい？