Thema: vbs in Delphi

Einzelnen Beitrag anzeigen

Benutzerbild von SnGtKs
SnGtKs

Registriert seit: 25. Dez 2004
Ort: Bad Liebenwerda
37 Beiträge
 
Delphi 7 Personal
 
#1

vbs in Delphi

  Alt 5. Jun 2005, 21:52
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
Sebastian Quaß
  Mit Zitat antworten Zitat