Script to remove domain user from local administrator group

-
' (This script can run as logon script without problems because it first check if the user is a member.
' If the user is a local administrator s/he has privileges to remove him/her self from the local group.
' Do Keep in mind however that the user at this stage already is logged-on as an Administrator,
' s/he will keep all the access rights until the next logon).

Set objNetwork = CreateObject("Wscript.Network")
strUser = objNetwork.UserName
strDomain = objNetwork.UserDomain
strComputer = objNetwork.ComputerName

strLocalGroup = "Administrators"

On Error Resume Next

' Bind to local group object.
Set objGroup = GetObject("WinNT://" _
& strComputer & "/" & strLocalGroup & ",group")
If (Err.Number <> 0) Then wscript.Quit

' Bind to the user object on the Domain.
' (use also the WinNT provider).
Set objUser = GetObject("WinNT://" _
& strDomain & "/" & strUser & ",user")
If (Err.Number <> 0) Then wscript.Quit

On Error GoTo 0

' Check If user is a member, then remove him/her self! from local group
If (objGroup.IsMember(objUser.AdsPath) = True) Then
objGroup.Remove(objUser.AdsPath)

End If

Wscript.Quit

Comments

Post a Comment

Popular posts from this blog

LDAP Queries

-
This LDAP query should show you all users in your enviroment with exchange mailboxes that have OWA enabled . (&(objectCategory= user )(!protocolsettings=HTTP*0*)(msExchUserAccountControl=0)) This LDAP query should show you all users in your enviroment with exchange mailboxes that have OWA disabled. (&(objectCategory= user )(protocolsettings=HTTP*0*)(msExchUserAccountControl=0))
Read more

Exchange 2007 Powershell

-
Mailbox Size Report - Individual Database cls Get-MailboxStatistics -Database "ecgcmail01\webmail users\mailboxes" | Sort-Object TotalItemsize -Descending | Where {$_.TotalItemSize -gt 145MB} | ft Displayname , @{expression={$_.TotalItemSize.Value.ToMB()}}, StorageLimitStatus Get-MailboxStatistics -Database "ecgcmail01\general users\mailboxes" | Sort-Object TotalItemsize -Descending | Where {$_.TotalItemSize -gt 65MB} | ft Displayname , @{expression={$_.TotalItemSize.Value.ToMB()}}, StorageLimitStatus ******************************* update 10K Photo in AD Import-RecipientDataProperty -Identity "Bharat Suneja" -Picture -FileData ([Byte[]]$(Get-Content -Path "C:\pictures\BharatSuneja.jpg" -Encoding Byte -ReadCount 0)) ************************************** Enable OWA for list of users $path = “d:\Andy\Owa.txt” foreach ($line in Get-Content $path) { Set-CASMailbox –Identity $line –OWAEnabled:$true } ******************************
Read more

Delete Media Files

-
Script to delete media files Script Code: ------------------------------------------------------------------------------ strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery _ ("Select * from CIM_DataFile where Extension = 'mp3' OR Extension = 'wma' OR Extension = 'flv' OR Extension = 'jpg' OR Extension = 'mov' OR Extension = 'avi' OR Extension = '3gp' OR Extension = 'flv' OR Extension = 'vob' OR Extension = 'mpeg'") For Each objFile in colFiles objFile.Delete Next
Read more