Discussion :

[rylo59]

Bonjour,

Je suis actuellement en stage et j'ai dans l'une de mes missions l'activation d'office 2013 oem en automatique, étant pas très doué en VBS j'ai regardé sur le net et je n'ai pas trouvé de réponse.
en gros je dois créer un fichier a plat où il y aurait les noms des machines et la clé produit qui correspond et l’exécuter sur le pc en question et cela activerait automatiquement, sachant que pour l'activer en manuel il faut faire appel a la commande Cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /impkey: xxxx-xxxx-xxxx-xxxx
j'espère que vous m'aurez compris pas simple d'expliquer.
Pensez vous que c'est possible ?


si quelqu'un peut m'aider ca serait sympa.

D'avance merci pour vos réponses.

[ProgElecT]

Salut rylo59, bienvenue sur DVP

Pour débuter, voir dans la FAQ VBScript, Comment exécuter un programme externe ?.
Pour la suite, fouilles dans la FAQ, tu devrais y trouver ton bonheur, si tu as des difficultés, continus à nous interroger dans cette discussion.

[rylo59]

Merci pour les liens j'vais creuser ca

[concombremasque75]

Pour Office 2013, tout cela est facilement configurable depuis l'OPO et configurer dans le custom.msp

Si je comprends bien, Office 2013 est déployé mais les clés d'activation sont absentes ?

[rylo59]

alors j'ai commencé il me sort bien les lignes de mon fichier texte mais j'aimerai ressortir les 29 derniers caractères mais je ne trouve pas, c'est compliqué vbs

mon fichier texte est composé comme suit

tagmachine;xxxx-xxxx-xxxx-xxxx-xxxx-xxxx

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim filesys, text, readfile, contents 
 
set filesys = CreateObject("Scripting.FileSystemObject") 
set readfile = filesys.OpenTextFile("c:\listkey.txt", 1, false) 
do while readfile.AtEndOfStream=false 
contents = readfile.ReadLine 
 
'le traitement à faire ici 
wscript.echo contents 
Wscript.Echo Right(chaine,29)
loop 
readfile.close

[rylo59]

Pour Office 2013, tout cela est facilement configurable depuis l'OPO et configurer dans le custom.msp

Si je comprends bien, Office 2013 est déployé mais les clés d'activation sont absentes ?

L'OPO est disponible uniquement avec les versions licence en volume d'Office. (si je dis pas de bétise)
oui voila quand je déploie une image Windows avec un outil open source, office est installé sans la clé et j'ai un tas de licences oem et il faut la clé qui correspond au service tag du poste après déploiement

et une fois que j'ai trouvé la clé je dois saisir la commande sur le poste concerné
Cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /inpkey xxxx-xxxx-xxxx-xxxx-xxxx"
Cscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /act"

[rylo59]

grâce a mon tuteur de stage (pour être honnête je n'ai pas pondu une seule ligne je suis trop paumé)
voici le résultat reste plus qu'a mettre le fichier a plat sur le réseau et modifier le vbs
si ca peut aider des personnes qui cherchent a activer office 2013 eom en fonction du service tag
le fichier listkey.txt :
tagmachine;XXXXX-XXXXX-XXXXX-XXXXX-XXXXX

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
dim filesys, text, readfile, contents, Shell, CompName
 
set filesys = CreateObject("Scripting.FileSystemObject") 
set readfile = filesys.OpenTextFile("c:\listkey.txt", 1, false) 
Set Shell = Wscript.CreateObject ("Wscript.Shell")
CompName = Shell.ExpandEnvironmentStrings ("%COMPUTERNAME%")
do while readfile.AtEndOfStream=false 
	contents = readfile.ReadLine 
	serviceTag = split(contents,";")
	'licence = ubound(serviceTag)
	if(serviceTag(0) = CompName) then
		MaBonneLicence=serviceTag(1)
		Shell.Run "Cscript ""C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS"" /inpkey:" + MaBonneLicence
		Shell.Run "Cscript ""C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS"" /act"
	end if
 
loop