- 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
- 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
|
 |
