Ik heb een handleiding op de site van ms gevolgd voor het installeren van office via gp, dit werkt zonder problemen buiten het feit dat hij telkens opnieuw bij het opstarten vd pc die office wenst te installeren. Na enkele seconden geeft hij dan een melding: bijweken, verwijderen omdat hij ziet dat het reeds geïnstalleerd is.
Daarom had ik gedacht van een scriptje te schrijven (op internet wat gezocht) dat eerst controle doet naar de office 14 regkey en dan gewoon stopt bij het vinden van de 14, installeren indien hij de key niet kan vinden.
Doe ik dit manueel door te klikken op het script werkt het, via de gp niet, ik vermoed dat de manier van het aanspreken van het 2de script niet echt goed gebeurt.
Dit is de code:
Code: Selecteer alles
Set WshShell = CreateObject("WScript.Shell")
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_CURRENT_USER = &H80000001
If keyExists("14.0", "Software\Microsoft\Office\", HKEY_CURRENT_USER) Then
Set WshShell = Nothing
Else
WshShell.Run "cmd /K CD C:\ & \\10.0.10.30\software$\scripts\office2010\office2010install.bat"
'bovenstaande is dus het 2de script dat zorgt voor de installatie, dit wordt blijkbaar niet uitgevoerd
Set WshShell = Nothing
End If
Function keyExists(strKeyName, strKeyPath, regCategory)
retVal = false
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
oReg.EnumKey regCategory, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
If strKeyName = subkey Then
retVal = true
Exit For
End If
Next
keyExists = retVal
End Function