Problem mit WMI

[Bernd Milich]

Kann mir jemand sagen, wie ich den folgenden VB-Code in Delphi umsetzen kann ?
<P>
Hierbei macht mir vor allem die Zeile:
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
Kummer !
<P>

<PRE>
'Configuring a Static IP Address
'Sets the IP address of a computer to 192.168.1.141, and sets the IP gateway to 192.168.1.100.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next
<PRE>

[Andreas Horlaender]

Hi,<br>
die IP wird doch in einem Array of String zurückgeliefert. Also machst du einen entsprechenden Type, setzt die länge mit SetLength und weist die Strings zu. Beispiele wie WMI generell in Delphi verwendet wird gibts hier im Forum genug.<p>Gruß Andreas</p&gt