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

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

920:名無し~3.EXE
07/07/21 22:38:46 KFSHL472
あ、「^」は無しです。すみません。

921:名無し~3.EXE
07/07/21 22:49:36 LhieJYkS
動かしたい環境で動かしてみればいいじゃん

922:名無し~3.EXE
07/07/21 23:15:44 KFSHL472
>>920
ターゲットは遠方に住む複数の知人のPCなので検証は出来ません。
うちの環境では何事も無く動作しますが、
CreateObjectがスクリプト遮断機能にｺﾞﾙｧされるとの噂を聞きつけまして・・・。

923:678
07/07/22 00:10:25 tM9sO4Uc
>>922
遠方って... 今時何言ってるんだよ。

その知人にメールで送って試してもらえばいいじゃん。

924:名無し~3.EXE
07/07/22 00:25:58 qlCupvCr
>>923
知人にはディスクを作成して送付することになっています。
また、デバッグを依頼できるほど親しい間柄でもありませんし、
親しい友人はみなウィルスバスター使いばかりです。
VirtualPC上のWinXPにNAV体験版を入れてみましたが、
動作が重すぎて検証になりませんでした。
それで、思い悩んだ挙句、こちらで質問した次第です。

925:名無し~3.EXE
07/07/22 01:03:54 KWFVImrU
>>924
親しくなれよ
いいチャンスだろ

926:名無し~3.EXE
07/07/22 01:53:37 ANMbH8Zu
そもそも環境依存の問題なんて当該者以外の他人に聞いても解決するもんじゃないと思うのだが
最低でもその知人とやら全員の使用しているアンチウィルスソフトとそのバージョン、およびそれを
どんな設定で使用してるかがわかんなきゃ答えようがないような気がするけどな

927:名無し~3.EXE
07/07/22 02:17:45 FJATDgF/
その友人にこのスレのURLを送って試してもらえばおk

928:名無し~3.EXE
07/07/22 11:31:20 h90uHO0r
JScriptでゴミ箱を空にするのを作ったんですが
ゴミ箱アイコンがゴミが入ったやつのままになってしまいます。
このアイコンを空のものに更新する方法はありますか？

929:928
07/07/22 11:47:19 h90uHO0r
追記
ユーザ操作無しで実行したいのでInvokeVerb以外の方法を探しています。
削除はfsoです。

よろしくお願いします。

930:名無し~3.EXE
07/07/22 17:27:06 wDEF0MHr
まず、どういう操作でアイコンが変わるか探せ
デスクトップで最新の情報に更新とか
ごみ箱開いてみるとか
あとはそれをスクリプト化しろ

931:名無し~3.EXE
07/07/22 17:47:14 r3GGLn2z
>>930
はぁ？それはお前の仕事だろ？

932:名無し~3.EXE
07/07/22 18:38:40 FJATDgF/
>>931
夏休みの宿題は早めにやっとけよ?
毎年まぎわになってから親に頼るな

933:名無し~3.EXE
07/07/23 01:31:09 tk7bscW7
「ネットワーク接続」内にある接続先を実行する方法はどうすればいいでしょうか？

934:名無し~3.EXE
07/07/23 03:38:36 tiz4Fn4+
>>933
Shell.Application使えばいいよ
具体的な方法はググればいくらでも出てくるからそっちを見てね

935:933
07/07/24 01:03:02 S/R6bNn1
>>934

Const NETWORK_CONNECTIONS = &H31&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(NETWORK_CONNECTIONS)

Set colItems = objFolder.Items
For Each objItem in colItems
　　 If objItem.Name = "hogehoge" Then
　　　　 'hogehoge に接続しる！
　　 End If
Next

こんな感じだと思うのですが、肝心な接続する（実行する？）方法がわかりません。
ググってみたけどわからなかったです。

936:名無し~3.EXE
07/07/25 01:24:37 EAIl+hNG
FolderItem.InvokeVerb
or
Verb.Doit

937:名無し~3.EXE
07/08/02 19:06:04 HYV9OexC
IEのコンテキストメニューから呼び出すスクリプトの中で文字入力ダイアログを使いたいのですが、
下のようにやると ”InputBoxに書き込みできません”となります。
エラーの回避方法がありましたらよろしくお願いします。
<HTML><SCRIPT language="VBScript">

Function vbInputBox(message, title, default)
vbInputBox = InputBox(message, title, default)
End Function
Call vbInputBox("a","b","c")
</SCRIPT></HTML>

それか、window,promptの縦の長さを変えられる方法がありましたら教えてください。

938:名無し~3.EXE
07/08/02 22:34:05 hjwhShED
あ゛？普通に動くが

<HTML><SCRIPT language="VBScript">

Function vbInputBox(message, title, default)
vbInputBox = InputBox(message, title, default)
End Function

Document.Write vbInputBox("a","b","c")

</SCRIPT></HTML>

939:937
07/08/03 11:39:25 brmT2+zm
やっぱり動きません。

↓でも動かないし。
<HTML><SCRIPT language="VBScript">
MsgBox("a")

</SCRIPT>
</HTML>

940:名無し~3.EXE
07/08/03 11:44:57 U+Mx7u4b
>>939
動く。但し規定のブラウザがIEである事が前提。

941:名無し~3.EXE
07/08/03 16:57:54 gh3Au87b
>>937
win2000 IE6 ですが同じエラー出ますわ
prompt は平気なのにね、何でだろ

MenuExtに登録するhtml を

<SCRIPT type="text/JScript">
var wshell = new ActiveXObject("WScript.Shell");
wshell.run("パス\\vbInputBox.vbs");
</SCRIPT>

にしてワンクッション置いてみるとか

942:名無し~3.EXE
07/08/05 03:38:22 GMOEkMoa
<script type="text/javascript">
external.dialogWidth = '300px';
external.dialogHeight = '110px';
function OK(){
alert(document.F1.T1.value);
window.close();
}
</script>
<title>モーダルダイアログモード</title>
<br>
<form name="F1" action="#">
<table>
<tr>
<td>何か入力</td>
<td><input type="text" name="T1" size=30></td>
</tr>
<tr>
<tr>
<td></td>
<td><input type="button" value=" O K " onClick="OK();"> <input type="button" value="キャンセル" onClick="window.close();"></td>
</tr>
<tr>
</form>
<script type="text/javascript">
document.F1.T1.value = "デフォルト";
</script>
>937
MenuExt Flags=1で登録してモーダルダイアログモードにする

943:名無し~3.EXE
07/08/08 13:44:05 ALoY2U7S
今現在、英語版のWindows(再起動するたびに設定リセット仕様)の使用しているのですが、
毎回日本語入力をする為にIMEを出すのが面倒で、
URLﾘﾝｸ(www.3yokai.net)　このWebサイトの
「日本語を入力できるようにする」の項目作業を自動でやってくれるWSHを書きたいのですが、
WSHにてMS-IMEを起動し、日本語入力環境に設定するにはどのようなコードを書けば良いのでしょうか？

944:名無し~3.EXE
07/08/10 14:17:32 SB2l+23k
Windows Script 5.7 (IE7に付属)
2000 URLﾘﾝｸ(www.microsoft.com)
XP URLﾘﾝｸ(www.microsoft.com)
2003 URLﾘﾝｸ(www.microsoft.com)

945:名無し~3.EXE
07/08/18 20:05:02 eUvf8zvX
ほ

946:名無し~3.EXE
07/08/22 20:38:28 tz0yz31E
ume

947:名無し~3.EXE
07/08/23 20:23:35 YDx8nhVH
保sh

948:名無し~3.EXE
07/08/28 15:17:19 6JO2o1xw
エクスプローラでファイルを選択→右クリック→「プロパティ」と
同じダイアログを開くCOMオブジェクトなどはないでしょうか？

949:名無し~3.EXE
07/08/28 19:13:50 uvmautGd
>>948
Win2000/Meのごみ箱フォルダとか

950:949
07/08/28 19:36:45 uvmautGd
すまん。違った。

>>948
Shell.Application の InvokeVerb とか

951:名無し~3.EXE
07/08/28 21:03:33 nAgyIVfI
以下のようなvbsを作ってダブルクリックするとプロパティウィンドウが
出てくれません。他のメニュー項目はInvokeVerbできているのですが。
親ウィンドウがないからでしょうか？

Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.Namespace("c:\")
Set oFolderItem = oFolder.ParseName("WINDOWS")
Name = "プロパティ(&R)"
oFolderItem.InvokeVerb(Name)

952:名無し~3.EXE
07/08/28 21:10:55 uvmautGd
なるほどね・・・

そのあとに
wscript.sleep 3000
追加すると3秒間は開いてくれるねｗｗ

953:名無し~3.EXE
07/08/28 22:11:44 Rghs668z
何故に3秒？
閉じるまで開いておくようにすればいいじゃん

954:名無し~3.EXE
07/08/28 23:25:34 zvPk85aX
道連れか

955:名無し~3.EXE
07/08/29 00:19:34 KI9SLann
Set Shell=CreateObject("Shell.Application")
For Each ie In Shell.Windows()
If InStr(TypeName(ie.Document),"IShellFolderViewDual") Then
Exit For
End If
Next
Set Shell=ie.Document.Application
を使え

956:名無し~3.EXE
07/09/01 16:04:15 bXQrMlw/
共有フォルダで大量のファイルの作成者を調べる必要がでてきました
スクリプトでファイルの作成者を知る方法はありますでしょうか

957:名無し~3.EXE
07/09/01 17:26:49 oJcUr36C
>>956
努力しない奴にほいほい答えてくれる者はいない。

958:名無し~3.EXE
07/09/02 02:08:30 P/N3hv+m
>>956
なんとかstatってのがあったはず
これでなんか情報を取得して調べると
ファイルの情報っぽいのが見れたはず

>>957
いじわるするなよ

959:名無し~3.EXE
07/09/02 15:15:47 fKko3nYQ
Folder.GetDetailsOfでいけるんじゃね

960:名無し~3.EXE
07/09/06 18:52:43 LSXnZm/Z
statって調べたらperlなんですね
確かにスクリプトだけどできればvbsかせめてjsでお願いしたい

961:名無し~3.EXE
07/09/06 20:26:30 ofzdNoRS
>>960
perlはWSHで使えるからこのスレの範疇なんだが。>>5
それにWSH自体やJS､VBSにはそういう機能ないので
COM使うか､別言語使うかの選択になるわけだし。

962:名無し~3.EXE
07/09/06 22:37:51 X5XEo4Da
wsh初心者なんですが、IE操作でわからないことがあるので教えてください。
Set objIE = CreateObject("InternetExplorer.Application")
で作ったobjIEにurlを表示してリンク先をダウンロードしたいんですが、
保存ダイアログが出てきてそのあとどうしていいかわかりません。
activateしてSendKeysを使えばいいんでしょうか？
保存先も指定したいんだけど、どうしていいか全然わかりません。

963:名無し~3.EXE
07/09/06 23:34:08 0hvP0y9l
xmlhttpでは駄目なん？

function GetHTMLDocument(ByVal strURL, ByVal strDatFileName)
　dim objXmlHttp, objStream
　const AD_TYPE_BINARY = 1'ストリームタイプをバイナリストリームにする
　const AD_SAVE_CREATE_OVER_WRITE = 2'ファイルを上書きする
　
　on Error Resume Next
　set objXmlHttp = WScript.CreateObject("microsoft.xmlhttp")'XMLHTTPオブジェクトの作成
　objXmlHttp.Open "GET", strURL, false
　objXmlHttp.Send
　if Err.Number <> 0 then
　　strErrMsg = strURL & ": " & Err.Description
　　GetHTMLDocument = false
　　set objXmlHttp = nothing
　　exit function
　end if
　on Error Goto 0
　
　set objStream = CreateObject("ADODB.Stream")'バイナリストリームオブジェクトの作成
　objStream.Open
　objStream.Type = AD_TYPE_BINARY
　objStream.Write(objXmlHttp.ResponseBody)
　objStream.SaveToFile strDatFileName, AD_SAVE_CREATE_OVER_WRITE
　objStream.Close
　set objStream = nothing
　set objXmlHttp = nothing
　GetHTMLDocument = True
end function

964:962
07/09/07 18:48:40 yxgIGp5j
>>963
レスありがとうございます。
やってみてリンク先はダウンロードできました。
ただ、目的のサイトではリンク先のURLを開くと、違う名前のファイルを
ダウンロードするようになってたので、うまくいきませんでした。
自分でもいろいろやってみようと思います。
実は、macでは簡単に出来たんで、winでもやってみようと思ったんですが、WSHは難しいですね。

965:962
07/09/14 22:53:23 u3aWDe/c
とりあえず、safariをインストールしてsendkeysでなんとかなりました。
safariはコマンドラインオプションが無いみたいなのでホームページに目的サイトのURL指定したり、
保存先もsafariのデフォルトに設定とかだけど。

966:名無し~3.EXE
07/09/16 18:16:51 Vi51TBdv
あるソフトを、前回起動時から1週間経っていたら起動する。そうでなければ何もしない。
というスクリプトはどう組めば良いですか。

967:名無し~3.EXE
07/09/16 18:23:26 yrnCWO5U
> あるソフトを、前回起動時から1週間経っていたら起動する。そうでなければ何もしない。
をコードにすればいいだけだと思いますが､なにか？

968:名無し~3.EXE
07/09/16 18:30:12 Vi51TBdv
>>967
それを教えて下さい＞＜

969:名無し~3.EXE
07/09/16 18:47:37 yrnCWO5U
何処かに前回起動日時データを保持しておき､それが現在-7より大きかったら終了
小さかったら｢あるソフト｣を起動して､前回起動日時データを書き換える

以上が"組み方"
上記をコードに"書く方法"は､WSHヘルプやGoogle参照

970:名無し~3.EXE
07/09/18 17:09:13 3e/ATvcX
あるソフトの選択している範囲をクリップボードに取り込むには
どう記述すればよいでしょうか？

971:名無し~3.EXE
07/09/18 18:00:46 59SRskbJ
あるソフトとは?

972:名無し~3.EXE
07/09/18 18:03:50 3e/ATvcX
>>971
OpenJaneDoeです。
ショートカットメニューのコピーを使えば簡単ですが
複数の処理をvbsファイルでまとめて行いたいので。

973:名無し~3.EXE
07/09/18 18:34:25 Hp5KGcqw
ふつうにこぴーすりゃいいんじゃね？