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 %>