I complete Set Windows Key Programme. But If I set by a Invaild Key then happen a ERROR

[Helomotorola]

$VOL_PROD_KEY = "MRX3F-47B9T-2487J-KWKMF-RPWBY"
$VOL_PROD_KEY = StringReplace($VOL_PROD_KEY,"-","")
$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}")
$colItems = $objWMIService.InstancesOf ("win32_WindowsProductActivation")
For $Obj in $colItems
    $result = $Obj.SetProductKey ($VOL_PROD_KEY)
Next
Msgbox(0 + 64, "You change key " & $VOL_PROD_KEY & " is Successful")

I Change value $VOL_PROD_KEY by a new key. If Invail key then arise Error,

I want prevent that ERROR by a message as

Msgbox(0 + 48, "You change key " & $VOL_PROD_KEY & " is Invaild")

Thank much

Edited September 7, 2007 by Helomotorola

[cdkid]

Well my first thought is REMOVE YOUR WINDOWS KEY FROM YOUR POST

~cdkid

[Siao]

Well my first thought is REMOVE YOUR WINDOWS KEY FROM YOUR POST

~cdkid

It's one of those warez keys anyway. Do a google search for it

Edited September 7, 2007 by Siao

[ssubirias3]

It's one of those warez keys anyway. Do a google search for it

Nice! Our girl Helomotorola is trying to convert a vbs to au3. This Micosoft Support article Q328874 explains what she's trying to do. The vbs she's trying to convert is this ChangeVLKey2600.vbs

' 
' 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
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
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