из Vb в Delphi

← →
Новичеек (2007-07-19 16:34) [0]

люди добрые помогите перевести это в 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-19 16:41) [1]

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;

← →
Новичеек (2007-07-19 16:44) [2]

спасибо за рекативную помощь:)
как описать objWMIService и colNetAdapters ?

← →
clickmaker © (2007-07-19 16:46) [3]

Variant

← →
Новичеек (2007-07-19 16:52) [4]

ругается, говорит недопустимая строка с указанием класса

← →
Stanislav © (2007-07-19 16:54) [5]

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

← →
clickmaker © (2007-07-19 16:56) [6]

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

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

← →
bagos © (2007-07-19 16:59) [7]

проблема может быть только здесь "winmgmts:\\" + strComputer + "\root\cimv2" ?
strcomputer - имя компа
что делаю не так?

← →
Новичеек (2007-07-19 17:00) [8]

у меня та же ошибка

← →
Новичеек (2007-07-19 17:12) [9]

может 21 и 22 бесплатно подскажешь ? :)

← →
Новичеек (2007-07-20 10:50) [10]

какие будут мнения? не могу разобраться с ошибкой

а, у тебя там путь к файлу?
тогда нужна CoGetInstanceFromFile()

из Vb в Delphi Найти похожие ветки