|
Displaying Source Code(s)
|
|
Shell Statement
--------------------------------------------------------------------------------
Description : The shell statement creates a new process that
executes the required argument, command. Command is any valid
DOS statement. Shell requires your server to have windows
scripting host installed and proper permissions.
<%
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
%> |
|
|