Помогите справиться с WMI

[netdemon]

Для получения информации о батарее составил вот этот код :

Код: Выделить всё



Dim servise As WbemScripting.SWbemServices
Dim ObjectSet As WbemScripting.SWbemObjectSet
Dim Sobject As WbemScripting.SWbemObject
Dim PropSet As WbemScripting.SWbemPropertySet
Dim SProp As WbemScripting.SWbemProperty
Dim WbemLocator1 As WbemScripting.SWbemLocator





Set servise = WbemLocator1.ConnectServer(".", "root\CIMV2", "", "", "", "", 0, Nothing)
Set Sobject = servise.Get("Win32_Battery", wbemFlagUseAmendedQualifiers, Nothing)
Set ObjectSet = Sobject.Instances_(0, Nothing)



В строке : Set servise =..... ошибка. 'Object Variable or With block variable not set!'

[Хакер]

netdemon
Где же твои знания ООП, наличие которых ты мне так рьяно доказывал в асе?

WbemLocator1 - это ссылка на Nothing. Перед тем вызывать у неё ConnectServer, надо бы сделать так чтобы она указывала на какой-то объект.

[netdemon]

netdemon
Где же твои знания ООП, наличие которых ты мне так рьяно доказывал в асе?

WbemLocator1 - это ссылка на Nothing. Перед тем вызывать у неё ConnectServer, надо бы сделать так чтобы она указывала на какой-то объект.

Извини. Не заметил. Просто температуре уже 3-й день. Мозги совсем не варят..

Set WbemLocator1= new WbemScripting.SwbemLocator

[Хакер]

Что ты пробовал? Код в студию.

[netdemon]

У меня просто такое же состояние как у кота на аватаре.

[Хакер]

Если состояние такое, как у кота на аватаре, то нужно прекращаться заниматься в WMI до полного выздоровления.

[netdemon]

Это точно! Сейчас пару свойств выковыряю и буду лечиться.

Добавлено 4.10.2007 20:06

А как пользоваться классом : SWbemObjectPath ?

[RayShade]

Это кривой никому не нужный код. C WMI проще всего работать через GetObject, чему на этом форуме масса примеров.

[netdemon]

Это кривой никому не нужный код. C WMI проще всего работать через GetObject, чему на этом форуме масса примеров.

Ссылочку кинь.

[RayShade]

Лови

[netdemon]

RayShade
А как получить список пользователей на удалённом компе если известен только адрес сервера. www. .....

Вот так делаю на своей машине.

Код: Выделить всё

Set objNetwork = CreateObject("Wscript.Network")

strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")
For Each objUser In colAccounts
MsgBox objUser.Name
Next



[Belkin]

netdemon
На сколько я понимаю если сеть с доменами, то пользователя (доменного) не выводит?

[netdemon]

netdemon
На сколько я понимаю если сеть с доменами, то пользователя (доменного) не выводит?

Да. Просто пустой список.


Задача такая. Есть сервер : www. ..... У него есть домен GEcrfq NETDEMON,

На сервере доступно удалённое управление для N пользователей c Правами : Guest, Administrator и т.д.

Так вот как подключиться к серверу через WMI.?

[RayShade]

Хм... Я думаю что, это теоретически возможно, я в принципе подключася к WMI по IP адресам, правда внутри intranet. Хотя, как знать оно поведет себя при работе через internet?

[Sebas]

Хм... Я думаю что, это теоретически возможно, я в принципе подключася к WMI по IP адресам, правда внутри intranet. Хотя, как знать оно поведет себя при работе через internet?

Ну, очевидно, вопрос настройки файрволов и маршрутизаторов... WBEM кроссплатворменный стандарт и подразумевал работу в сети. Хотя по портам не скажу(