Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

из Vb в Delphi

Новичеек © (2007-07-19 16:34:00)
люди добрые помогите перевести это в delphi синтаксис:

strComputer = "." ' "."-локальный комп или можно имя удаленного компа

Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration " _
& "where IPEnabled=TRUE")

strIPAddress = Array("192.168.1.180") ' Новый IP
strSubnetMask = Array("255.255.255.0") ' Новая маска подсети
strGateway = Array("192.168.1.15") ' Новый шлюз
strDNSserver = Array("192.168.1.15") ' Новый DNS-server
strMACadapter = "00:12:23:45:67:89" ' MAC-address сетевого адаптера для
' которого устанавливаем новые значения

strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
If objNetAdapter.MACAddress = strMACadapter then
errEnable = objNetAdapter.EnableStatic( _
strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(_
strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNSServer)
end if
Next

clickmaker (2007-07-20 14:20:00) [1]
а, у тебя там путь к файлу?
тогда нужна CoGetInstanceFromFile()

Новичеек (2007-07-20 10:50:00) [2]
какие будут мнения? не могу разобраться с ошибкой

Новичеек (2007-07-19 17:12:00) [3]
может 21 и 22 бесплатно подскажешь ? :)

Новичеек (2007-07-19 17:00:00) [4]
у меня та же ошибка

bagos (2007-07-19 16:59:00) [5]
проблема может быть только здесь 'winmgmts:\\' + strComputer + '\root\cimv2' ?
strcomputer - имя компа
что делаю не так?

clickmaker (2007-07-19 16:56:00) [6]

> [5] Stanislav © (19.07.07 16:54)

обращайся, если что
первые 20 строчек - бесплатно. Потом - как договоримся :)

Stanislav (2007-07-19 16:54:00) [7]
clickmaker © (19.07.07 16:41) [1]
Класс! А я сидел переводил проект с VB на C#,надо было тоже на форум обратится :-)

Новичеек (2007-07-19 16:52:00) [8]
ругается, говорит недопустимая строка с указанием класса

clickmaker (2007-07-19 16:46:00) [9]
Variant

Новичеек (2007-07-19 16:44:00) [10]
спасибо за рекативную помощь:)
как описать objWMIService и colNetAdapters ?

clickmaker (2007-07-19 16:41:00) [11]
strComputer := '.';

objWMIService := CreateOleObject('winmgmts:\\' + strComputer + '\root\cimv2');
colNetAdapters := objWMIService.ExecQuery('Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE');

strIPAddress := '192.168.1.180';
strSubnetMask := '255.255.255.0;
strGateway := '192.168.1.15';
strDNSserver := '192.168.1.15';
strMACadapter := '00:12:23:45:67:89';

strGatewayMetric := '';

For i := 0 to colNetAdapters.Count - 1 do begin
objNetAdapter := colNetAdapters[i];
If objNetAdapter.MACAddress = strMACadapter then begin
errEnable := objNetAdapter.EnableStatic(strIPAddress, strSubnetMask);
errGateways := objNetAdapter.SetGateways(strGateway, strGatewaymetric);
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNSServer);
end;
end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »