Übergabe von Variablen an eine Funktion. Fehlermeldung:cannot use parenthesis when calling a sub

Question

x="D:\d"     
y="ehgfh"     
button onclick="zips (x,y)" id=button1 name=button1>clickme</button>     

function zips(x,y)     
alert(y)    
dim shell,z    
z="c.bat " & x    

set shell=createobject("wscript.shell")    

shell.Run z, 1, true    
shell.Run "a.bat", 1, true    
set shell=nothing     
end function    

Wie kann ich den Fehler beheben?