dpo007

function DiscoWrite {
	param (
		[string]$str,
		[int]$speed = 25,
		[switch]$NoNewline
	)

	$anim = @('.', '-', '+', '*', '#')
	[int]$CursorTop = [Console]::CursorTop

dpo007

param (
    [string]$BiosPass = 'YerPassword',
    [switch]$Disable
)

$vendor = (Get-WMIObject -Class Win32_ComputerSystemProduct).Vendor
if ($vendor.ToUpper() -ne 'LENOVO') {
    Write-Host ('This is intended for use with Lenovo devices only. "Vendor" returned "{0}", exiting.' -f $vendor)
    Exit 666
}

dpo007

function GetHostNameFromUNC {
    param (
        [Parameter(Mandatory=$true)]
        [string]$UNCPath
    )

    $UNCPath -match '\\\\(.*?)\\' | Out-Null
    if ($Matches.Count -ge 2) {
        return $Matches[1]
    } else {

dpo007

function Get-UnlinkedGPOs {
    [string[]]$results = @()
    Get-GPO -All | ForEach-Object {
            if ( $_ | Get-GPOReport -ReportType XML | Select-String -NotMatch "<LinksTo>" ) {
                $results += $_.DisplayName
            }
        }
    return $results
}

dpo007

##########################
#  Sets "Share Across Devices" settings in Windows 10 to On/My devices only.
# - DPO, Jan. 2020
##########################

$path1 = 'HKCU:\Software\Microsoft\Windows\CurrentVersion\CDP'
$path2 = 'HKCU:\Software\Microsoft\Windows\CurrentVersion\CDP\SettingsPage'

$regKeys = @{
    CdpSessionUserAuthzPolicy = '1'

dpo007

param (
	[int]$DiskNumber = 0
)

Write-Host "Gathering SMART info for Disk $DiskNumber..."
$disk = Get-Disk $DiskNumber
$disk | Get-StorageReliabilityCounter | Select * | FL

$partitionsWithDriveLetters = $disk | Get-Partition | Where-Object { [bool]$_.DriveLetter }

dpo007

# Tests to see if Char value is "empty".
# Ran into a need to test for "empty" [Char] DriveLetters when using Get-Partition,
# and the usual PS comparison techniques weren't working with Char (ie: Char is never Null).
# If you (re)cast it to a Boolean, it'll return expected $True\$False to test for "Empty".
# This Gist exists as a reminder of that.

function CharIsEmpty {
	param (
		[Parameter(Mandatory=$True)]
		[char]$CharToTest

dpo007

#################
# Wrapper for Rename-Computer 
# - Intended to be used with an RMM/automated script launcher.
# - DPO, Jan. 2020
#################
param (
	[Parameter(Mandatory=$True)]
	[string]$NewName,
	[Parameter(Mandatory=$True)]
	[string]$DomainCreds,

dpo007

# Warning: This cleans all profiles STARTING WITH THE USERNAME GIVEN.  So "jsmith" would remove "jsmith", "jsmith.domain1.local", "jsmithly" etc.

function KillUserProfile {
	Param (
		[Parameter(Mandatory=$True)]
		[string]$UserName
	)

	$profiles = Get-CimInstance win32_userprofile

dpo007

function ComputerIsInGroup {
	param (
		[Parameter(Mandatory=$True)]
		[string]$GroupName
	)

	# Get computer's DN
	$objSearcher = New-Object System.DirectoryServices.DirectorySearcher
	$objSearcher.SearchRoot = New-Object System.DirectoryServices.DirectoryEntry
	$objSearcher.Filter = "(&(objectCategory=Computer)(SamAccountname=$($env:COMPUTERNAME)`$))"