Delphi-PRAXiS - vbs in Delphi

hallo

ist es irgenwie möglich ein vbs in ein delphiprogramm einzubauen oder es zu übersetzen? ich in in dieser sache noch ein völliger n00b also pls helpme ;)

hier mal der vbs code

Delphi-Quellcode:

			'

' WMI Script - ChangeVLKey.vbs

'

' This script changes the product key on the computer

'

'***************************************************************************

ON ERROR RESUME NEXT

if Wscript.arguments.count<1 then

   Wscript.echo "Script can't run without VolumeProductKey argument"

   Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"

   Wscript.quit

end if

Dim VOL_PROD_KEY

VOL_PROD_KEY = Wscript.arguments.Item(0)

VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then

      WScript.Echo Err.Description, "0x" & Hex(Err.Number)

      Err.Clear

   end if

Next