“Object required” when using Set in an assignment

Question

call main()
sub main()
    Dim scmd
    Set scmd = \"c:\\windows\\system32\\cscript.exe //nologo c:\\s.vbs\"
    createobject(\"wscript.shell\").run scmd,0,false
end         


        

Answer 1

Update

As it's not clear feel it best to point out your Object Required issue is due to this line

Set scmd = "c:\windows\system32\cscript.exe //nologo c:\s.vbs"

This is because an Object is expected but you are assigning it a string, by removing the Set your code will work (As Ekkehard.Horner has pointed out).

---

Below is my interpretation of situation. First looking at your code it almost looked like it had mixed the instantiation of the WScript.Shell object with the command line for the .Run() method. It was my first stab at breaking down the code, rearranging it then putting it back together.

---

Original Answer

1. Your Set scmd should be instantiating the WScript.Shell (As Ekkehard.Horner points out you can use Server.CreateObject("WScript.Shell").Run for a one off reference but I wouldn't recommend it).

2. The .Run() should be executed by the instantiated scmd object and passed the command line to execute.

Here is an example I've renamed some of the variables (scmd to cmd for example).

Call main()

Sub main()
    'Renamed variables to cmd is your object and cmdline is your file path.
    Dim cmd, cmdline
    'Instantiate WshShell object
    Set cmd = Server.Createobject("WScript.Shell")
    'Set cmdline variable to file path
    cmdline = "c:\windows\system32\cscript.exe //nologo c:\s.vbs"
    'Execute Run and return immediately
    Call cmd.Run(cmdline, 0, False)
End Sub

---

Things to consider

When using WScript.Shell in Classic ASP to run executables there are some things to consider;

1. Run command will execute using the current Application Pool identity.

2. Run will execute the executable on the server not at the client (server side).