Ciao Ragazzi, ho bisogno di un vostro aiuto...
devo creare un configuratore per un router, mi spiego meglio in sostanza ho una configurazione standard inserita in un file .txt la cosa che vorrei fare e creare un pannellino con 2 textbox dove inserisco gli indirizzi ip e lui in automatico mi spara fuori quel txt iniziale modificando solo le 2 righe dove c'e il campo ip con gli ip contenuti nel textbox...
spero di essere stato chiaro, qualcuno riece ad aiutarmi, sotto vi posto il txt che devo modificare nelle righe trovate scritto PRIMO INDIRIZZO IP E SECONDO INDIRIZZO IP che sono le righe da sostituire e in 2 casi trovi scritto secondo indirizzo ip piu 1 o piu 2 che deve sommare piu uno o piu due all' ultima cifra dell' secondo indirizzo ip.
Se per caso fare la somma degli indirizzi ip fosse un problema posso inserire anche 4 textbox e risolvo il problema...
grazie mille ancora ciao.
__________________________________________________ _____________
WshShell.SendKeys ":service system modify name HTTP state disabled~"
WshShell.SendKeys ":service system modify name HTTPs state disabled~"
WshShell.SendKeys ":dhcp server pool delete name LAN_private~"
WshShell.SendKeys ":dhcp server pool delete name GUEST_private~"
WshShell.SendKeys ":dhcp server pool delete name DMZ_private~"
WshShell.SendKeys ":wireless ifconfig state=disabled~"
WScript.Sleep 300
WshShell.SendKeys ":user add name=service password=@mprs643 role=Administrator~"
WshShell.SendKeys ":mlp role addpriv name=Administrator access=anyaccess service=anyservice~"
WshShell.SendKeys ":env set var=SESSIONTIMEOUT value=1800~"
WshShell.SendKeys ":saveall~"
WScript.Sleep 300
WshShell.SendKeys ":atm phonebook add name=pvc_wan2 addr=8*35~"
WshShell.SendKeys ":atm ifadd intf=atm_wan2~"
WshShell.SendKeys ":atm ifconfig intf=atm_wan2 dest=pvc_wan2~"
WshShell.SendKeys ":atm ifattach intf=atm_wan2~"
WshShell.SendKeys ":atm oam config clp=1 loopbackid=ffffffffffffffffffffffffffffffff~"
WScript.Sleep 300
WshShell.SendKeys ":ip ifadd intf=wan2 dest=atm_wan2~"
WshShell.SendKeys ":ip ifconfig intf=wan2 mtu=1500 group=wan linksensing=enabled~"
WScript.Sleep 300
WshShell.SendKeys ":ip ifattach intf=wan2~"
WshShell.SendKeys ":ip ipadd intf=wan2 addr=PRIMO INDIRIZZO IP pointopoint=PRIMO INDIRIZZO IP addroute=enabled~"
WshShell.SendKeys ":ip ipadd intf lan1 addr=SECONDO INDIRIZZO IP CON L'ULTIMA CIFRA ADDIZZIONATA DI 1/29~"
WshShell.SendKeys ":ip ifdelete intf=dmz1~"
WshShell.SendKeys ":ip ifdelete intf=guest1~"
WshShell.SendKeys ":ip ipdelete addr=192.168.1.254~"
WshShell.SendKeys ":ip rtadd dst=0.0.0.0/0 intf=wan2~"
WshShell.SendKeys ":saveall~"
WScript.Sleep 300
WshShell.SendKeys ":user delete name=Administrator~"
WshShell.SendKeys ":service system ipadd name=TELNET ip=151.99.126.0/24~"
WshShell.SendKeys ":service system ipadd name=TELNET ip=213.82.38.0/24~"
WshShell.SendKeys ":service system ipadd name=TELNET ip=10.0.0.0/24~"
WshShell.SendKeys ":service system ipadd name=TELNET ip=94.81.214.232/29~"
WshShell.SendKeys ":service system ipadd name=TELNET ip=151.99.21.91~"
WshShell.SendKeys ":service system ifadd name TELNET group wan~"
WshShell.SendKeys ":service system ifadd name PING_RESPONDER group wan~"
WshShell.SendKeys ":firewall config state enabled~"
WshShell.SendKeys ":saveall~"
WScript.Sleep 300
WshShell.SendKeys ":ip ipadd intf lan1 addr=192.168.1.1/24~"
WshShell.SendKeys ":nat ifconfig intf=wan2 translation=transparent~"
WshShell.SendKeys ":nat mapadd intf=wan2 type=napt outside_addr=SECONDO INDIRIZZO IP CON L'ULTIMA CIFRA ADDIZZIONATA DI 2 access_list=192.168.1.[1-254]~"
WshShell.SendKeys ":service system ipadd name=TELNET ip=192.168.1.0/24~"
WshShell.SendKeys ":saveall~"
WScript.Sleep 300
WshShell.SendKeys ":wireless ifconfig state=enabled~"
WshShell.SendKeys ":wireless ifconfig ssid=aliceagenti~"
WshShell.SendKeys ":wireless secmode wpa-psk presharedkey=090902alice rekeysec=0~"
WshShell.SendKeys "version=WPA+WPA2~"
WshShell.SendKeys ":wireless secmode config mode=wpa-psk~"
WshShell.SendKeys ":saveall~"
__________________________________________________ ____________
Rispondi quotando
..
