내 컴퓨터 안에 ,
system32 폴더 안에 msxml4.dll ,msxml4a.dll ,msxml4r.dll
파일이 있는지 확인 해보면 된다.
만약 없을 경우 :msxsml sdk를 다운받아 설치 해주면 된다.
내 컴퓨터에 설치된 msxsml 설치 버전 정보 확인 ↓(아래 파일을 html로 저장후 보면 자신의 컴퓨터에 설치된 msxml버전 을 알수있다.)
---------------------------------------------------------------------------------
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>파서 설치정보 알아보기</TITLE>
</HEAD>
<BODY>
<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>
--------------------------------------------------------------------------------
작성자 : 한진석
출처 : Tong - 드렁크수달스님의 ■ AJAX ■통
내 컴퓨터 안에 ,
system32 폴더 안에 msxml4.dll ,msxml4a.dll ,msxml4r.dll
파일이 있는지 확인 해보면 된다.
만약 없을 경우 :msxsml sdk를 다운받아 설치 해주면 된다.
내 컴퓨터에 설치된 msxsml 설치 버전 정보 확인 ↓(아래 파일을 html로 저장후 보면 자신의 컴퓨터에 설치된 msxml버전 을 알수있다.)
---------------------------------------------------------------------------------
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>파서 설치정보 알아보기</TITLE>
</HEAD>
<BODY>
<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>
--------------------------------------------------------------------------------
작성자 : 한진석
"쇼핑몰·홈페이지·오픈마켓
블로그·페이스북·이메일 등의 각종 마케팅 글쓰기, 각종 광고, 영업, 판매, 제안서, 전단지 반응율 3배×10배 이상 높이는 마법의 8단계 공식" |
|
| ☞자세히보기 |
|
|
|
