VDI 환경을 위한 SCVMM 성능 튜닝

VDI 환경의 특성 상 동시에 VM들이 켜지거나(출근 시간대) 동시에 VM들이 꺼지는(퇴근 시간대) 상황이 발생하는데 이 경우 VMM 서버에 많은 부하가 발생할 수 있다. 아래의 튜닝 방법은 약 1,000대의 VM을 기준으로 하므로, 이 이상의 경우에는 다수의 SCVMM 서버를 두어야 할 필요가 있다.

1,000대의 VM을 관리하기 위한 SCVMM 서버의 하드웨어 구성은 다음과 같다.
- 4Core 이상의 CPU와 8GB의 메모리
- SQL Server 2008 R2 Enterprise
- Fibre 방식 디스크로 데이터베이스와 로그 분리
- VM으로 구성할 경우 Pass-through 디스크로 구성

[새로 고침 주기 변경]
레지스트리 키 위치 - HKLM\SOFTWARE\Microsoft\Microsoft System Center Virtual Machine Manager Server\Settings
값형태 / 입력단위 - REG_DWORD / 초

파라미터로 실행되는 프로그램을 파라미터 단위로 CPU 사용률 출력
VBS VB Script

' 프로세스 및 파라미터 정보 - 동적 입력 로직 추가
HostProcess = "notepad"      ' 프로세스 명: .exe 제외
sApplication = "ABC.txt|123.txt|DEF.txt"     ' 테스트 파라미터

Dim Param(), PID(), N1(), D1(), N2(), D2(), CPUPerf()
Set WMI_Service = GetObject("winmgmts:{impersonationlevel=impersonate}!\root\cimv2")
NumCore = GetNumProcessors

Set colItems = WMI_Service.ExecQuery ("Select * from Win32_Process where name = '"&HostProcess&".exe'")
ProcessCount = colItems.Count
If ProcessCount = 0 Then
Set colItems = Nothing
Set WMI_Service = Nothing
WScript.Quit
End If

Redim Param(ProcessCount), PID(ProcessCount)
arrApplication = Split(sApplication,"|")
intCount = 0
For Each App in arrApplication
For Each Item in colItems
arrCommandLine = Split(Item.CommandLine," ")
If Instr(UCASE(App), UCASE(arrCommandLine(UBound(arrCommandLine)))) Then
Param(intCount) = App
PID(intCount) = Item.ProcessID
intCount = intCount + 1
End If
Next
Next
Redim N1(intCount), D1(intCount), N2(intCount), D2(intCount), CPUPerf(intCount)
Set colItems = Nothing

Set colItems = WMI_Service.ExecQuery ("Select * from Win32_PerfRawData_PerfProc_Process where name = '"&HostProcess&"' or name like '"&HostProcess&"#%'")
For Each CPUPerf1 in colItems
For i = 0 To intCount
If CPUPerf1.IDProcess = PID(i) Then
N1(i) = CPUPerf1.PercentProcessorTime
D1(i) = CPUPerf1.TimeStamp_Sys100NS
End If
Next
Next
WScript.Sleep(500)
Set colItems = WMI_Service.ExecQuery ("Select * from Win32_PerfRawData_PerfProc_Process where name = '"&HostProcess&"' or name like '"&HostProcess&"#%'")
For Each CPUPerf2 in colItems
For i = 0 To intCount
If CPUPerf2.IDProcess = PID(i) Then
N1(i) = CPUPerf2.PercentProcessorTime
D1(i) = CPUPerf2.TimeStamp_Sys100NS
End If
Next
Next
Set colItems = Nothing

For i = 0 to intCount
If ( 0 = (D2(i)-D1(i)) ) then
CPUPerf(i) = 0
Else
CPUPerf(i) = Round(((((N2(i) - N1(i)) / (D2(i) - D1(i))) * 100) / NumCore), 2)
End If
Next

' 출력 부분 - 가공 로직 추가
For i = 0 to intCount-1
WScript.Echo Param(i), PID(i), CPUPerf(i)
Next

' 코어 수 쿼리 함수
Function GetNumProcessors
Set colItems = WMI_Service.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objItem In colItems
On Error Resume Next
GetNumProcessors = objItem.NumberOfLogicalProcessors
If Err.number <> 0 Then
GetNumProcessors = objItem.NumberOfProcessors
End If
On Error GoTo 0
Next
Set colItems = Nothing
End Function

특정 프로세스명에 대한 모든 PID 별 CPU 성능 쿼리 (로직 개선)
VBS VB Script

strProcess = "notepad"        ' 프로세스 명: .exe 제외

Dim PID(), N1(), D1(), N2(), D2(), CPUPerf()
Set WMI_Service = GetObject("winmgmts:{impersonationlevel=impersonate}!\root\cimv2")
NumCore = GetNumProcessors

Set colItems = WMI_Service.ExecQuery ("Select * from Win32_PerfRawData_PerfProc_Process where name = '"&strProcess&"' or name like '"&strProcess&"#%'")
ProcessCount = colItems.Count
If ProcessCount = 0 Then
Set colItems = Nothing
Set WMI_Service = Nothing
WScript.Quit
End If

Redim PID(ProcessCount), N1(ProcessCount), D1(ProcessCount), N2(ProcessCount), D2(ProcessCount), CPUPerf(ProcessCount)
i = 0
For Each CPUPerf1 in colItems
PID(i) = CPUPerf1.IDProcess
N1(i) = CPUPerf1.PercentProcessorTime
D1(i) = CPUPerf1.TimeStamp_Sys100NS
i = i + 1
Next
WScript.Sleep(500)
Set colItems = WMI_Service.ExecQuery ("Select * from Win32_PerfRawData_PerfProc_Process where name = '"&strProcess&"' or name like '"&strProcess&"#%'")
i = 0
For Each CPUPerf2 in colItems
N2(i) = CPUPerf2.PercentProcessorTime
D2(i) = CPUPerf2.TimeStamp_Sys100NS
i = i + 1
Next
Set colItems = Nothing

For i = 0 to ProcessCount
If ( 0 = (D2(i)-D1(i)) ) then
CPUPerf(i) = 0
Else
CPUPerf(i) = Round(((((N2(i) - N1(i)) / (D2(i) - D1(i))) * 100) / NumCore), 2)
End If
Next

' 테스트 출력
WScript.Echo "프로세스 수: " & ProcessCount
For i = 0 to ProcessCount-1
WScript.Echo "PID: "& PID(i) & vbTab & "CPU Util: " & CPUPerf(i) & "%"
Next

' 코어 수 쿼리 함수
Function GetNumProcessors
Set WMI_Service = GetObject("winmgmts:{impersonationlevel=impersonate}!\root\cimv2")
Set colItems = WMI_Service.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objItem In colItems
On Error Resume Next
GetNumProcessors = objItem.NumberOfLogicalProcessors
If Err.number <> 0 Then
GetNumProcessors = objItem.NumberOfProcessors
End If
On Error GoTo 0
Next
End Function

RemoteFX 관련 그룹 정책 항목 (GPO)
Group Policy RemoteFX Windows Server 2008 R2 SP1

컴퓨터 구성 > 관리 템플릿 > Windows 구성 요소 > 터미널 서비스 > 원격 데스크톱 세션 호스트 > 원격 세션 환경

컴퓨터 구성 > 관리 템플릿 > Windows 구성 요소 > 터미널 서비스 > 원격 데스크톱 세션 호스트 > 원격 세션 환경 

인터넷 익스플로러 9 정식 릴리즈~!!

언어 별 다운로드 링크
http://windows.microsoft.com/ko-KR/internet-explorer/downloads/ie-9/worldwide-languages

Microsoft 기반 VDI 구성 시 구성 요소 별 이중화 및 로드 밸런싱 구성 방안

XenDesktop에서 사용자 로그온 후 리소스에 연결하기까지의 흐름도
사용자 인증 -> 웹 인터페이스 -> XML Broker -> 웹 인터페이스 -> 사용자 -> XML Broker -> 사용자

Hyper-V 구성 시 클러스터 네트워크 구성 (우선순위)

> PowerShell 실행
> Import-Module failoverclusters
> Get-ClusterNetwork | FT Name, Metric, Role
현재 네트워크 인터페이스의 메트릭과 용도 쿼리

Role의 값에 대한 설명은 다음과 같다.
Role = 0: 클러스터 네트워크 사용 안함
Role = 1: 클러스터 내부 네트워크(예: Private)
Role = 3: 클러스터 네트워크(예: Public)

기본 게이트웨이가 설정되어 있는 네트워크는 클러스터 네트워크로 설정되며 메트릭은 10,000 이상의 값을 가진다.
기본 게이트웨이가 설정되어 있지 않은 네트워크는 메트릭 1,000에서 10,000 사이의 값을 가지며 내부 네트워크로 간주된다.
메트릭은 비용을 나타내며 더 작은 값을 가질 수록 클러스터 내부 네트워크 용도(CSV의 리디렉션 I/O 포함)로 사용되어진다.

메트릭을 변경하는 방법은 다음과 같다.
> PowerShell 실행
> Get-ClusterNetwork "CSV Cluster" | %{$_.Metric=800}
> Get-ClusterNetwork "LM Cluster" | %{$_.Metric=900}
메트릭을 변경하는 경우에는 다른 네트워크 인터페이스와 메트릭 값이 충돌되지 않도록 하기 위해서는 1,000 이하의 값으로 설정하는 것이 좋다.

메트릭이 가장 작은 네트워크가 CSV의 리디렉션 I/O 용도로 사용된다.

VBS VBScript SCOM System Center Operations Manager
성능 수집 시간과 OM DB 인서트 시간에 많은 차이가 나는 서버 목록 쿼리

Dim TimeGap, objCN, strConnection, objRS, strSQLQuery
TimeGap = 15

Set objCN = CreateObject("ADODB.Connection")
strConnection = "Driver={SQL Server};Server=.;Trusted_Connection=TRUE"
objCN.Open strConnection
strSQLQuery= "USE OperationsManager"
strSQLQuery= strSQLQuery & " select"
strSQLQuery= strSQLQuery & " vme.path"
strSQLQuery= strSQLQuery & ", max(vpd.TimeAdded) as TimeAdded"
strSQLQuery= strSQLQuery & ", max(vpd.TimeSampled) as TimeSampled"
strSQLQuery= strSQLQuery & ", DATEDIFF(MINUTE, max(vpd.TimeSampled), max(vpd.TimeAdded)) as TimeGap"
strSQLQuery= strSQLQuery & ", Dateadd(HOUR, 9, max(vpd.TimeAdded)) as LocalTimeAdded"
strSQLQuery= strSQLQuery & ", Dateadd(HOUR, 9, max(vpd.TimeSampled)) as LocalTimeSampled"
strSQLQuery= strSQLQuery & " from PerformanceDataInsertView as vpd"
strSQLQuery= strSQLQuery & " join PerformanceCounterView as vpc on vpc.PerformanceSourceInternalId = vpd.PerformanceSourceInternalId"
strSQLQuery= strSQLQuery & " join ManagedEntityGenericView as vme on vme.Id = vpc.ManagedEntityId"
strSQLQuery= strSQLQuery & " where DATEDIFF(MINUTE, vpd.TimeSampled, vpd.TimeAdded) >= " & TimeGap
strSQLQuery= strSQLQuery & " group by vme.path"
objRS=CreateObject("ADODB.Recordset")
Set objRS = objCN.Execute(strSQLQuery)
strMsg = "다음 서버(들)의 성능 수집 시간과 데이터베이스 입력 시간의 차이가 " & TimeGap &"분 이상입니다. 컴퓨터의 시간 설정을 확인해 보시기 바랍니다. "
strServerList = ""
Do Until objRS.EOF
strServerList = strServerList & objRS(0) & "(시간 차: " & objRS(3) & "분), "
objRS.MoveNext
Loop
objRS.Close
objCN.Close
If strServerList <> "" Then
strServerList = Left(strServerList, Len(strServerList)-2)
End If

WScript.Echo strMsg & strServerList