Ноэл М., Спенс К. - Microsoft SharePoint. Полное руководство - 2011

Write-Host -ForegroundColor Yellow "Установка работоспособности..."

SdbName = SFarmName + "UsageandHealthDataCollectionService"

New-SPUsageApplication

"Служба сбора данных об используемости и работоспособности SFarmName" -DatabaseName SdbName

SusageApplicationProxy = Get-SPServiceApplicationProxy | where (S_.Name -eq "Служба сбора данных об используемости и работоспособности SFarmName")

if(SusageApplicationProxy.Status -eq "Disabled”) {

SusageApplicationProxy.Status = "Online";

SusageApplicationProxy.Update();

)

Write-Host -ForegroundColor Green "Служба сбора данных об используемости 4>и работоспособности установлена"

)

Function Rename-SGLDatabase { param (

[string] $ServerНаше,

[string] SSourceDb,

[string] SDestDb

)

Sconnection = New-Object System.Data.SqlClient.SqlConnection $ command = New-Object System. Data. SqlClient. SqlCommand

Sconnection.ConnectionString = "Server=SServerName;Integrated Security=True;"

Scommand. CommandText = "ALTER DATABASE [$SourceDb] SET OFFLINE WITH ROLLBACK IMMEDIATE; WALTER DATABASE [SSourceEb] SET ONLINE;EXEC sp_renamedb [SSourceDb], [SDestDb];" Scommand. Connection = Sconnection

S command.Connection.Open();

Scommand. ExecuteNonQuery () ;

Scommand.Connection.Close();

)

Function New-SPPerformancePointApplicationAndProxy(SAppPool, SDBServer, SFarmName)

Write-Host -ForegroundColor Yellow "Установка службы PerformancePoint..."

SppApp = New-SPPerformancePointServiceApplication -Name "SFarmName PerformancePoint Services"

-ApplicationPool SAppPool

Stemp = SppApp.SettingsDatabase.split("\");

SdbName = Stemp[Stemp.Length-1];

SnewDBName = SFarmName + "_PerformancePointServices"

Rename-SOLDatabase -servername SDBServer -sourceDb SdbName -destEb SnewDBName; Set-SPPerfcrmancePointServiceApplication "SFarmName PerformancePoint Services" -SettingsDatabase "$DBServer\$newDBName";

New-SPPerformancePointServiceApplicationProxy -Serviceftpplication "SFarmName PerformancePoint Services"

-Name "SFarmName PerformancePoint Services Proxy"

-Default

Write-Host -ForegroundColor Green "Служба PerformancePoint установлена.” Start-SPService "PerformancePoint Service"

)

SserviceAppConfiguration = read-host "Сконфигурировать приложения-службы SharePoint? (Д/Н)" if (SserviceAppConfiguration -eq "Д") [

# Запуск службы таймера SP Start-SPTimer

SappPoolName =

Read-Host "Укажите имя для пула приложений ServiceApp (напр., ServiceAppPool)"

SmanagedAccountName = Read-Host "Введите учетную запись службы (напр., CompanyABC\sp_service)"

SmanagedAccount = Get-SPManagedAccountByName SmanagedAccountName

SappPool = Get-SPServiceApplicationPoolByName SappPoolName SmanagedAccount

#$DatabaseServer = read-host "Подготовка к добавлению существующей фермы. Укажите 4>имя SQL-сервера";

$FarmName = Read-Host "Введите имя фермы”;

$decision = read-host "Установить приложение-службу состояния? (Д/Н)" if (Sdecision -eq "Д") (

New-SPStateServiceApplicationGroup SFarmName

)

Sdecision = read-host "Установить приложение-службу сбора данных об «^используемости и работоспособности? (Д/Н)" if (Sdecision -eq "Д") {

New-SPUsageApplicationAndProxy SFarmName

>

Sdecision = read-host "Установить службу Access Services? (Д/Н)" if (Sdecision -eq "Д") I

Write-Host -ForegroundColor Yellow "Установка Access Services..." Start-SPService("Access Database Service")

New-SPAccessServiceApplication -Name "SFarmName Access Services" -ApplicationPool SappPool -Default Write-Host -ForegroundColor Green "Служба Access Services установлена."

)

Sdecision = read-host "Установить службу Business Data Connectivity? (Д/Н)" if (Sdecision -eq "Д") {

Write-Host -ForegroundColor Yellow "Установка службы Business Data Connectivity..." Start-SPService("Business Data Connectivity Service")

SdbName = SFarmName + "_BusinessDataConnectivityService"

New-SPBusinessDataCatalogServiceApplication

-Name "SFarmName Business Data Connectivity Service"

-ApplicationPool SappPool -databaseName SdbName

Write-Host -ForegroundColor Green "Служба Business Data Connectivity установлена."

}

Sdecision = read-host "Установить службу поиска? (Д/Н)" if (Sdecision -eq "Д”) {

Write-Host -ForegroundColor Yellow "Установка службы поиска___"

SnewAccount = Read-Host "Использовать SmanagedAccountName в качестве учетной ^записи службы поиска? (Д/Н)" if(SnewAccount -eq "Н") {

SsearchAccountName =

Read-Host "Введите учетную запись поиска (напр., CompanyABC\sp_search)“ SsearchAccount = Get-SPManagedAccountByName SsearchAccountName ) else (

SsearchAccount = SmanagedAccount

)

if(-not (Get-SPServiceApplicationByType("Usage and Health Data Collection ^Service Application"))) {

Sdecision = Read-Host "Для работы службы поиска необходимо установить ^приложение-службу сбора данных об используемости и работоспособности. Установить See сейчас (Д/Н) ?"