2004년 4월 30일 금요일

공공기관 IPv6 도입, 윈도우98이「걸림돌」

최근 개정된 저작권법 시행으로 인해서 기존에 등록된 뉴스 기사 본문 내용을 삭제하였습니다. 접속자 여러분의 양해 부탁드리며 차후 게시되는 뉴스기사는 원본 뉴스기사 웹사이트에 기사 등록 허락을 받은 것만 등록할 예정이며, 미허가된 기사는 기사링크만 등록할 예정입니다.

2004년 4월 29일 목요일

윈도우 XP 서비스팩 2 출시 연기

최근 개정된 저작권법 시행으로 인해서 기존에 등록된 뉴스 기사 본문 내용을 삭제하였습니다. 접속자 여러분의 양해 부탁드리며 차후 게시되는 뉴스기사는 원본 뉴스기사 웹사이트에 기사 등록 허락을 받은 것만 등록할 예정이며, 미허가된 기사는 기사링크만 등록할 예정입니다.

2004년 4월 8일 목요일

MS, SourceForge에 소스 코드 공개

최근 개정된 저작권법 시행으로 인해서 기존에 등록된 뉴스 기사 본문 내용을 삭제하였습니다. 접속자 여러분의 양해 부탁드리며 차후 게시되는 뉴스기사는 원본 뉴스기사 웹사이트에 기사 등록 허락을 받은 것만 등록할 예정이며, 미허가된 기사는 기사링크만 등록할 예정입니다.

리눅스로 이전, 비용 오히려 더 많이 든다

최근 개정된 저작권법 시행으로 인해서 기존에 등록된 뉴스 기사 본문 내용을 삭제하였습니다. 접속자 여러분의 양해 부탁드리며 차후 게시되는 뉴스기사는 원본 뉴스기사 웹사이트에 기사 등록 허락을 받은 것만 등록할 예정이며, 미허가된 기사는 기사링크만 등록할 예정입니다.

2004년 4월 7일 수요일

ADSI 및 WSH를 사용하여 FSMO 역할 소유자를 찾는 방법

다음 스크립트는 지정된 도메인이나 도메인 컨트롤러에 대한 FSMO(신축 단일 마스터 작업) 역할 소유자를 출력해 줍니다.

다음 코드를 Find_fsmo.vbs 같은 파일로 저장후에 실해하면 됩니다.

-------------------------------------------------

Option Explicit
Dim WSHNetwork, objArgs, ADOconnObj, bstrADOQueryString, RootDom, RSObj
Dim FSMOobj,CompNTDS, Computer, Path, HelpText


Set WSHNetwork = CreateObject("WScript.Network")
Set objArgs = WScript.Arguments

HelpText = "This script will find the FSMO role owners for your domain." & Chr(13) &_
Chr(10) & "The syntax is as follows:" & Chr(13) & Chr(10) &_
"find_fsmo DC=MYDOM,DC=COM" & Chr(13) & Chr(10) &_
"""Where MYDOM.COM is your domain name.""" & Chr(13) & Chr(10) & "OR:" &_
Chr(13) & Chr(10) & "find_fsmo MYDCNAME " & Chr(13) & Chr(10) &_
"""Where MYDCNAME is the name of a Windows 2000 Domain Controller"""


Select Case objArgs.Count
Case 0
Path = InputBox("Enter your DC name or the DN for your domain"&_
" 'DC=MYDOM,DC=COM':","Enter path",WSHNetwork.ComputerName)
Case 1
Select Case UCase(objArgs(0))
Case "?"
WScript.Echo HelpText
WScript.Quit
Case "/?"
WScript.Echo HelpText
WScript.Quit
Case "HELP"
WScript.Echo HelpText
WScript.Quit
Case Else
Path = objArgs(0)
End Select
Case Else
WScript.Echo HelpText
WScript.Quit
End Select


Set ADOconnObj = CreateObject("ADODB.Connection")

ADOconnObj.Provider = "ADSDSOObject"
ADOconnObj.Open "ADs Provider"


'PDC FSMO
bstrADOQueryString = "<LDAP://"&Path&">;(&(objectClass=domainDNS)(fSMORoleOwner=*));adspath;subtree"
Set RootDom = GetObject("LDAP://RootDSE")
Set RSObj = ADOconnObj.Execute(bstrADOQueryString)
Set FSMOobj = GetObject(RSObj.Fields(0).Value)
Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)
Set Computer = GetObject(CompNTDS.Parent)
WScript.Echo "The PDC FSMO is: " & Computer.dnsHostName


'Rid FSMO
bstrADOQueryString = "<LDAP://"&Path&">;(&(objectClass=rIDManager)(fSMORoleOwner=*));adspath;subtree"

Set RSObj = ADOconnObj.Execute(bstrADOQueryString)
Set FSMOobj = GetObject(RSObj.Fields(0).Value)
Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)
Set Computer = GetObject(CompNTDS.Parent)
WScript.Echo "The RID FSMO is: " & Computer.dnsHostName


'Infrastructure FSMO
bstrADOQueryString = "<LDAP://"&Path&">;(&(objectClass=infrastructureUpdate)(fSMORoleOwner=*));adspath;subtree"

Set RSObj = ADOconnObj.Execute(bstrADOQueryString)
Set FSMOobj = GetObject(RSObj.Fields(0).Value)
Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)
Set Computer = GetObject(CompNTDS.Parent)
WScript.Echo "The Infrastructure FSMO is: " & Computer.dnsHostName


'Schema FSMO
bstrADOQueryString = "<LDAP://"&RootDom.Get("schemaNamingContext")&_
">;(&(objectClass=dMD)(fSMORoleOwner=*));adspath;subtree"

Set RSObj = ADOconnObj.Execute(bstrADOQueryString)
Set FSMOobj = GetObject(RSObj.Fields(0).Value)
Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)
Set Computer = GetObject(CompNTDS.Parent)
WScript.Echo "The Schema FSMO is: " & Computer.dnsHostName


'Domain Naming FSMO
bstrADOQueryString = "<LDAP://"&RootDom.Get("configurationNamingContext")&_
">;(&(objectClass=crossRefContainer)(fSMORoleOwner=*));adspath;subtree"

Set RSObj = ADOconnObj.Execute(bstrADOQueryString)
Set FSMOobj = GetObject(RSObj.Fields(0).Value)
Set CompNTDS = GetObject("LDAP://" & FSMOobj.fSMORoleOwner)
Set Computer = GetObject(CompNTDS.Parent)
WScript.Echo "The Domain Naming FSMO is: " & Computer.dnsHostName


* 위 스크립트는 MSDN에서 참조하였습니다.

2019년 12월 MS 취약점 패치 주요 사항

서버 관련 주요 중요 취약점 CVE-2019-1470 | Hyper-V 정보 유출 취약성 https://portal.msrc.microsoft.com/ko-KR/security-guidance/advisory/CVE-2019-1470 CVE...