VBS/WSH/JS - [решено] Скрипт по удалению шар.

[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]

Цитата LAZ1488:



у определённой группы в домене

Управление областью действия объекта групповой политики

Фильтрация с использованием групп безопасности

[LAZ1488]

Спасибо