none
Windows 8.1 - ¡Cómo compartir conexión de Internet configurada por comandos del CMD, SHELL, VBS, regedit.? RRS feed

  • Pregunta

  • 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
    viernes, 9 de junio de 2017 20:46