#//*************************************************************#//編輯人：#//編輯單位：#//編輯作用：移動電腦到對應的OU下#//編製時間：2016.01.05#//******************************...
#//*************************************************************
#//編輯人：
#//編輯單位：
#//編輯作用：移動電腦到對應的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移動操作完畢**************************************************"
