wscript.shell does not execute .vbs

Done a bunch of searching on this topic and i have come up with nothing.

I have a .vbs script that i wish to execute by calling an asp page.

i am working on a W2K server with IIS5.0 & SP4.

My stopwebsite.vbs file is as follows:

===
On Error Resume Next
fullPath = "IIS://Localhost/W3svc/57"
Set oServer = GetObject(fullPath)
If Err <> 0 Then
Display "Unable to open " & fullPath & "."
End If
oServer.Stop
If Err <> 0 Then
Display "Unable to stop web server " & fullPath & "."
End If

Sub Display(Msg)
' WScript.Echo Now & ". Error Code: " & Hex(Err) & " - " & Msg
End Sub

===

NOTE that display doesn't do anything

my stopwebsite.asp script is as follows:
===
<%
On Error Resume Next
Set objScriptShell = Server.CreateObject("Wscript.Shell")
strCommand = "cscript.exe //b d:\inetpub\websites\admin\stopwebsite.vbs"
intReturn = objScriptShell.Run( strCommand )
response.write( "Command returned: " & intReturn )
Set objScriptShell = Nothing

if err.number <> 0 then
response.write "

Re: wscript.shell does not execute .vbs

"AirYT" wrote in message
news:mu4si.299666$%85.120908@fe05.news.easynews.com...
> Done a bunch of searching on this topic and i have come up with nothing.
>
> I have a .vbs script that i wish to execute by calling an asp page.
>
> i am working on a W2K server with IIS5.0 & SP4.
>
> My stopwebsite.vbs file is as follows:
>
> ===
> On Error Resume Next
> fullPath = "IIS://Localhost/W3svc/57"
> Set oServer = GetObject(fullPath)
> If Err <> 0 Then
> Display "Unable to open " & fullPath & "."
> End If
> oServer.Stop
> If Err <> 0 Then
> Display "Unable to stop web server " & fullPath & "."
> End If
>
> Sub Display(Msg)
> ' WScript.Echo Now & ". Error Code: " & Hex(Err) & " - " & Msg
> End Sub


Why don't you just execute this script from ASP, i.e., replace the contents
of your stopwebsite.asp script, with what's in the .vbs file? That would be
a cut to the chase in my book. :-)

I'm not sure specifically why what you have won't run, but my guess is that
it fails to create the WScript.Shell object. You should test Err.Number
immediately after a line you suspect may have caused the error, because
otherwise the Err object gets overwritten by the success of subsequent
lines.


-Mark




> ===
>
> NOTE that display doesn't do anything
>
> my stopwebsite.asp script is as follows:
> ===
> <%
> On Error Resume Next
> Set objScriptShell = Server.CreateObject("Wscript.Shell")
> strCommand = "cscript.exe //b d:\inetpub\websites\admin\stopwebsite.vbs"
> intReturn = objScriptShell.Run( strCommand )
> response.write( "Command returned: " & intReturn )
> Set objScriptShell = Nothing
>
> if err.number <> 0 then
> response.write "