vbs in Delphi

[SnGtKs]

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

[SnGtKs]

kann mir denn keiner helfen

*push*

[BrunoT]

Hallo SnGtKs,

schau mal hier
Torrys

mfg

BrunoT