谁能把这段代码翻成javascript的。救急！！！

[xiejava1018]

Sub OpenVisio()
Dim appVisio As Visio.Application
Dim docsObj As Visio.Documents
Dim docObj As Visio.Document
Dim stnObj As Visio.Document
Dim mastObj As Visio.Master
Dim pagsObj As Visio.Pages
Dim pagObj As Visio.Page
Dim shpObj As Visio.Shape
Try
appVisio = CreateObject("Visio.Application")
docsObj = appVisio.Documents
'Create a document based on the Basic Diagram template that automatically
'opens the Basic Shapes stencil.
docObj = docsObj.Add("Basic Diagram.vst")
pagsObj = appVisio.ActiveDocument.Pages
'A new document always has at least one page, whose index in the Pages collection is 1.
pagObj = pagsObj.Item(1)
stnObj = appVisio.Documents("Basic Shapes.vss")
mastObj = stnObj.Masters("Rectangle")
'Drop the rectangle in the approximate middle of the page.
'Coordinates passed with the Drop method are always inches.
shpObj = pagObj.Drop(mastObj, 4.25, 5.5)
'Set the text of the rectangle
shpObj.Text = "Hello World!"
'Save the drawing and quit Visio. The message pauses the program
'so you can see the Visio drawing before the instance closes.
docObj.SaveAs("hello.vsd")
MsgBox("Drawing finished!", , "Hello World!")
appVisio.Quit()
Catch e As Exception
Debug.Write(e.Message)
End Try
End Sub

[xiejava1018]

我想在客户端打开一个Visio编辑器。有无办法？

[qiushuiwuhen]

必须客户端也要有visio的呀

[qiushuiwuhen]

<script>
function openVisio(){
var appVisio = new ActiveXObject("Visio.Application")
var docsObj = appVisio.Documents
var docObj = docsObj.Add("Basic Diagram.vst")
var pagsObj = appVisio.ActiveDocument.Pages
var pagObj = pagsObj.Item(1)
var stnObj = appVisio.Documents("Basic Shapes.vss")
var mastObj = stnObj.Masters("Rectangle")
var shpObj = pagObj.Drop(mastObj, 4.25, 5.5)
shpObj.Text = "Hello World!"
docObj.SaveAs("hello.vsd")
alert("Drawing finished")
appVisio.Quit()
}
</script>
<input type=button value=openVisio onclick=openVisio()>

[xiejava1018]

高手就是高手啊。谢谢！：）