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
После перезагрузки скрытые административные ресурсы будут восстановлены.
