colemanhot escreveu:asi es lord eso es correcto amigo estoy usando ese rango...pero puedes usar las que desees.... por que.??.saludos...
Clase A: 10.0.0.0 a 10.255.255.255
Clase B: 172.16.0.0 a 172.31.255.255
Clase C: 192.168.0.0 a 192.168.255.255
colemanhot escreveu:
el futuro usuario nunca podra detectar ni en sueños ese rango de ips.. por lo que en la targetica explico como se conectaran...
el cliente que compre la targeta prepago1, tiene que poner esa ip manualmente y todo lo demas en su pc de esta forma..
o si lo desea el cliente me llama y yo le explico la primera vez como deve hacerlo...
ejemplo:
50.20.3.2
255.0.0.0
50.20.3.1
8.8.8.8
8.8.4.4
supongamos que agregamos 100 futuros usuarios... entonces hacemos 100 targeticas con la propaganda de la red bien bonitas y bien diseñadas ok...y colocamos las contraseñas y los nombres, tambien la direccion ip, mascara de subred, puerta de enlase y los dns.. justo como la imagen anterior.... bien escondidos o bien seguros en nuestra targeta...
saludos...
Para cambiar la IP, primero configurarías la nueva con su gateway, quitarías la IP vieja y después quitarías su gateway.
En el siguiente ejemplo cambiaremos a la conexión "Conexión de área local" del segmento de red 10.0.0.0/8 (puerta de enlace 10.0.0.1) al 192.168.0.0./24 (puerta de enlace 192.168.0.1).
Para añadir la nueva IP:
netsh interface ip add address "Conexión de área local" 192.168.0.100 255.255.255.0 gateway=192.168.0.1 gwmetric=auto
Para quitar la IP "vieja":
netsh interface ip delete address "NOMBRE_DE_LA_INTERFACE" 10.0.0.100
Y para quitar la gateway de la IP "vieja":
netsh interface ip delete address "Conexión de área local" gateway=10.0.0.1
NOTA:Resaltar que no se puede deshabilitar y habilitar la conexión
agregar DNS a una interface.
netsh interface ip set dns "NOMBRE_DE_LA_INTERFACE" static 192.168.1.1
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = true")
strDNSservers = Array ("192.168.5.1","192.168.5.30")
For Each objItem In colItems
errDNS = objitem.SetDNSServerSearchOrder()
errDNS = objitem.SetDNSServerSearchOrder(strDNSServers)
Next
On Error Resume Next
Const FULL_DNS_REGISTRATION = True
Const DOMAIN_DNS_REGISTRATION = False
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
objNetCard.SetDynamicDNSRegistration FULL_DNS_REGISTRATION, _
DOMAIN_DNS_REGISTRATION
Next
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services\Tcpip\Parameters"
strValueName = "SearchList"
strValue = ""
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue
strValueName = "UseDomainNameDevolution"
dwValue = 1
objRegistry.SetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, dwValue
Voltar para BrazilFW 2.x - Ayuda en general
Usuários navegando neste fórum: Nenhum usuário registrado e 28 visitantes