Script - Compartilhamentos - Criar compartilhamento

Cria um Compartilhamento local ou remoto

O script a seguir pode auxiliar na criação de um compartilhamento no Windows de forma simples e rápida, bastando somente algumas alterações no script conforme necessário. instruções para utilização do script.

Abra o bloco de notas do Windows, selecione o código entre o "Início do código" e o "Fim do código", copie e cole no bloco de notas e em seguida salve o arquivo como .vbs

Edite o arquivo e altere as informações escritas em vermelho.

'**Inicio do Código***************************************************************

Const FILE_SHARE = 0


Const MAXIMUM_CONNECTIONS = 10
strComputer = "."


Set objWMIService = GetObject("winmgmts:" _


& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")



Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _


("C:\Teste", "Nome_do_Compartilhamento", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Descrição do compartilhamento.")



"WScript.Echo "Concluído"

'**Fim do código**************************************************************** Ass.

'Marcelo Montezuma