vbs set drive

imam problem,
z vbs skripto bi rad zagnal nek batch file, ki je na usb ključu. :
Set WshShell = CreateObject("WScript.Shell")
cmds=WshShell.RUN("h:\program.bat", 0, True)
Set WshShell = Nothing

vendar, če ključ vtaknem v drug računalnik, je potrebno spreminjati mesto ključa, ker je namesto h:\ npr. g:\.
zanima me če obstaja kakšna komanda, ki bi naredila podobno kot SET odrive=%odrive:~0,2% pri batch.

prosim za hiter odgovor, saj se mi mudi.
lp