Nastavení všech 3 IP na jednom PC

[Návštěvník]

Chci se jen zeptat a počítám že někdo z vás s tím zkušenost bude mít. Je možný nějak do xpéček vnutit všechna nastavení karnevalích IP adres, to je 1 veřejné a dvou 10tkových abych si jen vybral kterou chci právě používat a nemusel to v nastavení síťového adaptéru přepisovat? S tím i možná souvisí, jestli je možné abych na jedné síťové kartě měl ještě nastavení bývalého ISP, který mi zatím dává signál, ale nechci přes něj přistupovat inetu, ale jen na LAN. Předem díky za názory.

[Návštěvník Geeker]

Stahni IP switcher

[Návštěvník]

existuje neco takoveho i pro 2 Win 2k?

[tomus]

Ja ty zmeny IP ve Win 98 (mam 3) resim tak, ze jsem si vyexportoval nastaveni tech IP z registru ([HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0001]) do trech souboru a podle toho kterou IP zrovna potrebuji tak ten reg soubor spustim, po te jeste musim restartovat Windowso (u 2K a XP myslim restart neni potreba).

[Návštěvník]

to zni zajimave. Urcite to zkusim.

[Návštěvník]

pls, nemate crack na ten IPSwitcher??? Nikde ho nemuzu sehnat.

[tomus]

Zkus to tady: http://astalavista.box.sk/cgi-bin/robot ... p+switcher

[Návštěvník Geeker]

Kdyby neco napis mail poslu ti to

[Návštěvník iNDYCZ]

Ja na to pouzivam soubor .bat, kterej jsem si pro tento ucel napsal.

Pak jenom spoustim danej soubor a nemusim nic nastavovat rucne.

Pouzivam pro tento ucel systemove cmd prikazy.

[Návštěvník Mlok]

Pro ty co by chtěli následovat iNDYCZ, používám podobné řešení, zde příklad:

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

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

 

Set colNetAdapters = objWMIService.ExecQuery _

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

 

strIPAddress = Array("10.98.x.x")

strSubnetMask = Array("255.255.255.0")

strGateway = Array("10.98.x.x")

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

 

On Error Resume Next

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

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

 

Set colNetCards = objWMIService.ExecQuery _

("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

 

For Each objNetCard in colNetCards

arrDNSServers = Array("81.27.192.33", "81.27.192.97")

objNetCard.SetDNSServerSearchOrder(arrDNSServers)

Next

 

 

Script se uloží s příponou vbs a zovolá se:

cscript nazev_scriptu.vbs

 

Příklad je pro změnu na neveřejnou ip na Karneval + dns Karnevalu, jen ty x v adrese nahradit.