IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Script activation OEM Windows


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    94
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 94
    Par défaut Script activation OEM Windows
    Bonjour,

    travaillant avec une quinzaine de types d'ordinateurs (ACER, HP, DELL, LENOVO), je cherche à automatiser l'activation avec les clés OEM à partir d'une image système unique.
    Je joins le script fonctionnel réalisé jusqu’à présent mais la détection des marques retourne parfois la marque de la carte mère et non celle du fabriquant. De plus, cela demande une MAJ à chaque nouvelle série d'ordinateur (2 fois par ans) et la gestion des séries que des collègues utilisent mais que je n'ai pas reçu.
    Le script se base sur un fichier liste au format csv contenant la marque et la clé oem ainsi qu'un dossier "XRM-MS" contenant les fichier xrm-ms des marques.

    J'aimerais une revue du script afin d'améliorer le code et des propositions si des meilleurs solutions sont envisageables.

    Merci.

    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
     
    On Error Resume Next
    Dim filesys, readfile, contents, cpt, tableau
    strComputer = "."
    marque = "0"
     
    'Fonction récupération adresse dossier
    Function GetPath()
    	Dim path
    	path = WScript.ScriptFullName
    	GetPath = Left(path, InStrRev(path, "\"))
    End Function
     
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")
    For Each objItem in colItems
        marque = UCase(objItem.Manufacturer)
    Next
     
    Set oShell = WScript.CreateObject("WScript.Shell")
    set filesys = CreateObject("Scripting.FileSystemObject") 
    set readfile = filesys.OpenTextFile(getpath() & "LicencesWin7.csv", 1, false)
    do while readfile.AtEndOfStream=false
    	contents = readfile.ReadLine 
    	tableau = split(contents,";")
    	if marque = tableau(0) then
    		fichierOEM = tableau(1)
    		licence = tableau(2)
    	end if
    	loop
    readfile.close
     
    If IsEmpty(fichierOEM) then
    	btn = oShell.Popup("Aucune licence trouvée", 10, "Licence", &H30 + &H1000)
    	wscript.quit
    else
    	btn = oShell.Popup("Marque : " & marque & vbCrLf & vbCrLf & "Fichier : "_
    	& fichierOEM & vbCrLf & vbCrLf & "Clé : " & licence, 20, "Information licence", &H40 + &H1000)
     
    	cmd0 = "cmd /C slmgr -ilc " & getpath() & "XRM-MS\" & fichierOEM
    	'oShell.run cmd0
    	WScript.Sleep 10000
    	cmd1 = "cmd /C slmgr -ipk " & licence
    	'oShell.run cmd1
    end if

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Juin 2006
    Messages
    94
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2006
    Messages : 94
    Par défaut
    Bonjour,

    1) J'aimerais ajouter du code pour vérifier l'état de l'activation Windows à la fin du script.
    J'ai seulement trouvé un commande batch.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    cscript /nologo c:\windows\system32\slmgr.vbs /xpr | findstr /i /c:" will expire "> NUL 2>&1
    if [%errorlevel%]==[0] (echo Not permanently activated.) else (echo Permanently activated)
    Est il possible de convertir cela en vbs et d'utiliser la valeur de %errorlevel% ?

    2) Comment écrire le contenu de la variable "marque" dans un fichier afin d'avoir la liste de toutes les marques dont je n'ai pas la licence OEM ?

    Merci.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. activation de windows et script .bat
    Par AzertyH dans le forum Windows XP
    Réponses: 5
    Dernier message: 06/05/2007, 10h23
  2. Réponses: 4
    Dernier message: 25/06/2006, 16h36
  3. Questions sur l'activation de Windows Xp
    Par Mimi Bulles dans le forum Windows XP
    Réponses: 3
    Dernier message: 30/10/2005, 12h02
  4. Script oracle pour windows & unix
    Par ALLFA dans le forum Oracle
    Réponses: 2
    Dernier message: 05/07/2005, 14h52
  5. Tester connexion Internet active sous Windows
    Par Altau dans le forum Développement
    Réponses: 3
    Dernier message: 12/08/2002, 12h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo