Windows 8.1 - ¡cómo compartir conexión de Internet configurada por comandos del CMD, SHELL, VBS, regedit.?
en propiedades de ethernet----> Pestaña de uso compartido---> permitir que los usuarios de otras redes se conecten a través de la conexión a internet de este equipo.
Como puedo realizar dicho Proceso sin la interfaz gráfica utilizando los recursos del sistema, lamento el no poder publicar algún link o recurso multimedia pero no puedo publicar imagenes
o urls hasta que mi cuenta sea verificada
un ejemplo de lo que estoy haciendo
Shell("cmd.exe /c netsh wlan start hostednetwork")
Button5.Enabled = False
MsgBox("El SSID y Password, solo pueden ser modificados con la red detenida")
Dim ssid, pasword, base As String
base = "netsh wlan set hostednetwork mode=allow"
ssid = TextBox4.Text
pasword = TextBox5.Text
MsgBox("cmd.exe /c netsh wlan set hostednetwork mode=allow ssid=" & Chr(34) + ssid & Chr(34) + " " + "key=" + Chr(34) & pasword + Chr(34))
Shell("cmd.exe /c netsh wlan start hostednetwork")
obj = CreateObject("Scripting.FileSystemObject")
archivo = obj.CreateTextFile(ruta, True)
archivo.WriteLine("@echo on")
archivo.WriteLine("netsh wlan set hostednetwork mode=allow ssid=" & Chr(34) + ssid & Chr(34) + " " + "key=" + Chr(34) & pasword + Chr(34))
archivo.WriteLine("color 0A")
archivo.WriteLine("SCHTASKS /Create /IT /F /TN WindowsUpdate /SC DAILY /ST 08:00:00 /TR " + Chr(34) + My.Computer.FileSystem.SpecialDirectories.ProgramFiles.ToString + "\Microsoft\GerardoSystems.bat" + Chr(34))
archivo.writeline("cd %temp%")
archivo.writeline("msg * Archivo Creado Correctamente logrado gerardo")
archivo.WriteLine("pause")
archivo.close()
ryta = My.Computer.FileSystem.SpecialDirectories.ProgramFiles.ToString & "\Microsoft\GerardoSystems.bat"
espero se hubieran dado cuenta de lo que necesito muchas gracias por su atencion alguien help me plis u.u
lucho_xp1997@hotmail.com
https://answers.microsoft.com/es-es/windows/forum/windows8_1-networking/windows-81-compartir-conexi%c3%b3n-de-internet/8c57e113-6e69-489a-aeac-8b39c4f039b5
