Here is some code that i found and It gives me an error when I run it. (I am trying to run it as a .vbs file)

set a = createobject("wscript.shell")
a.run "consol.msi"
wscript.sleep (2000)
Public Const MOUSEEVENTF_MOVE = &H1 ' mouse move

Public Function MoveMouse(x as long, y as long)
mouse_event MOUSEEVENTF_MOVE, 10, 20, 0, 0
End Function
wscript.quit