|
|
|
Как получить имена компьютеров?
|
|||
|---|---|---|---|
|
#18+
Хочу в Excel вытянуть имена всех компьютеров домена, вот прога с помощью которой вытягиваю юзеров, а для компьтера какие свойства? Sub qqq() Dim i As Integer Dim obj As Object Dim o As Object i = 0 Set obj = GetObject("WinNT://name_DC") obj.Filter = Array("user") For Each o In obj i = i + 1 Worksheets(1).Cells(i, 1).Value = o.Name Next End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.05.2005, 15:08:11 |
|
||
|
|
start [/forum/topic.php?fid=60&gotonew=1&tid=2167761]: |
0ms |
get settings: |
10ms |
get forum list: |
20ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
67ms |
get topic data: |
11ms |
get first new msg: |
6ms |
get forum data: |
3ms |
get page messages: |
54ms |
get tp. blocked users: |
2ms |
| others: | 243ms |
| total: | 422ms |
| 0 / 0 |
