-
Notifications
You must be signed in to change notification settings - Fork 1
/
domain_admins_removal.vbs
30 lines (23 loc) · 1.07 KB
/
domain_admins_removal.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'-------------------------------------------
' deleting domain admins group from local administrators
'
' https://github.com/password123456
'-------------------------------------------
Option Explicit
Dim WshShell, objNet
Dim strDomainAdmins, strDomainName, objLocalGroup, objDomainAdmins
Set objNet = CreateObject("WScript.Network")
strDomainName = objNet.UserDomain
strDomainAdmins = "Domain Admins"
Set objLocalGroup = GetObject("WinNT://./Administrators,group")
Set objDomainAdmins = GetObject("WinNT://" & strDomainName & "/" & strDomainAdmins & ",group")
If Err.Number = 0 Then
Set WshShell = CreateObject("WScript.Shell")
If objLocalGroup.IsMember(objDomainAdmins.ADsPath) Then
objLocalGroup.Remove(objDomainAdmins.ADsPath)
WshShell.LogEvent 0, "[Domain Admins Removal Script] " & vbNewLine & Now & " / " & strDomainName & "\" & strDomainAdmins & " / Removal Success."
Else
WshShell.LogEvent 0, "[Domain Admins Removal Script] " & vbNewLine & Now & " / " & strDomainName & "\" & strDomainAdmins & " / Already Removed."
End If
Set WshShell = Nothing
End If