Jump to content
Guest tomus

Nastavení všech 3 IP na jednom PC

Recommended Posts

Guest

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.

Share this post


Link to post
Share on other sites

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

  • Internet 150
  • -
  • Komfort
  • Compal VF, HD Mediabox
  • Brno

Share this post


Link to post
Share on other sites
Guest

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...