' 키 및 문자열 값 입력/업데이트
Set oArgs = WScript.Arguments

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\<Key Name>"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath

strValueName = "<Sting Value Name>"
strValue = oArgs(0)

oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue



' 문자열 값 쿼리
const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\<Key Name>"
strValueName = "<String Value Name 1>"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue1

strValueName = "<String Value Name 2>"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue2

If IsNull(strValue1) OR IsNull(strValue2) Then
WScript.Quit
End If

WScript.Echo strValue1
WScript.Echo strValue2

Cisco UCS(Unified Computing System)는 서버, 네트워크, 스토리지 및 가상화 기술을 통합해 TCO를 줄이고 업무에 대한 민첩성(Agility)을 증가시키도록 디자인된 데이터센터 플랫폼이다.

' 파라미터는 데이터베이스 이름
Dim oArgs
Set oArgs = WScript.Arguments

If oArgs.Count < 1 Then
WScript.Quit -1
End If

Dim dbcon, strCon, strDB, strSQL
strDB = oArgs(0)

Set dbcon = createobject("adodb.connection")
strCon = "provider=sqloledb;Data Source=localhost;Initial Catalog="&strDB&";Integrated Security=SSPI"

dbcon.open strCon
strSQL ="SELECT L.request_session_id AS SPID,DB_NAME(L.resource_database_id) AS DatabaseName,O.Name AS LockedObjectName,ST.text AS SqlStatementText,ES.login_name AS LoginName,ES.host_name AS HostName FROM sys.dm_tran_locks L JOIN sys.partitions P ON P.hobt_id = L.resource_associated_entity_id JOIN sys.objects O ON O.object_id = P.object_id JOIN sys.dm_exec_sessions ES ON ES.session_id = L.request_session_id JOIN sys.dm_tran_session_transactions TST ON ES.session_id = TST.session_id JOIN sys.dm_tran_active_transactions AT ON TST.transaction_id = AT.transaction_id JOIN sys.dm_exec_connections CN ON CN.session_id = ES.session_id CROSS APPLY sys.dm_exec_sql_text(CN.most_recent_sql_handle) AS ST WHERE resource_database_id = db_id() ORDER BY L.request_session_id"

Set Result = dbcon.execute(strSQL)

WScript.Echo "SPID | DatabaseName | LockedObjectName | SqlStatementText | LoginName | HostName"
Wscript.Echo "================================================================================"

Do while not Result.eof
strROW1 = Result(0)
strROW2 = Result(1)
strROW3 = Result(2)
strROW4 = Result(3)
strROW5 = Result(4)
strROW6 = Result(5)

If IsNull(strROW1) Then
strROW1 = "NULL"
End If
If IsNull(strROW2) Then
strROW2 = "NULL"
End If
If IsNull(strROW3) Then
strROW3 = "NULL"
End If
If IsNull(strROW4) Then
strROW4 = "NULL"
End If
If IsNull(strROW5) Then
strROW5 = "NULL"
End If
If IsNull(strROW6) Then
strROW6 = "NULL"
End If

WScript.Echo strROW1 & " | " & strROW2 & " | " & strROW3 & " | " & strROW4 & " | " & strROW5 & " | " & strROW6
Wscript.Echo "--------------------------------------------------------------------------------"

Result.movenext
loop

set Result = NOTHING
dbcon.close

SCSM 2010 구성 요소
- Service Manager 관리 서버
- Service Manager 데이터베이스
- Data Warehouse 관리 서버
- Data Warehouse 데이터베이스
- Service Manager 콘솔
- Self-Service Portal
* Data Warehouse 관리 서버와 Service Manager 관리 서버는 함께 설치될 수 없음


커넥터의 종류 및 역할
  - AD Connector: AD 개체 동기화
  - SCOM Alert Connector: SCOM 경고 동기화 (SCOM 2007 SP1 or R2)
  - SCOM CI Connector: SCOM 클래스, 인스턴스 속성 동기화 (SCOM 2007 SP1 or R2)
  - SCCM Connector: H/W, S/W 인벤토리 및 DCM 동기화(SCCM 2007 SP1 or SP2)


설치 후 작업
1. AD Connector 생성
  - Action Account는 Domain에 대한 읽기 권한 필요
  - Domain 전체 또는 OU 선택
  - 특정 개체 또는 모든 개체 동기화
  - Administration -> Connector -> Status에서 동기화 확인
    (AD Connector의 동기화 주기는 1시간)

2. SCOM 관리 팩 Import
  - InstallOMMPs.exe 압축 풀기
  - PowerShell 실행 정책 -> Unrestricted
  - installOMMPs.ps1 실행

3. SCOM Alert Connector 생성
  - 경고 라우팅 규칙 설정
  - 경고 폴링 주기(기본 값: 30초) 및 경고 해결 방법 설정
  - Administration -> Connector -> Status에서 동기화 확인

4. SCOM 구독 설정
  - SCOM 관리 콘솔 실행
  - 관리 -> 커넥터 -> Alert Sync:[SCOM Alert Connector 이름]
  - 구독 그룹, 대상 및 조건 설정

5. SCOM CI Connector 생성
  - SCOM의 모든 관리 팩이 Import되어 있어야 함
  - 관리 팩 선택 화면에서 비활성화되는 항목은 SCSM의 관리 팩 버전이 SCOM의 관리 팩 버전보다 낮기 때문이다.
    즉, 동기화하기 위해서는 SCSM의 관리 팩 버전이 SCOM의 관리 팩 버전보다 높아야만 한다.
  - CI Connector의 동기화 주기는 하루에 한 번
  - Administration -> Connector -> Status에서 동기화 확인

6. SCCM Connector 생성
  - SCCM 서버가 아닌 SCCM 사이트 데이터베이스에서 동기화
  - Action Account는 사이트 데이터베이스의 smsdbrole_extract, db_datareader 구성원이어야 한다.
  - 동기화할 컬렉션 선택
  - SCCM Connector의 동기화 주기는 하루에 한 번
  - Administration -> Connector -> Status에서 동기화 확인
    (SCCM Connector의 동기화는 비교적 긴 시간이 소요된다.)
* 커스터마이징한 H/W 인벤토리의 경우 이에 맞는 SCSM 관리 팩을 개발해야 한다.


CSV 파일을 이용한 Bulk Import 방법
- 콤마로 구분된 .CSV 파일과 .XML 파일, 두 종류의 파일이 필요하다.
- CSV 파일은 추가할 개체의 정보를 가지고 XML 파일을 개체의 타입과 속성을 정의한다.

[CSV 파일 예시]
Server1, 172.20.0.1, WORKGROUP
Server2, 172.20.0.2, CORPDOMAIN
Server3, 172.20.0.3, CORPDOMAIN
...

[XML 파일 예시]
<CSVImportFormat>
<Class Type="Microsoft.Windows.Computer">
<Property ID="PrincipalName"/>
<Property ID="IPAddress"/>
<Property ID="DomainDnsName"/>
</Class>
</CSVImportFormat>

- 파일 이름을 동일하게 생성한 후 SCSM 관리 콘솔의 Import from CSV File..을 이용해 가져온다.
  (예: BulkImport.csv, BulkImport.xml)

1. SCDPM 또는 WSB(Windows Server Backup)을 이용해 파일 복구 후
2. 복원할 시스템에 설치 이미지로 부팅
3. 컴퓨터 복구 클릭

SCOM System Center Operations Manager VBS VBScript VB Script 클래스 인스턴스 Class Instance Discovery
아래는 특정 레지스트리 키와 문자열 값을 확인해 값이 있으면 해당 클래스의 인스턴스를 생성하고, 값이 없는 경우 다시 미등록 컴퓨터라는 클래스로 빠지게 하는 스크립트다.

' $MPElement$ $Target/Id$ $Target/Property[Type="Windows!Microsoft.Windows.Computer"]/PrincipalName$

Dim oAPI

Set oAPI = CreateObject("MOM.ScriptAPI")

Dim oArgs

Set oArgs = WScript.Arguments

If oArgs.Count < 3 Then

Call oAPI.LogScriptEvent("AppDiscovery.vbs",101,0, "Arguments Error.")

WScript.Quit -1

End If

Dim SourceID, ManagedEntityId, TargetComputer, oDiscoveryData, oInst

SourceId = oArgs(0)

ManagedEntityId = oArgs(1)

TargetComputer = oArgs(2)

Set oDiscoveryData = oAPI.CreateDiscoveryData(0, SourceId, ManagedEntityId)

const HKEY_LOCAL_MACHINE = &H80000002

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

strKeyPath = "SOFTWARE\TEST-SCOM"

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Site",strSite

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Process",strProcess

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Line",strLine

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Role",strRole

Set oReg=Nothing

If IsNull(strSite) OR IsNull(strProcess) OR IsNull(strLine) OR IsNull(strRole) OR strSite="" OR strProcess="" OR strLine="" OR strRole="" Then

' 미등록 컴퓨터 인스턴스 생성

Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='TEST.Unregistered']$")

Call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)

Call oDiscoveryData.AddInstance(oInst)

Call oAPI.Return(oDiscoveryData)

WScript.Quit

End If

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")

For Each Item in colItems

strVendor = Item.Manufacturer

strModel = Item.Model

Next

Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each Item in colItems

strOS = Item.Caption

strSP = Item.CSDVersion

Next

Set colItems = Nothing

Set objWMIService = Nothing

' TEST 설비 인스턴스 생성

Set oInst = oDiscoveryData.CreateClassInstance("$MPElement[Name='TEST.ALLEQUIP']$")

Call oInst.AddProperty("$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$", TargetComputer)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/Site$", strSite)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/Process$", strProcess)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/Line$", strLine)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/Role$", strRole)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/Vendor$", strVendor)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/Model$", strModel)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/OS$", strOS)

Call oInst.AddProperty("$MPElement[Name='TEST.ALLEQUIP']/SP$", strSP)

Call oDiscoveryData.AddInstance(oInst)

Call oAPI.Return(oDiscoveryData)

WScript.Quit

Microsoft VDI(Virtual Desktop Infrastructure) 개요
윈도우 서버 이전 버전에서 터미널 서비스는 다중의, 그리고 동시에 사용자 세션을 호스트 하는 용도로 사용되었다. Windows Server 2008 R2가 되면서 터미널 서비스는 원격 데스크톱 서비스라는 이름으로 변경되었다.

DPM 2010 지원 운영체제
Windows Server 2008 R2
Windows Server 2008
Windows Storage Server 2008
Windows Storage Server 2003 R2
Windows Server 2003 SP1
Windows Server 2003 R2
Windows Unified Data Storage Server
Windows 7
Windows Vista (Business Edition 이상)
Windows XP Pro SP2

DPM 2010 지원 응용 프로그램 서버
SQL Server 2008
SQL Server 2005
SQL Server 2000 SP4
SQL Server로 운영 중인 SAP
Exchange 2010(DAG 포함)
Exchange 2007(LCR, CCR, SCR 포함)
Exchange 2003 SP2
Sharepoint Server 2010
Sharepoint Server 2007
Sharepoint portal server 2003
Sharepoint Foundation 2010
Sharepoint Services version 3.0
Sharepoint Services version 2.0
Dynamics AX 2009
Essentials Business Server 2008
Small Business Server 2008


특징
SQL
DPM 서버 당 최대 2000개의 SQL DB 백업 가능
SQL 서버에 대한 Self-Service Recovery 도구 제공

SharePoint
팜에 추가되는 새 컨텐츠 DB에 대한 자동 백업
SharePoint 2010에 대한 개별 아이템 수준의 복구

OS
Bare Metal Recovery(이전 버전의 SRT) 도구 통합

Hyper-V
서버 가상화 호스트 수준의 백업
클러스터 공유 볼륨(CSV) 지원
라이브 마이그레이션 중인 가상 머신의 끊김없는 백업
다른 서버 가상화 호스트로의 복구(DR 센터 구축)
아이템 수준(VHD)의 복구

Client
사용자 데이터의 백업(문서, 즐겨찾기, 바탕화면 등)
DPM 서버 당 최대 1000개의 클라이언트 백업 가능

요약
WORKGROUP 서버에 대한 백업 지원!!
   - 에이전트 수동 설치
   - SETDPMServer.exe -IsNONDomainServer
     (백업을 위한 로컬 계정 생성)
   - DPM 서버에서 수동 에이전트 연결
   - 포트: TCP 135, TCP 5718, TCP 5719
볼륨 자동 증가 옵션 추가
자동 일관성 확인 옵션 추가
100대의 서버, 1000대의 클라이언트, 2000개의 데이터베이스 백업 가능
최대 백업 용량 80TB로 증가
실패한 작업에 대한 자동 재시도
단기 및 장기 데이터 보관에 대한 향상된 유연성

strcomputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For each objitem in colitems
strIPaddress = Join(objitem.IPAddress, ",")
WScript.Echo strIPaddress
Next
Set colItems = NOTHING