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