msxml 사용준비~!(checklist& 설정사항)

프로그래밍/JAVA

by 라제폰 2009. 3. 6. 19:54

내 컴퓨터 안에 ,

system32 폴더 안에 msxml4.dll ,msxml4a.dll ,msxml4r.dll

파일이 있는지 확인 해보면 된다.

만약 없을 경우 :msxsml sdk를 다운받아 설치 해주면 된다.

내 컴퓨터에 설치된 msxsml 설치 버전 정보 확인 ↓(아래 파일을 html로 저장후 보면 자신의 컴퓨터에 설치된 msxml버전 을 알수있다.)

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

<P> </P>
<script language="VBscript">
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 & "   이 설치되어 있습니다.",,"내 컴퓨터에 설치된 파서목록"
</script>
</BODY>
</HTML>