[решено] Скрипт по удалению шар. - Компьютерный форум OSzone.net

Нашёл скрипт по удалению расшаренных папок

Код:

On Error Resume Next

strComputer = "."

   

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

Set colShares = objWMI.ExecQuery("Select * from Win32_Share")

For Each objShare In colShares

    Select Case UCase(objShare.Name)

        Case "IPC$", "C$", "ADMIN$", "D$", "E$"

        Case Else

            objShare.Delete

    End Select

Next

Мне нужно чтобы он убрал шары у определённой группы в домене.
Помогите плиз дописать.