Scripts - compartilhamento - Deletar compartilhamento

Cria um Compartilhamento local ou remoto

O script a seguir pode auxiliar na criação exclusã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***************************************************************

strComputer = "."


Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colShares = objWMIService.ExecQuery _


("Select * from Win32_Share Where Name = 'Nome_do_Compartilhamento'")
For Each objShare in colShares
objShare.DeleteNext

"WScript.Echo "Concluído"

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

'Marcelo Montezuma