Discussion :

[BATiViR]

Bonjour à tous,
j'ai créer un script .vbs qui me permet de changer la clef d'activation de windows. Il utilise les WMI, j'aimerai faire cette application dans C++ Builder et en regardant sur msdn ou sur d'autre site, le code pour utiliser les WMI en C++ n'est pas si facile que sa. Vu que en vbs cela fais quelque ligne je me demandai si on pouvait executer du vbscript directement depui C++ Builder ou encore mieux, si quelqu'un sait comment le faire plus simple que MSDN
Je vous met a disposition le code .vbs (pour info)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
  Dim ProdKey, objWMIItems, Items, result, RE, CheckChaine, test
ON ERROR RESUME NEXT
 
ProdKey = "12345-12345-12345-12345-12345"
 
ChangeKey
 
Sub ChangeKey
  ProdKey = InputBox("Veuillez entrez la clef de Windows XP Pro MUI SP2","Test",ProdKey)
    If ProdKey = "" Then 
      ProdKey = "Veuillez entrez une clef valide!"
      ChangeKey
    ElseIf ChecKey(ProdKey) Then
      KeyOk
    Else
      ProdKey = "Format Clef invalide!"
      ChangeKey
    End if  
End Sub
 
Sub KeyOk
  ProdKey = Replace(ProdKey,"-","")
  For Each Items In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")
    result = Items.SetProductKey(ProdKey)
   if err = 0 then
     WScript.Echo "La clef à été changé avec succès!"
     WScript.CreateObject("WScript.Shell").Run "cmd /c echo Clef Produit Windows XP Ok >> %SystemDrive%\ChangeKey.txt"
     WScript.Quit
   else
     Err.Clear
   end if
  Next
End Sub
  ProdKey = "Clef invalide!"
  ChangeKey
 
Function ChecKey(chaine)
  Set RE = New RegExp
  RE.Pattern = "\w{5}\-\w{5}\-\w{5}\-\w{5}\-\w{5}"
  set CheckChaine = RE.Execute(chaine)
    If CheckChaine.Count = 0 Then
      ChecKey = False
    Else 
      ChecKey = True
    End If
End Function

[Mat.M]

Je crois qu'il faut utiliser OleCreateObject regarder dans l'aide de Borland.
Sinon qui dit CreateObject sous VB dit création objet COM.
Prendre les API de Windows le cas échéant comme CoInitialize() et QueryInterface().
Mais la VCL propose des méthodes pour cela