<%@ LANGUAGE = VBScript %> <% Option Explicit %> Java Component Samples: ServerAdmin <% Dim Obj Set Obj = Server.CreateObject("IISSample.ServerAdmin") If Request("action") = "" Then %> Control your default FTP site using Java, J/Direct, and ADSI.

Currently the default FTP server status is: <%= Obj.getStatus %>

Click here to start the default FTP server
Click here to stop the default FTP server
<% End If If Request("action") = "start" Then Response.Write("Starting the ftp service.

") Obj.startFtp() Response.Write("Back to FTP control page") End If If Request("action") = "stop" Then Response.Write("Stopping the ftp service.

") Obj.stopFtp() Response.Write("Back to FTP control page") End If %>