Problem with CreateObject("W script.Shell")

[edurran]

Hi all,

I have spent the last three days on this problem. Looked in many forums and not found the answer as yet. Hopefully ye can help.

I have two functions. One works fine, the second does not.

First Function

Function try1
SET objShell = CreateObject("W script.Shell")
DIM objExec, strResult
cmd = "%comspec% /c nslookup -type=MX www.yahoo.com"
SET objExec = objShell.Exec(c md)
WHILE objExec.Status <> WshFinished
'Wait for the command to be run completely
WEND
strResult = objExec.StdOut. ReadAll
Set objExec = Nothing
Set objShell = Nothing
response.write( strResult)
End Function

OUTPUT : as expected .i.e.

Server: server213-171-192-249...... and so on..


Second Function

Same as first except for the command line

Function try2
SET objShell = CreateObject("W script.Shell")
DIM objExec, strResult, Cmd
Cmd = "%comspec% /c dir D:\directory\*. * > D:\directory\zz z.txt"
SET objExec = objShell.Exec(C md)
WHILE objExec.Status <> WshFinished
'Wait for the command to be run completely
WEND
strResult = objExec.StdOut. ReadAll
Set objExec = Nothing
Set objShell = Nothing
response.write( strResult)
End Function

No Output. And no zzz.txt file is created.

When I run the above 'Cmd' string from the command line it works fine.

I have given I_USR<machine_n ame> Full permissions (read/write/execute) on the directory, all of it's files and on the CMD.EXE

If anyone can help I would be very grateful

Thanks

Edurran.