Mudar porta?

[Douglas 6]

Salve!Como eu mudo a porta de comunicação do PWS?de 80 por exemplo para 81? :)/>

[PerdidoNaAutenticação 0]

FECHE O PWS ANTES DE FAZER ESTE PROCEDIMENTO!!!Vai INICIAR> EXECUTARregeditvai na chave: HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\ServiceProvider\ServiceTypes\W3svc vai ter um registro chamado:TCPporté só clicar duas vezes e mudar seu valor de 80 para 81dá OKe fecha o REGEDITReinicia o PC e o PWS vai tá rodando na porta 81

[Douglas 6]

só da para alterar pelo Regedit?

[PerdidoNaAutenticação 0]

Por enquanto só.... posso fazer uma ferramenta no Visual Basic pra alterar a porta, mas vai demorar uns 2 dias

[PerdidoNaAutenticação 0]

Eu disse que eu ia postar um programa, mas o programa fica muito grande....

eh só colar esse código num arquivo do bloco de notas e salvar ele com a extensão .VBS

 

ESTE SCRIPT SERVE PARA MUDAR A PORTA DO IIS TB!!

 

Dim WshShell, PORTSet WshShell = WScript.CreateObject("WScript.Shell")Dim Aviso, CertoCerto = "c"MsgBox("Seja bem-vindo ao script de mudança de porta do PWS / IIS.")Dim iResponseiResponse = MsgBox("Este script pode causar um alarme em seu antivirus. Garanto que neste script não há nenhum código malicioso e que você pode continuar o processo calmamente. Digite Não para sair e Sim para continuar.  ",vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton1,"Aviso de Segurança")Select Case iResponse    Case vbYes:Dim xpaPORT = InputBox("Digite a Porta","Digite a Porta desejada para reconfiguração","80","80")WshShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\ServiceProvider\ServiceTypes\W3svc\TCPport", PORT, "REG_DWORD"xpa = WshShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\ServiceProvider\ServiceTypes\W3svc\TCPport")MsgBox("Porta do PWS / IIS atualizada! Nova porta é: " & xpa)    Case vbNo:      MsgBox("Não houve alterações em seu sistema!")End Select