Please read this first: This forum is for scripting
questions rather than script requests.
Also find scripts here: PowerShell Gallery or here: TechNet
Gallery - resources for IT professionals.
Learn PowerShell: Microsoft Virtual Academy - Getting Started with Microsoft PowerShell.
Script requests:
Microsoft Technet Script Center - Requests.
If you search in your favorite search engine for what you've asked here you will find probably about millions of hits.
Regardless of this, you should no longer use VBScript. Use Powershell instead. It's much easier and you will find more help and resources about it.
Best regards,
(79,108,97,102|%{[char]$_})-join''