Subscribe
Function Remove_Domain_Users_From_Local_Group
Dim strUser, strGroup, WshShell, objWMIService, colItems, objItem
strUser = "DOMAIN\USERNAME"
strGroup = "LOCALGROUP"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Group Where LocalAccount = True")
For Each objItem in colItems
If objItem.Name = strGroup Then
WshShell.Run "%comspec% /c net localgroup """ & strGroup & """ """ & strUser """ /delete", 0, True
End If
Next
Set objWMIService = Nothing
Set WshShell = Nothing
End Function
posted by bystander at 2:25 PM on November 7, 2006