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

1 名前：デフォルトの名無しさん mailto:sage [2009/05/24(日) 01:22:48 ] (　´ゝ`)　誰か詳しい情報ｷﾎﾞﾝﾇ ●過去スレ WSH(・∀・)ｽﾚｯﾄﾞ! pc11.2ch.net/test/read.cgi/tech/1055075469/ WSH(・∀・)ｽﾚｯﾄﾞ! Part 2 pc11.2ch.net/test/read.cgi/tech/1176698934/ WSH(・∀・)ｽﾚｯﾄﾞ! Part 3 pc12.2ch.net/test/read.cgi/tech/1208948450/ ●関連スレ お前ら、wsh使ってますか? Part7 pc12.2ch.net/test/read.cgi/win/1190548945/ HTAをもっと流行らせる計画 Part2 pc12.2ch.net/test/read.cgi/tech/1220874815/ ★WSHでCGI★JScriptVBScript pc11.2ch.net/test/read.cgi/php/1059745064/ ●公式サイト Windows Script www.microsoft.com/japan/msdn/scripting/ ●個人サイト Windows Scripting Host homepage3.nifty.com/aya_js/wsh/index.htm Windows Scripting Host Laboratory www.roy.hi-ho.ne.jp/mutaguchi/wsh/ Windows Script Wiki winscript.s41.xrea.com/wiki/index.php 191 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 18:48:37 ] try catch 192 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 19:26:27 ] >>191 駄目だった try {var re = /asd(fgh/;} catch(e){WScript.echo("error");} 193 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 19:36:59 ] RegExp.compile 194 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 19:58:42 ] >>192 RegExp 195 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 00:05:02 ] wshで var n=/a]b/; と打ったらエラーが出ませんでした。他の括弧ならエラーが出ます。 エスケープ無しの右かぎ括弧ってなにか特別な意味はありますか？ この場合は、"a]bと続く三文字"と解釈して大丈夫なんですか？ 196 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 14:20:01 ] ためせば？ 197 名前：デフォルトの名無しさん [2009/12/13(日) 13:23:44 ] Excel2003と2010が共存している環境で WSHを使うことで両者を使い分けようとしています。 参考 : www.drk7.jp/MT/archives/001226.html RegRead("HKEY_CLASSES_ROOT\\CLSID\\{00024500-0000-0000-C000-000000000046}\\LocalServer32\\").replace(/ \/[^ \/]+/g, '') で、Excel 最新版（最後にインストールしたもの？）のパスは得られるのですが、古い方のパスを得られません。 何か良い方法はないでしょうか？ 198 名前：デフォルトの名無しさん mailto:sage [2009/12/13(日) 13:24:56 ] 今は決めうちで、「C:\Program Files\Microsoft Office\*\EXCEL.EXE」の * の部分を変えて存在確認をとって処理しています。 * の部分は、 Office2010 : office14 Office2007 : office12 Office2003 : office11 Office2002 : office10 Office2000 : office9 Office97 : office8 Office95 : office であっているでしょうか？ よろしくお願いします。 199 名前：デフォルトの名無しさん mailto:sage [2009/12/13(日) 19:27:38 ] ttp://support.microsoft.com/kb/234788/ja 200 名前：デフォルトの名無しさん mailto:sage [2009/12/15(火) 18:19:27 ] EXCEL.EXEを検索してFileVersionで判定すべき 201 名前：デフォルトの名無しさん mailto:sage [2009/12/23(水) 00:00:12 ] Office2010ってもう発売されてるんだ..... 202 名前：デフォルトの名無しさん [2009/12/23(水) 14:44:53 ] さあ 203 名前：デフォルトの名無しさん mailto:sage [2009/12/23(水) 14:50:06 ] office13は？ 204 名前：デフォルトの名無しさん mailto:sage [2009/12/24(木) 09:35:19 ] スレちがい 205 名前：デフォルトの名無しさん [2010/01/13(水) 18:31:33 ] お願いだから教えてください。スレ違いかも知れないけどPower Shellスレないみたいだし・・ Windows Power Shell(2.0)でIEを起動してマウスクリックをエミュレートさせようとした場合、Win32API(mouse_event)を使うと思うんですが DllImport("usr32.dll",Charset=Charset.Auto)でCharset = ←の=の後がどうとかいって、実行できません。Charsetのくだりを全削除すると今度は予期しない属性と出てしまいます。 mouse_eventにこだわりはないんですが IEを立ち上げ マウスクリックをエミュレートする 処理を教えてください。APIなら宣言部もお願い；； 206 名前：デフォルトの名無しさん [2010/01/13(水) 18:37:51 ] 205ですけど 座標とかハードコーディングで大丈夫ですので肝を簡潔にお願い；； 207 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 23:40:26 ] スレちがい Windows PowerShell 2.0 Part2 208 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 00:07:23 ] 普通はDOM使うんじゃなかろうか、いや知らんけど 209 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 02:56:55 BE:1403990069-PLT(23400)] >>207 URLも貼ってあげなよ pc12.2ch.net/test/read.cgi/win/1261106064/ 210 名前：デフォルトの名無しさん [2010/02/22(月) 21:41:34 ] 次のように Folderオブジェクトの SubFolders でFolderコレクションを取得したとして、 　Set c = folder.SubFolders これを For Each ではなくて以下のように For で処理したいです。 　For i = 0 To c.Count 　　: 　Next このループの中で、i 番目のアイテムを取得するにはどうしたらよいでしょうか？ c(i) でも c.Item(i) でもダメでした。 211 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 21:44:18 ] c.Items(i) 212 名前：210 mailto:sage [2010/02/22(月) 21:50:27 ] それだと オブジェクトでサポートされていないプロパティまたはメソッドです。:'c.Items' です。 ちなみに、c.Item("Test") みたいに、実在するフォルダ名を与えればフォルダオブジェクトは取って来れます。 それじゃ意味無いですが。 213 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 22:06:18 ] c(i).Value c(i).Item() 214 名前：210 mailto:sage [2010/02/22(月) 22:17:28 ] >>213 プロシージャの呼び出し、または引数が不正です。 215 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 23:29:43 ] Shell.Application の FolderItems のほうを使ったら？ 216 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 21:55:47 ] 配列に入れて使え 217 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 22:13:00 ] For i = 0 To c.Count j=0 　For Each f In c If j=i Then Exit For j=j+1 　Next MsgBox f Next 218 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 22:55:24 ] 番号は使えないみたいだな ItemクリックしたらDictionaryに飛んだ ttp://msdn.microsoft.com/en-us/library/9kcx47hd%28VS.85%29.aspx 219 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 21:36:27 ] test 220 名前：デフォルトの名無しさん [2010/03/05(金) 12:44:09 ] WMI使ってリモートPCのIP変更したいんだが、変更後にRPCエラー待ちが発生して自動処理が難しい。 エラー待ちを無視するとか、なんかいい方法知ってる人がいたら助けて。 On Error Resume Next strComputer = "10.1.1.1" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableDHCP() Next

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef