Shell command
Example Usage:
ASP Source Code:Open the properties window of Personal Web Server (on the server) <% Shell "c:\windows\system\inetsrv\pws /properties" %> Open Notepad (on the server) <% Shell "notepad" %> Register a component (some.dll) on the server. The component must already be in the specified directory <% Shell "Regsrv32 C:\WINNT\System32\some.dll" %>
<%
Private Sub Shell(byVal command)
dim wshShell, boolErr, strErrDesc
On Error Resume Next
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run command
if Err Then
boolErr = True
strErrDesc = Err.Description
end if
Set wshShell = Nothing
On Error GoTo 0
if boolErr then Err.Raise 5105, "Shell Statement", strErrDesc
End Sub
%>