移动AD的计算机到对应的OU的powershell脚本
#//************************************************************* #//编辑人: #//编辑单位: #//编辑作用:移动计算机到对应的OU下 #//编制时间:2016.01.05 #//************************************************************* #************获取当前脚本执行的目录 $Location = $PSScriptRoot #**********************创建以yyyy-MM-dd的日志文件夹 $folderName ="Log" #*********************全路径 $folderPath = $Location + "\" + $folderName #*********************如果根文件夹不存在。则创建根文件夹 If((Test-Path $folderPath) -eq $False) { Write-Host "开始创建日志文件夹...---------------" -ForegroundColor Green New-Item -path $Location -name $folderName -itemType "directory" Write-Host "创建日志文件夹完毕...---------------" -ForegroundColor Green } #**************************创建一个日志文件yyyy-MM-dd.txt $DateTimeNow = Get-Date -Format 'yyyy-MM-dd' $logFileName = $DateTimeNow.ToString() +".txt" #**************************创建日志文件 $logFilePath = $folderPath + "\" + $logFileName; If((Test-Path $logFilePath) -eq $False) { Write-Host "开始创建日志文件...---------------" -ForegroundColor Green New-Item -path $folderPath -name $logFileName -itemType "File" Write-Host "创建日志文件完毕...---------------" -ForegroundColor Green } #**************导入AD的PowerShell执行模块 Import-Module ActiveDirectory #**************读取计算机文件TXT(格式一行一个) $computerObjects = Get-Content c:\Temp\Test.TXT #*************要移动的计算机到目标的所在的OU $TargetOUPath = "OU=test1,DC=contoso,DC=com" #*************得到服务名称 $serverName = $env:COMPUTERNAME #*************开始循环读取的计算机文件 Add-Content -Path $logFilePath -Value "******************************************开始执行PowerShell移动操作**************************************************" #******************循环 ForEach($computerObject in $computerObjects) { #****************打印信息 $PrintStart = "正在移动计算机【" + $computerObject +"】操作!" Write-Host $PrintStart -ForegroundColor Green #***************开始分析执行 try { #********************得到源的OU $SrcOUPath = Get-ADComputer $computerObject |select DistinguishedName -ExpandProperty DistinguishedName #********************打印出信息 $PrintOk = "正在把计算机:【" + $computerObject + "】从原有OU:【" + $SrcOUPath + "】移动到目标OU:【" + $TargetOUPath +"】下" Write-Host $PrintOk -ForegroundColor Green #**********************得到要移动的计算机GUID,并移动到对应的OU下 Get-ADComputer $computerObject | Move-ADObject -TargetPath $TargetOUPath #**********************记录移动的正确日志信息】 $logConent = (Get-Date).DateTime.ToString() +"成功:在计算机名为:【" + $serverName +"】电脑上,把AD里的计算机【" + $computerObject+ "】从原有OU:【"+ $SrcOUPath +"】成功移动到目标OU下:【" + $TargetOUPath +"】下" #*********************写入日志 Add-Content -Path $logFilePath -Value $logConent } catch { #*************************打印错误信息 $PrintError = "移动的计算机【" + $computerObject +"】在AD不存在,请联系AD管理员核对!" Write-Host $PrintError -ForegroundColor Red #************************记录错误日志信息 $FailContent = (Get-Date).DateTime.ToString() +"失败:在计算机名为:【" + $serverName +"】电脑上进行获取操作,在AD中无法获取到计算机【"+ $computerObject +"】的信息,请与AD管理员联系!" #************************写入失败日志 Add-Content -Path $logFilePath -Value $FailContent } } #****************************************执行完毕 Add-Content -Path $logFilePath -Value "******************************************执行PowerShell移动操作完毕**************************************************"