Вниз
Скачать: CL | DM;

Вот почему не работает WMI при установке винды?   Найти похожие ветки 

← →
TankMan ©   (2004-12-29 14:52) [0]

Решил попробовать определять устройства во время установки WinXP, точнее тогда когда остается 13 мин до завершения установки (тогда уже свободно ставятся все программы и т.д.),- накидал проектик, выдает список устройств на компьютере, но вот когда эта программа запуситалсь на 13-й минуте она почему-то выдала ошибку Critical Error (или похожее, вобщем 2 слова и все(ОК) ) - и список не выдает ...
Вот листинг (Кусочек) самой процедуры:
temp1:=CoSWbemLocator.Create.ConnectServer("", "root\cimv2", "", "", "", "", 0, nil);  // <<Вот сдесь ошибка :(
Enum := temp1.ExecQuery ("Select * from "+Trim(Edit2.text), "WQL", wbemFlagBidirectional, nil)._NewEnum as IEnumVariant;
while (Succeeded(ADsEnumerateNext(Enum, 1, varArr,
lNumElements))) and (lNumElements > 0) do
     Save(IUnknown(varArr) as SWBemObject,HARDWareList);
   end;
except
...
метку "Вот сдесь ошибка" я вычислил на той машине на которой идет установка, и ведь самое интересное, что через эти чертовы 13 минут, хоть в SaveMode хоть нет - хоть как - программа работает :(
Может кто-нибудь знает, чего не хватает ей?
Я вот подумывал над тем что ConnectServer принимает одним из параметров имя юзера а вот на 13й минуте юзеров вообще нет... но их можно создать (я думаю) но не знаю как :( поэтому догадка - всего лишь догадка :(


← →
Дмитрий Ботвин   (2004-12-29 15:56) [1]

Интересно, а зачем вообще понадобилось это делать
на этапе установки???

Кстати, в ConnectServer первым параметром должна быть ".", а не
"". Это если четко следовать хэлпу :-)))
А если хочешь подключится к удаленному компу - то имя компа.


← →
TankMan ©   (2004-12-30 11:31) [2]

Вообще для того что бы определить какие драйвера ставить...

Очень нада...


← →
TankMan ©   (2005-01-03 22:48) [3]

Так и всетаки, кто-нибудь знает почему не работает?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c
4-1104957562
dms_main
2005-01-05 23:39
2005.02.20
ClipBoard


3-1106058019
Бульбаш
2005-01-18 17:20
2005.02.20
Как отменить Post при переходе на другую строку?


14-1107245441
McSimm
2005-02-01 11:10
2005.02.20
Вы нам писали...


3-1106558657
kasper111
2005-01-24 12:24
2005.02.20
подскажите синтаксис командый update в delphi4


14-1107241627
Franzy
2005-02-01 10:07
2005.02.20
Русификация win2000en




   Наверх