JohnLBevan

#http://serverfault.com/questions/276098/check-if-user-password-input-is-valid-in-powershell-script
 $cred = Get-Credential #Read credentials
 $username = $cred.username
 $password = $cred.GetNetworkCredential().password

 # Get current domain using logged-on user's credentials
 $CurrentDomain = "LDAP://" + ([ADSI]"").distinguishedName
 $domain = New-Object System.DirectoryServices.DirectoryEntry($CurrentDomain,$UserName,$Password)

if ($domain.name -eq $null)

JohnLBevan

Function Convert-StringToValidateSetParameterCase {
    Param (
        [Parameter(Mandatory)]
        [System.Management.Automation.InvocationInfo]$InvocationInfo
        ,
        [Parameter(Mandatory)]
        [string]$ParameterName
        ,
        [Parameter(Mandatory)]
        [AllowEmptyString()]

JohnLBevan

function Get-AllCombos {
    [CmdletBinding()]
    [OutputType("System.Collections.Generic.List[System.Object]")]
    Param (
        [Parameter(Mandatory)]
        [AllowEmptyCollection()]
        #[System.Collections.Generic.List[System.Object]]$arr
        [System.Collections.Generic.List[System.Object]]$arr
    ) 
    $ErrorActionPreference = [System.Management.Automation.ActionPreference]::Stop

JohnLBevan

// Specify a value for `testCidr` (must be a valid CIDR; so if just looking for a specific IPv4 IP, append /32 on the end).  
// Run this and you'll see all IP Groups which contain CIDRs or IPs which overlap in any way with the given value.

resourcecontainers | where type == "microsoft.resources/subscriptions" | limit 1 // this is a hack to give us a single row
| project testCidr = "123.123.123.123/32" // update this value to the CIDR you're interested in
| extend testCidrSplit = array_concat(split(split(testCidr, '/')[0],'.'), split(split(testCidr, '/')[1],'x'))
| extend testCidrFirstIp = toint(testCidrSplit[0]) * 16777216 + toint(testCidrSplit[1]) * 65536 + toint(testCidrSplit[2]) * 256 + toint(testCidrSplit[3])
| extend testCidrLastIp = testCidrFirstIp + pow(2,32-testCidrSplit[4])-1
| extend joinhack = 1
| join kind = inner

JohnLBevan

<#
        .SYNOPSIS
        Converts a CIDR notation IP Range to an array of those IPs, or an object containing the first and last values in the range.
        All representations of IPs are returned as type: [System.Net.IPAddress]

        .DESCRIPTION
        Converts a CIDR notation IP Range to an array of those IPs, or an object containing the first and last values in the range.
        All representations of IPs are returned as type: [System.Net.IPAddress]

        .PARAMETER IpRangeCidr

JohnLBevan

$username = 'username'
$password = 'password'
$computer = $env:COMPUTERNAME
Add-Type -AssemblyName 'System.DirectoryServices.AccountManagement'
$obj = [System.DirectoryServices.AccountManagement.PrincipalContext]::new('machine',$computer)
$obj.ValidateCredentials("$computer\$username", $password) 

JohnLBevan

<#
.SYNOPSIS
Used to help migrate R53 zones by converting the JSON obtained by 
extracting all record sets from a zone to the JSON required to upload 
these recordsets to another zone.

.DESCRIPTION
Covers those tasks described in step 4 of [Migrating an AWS Zone](https://docs.aws.amazon.com/Route53/latest/DeveloperGuide/hosted-zones-migrating.html#hosted-zones-migrating-create-file)
i.e. to convert the output of `aws route53 list-resource-record-sets --hosted-zone-id <hosted-zone-id>`
... to the input of `aws route53 change-resource-record-sets --hosted-zone-id id-of-new-hosted-zone --change-batch file://path-to-file-that-contains-records`

JohnLBevan

Function Copy-FtpItem {
	[CmdletBinding()]
	Param (
		[Parameter(Mandatory, ValueFromPipeline)]
		[string[]]$Path
		,
		[Parameter(Mandatory)]
		[string]$FtpHost

JohnLBevan

variable "demoIpv4Cidr" {
  type    = string
  default = "10.0.0.1/16" # try "10.0.0.0/16" for a valid value or "10.0.0.x/16" for an invalidly formatted cidr

  validation {
    condition     = (
      can(cidrhost(var.demoIpv4Cidr, 0)) &&
      try(cidrhost(var.demoIpv4Cidr, 0), null) == split("/", var.demoIpv4Cidr)[0]
    )
    # the above could be simplified to:

JohnLBevan

function ConvertTo-RootDomain {
  [CmdletBinding()]
  Param (
    [Parameter(Mandatory)]
    [string]$Domain
  )
  if ($null -eq $Global:CachedPublicDomainSuffixList) {
    $publicDomainSuffixList = Invoke-WebRequest -Method GET -Uri 'https://publicsuffix.org/list/public_suffix_list.dat' -ContentType 'text/plain' -ErrorAction Stop
    $tempSet = [System.Collections.Generic.HashSet[string]]::new()
    foreach ($suffix in @($publicDomainSuffixList.Content -split '\s*[\r\n]+')) {