Script um zwischne Manuel / DHCP umzuschalten

[dinu 10]

Ich müsste irgendwie eine datei schreiben die beim ausführen

 

 

die ip einstellungen ändern.

 

 

z.B. von manueler ip vergabe aud automatisch dhcp

 

und umgekehrt, hat irgendwer eine idee?

 

Windows XP is das BS.

 

So dass man nicht manuel alles eintragen muss.

 

 

mfg

 

dinu

[traced82 10]

Hi,

 

Du kannst in den TCP IP Eigenschaften eine alternative Konfoguration angeben,

diese Daten verwendet er wenn er keinen DHCP findet.

 

So habs ich bei meinem Notebook gemacht!

 

VG

Basti

[grizzly999 11]

netsh ist dein Freund :)

 

Schau mal hier http://www.mcseboard.de/showthread.php?t=61831

oder in der Online Hilfe

 

 

grizzly999

[dinu 10]

Vielen Dank für die rasche Antwort.

 

Werde mal sehen ob ich das mit der batch datei schaffe!

 

sonst melde ich mich wieder =)

[dinu 10]

Weiss jemand gerade den Befehl um per NETSH alles auf DHCP zu setzten?

 

Finde gerade keinen

 

mfg

 

dinu

[substyle 20]

interface

ip

set address "LAN-Verbindung" source=dhcp

set dns "LAN-Verbindung" source=dhcp

[Josh16 10]

Wenn du's etwas komfortabler möchtest und keine Domain Umschaltung benötigst oder sonstigen schnickschnack wie Netzlaufwerke oder Drucker, kannst du den IPManager verwenden.

Ist Freeware!

http://stafney.com/~tstafney/opensource/IpManager/

[Tomy Tom 10]

Oder per Script:

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

'Umschaltung von statischer IP auf DHCP

For Each objNetAdapter In colNetAdapters

errEnable = objNetAdapter.EnableDHCP()

' Ausgabe über Erfolgsänderung

If errEnable = 0 Then

' Ausgabe über Erfolgsänderung

MsgBox "Die TCP/IP Einstellungen wurden DHCP umgestellt.", vbOkOnly + vbInformation, "TCP/IP INFORMATION"

Else

' Ausgabe bei Fehler

MsgBox "Keine Umstellung auf DHCP möglich.", vbOkOnly + vbExclamation, "TCP/IP FEHLER"

End If

Next