Help - Mapping a drive with an asp using vbs...

[RAR]

Here is a vbs script that maps a drive fine from my computer:

Dim WshNetwork ' As IWshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")

Dim FSO ' As FileSystemObject
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Const DriveLetter = "r:"
Const SharePath = "\\computer\path"

If FSO.DriveExists(DriveLetter) Then
' Do nothing
Else
WshNetwork.MapNetworkDrive DriveLetter, SharePath
End If

Set FSO = Nothing
Set WshNetwork = Nothing

The trouble begins when I try to put that script in an asp page so when it runs from a web page it will map to a drive on my server and copy down a couple files from my server to a client computer. It gives me an error that says, "Variable is undefined: 'WScript'." Or does anybody know a different or easier way to have it copy files down to a client by just clicking on a button. Thanks in advance for any help.

RAR

[vass0922]

WScript objects need to be called from cscript.exe or wscript.exe. Being able to modify network drives from a web browser is asking a lot

I believe you could create an activex control to do it, but it would have to run in a different zone, it shouldnt' be able to run from an internet zone.
Why don't you just put the script in your login startup?
Or is this not a local (intranet) server?
You could put it on a ftp server and write a script for that...

[RAR]

Thanks Vass. It needs to be as easy as possible for the users. That's why I need them to just click on one button and have everything done in the background. It's a very picky group of users and the less they have to do the better.

If I can't get it to work like that then maybe I'll have to have it call a batch file and let it map that way. That's the way I originally had it working, it just doesn't look as nice with the dos window popping up and then not closing on exit.

[vass0922]

Try putting 'exit' at the end of the batch file, it should automatically exit the console.

You could still have them use your initial vbs to map drives locally, just save it as a .vbs file somewhere

It really makes no difference but another way to do

If FSO.DriveExists(DriveLetter) Then
' Do nothing
Else
WshNetwork.MapNetworkDrive DriveLetter, SharePath
End If

would be
If Not FSO.DriveExists(DriveLetter) Then
WshNetwork.MapNetworkDrive DriveLetter, SharePath
End If