Is there any way to the above in vbscript ?

Thanks

Ian