Function pathRemove(strFileName)
strFileName=Replace(strFileName,"/","\")
Dim ipos 
ipos=InStrRev(strFileName,"\")
pathRemove=Left(strFileName,ipos)


End Function 

WScript.Echo  pathRemove(WScript.ScriptFullName)