Murali Palla

Add Domain User to Local Admin on Multiple Servers

Add Domain User to Local Admin on Multiple Servers Upon multiple requests, uploading my Old Script to Add Domain User to Local Admin on Multiple Servers.

'==========================================================================
' Author: Murali M Palla
' NAME: Add_Domain_Group_to_Local_Administrators.vbs
' DATE : 2012-Nov-08
' COMMENT: Takes the file servers.txt and outputs results to Job_Status.csv
' Version: V2
'==========================================================================
On Error Resume Next

Const ForReading = 1
Const ForAppending = 8

domain = InputBox("Enter the Domain Name ")  
myGroup = InputBox ("What NT DOMAIN Group do you wish to add to the Local Administrator Group?")

UserConfirmation= MsgBox ("You Entered  :  "&Domain&"\"&mygroup,vbYesNo)
If UserConfirmation = vbYes Then 
  
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set SrvList = objFSO.OpenTextFile("servers.txt", ForReading)
    Set Reportfile = objFSO.CreateTextFile ("Job_Status.csv",True)
    Reportfile.WriteLine "Server Name" &"," & " Status "
    
    Do Until SrvList.AtEndOfStream
        strComputer = lcase(srvlist.readline)
        
                strDomainGroup = "WinNT://" & domain & "/" & myGroup & ",group" 
     
               
                 
                Set objDomainGroup = GetObject(strDomainGroup) 
                 
                Set objNetwork = CreateObject("Wscript.Network") 
                    
                Set objLocalGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") 
            
                If Err.Number <> 0 Then
                
                    Reportfile.writeline UCase(strComputer) &","& Err.Number &"," & Err.Description 
                        
                    Err.Clear
        
                Else
            
                 
                If objLocalGroup.IsMember(objDomainGroup.AdsPath) Then
                    Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Is Already A Member of the Local Admin"
                Else 
                    objLocalGroup.Add(objDomainGroup.AdsPath)
                    Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Added to Local Admin"
                End If 
        End if        
    Loop             
    WScript.Echo "Done, Please check Job_Status.csv"
    
Else 
    MsgBox ("Script Stoping per your confirmation")
    
End If

'==========================================================================

' Author: Murali M Palla

' NAME: Add_Domain_Group_to_Local_Administrators.vbs

' DATE : 2012-Nov-08

' COMMENT: Takes the file servers.txt and outputs results to Job_Status.csv

' Version: V2

'==========================================================================

On Error Resume Next

Const ForReading = 1

Const ForAppending = 8

domain = InputBox("Enter the Domain Name ")

myGroup = InputBox ("What NT DOMAIN Group do you wish to add to the Local Administrator Group?")

UserConfirmation= MsgBox ("You Entered : "&Domain&"\"&mygroup,vbYesNo)

If UserConfirmation = vbYes Then

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set SrvList = objFSO.OpenTextFile("servers.txt", ForReading)

Set Reportfile = objFSO.CreateTextFile ("Job_Status.csv",True)

Reportfile.WriteLine "Server Name" &"," & " Status "

Do Until SrvList.AtEndOfStream

strComputer = lcase(srvlist.readline)

strDomainGroup = "WinNT://" & domain & "/" & myGroup & ",group"

Set objDomainGroup = GetObject(strDomainGroup)

Set objNetwork = CreateObject("Wscript.Network")

Set objLocalGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")

If Err.Number <> 0 Then

Reportfile.writeline UCase(strComputer) &","& Err.Number &"," & Err.Description

Err.Clear

Else

If objLocalGroup.IsMember(objDomainGroup.AdsPath) Then

Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Is Already A Member of the Local Admin"

Else

objLocalGroup.Add(objDomainGroup.AdsPath)

Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Added to Local Admin"

End If

End if

Loop

WScript.Echo "Done, Please check Job_Status.csv"

Else

MsgBox ("Script Stoping per your confirmation")

End If

572 total views, no views today

Add Domain User to Local Admin on Multiple Servers

Add Domain User to Local Admin on Multiple Servers Upon multiple requests, uploading my Old Script to Add Domain User to Local Admin on Multiple Servers.

'==========================================================================
' Author: Murali M Palla
' NAME: Add_Domain_User_to_Local_Administrators.vbs
' DATE : 2012-Nov-08
' COMMENT: Takes the file servers.txt and outputs results to Job_Status.csv
' Version: V2
'==========================================================================
On Error Resume Next

Const ForReading = 1
Const ForAppending = 8

domain = InputBox("Enter the Domain Name ")  
myGroup = InputBox ("What NT DOMAIN User do you wish to add to the Local Administrator Group?")

UserConfirmation= MsgBox ("You Entered  :  "&Domain&"\"&mygroup,vbYesNo)
If UserConfirmation = vbYes Then 
  
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set SrvList = objFSO.OpenTextFile("servers.txt", ForReading)
    Set Reportfile = objFSO.CreateTextFile ("Job_Status.csv",True)
    Reportfile.WriteLine "Server Name" &"," & " Status "
    
    Do Until SrvList.AtEndOfStream
        strComputer = lcase(srvlist.readline)
        
                strDomainGroup = "WinNT://" & domain & "/" & myGroup & ",user" 
     
               
                 
                Set objDomainGroup = GetObject(strDomainGroup) 
                 
                Set objNetwork = CreateObject("Wscript.Network") 
                    
                Set objLocalGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") 
            
                If Err.Number <> 0 Then
                
                    Reportfile.writeline UCase(strComputer) &","& Err.Number &"," & Err.Description 
                        
                    Err.Clear
        
                Else
            
                 
                If objLocalGroup.IsMember(objDomainGroup.AdsPath) Then
                    Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Is Already A Member of the Local Admin"
                Else 
                    objLocalGroup.Add(objDomainGroup.AdsPath)
                    Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Added to Local Admin"
                End If 
        End if        
    Loop             
    WScript.Echo "Done, Please check Job_Status.csv"
    
Else 
    MsgBox ("Script Stoping per your confirmation")
    
End If

'==========================================================================

' Author: Murali M Palla

' NAME: Add_Domain_User_to_Local_Administrators.vbs

' DATE : 2012-Nov-08

' COMMENT: Takes the file servers.txt and outputs results to Job_Status.csv

' Version: V2

'==========================================================================

On Error Resume Next

Const ForReading = 1

Const ForAppending = 8

domain = InputBox("Enter the Domain Name ")

myGroup = InputBox ("What NT DOMAIN User do you wish to add to the Local Administrator Group?")

UserConfirmation= MsgBox ("You Entered : "&Domain&"\"&mygroup,vbYesNo)

If UserConfirmation = vbYes Then

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set SrvList = objFSO.OpenTextFile("servers.txt", ForReading)

Set Reportfile = objFSO.CreateTextFile ("Job_Status.csv",True)

Reportfile.WriteLine "Server Name" &"," & " Status "

Do Until SrvList.AtEndOfStream

strComputer = lcase(srvlist.readline)

strDomainGroup = "WinNT://" & domain & "/" & myGroup & ",user"

Set objDomainGroup = GetObject(strDomainGroup)

Set objNetwork = CreateObject("Wscript.Network")

Set objLocalGroup = GetObject("WinNT://" & strComputer & "/Administrators,group")

If Err.Number <> 0 Then

Reportfile.writeline UCase(strComputer) &","& Err.Number &"," & Err.Description

Err.Clear

Else

If objLocalGroup.IsMember(objDomainGroup.AdsPath) Then

Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Is Already A Member of the Local Admin"

Else

objLocalGroup.Add(objDomainGroup.AdsPath)

Reportfile.WriteLine UCase(strComputer) &"," & Domain & "\" & myGroup &"," & " Added to Local Admin"

End If

End if

Loop

WScript.Echo "Done, Please check Job_Status.csv"

Else

MsgBox ("Script Stoping per your confirmation")

End If

1,459 total views, no views today

Configure Lotus Notes as the default e-mail client via GPO

Consider these requirements/instructions before you proceed with configuring Lotus Notes as a default mail client in the environment This article assumes that the Notes on the Clients are installed on the same location, if that is not the case: Create Individual GPOs and assign them […]

6,849 total views, 2 views today

Fix Missing Replication Object in Active Directory

How to create a replication connection object in Sites and Services manually (not replication connections, which are actually created by KCC), I am looking at how to create Replication Links, which are essential in creating a connection. Why do we need to do this ? […]

6,059 total views, 2 views today

AD Group Membership (Member(s) and Member of)

AD Group Membership (Member(s) and Member of) #powershell script to pull AD Group Membership using traditional ADSI method Will collect both Members and Member of Run the script in this format: .\ListGroupMembers.ps1 -DomainName mydomain.com -GroupName “Domain admins”

<#
.Synopsis
   List/Export Group Members of a Given Group From Domain
.EXAMPLE
   .\ListGroupMembers.ps1 -DomainName mydomain.com -GroupName "Domain admins"
.Author
   Murali M Palla
.Contact
    contact@muralipalla.com
.Version
    v1 - March-12,2015
    v2 - March-31,2015 - Added getting Member of list 
#>
[CmdletBinding()]
param(
  [parameter(Mandatory=$TRUE,Position=0,ValueFromPipeline=$False)]
    [String] $DomainName,
  [parameter(Mandatory=$TRUE,Position=1,ValueFromPipeline=$False)]
    [String] $GroupName
)
clear
function DN2CN([__ComObject] $object,[String] $method, $parameters) 
{
  $object.GetType().InvokeMember($method,"InvokeMethod", $NULL, $object, $parameters)
}
$ScriptStart = Get-Date -Format dd-MMM-yyyy-hh-mm-ss
$Report = "$($GroupName)_$ScriptStart.csv"
$error.Clear()
$ADS_NAME_INITTYPE_GC = 3
$ADS_NAME_TYPE_NT4 = 3
$ADS_NAME_TYPE_1779 = 1
$ADS_NAME_TYPE_Display = 4
$GetLDAPDN = New-Object System.DirectoryServices.DirectoryEntry("LDAP://$DomainName") -ErrorAction SilentlyContinue
$Domain = $GetLDAPDN.distinguishedName
if ($Domain)
{
    write-host "Domain Name: $Domain"
    $searcher = New-Object System.DirectoryServices.DirectorySearcher($GetLDAPDN)
    $searcher.Filter = "(&(objectCategory=Group)(name=$($GroupName)))"
    [System.DirectoryServices.SearchResult]$result = $searcher.FindOne()
    if($result)
    {
        $MemberCount = ($result.Properties.member).count
        $MemberOfCount = ($result.Properties.memberof).count
        Write-Host "$GroupName has $MemberCount members, and is part of $MemberOfCount Groups"
        $GroupCollection = @()
        foreach ($member in $result.Properties.member)
        {
            $dn = $member       
            $TranslateOBJ = New-Object -ComObject "NameTranslate"
            DN2CN $TranslateOBJ "Init" ($ADS_NAME_INITTYPE_GC, "")
            DN2CN $TranslateOBJ "Set" ($ADS_NAME_TYPE_1779,$DN)            
            $loginName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_NT4)
            try {$error.Clear();$displayName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_Display)}
            catch {if($error.Count){};$displayName=""}
            $GroupObject = New-Object -TypeName psobject
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Domain -Value "$DomainName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name GroupName -Value "$GroupName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Member -Value "$loginName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name MemberOf -Value ""
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name DisplayName -Value "$displayName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Location -Value "$member"
            $GroupCollection += $GroupObject
        }
        foreach ($member in $result.Properties.memberof)
        {
            $dn = $member       
            $TranslateOBJ = New-Object -ComObject "NameTranslate"
            DN2CN $TranslateOBJ "Init" ($ADS_NAME_INITTYPE_GC, "")
            DN2CN $TranslateOBJ "Set" ($ADS_NAME_TYPE_1779,$DN)            
            $loginName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_NT4)
            try {$error.Clear();$displayName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_Display)}
            catch {if($error.Count){};$displayName=""}
            $GroupObject = New-Object -TypeName psobject
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Domain -Value "$DomainName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name GroupName -Value "$GroupName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Member -Value ""
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name MemberOf -Value "$loginName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name DisplayName -Value "$displayName"
            Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Location -Value "$member"
            $GroupCollection += $GroupObject
        }
    }
    else {Write-Host "$GroupName not found" -ForegroundColor Red }
}

else {Write-Host "Unable to Query $DomainName, if you are sure that the Name is Correct, Please try in a different fromat" -ForegroundColor Red }
$GroupCollection | Export-Csv -Path $Report -NoTypeInformation

.Synopsis

List/Export Group Members of a Given Group From Domain

.EXAMPLE

.\ListGroupMembers.ps1 -DomainName mydomain.com -GroupName "Domain admins"

.Author

Murali M Palla

.Contact

contact@muralipalla.com

.Version

v1 - March-12,2015

v2 - March-31,2015 - Added getting Member of list

[CmdletBinding()]

param(

[parameter(Mandatory=$TRUE,Position=0,ValueFromPipeline=$False)]

[String] $DomainName,

[parameter(Mandatory=$TRUE,Position=1,ValueFromPipeline=$False)]

[String] $GroupName

)

clear

function DN2CN([__ComObject] $object,[String] $method, $parameters)

{

$object.GetType().InvokeMember($method,"InvokeMethod", $NULL, $object, $parameters)

}

$ScriptStart = Get-Date -Format dd-MMM-yyyy-hh-mm-ss

$Report = "$($GroupName)_$ScriptStart.csv"

$error.Clear()

$ADS_NAME_INITTYPE_GC = 3

$ADS_NAME_TYPE_NT4 = 3

$ADS_NAME_TYPE_1779 = 1

$ADS_NAME_TYPE_Display = 4

$GetLDAPDN = New-Object System.DirectoryServices.DirectoryEntry("LDAP://$DomainName") -ErrorAction SilentlyContinue

$Domain = $GetLDAPDN.distinguishedName

if ($Domain)

{

write-host "Domain Name: $Domain"

$searcher = New-Object System.DirectoryServices.DirectorySearcher($GetLDAPDN)

$searcher.Filter = "(&(objectCategory=Group)(name=$($GroupName)))"

[System.DirectoryServices.SearchResult]$result = $searcher.FindOne()

if($result)

{

$MemberCount = ($result.Properties.member).count

$MemberOfCount = ($result.Properties.memberof).count

Write-Host "$GroupName has $MemberCount members, and is part of $MemberOfCount Groups"

$GroupCollection = @()

foreach ($member in $result.Properties.member)

{

$dn = $member

$TranslateOBJ = New-Object -ComObject "NameTranslate"

DN2CN $TranslateOBJ "Init" ($ADS_NAME_INITTYPE_GC, "")

DN2CN $TranslateOBJ "Set" ($ADS_NAME_TYPE_1779,$DN)

$loginName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_NT4)

try {$error.Clear();$displayName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_Display)}

catch {if($error.Count){};$displayName=""}

$GroupObject = New-Object -TypeName psobject

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Domain -Value "$DomainName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name GroupName -Value "$GroupName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Member -Value "$loginName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name MemberOf -Value ""

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name DisplayName -Value "$displayName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Location -Value "$member"

$GroupCollection += $GroupObject

}

foreach ($member in $result.Properties.memberof)

{

$dn = $member

$TranslateOBJ = New-Object -ComObject "NameTranslate"

DN2CN $TranslateOBJ "Init" ($ADS_NAME_INITTYPE_GC, "")

DN2CN $TranslateOBJ "Set" ($ADS_NAME_TYPE_1779,$DN)

$loginName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_NT4)

try {$error.Clear();$displayName = DN2CN $TranslateOBJ "Get" ($ADS_NAME_TYPE_Display)}

catch {if($error.Count){};$displayName=""}

$GroupObject = New-Object -TypeName psobject

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Domain -Value "$DomainName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name GroupName -Value "$GroupName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Member -Value ""

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name MemberOf -Value "$loginName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name DisplayName -Value "$displayName"

Add-Member -InputObject $GroupObject -MemberType NoteProperty -Name Location -Value "$member"

$GroupCollection += $GroupObject

}

else {Write-Host "$GroupName not found" -ForegroundColor Red }

}

else {Write-Host "Unable to Query $DomainName, if you are sure that the Name is Correct, Please try in a different fromat" -ForegroundColor Red }

$GroupCollection | Export-Csv -Path $Report -NoTypeInformation

1,431 total views, no views today

List Remote Domain(s) Trusts & Functional Levels – Powershell Script

Powershell Script to List Multiple Remote Domain(s) Trusts and Functional Levels including the Trust Status. Copy all the Domains you wish to get this report run on a text file and name it “domains.txt” Place it in the same location as the script and run […]

1,869 total views, no views today

Audit User Logon and Logoff

What? We are Trying to get a list of users who Logged on/off/failed. Why? Now.. Why do we need this data ? Audit to start with. While on a Service Restoration call of an outage, to determine if any one logged in and made any […]

3,421 total views, no views today

Issues with Windows Gateway after Restart

What? Though the default gateway is set successfully and it does report you the correct configuration when you run ipconfig /all command. You tend to loose it or finds missing after the computer restarts Why? If you double-click the following registry entry, you find that […]

1,371 total views, no views today

Converting Windows Editions (2008 & 2012)

What? Convert a Windows 2008 or 2012 Server from Standard > Enterprise > Data-center Why? Several reasons including but not limited to: You have installed a Standard Edition and realized, it needs to be an Enterprise post deployment of applications and server sign off. Your […]

1,123 total views, no views today

Audit Selected Software From Multiple Servers

This script will search for multiple installed software from various computers and creates an excel sheet with the data. it is a VBScript and needs Microsoft Excel installed on the server that this script will run from. Servers.txt needs to be present with a each […]

996 total views, no views today

Network Info / inventory

Creates an Excel File with the Network Info / inventory of all the computers that are listed in servers.txt Needs Excel to be installed on the machine that the script will be run from. Queries and reports the listed items: Machine Name [Which is provided […]

1,331 total views, 1 views today

Audit Server Reboots (Powershell Script)

As an extension to my article on how to Audit Server Reboots, I have put forth a small script that might come handy. I consciously choose implementing WMI rather than inbuilt command lets as there were several Legacy OS’s still in our enterprise and using […]

1,450 total views, no views today

Determine Windows Shutdown and Restart times

Here is what every Windows Admin will have to learn sooner or later., how do we know when the server got rebooted ? Who rebooted it ? was that a clean shutdown or an unexpected one ? So, how do we tell this ? Just […]

1,370 total views, no views today

Check and Delete .BLG Files in “C:\PerfLogs\Admin” folder that are older than 2 days

Last night I was approached to script a tool that can Check and Delete .BLG Files in “C:\PerfLogs\Admin” folder that are older than 2 days. I choose #PowerShell for obvious reasons and here is something I put in real quick.. This script can be modified to […]

2,690 total views, no views today

Windows 2012 and Remote Desktop Services

While installing RDS on Windows 2012 you can run into weird issues, one of which is the installation stops all of a sudden and asks you to check the mighty “Event Viewer”. Here is what I have tried and learned over the time, most of […]

1,073 total views, no views today