[решено] Скрипт по удалению шар.

[LAZ1488]

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


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

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

[Petya V4sechkin]

у определённой группы в домене
Управление областью действия объекта групповой политики (http://technet.microsoft.com/ru-ru/library/cc738620(WS.10).aspx)
Фильтрация с использованием групп безопасности (http://technet.microsoft.com/ru-ru/library/cc779291(WS.10).aspx)

[LAZ1488]

Спасибо