Удаление Расшаренных ресурсов

[Dark341]

Не могу написать скрипт в cmd, нужно чтобы при запуске удалялись абсолютно все расшаренные ресурсы, не используя промежуточных файлов, только один батник

[Iska]

WSH:
Option Explicit

Dim objSWbemObjectEx

For Each objSWbemObjectEx In WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").ExecQuery("SELECT * FROM Win32_Share")
'WScript.Echo objSWbemObjectEx.Name
objSWbemObjectEx.Delete
Next

WScript.Quit 0

После перезагрузки скрытые административные ресурсы будут восстановлены.