Windows aktivierung automatisieren?

Hallo,

Ich möchte die Windows Produktaktivierung automatisierung und hab mir das so vorgestellt...

1. Windows Installieren (unattented)
2. mit einem vbs die OEM Nummer auslesen
3. Aktivation Code ermitteln und Online aktivieren

Alternativ haben wir bei uns einen DB Server stehen wo schon sämtliche Aktivierungscodes zu Nummern zugeordnet gespeichert sind. (Codes passen natürlich dann nur auf identischer Hardware).

Kann mir da jemand Hilfestellung leisen, bin unerfahren mit AutoIt.

Grüße aus Paderborn,
wirrwar

Danke für deine Antwort. Hab mich eben wohl nicht klar genug ausgedrückt. Also die Windows Installation läuft unattendent über Altiris. Es handelt sich um ein paar mehr Rechner, die aber dummerweise keine Volume Lizens haben, deswegen auch die etwas ungewöhnliche Idee.

Bietet sich das denn überhaupt mit AutoIt an oder sollte ich besser vbs benutzen. Dazu hab ich schon ein paar Codeschnipsel gefunden.

// hole Seriennummer

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colWPA = objWMIService.ExecQuery _
("Select * from Win32_WindowsProductActivation")

For Each objWPA in colWPA
Wscript.Echo "Product ID: " & objWPA.ProductID
NEXT

//Datenbankconnect

Const adOpenStatic = 3
Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
"Provider=SQLOLEDB;Data Source=atl-sql-01;" & _
"Trusted_Connection=Yes;Initial Catalog=Northwind;" & _
"User ID=fabrikam\kenmyer;Password=34DE6t4G!;"

objRecordSet.Open "SELECT * FROM Customers", _
objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Wscript.Echo objRecordSet.RecordCount


// Activate Windows Online

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colWindowsProducts = objWMIService.ExecQuery _
("Select * from Win32_WindowsProductActivation")

For Each objWindowsProduct in colWindowsProducts
objWindowsProduct.ActivateOnline()
Next