Vbscript Object To String