dustinberube.com

# Downloads files from an FTP server and unzips them.
# The script will only download new files that have not
# been previously downloaded and extracted into the
# working directory. This can be setup as a scheduled
# task to automate script run-time. Basic logging is
# is written into the FTPUtil.log text file in the 
# application directory.
#
# Created by Dustin Berube on 11/16/2010.
# Requires Indy.Sockets.dll and Mono.Security.dll version=1.0.5000.0
 
# Base Location of Files to work with
$workingPath = 'x:\path\to\your\file\location'
 
# File Extension
$fileExt = '.ZIP' # File extension of file you are downloading.
 
# FTP Information
$ftpDir 	= "/directory"  			# Directory path to folder on ftp server
$ftpServer 	= "ftp.yourserver.com"		# FTP Server address
$ftpUser 	= "username" 				# FTP Username
$ftpPass 	= "password" 				# FTP Password
 
# Application Directory - Usually C:\FTPUtil unless installed to different directory
$appDir = 'C:\FTPUtil'
 
#
# DO NOT CHANGE ANYTHING BELOW THIS LINE
#
 
set-location $workingPath
$shell = new-object -com shell.application
 
function unzip-Files {
	$location = $shell.namespace($workingPath)
	$zipFiles = get-childitem *.zip
 
	if (Test-Path ($workingPath + "\*$fileExt")) {
	foreach ($zipFile in $ZipFiles) {
		$destDirectory = ($workingPath + "\" + $zipFile.name.Trim($fileExt))
		if (!(Test-Path -path $destDirectory)) {
			[IO.Directory]::CreateDirectory($destDirectory) | out-null
			$location = $shell.namespace($destDirectory)
			$zipFolder = $shell.namespace($zipFile.fullname)
 
			$location.copyhere($zipFolder.items())
			((get-date).ToString() + " --- " + $zipFile.name + " extracted to $destDirectory") | out-file "$appDir\FTPUtil.log" -append
		}
	}
	Remove-ZipFiles
	}
	else {
		((get-date).ToString() + " --- NO FILES DOWNLOADED AND UNZIPPED") | out-file "$appDir\FTPUtil.log" -append
	}
}	
 
function Remove-ZipFiles {
	set-location $workingPath
	$location = $shell.namespace($workingPath)
	remove-item "*$fileExt"
}
 
function Open-FTPConnection {
	# Load Indy Sockets Library
	[Reflection.Assembly]::LoadFrom("C:\ftputil\Indy.Sockets.dll") | Out-Null
 
	$ftp = new-object Indy.Sockets.FTP
	$ftp.Disconnect()
 
	# Connect to FTP Server
	$ftp.Host = $ftpServer
	$ftp.Username = $ftpUser
	$ftp.Password = $ftpPass
	$ftp.Connect()
 
	# Set PASV mode
	$ftp.Passive = $true
 
	return $ftp
}
 
function Close-FTPConnection($ftp) {
	$ftp.Disconnect()
}
 
function Download-FTPFile($ftp) {
	$ls = new-object System.Collections.Specialized.StringCollection
	$ftp.List($ls, $ftpDir, $false)
	foreach($file in $ls) {
		$fileName = $file.Trim("$ftpDir/")
		if (!(Test-Path -path ($workingPath + "\" + $fileName.Trim($fileExt)))) {
			 $ftp.Get($file, ($workingPath + "\$fileName"), $true, $false)
			 ((get-date).ToString() + " --- $fileName Downloaded and saved to $workingPath") | out-file "$appDir\FTPUtil.log" -append
		}
	}
}
 
$f = Open-FTPConnection
Download-FTPFile $f 
Close-FTPConnection $f
unzip-Files

'Created by Dustin Berube on 3/22/2010 Version 2.0
'Documented on 3/22/2010

' This script will loops through all installed
' network printers on a workstation and removes
' them. Recommend running this as a Logoff script.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Network = TRUE")
 
For Each objPrinter in colInstalledPrinters
    objPrinter.Delete_
Next

# Load Quest Active Directory Snap-in
add-pssnapin quest.activeroles.admanagement
 
# Get list of users that have home folders on the SAN. Creates an array of objects
$users = get-qaduser -size 1000 | select logonName,homeDirectory | where {$_.homeDirectory -like '\\path\to\users\*'}
 
# Loop through $users array
foreach ($x in $users) {
 
    # Check to see if directory exists. If not write error message to console.
    if (test-path $x.homeDirectory) {
 
        # Build ACL and grant user modify rights to their respective folder. Also propagates the access rule to subfolder and files.
        $acl = get-acl $x.homeDirectory
        $inherit = [System.Security.AccessControl.InheritanceFlags]"ContainerInherit","ObjectInherit"
        $prop = [system.security.accesscontrol.PropagationFlags]"InheritOnly"
        $ar = new-object system.security.accesscontrol.filesystemaccessrule($x.LogonName,"Modify", $inherit, $prop, "Allow")
 
        $acl.SetAccessRule($ar)
 
        # Set ACL on directory
        set-acl $x.homeDirectory $acl
    }
    else {
        write-host $x.homeDirectory "does not exist."
    }    
}
 
write-host "All folder permissions have been changed. Any errors have been listed above."

# Creates Active Directory Computers Accounts in the
# specified OU. Reads computer names from a text file
# with one computer name per line. Requires an account
# with Domain Admin  credentials. 
#
# Created by Dustin Berube on 9/18/2010.
# Requires the Quest ActiveRoles Management tools for AD
 
# Load Quest Powershell Snap-in
add-pssnapin quest.activeroles.admanagement
 
# Create pause function to hold the display on screen
function Pause ($Message="Press any key to continue...")
{
    Write-Host -NoNewLine $Message
    $null = $Host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown")
    Write-Host ""
}
 
# Obtain import file, OU, and Computer location
$textFile = read-host "Path to text file cotaining computer names"
$ou = read-host "Please enter the OU (Format of domain.suffix/ou/ou)"
$location = read-host "Please Enter the Location"
 
# Load the contents of the text file to an array
$computer = gc $textFile
 
# first check to see if computer accounts already exist with
# the specified name. If not create the account.
$compCheck = get-qadcomputer -Name $computer | select name, dn
$i = 1
 
if ($compCheck -ne $null) {
    write-host "`nERROR: The following Computer Accounts already exist.`n"
    foreach ($x in $compCheck) {
        $obj = new-object psobject
        $obj | add-member noteproperty ComputerAccount $x.name
        $obj | add-member noteproperty DN $x.DN
        write-output $obj;$i++;
    }
    write-host "`nPlease correct the error and run the import script again.`n"
    pause
}    
else {
    write-host "`nSUCCESS: Added the following computer account(s) to this OU`n" $ou "`n"
    foreach ($x in $computer) {
        new-qadcomputer -Name $x -SamAccountName $x -ParentContainer $ou -Location $location
    }
    write-host "`n" # Add blank line before pause
    pause
}

Get-WmiObject Win32_Product
Error
Number: 0x80041001
Facility: WMI
Description: Generic failure