vbs script that open powershell as administrator

  admin, adsutil.vbs, powershell, vbscript, windows

I need a small .vbs script that is able to run a powerscell as administrator. I also have the computer administrator password available, but I would like the program to be totally automatic without input from a person, therefore without the classic winodows permissions screen.

Source: Windows Questions