그대 예쁜 목소리로 자장가를 불러줘요
오늘 밤도 그대 내 꿈 속에 나와 함께 살아요
아이같은 그 미소로 나를 보며 웃어주네요
나는 그대라서 참 행복합니다

내가 힘들때나 많이 아플때 내 눈물을 고이 닦아주던
그대란 사람 어찌 말을 해야 할까요

첫번째 그대의 마음 나무처럼 나를 쉬게해
두번째 그대의 미소 햇살처럼 나를 밝게 비추고
세번째 그대의 손길 내가 힘들때마다 품에 안아준 그댈 사랑합니다

내가 슬플 때나 외로워 할 때 내 곁을 따스히 지켜주던
그대란 사람 어찌 말을 해야 할까요

네번째 그대의 온도 내 가슴을 따스하게 해
다섯째 그대의 눈물 더 열심히 나를 살아가게 해
여섯째 그대의 기도 쳐진 어깨를 피게 만들어 주는 그댈 사랑합니다

그대여 더 이상 눈물은 이젠 흘리지 말아요
영원토록 그대를 지킬게요

사랑하는 그댈 보면 바라만 봐도 난 행복해

일곱번째 그대 표정 시무룩한 나를 웃게해
여덟째 그대 목소리 내게 힘을 주는 그대이니까
아홉번째 그대 걸음 못난 날 매일마다 찾아와 주네
열번짼 그대란 선물
그대라서 난 정말 행복합니다

CA 속성 -> 확장 탭 -> CRL 배포 지점(CDP) -> 추가

외부에서 접근 가능한 위치 추가
http://CRL.Domain.Com/CertEnroll/<CRLNameSuffix><DeltaCRLAllowed>.crl

다음 두 개의 항목 체크
  - CRL에 포함. 클라이언트에서 델타 CRL 위치를 찾도록 해줍니다.
  - 발급된 인증서의 CDP 확장에 포함

OSI 7 Layer

L7 – 어플리케이션 레이어
사용자와 가장 가까운 계층으로 사용자 어플리케이션에 네트워크 서비스를 제공한다.
(예: Telnet, HTTP, FTP, ...)

L6 – 프레젠테이션 레이어
한 시스템 응용계층에서 넘겨 받은 정보를 다른 시스템 응용계층이 읽게 해준다.
(예: JPG, BMP, MIDI, WAV, AVI, MPEG, ...)

L5 – 세션 레이어
통신을 하고자 하는 두 호스트 간의 연결을 설정, 관리 및 종료한다.
효율적인 데이터 전송 처리, 서비스 종류 설정, 상위 계층에서 발생하는 문제에 예외 보고 기능을 수행한다.
(예: NFS, ASP, X – Window System, …)

L4 – 전송 레이어
시스템에 발생하는 데이터를 분할하고 재조립니다.
오류 검사, 흐름 제어 기능을하여 신뢰성있는 데이터를 전송한다.
(예: TCP, UDP)

• TCP: 연결형 전송 프로토콜로 양방향 데이터 전송을 제공한다. TCP는 메시지를 세그먼트로 잘게 분할하고 목적지에서 재조립하며 수신이 안 된 것은 재전송하며 세그먼트를 재조립하여 메시지로 복구한다.
• UDP: 비연결형 방식의 전송 프로토콜로 수신확인이나 전송 보장 없이 데이터를 교환한다. 오류 처리나 재전송은 상위 프로토콜에서 행해져야 한다. 빠른 속도의 처리 속도를 보장하나 신뢰성의 문제점이 따른다.

L3 – 네트워크 레이어
네트워크 내에 있는 두 호스트 간의 연결성을 제공하고 경로 선택을 한다.
(예: IP, IPX, Apple Talk, …)

L2 – 데이터링크 레이어
물리 링크를 통한 신뢰성있는 데이터 전송 기능을 제공한다.
물리적 주소 체계, 네트워크 토폴로지, 네트워크 접속, 오류 통지, 흐름 제어, 프레임 순차적 전송 등을 관여한다.
(예: Ethernet, Token Ring, FDDI, PPP, Frame-relay, …)

L1 – 물리 레이어
Bit 신호로 표현되는 물리 링크의 활성화/비활성화 및 링크 유지를 나타낸다.
(예: Cable, Connector, Bit, …)


TCP/IP 4 Layer

L4 – 어플리케이션 레이어(ISO 7 Layer의 5~7 계층)
L3 – 전송 레이어(ISO 7 Layer의 4 계층)
L2 – 인터넷 레이어(ISO 7 Layer의 3 계층)
L1 – 네트워크 레이어(ISO 7 Layer의 1, 2 계층)

Cisco Switches
Cisco Router
Cisco Firewalls
Cisco VPN Concentrators
Cisco Wireless devices
3Com Switches
HP Procurve Switches
F5 BigIp
Nortel
APC UPS

위와 같은 장비의 시뮬레이션 해준다.
SNMP 테스트 시 유용할 것 같다.

SnmpDeviceSimulatorSetup.zip

' 키 및 문자열 값 입력/업데이트
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

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

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

' Directory to Monitor
varPath = "C:\Windows"
varResultFile = "C:\DirSize.csv"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(varPath)
SumFiles = f.size
SumFiles = SumFiles / 1048576
SumFiles = Round(SumFiles,2)
Set fso = NOTHING
Set f= NOTHING
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
    dtmLocalTime = objItem.LocalDateTime
    dtmMonth = Mid(dtmLocalTime, 5, 2)
    dtmDay = Mid(dtmLocalTime, 7, 2)
    dtmYear = Left(dtmLocalTime, 4)
    dtmHour = Mid(dtmLocalTime, 9, 2)
    dtmMinutes = Mid(dtmLocalTime, 11, 2)
    dtmSeconds = Mid(dtmLocalTime, 13, 2)
Next
strNow = dtmYear & "/" & dtmMonth & "/" & dtmDay & "," & dtmHour & ":" & dtmMinutes & ":" & dtmSeconds
Set objWMIService = NOTHING
Set colItems = NOTHING
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(varResultFile, ForAppending, True)
objTextFile.WriteLine(strNow&",Directory Size:,"&sumfiles&"MB")
objTextFile.Close
Set objFSO = NOTHING
Set objTextFile = NOTHING