Skip to content

Instantly share code, notes, and snippets.

@Mehran
Created May 27, 2023 05:37
Show Gist options
  • Select an option

  • Save Mehran/69ed3182865c79a4a81380e567733b52 to your computer and use it in GitHub Desktop.

Select an option

Save Mehran/69ed3182865c79a4a81380e567733b52 to your computer and use it in GitHub Desktop.

Revisions

  1. Mehran created this gist May 27, 2023.
    37 changes: 37 additions & 0 deletions gistfile1.txt
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,37 @@
    Get-ADUser -Filter {(Enabled -eq "True") -and (PasswordNeverExpires -eq "True")} -Properties SamAccountName, PasswordNeverExpires | ft Name, SamAccountName, PasswordNeverExpires

    Get-ADUser -Filter {(Enabled -eq "True") -and (PasswordNeverExpires -eq "False")} -Properties SamAccountName, PasswordLastSet | Where PasswordLastSet -le (Get-Date).AddDays(-30) | ft Name, SamAccountName, PasswordLastSet

    Get-ADUser -Filter {(Enabled -eq "True") -and (PasswordNeverExpires -eq "False")} -Properties SamAccountName, LastLogon | Where-Object {([datetime]::FromFileTime($_.LastLogon) -le (Get-Date).AddDays(-90))} |ft Name, SamAccountName, {[datetime]::FromFileTime($_.LastLogon)}

    Get-ADGroupMember 'domain admins' | select name,samaccountname
    Get-ADGroupMember 'enterprise admins' | select name,samaccountname

    Get-LocalGroupMember "admins local fhbf"

    $ipRange = "192.168.1.1-192.168.1.10" # Specify the desired IP range
    $domain = "domain"

    $ipAddresses = Get-WmiObject -Class Win32_PingStatus -Filter "Address LIKE '$ipRange'" |
    Where-Object { $_.StatusCode -eq 0 } |
    Select-Object -ExpandProperty Address

    foreach ($ipAddress in $ipAddresses) {
    $computer = [System.Net.Dns]::GetHostByAddress($ipAddress).HostName

    $admins = Get-WmiObject -Class Win32_GroupUser `
    -ComputerName $computer `
    -Filter "GroupComponent=""Win32_Group.Domain='$domain',Name='Administrators'""" |
    ForEach-Object { $_.PartComponent -match "Name=`"(.+?)`"" | Out-Null; $Matches[1] }

    Write-Host "Local administrators on $computer ($ipAddress):"
    $admins
    Write-Host "----------------------"
    }



    sc create ServiceName binPath= "C:\Path\to\executable.exe" displayname= "My Service" description= "Description of my service"


    New-Service -Name "ServiceName" -BinaryPathName "C:\Path\to\executable.exe"