<HTML>
<HEAD>
<meta http-equiv=Content-type content=text/html; charset=euc-kr>
<SCRIPT language=VBscript>
sub GetMSXMLVer
DIM msg
msg = "이 컴퓨터에는"
msg = msg & (Chr(13)&Chr(10))
xml = "<"+"?xml version='1.0'?"+"><root>SnIFfer</root>"
ON ERROR RESUME NEXT
SET dom = CreateObject("microsoft.XMLDOM")
dom.async = false
IF Err = 0 THEN
IF(dom.loadXML(xml)) THEN
msg = msg + " - msxml"
msg = msg & (Chr(13)&Chr(10))
END IF
SET dom = nothing
END IF
ON ERROR RESUME NEXT
SET dom = CreateObject("Msxml2.DomDocument")
dom.async = false
IF Err = 0 THEN
IF(dom.loadXML(xml)) THEN
msg = msg + " - Msxml2.DomDocument "
msg = msg & (Chr(13)&Chr(10))
END IF
SET dom = nothing
END IF
ON ERROR RESUME NEXT
SET dom = CreateObject("Msxml2.DomDocument.2.6")
dom.async = false
IF Err = 0 THEN
if(dom.loadXML(xml)) THEN
msg = msg + " - Msxml2.DomDocument2.6 "
msg = msg & (Chr(13)&Chr(10))
END IF
SET dom = nothing
END IF
ON ERROR RESUME NEXT
SET dom = CreateObject("Msxml2.DomDocument.3.0")
dom.async = false
IF Err = 0 THEN
IF(dom.loadXML(xml)) THEN
msg = msg + " - Msxml2.DomDocument3.0 "
msg = msg & (Chr(13)&Chr(10))
END IF
SET dom = nothing
END IF
ON ERROR RESUME NEXT
SET dom = CreateObject("Msxml2.DomDocument.4.0")
dom.async = false
IF Err = 0 THEN
IF(dom.loadXML(xml)) THEN
msg = msg + " - Msxml2.DomDocument4.0 "
msg = msg & (Chr(13)&Chr(10))
END IF
SET dom = nothing
END IF
msgbox msg & " 이 설치되어 있습니다.",,"내 컴퓨터에 설치된 파서목록"
END Sub
</SCRIPT>
</HEAD>
<BODY>
<INPUT onclick=GetMSXMLVer type=button value="설치된 MSXML 버전 확인하기">
</BODY>
</HTML>
'development > windows' 카테고리의 다른 글
| 네트워크 드라이브 설정 시 동일한 사용자가 둘 이상의 사용자 이름으로 라는 에러 발생시 (2) | 2011.09.06 |
|---|---|
| 특정 폴더명 삭제 (0) | 2011.06.28 |
| 윈도우 2003 SMTP 설정 2 (1) | 2010.08.09 |
| 윈도우 2003 SMTP 설정 (0) | 2010.08.09 |
| 시작메뉴 우클릭이 안 될 경우 (2) | 2010.07.28 |
