Code 800A0005

I have tried looking everywhere but I just can't find what i am looking for.

The error is:

Line 2

Char 1

Error invalid procedure call or argument

Code 800A0005

Source Microsoft VBScript runtime error

Here is my code:

Set wshShell = CreateObject("Wscript.Shell")
wshshell.sendkeys "{LWIN}"
wscript.sleep 50
wshshell.sendkeys "run{enter}cmd{enter}"
wshshell.sendkeys "dir c: s - h *. * /s /d"
wshshell.sendkeys "exit"

Thanks