Public Function StartDNS() As Boolean
On Error GoTo ErrHandle
Dim strReturn
strReturn = Shell("C:\ManDNS\StartDNS.bat")
StartDNS = True
Exit Function
ErrHandle:
StartDNS = False
End Function
---- DLL 名称为 ManDNS 类名为 DNSClass 我们将此DLL保存在C:\ManDNS\下。
2、 注册DCOM组件:
---- 编写好DLL程序后,我们要将其注册到服务器上。
---- 首先在DNS服务器上打开Microsoft Transaction Server, 点击Computers,再点击My Computer,选中Packages Installed ,单击鼠标右键,选中New 再单击Package。会弹出Package Wizard。选中空包,取名为ManDNS,确定完成。点开此包,选中Component,单击鼠标右键,选中New --->Component。点击Import Component That Are Already,在列表框中选中ManDNS.Dll。
< %@ LANGUAGE="VBSCRIPT"% >
<Html>
<head> <title>Start DNS Page</title> </head>
<body>
<h1>单击按纽启动DNS服务<h1>
< %
if Request.form(“click”) <> “” then
dim StartDNS ,RenStart
set StartDNS = Server.CreateObject(“StartDNS.DNSClass”)
RenStart = StartDNS. StartDNS
If RenStart then
Response.Write “DNS服务启动成功。”
Else
Response.Write “DNS服务启动失败。”
End if
end if
%>
<Form action = "../../../../tppmsgs/msgs10.htm#2129" tppabs="http://www.computerworld.com.cn/99/tips/2k01/%A1%B0StartDNS.asp%A1%B1?submit=“Start&click=“click”" method = “Post”>
<Input type = submit name = submit value = “Start DNS”>
<Input type = hidden name = click value = “click”>
</Form>
</Body>
</Html>
---- 对于程序员来说,可以利用自己熟悉的编程工具来编写ActiveX Dll,用MTS进行管理,并用ASP程序将各种组件合理的搭建成系统,可以在Internet上实现几乎无所不能的功能。