Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "C:\Program Files\Palm\PDK\bin\DeviceShell.bat" & Chr(34), 0
Set WshShell = Nothing