PureBoard

Verfasst: **16.05.2007 16:53**

Hi, Leute

Ich möchte die IP-Adresse, Subnetzmaske und wie sie alle heißen (DNS-Server übrigens auch) in meinem Programm verändern können. Es sollte WMI verwendet werden, da netsh doch etwas langsam ist. WIE GEHT DAS?

Ich habe bereits auf der Microsoft-Seite einen VisualBasic

Code gefunden. Nachdem ich aber mit PureBasic

progge (welch Wunder) bräuchte ich einen PB-angepassten oder bereits fertigen Code (oder halt eine Anleitung).

Kann mir bitte jemand helfen?

Danke,

PureBasic4.0

//edit: An alle, die es interessiert: Mein Prog sieht zurzeit so aus:

Bild

Es funktioniert schon alles, bis auf die Hauptfunktion: Die IPs übernehmen!

Verfasst: **17.05.2007 21:39**

hat niemand eine idee? bzw. lust dazu?

Verfasst: **20.05.2007 11:01**

Ist euer Wissen so wertvoll, dass man es nicht weitererzählen kann?

HAT WIRKLICH NIEMAND EINE IDEE? Ist mir wirklich wichtig, dass ich IPs mit WMI (nicht mit netsh) übernehmen kann (Prog ist fast fertig)

Verfasst: **20.05.2007 11:12**

PureBasic4.0 hat geschrieben:Ist euer Wissen so wertvoll, dass man es nicht weitererzählen kann?

Du solltest vielleicht den Code von deinem Programm posten anstatt
Bilder zu zeigen! Vielleicht kann man dann weiterhelfen.
Oder ist dier dein Wissen so wertvoll ?

Lg. Legion

Verfasst: **20.05.2007 11:18**

ich habe ja noch keinen PB-Code. Das ist es ja.
Nur auf der Microsoft Seite gibt es diesen Code:

Statische IP:

Code: Alles auswählen

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)
Next

DHCP:

Code: Alles auswählen

strComputer = "."
Set objWMIService = GetObject(_
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration " _
        & "where IPEnabled=TRUE")
 
For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableDHCP()
Next

Habe gedacht, ihr habt schon einen fertigen Code und ich brauche nichts von VB zu erwähnen. Sonst heißt es wieder: Warum hast du den Thread nicht einfach "Bitte von VB in PB umschreiben" genannt?

Verfasst: **20.05.2007 11:31**

PureBasic4.0 hat geschrieben: //edit: An alle, die es interessiert: Mein Prog sieht zurzeit so aus:

Es funktioniert schon alles, bis auf die Hauptfunktion: Die IPs übernehmen!

Wo ist nun dieser Code ?

Lg. Legion

Verfasst: **20.05.2007 11:37**

ich habe keinen Code! Nur das komplette Programm und das hat mit dem Topic dieses Threads nichts zu tun, weil es (noch) nicht im geringstem IPs mit WMI übernehmen kann.

Verfasst: **20.05.2007 12:31**

Verstehe ich das richtig?

Du hast ein Programm das "fast fertig" ist aber nur aus einem
Bild besteht.
Du hast Teile eines VB-Source von der Microsoft-Seite und suchst
jemanden der den nach PB übersetzt.
Du hast bis jetzt keine einzige Zeile PB-Code geprogt und willst
einen fertigen Code.

Verfasst: **20.05.2007 13:04**

legion hat geschrieben:Verstehe ich das richtig?

Du hast ein Programm das "fast fertig" ist aber nur aus einem
Bild besteht.
Du hast Teile eines VB-Source von der Microsoft-Seite und suchst
jemanden der den nach PB übersetzt.
Du hast bis jetzt keine einzige Zeile PB-Code geprogt und willst
einen fertigen Code.

Sag mal, du hast aber auch nur faule Eier zum Frühstück bekommen.

Was bringt dir der GUI Source zu dem Programm? Gar nichts.

Verfasst: **20.05.2007 13:24**

also: zur Info: Das Prog hat jetzt ca. 900 Codezeilen mit folgenden Codes:

-WMI Include
-SQLite3 Include
-GUI
-Profilspeicherung
-Datenbankzugriff
-und viele kleine weitere Codes

Das fehlt mir noch:

-IP-ADRESSEN MIT WMI ÜBERNEHMEN!!!!!!

//edit: Danke, DarkDragon für die Aufklärung, dass der GUI Code nichts bringt.

PureBoard

IP-Adressen mit WMI verändern?

IP-Adressen mit WMI verändern?

Re: IP-Adressen mit WMI verändern?