Microsoft SharePoint 2010. Полное руководство (Спенс, Ноэл) - страница 72

$managedAccount = New-SPManagedAccount $managedAccountCredential

)

Return SmanagedAccount

)

Function Get-SPServiceApplicationByType{$TypeName) {

$serviceApplications = Get-SPServiceApplication I Where {$_.TypeName -eq STypeName)

if(SserviceApplications -ne $null) 1 Strue;

) else {

Sfalse;

)

)

Function New-SPStateServiceApplicationGroup(SFarmName) (

SdbName = SFarmName + "_StateService"

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

New-SPStateServiceDatabase SdbName I

New-SPStateServiceApplication -Name "SFarmName State Service Application" | New-SPStateServiceApplication-Proxy -Name "SFarmName State Service Application Proxy" -DefaultProxyGroup sleep 10;

Write-Host -ForegroundColor Green "Приложение-служба состояния установлено..."

1

Function New-SPUsageApplicationAndProxy(SFarmName) {

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";