Hi Leute
Ich möchte mit meinem Script checken, ob Visio installiert ist, indem ich einen Reg-Key abfrage und - sofern dieser existiert - dann den KMS Key für Visio einspiele. Die Registry-Abfrage läuft sauber durch und erkennt den Wert, Visio wird jedoch nicht aktiviert. Fehlermeldung: Leider keine - es passiert einfach nichts Wenn ich den String übrigens so in eine CMD eingebe, funktioniert dies sauber.
Das Script möchte ich gerne als Startup-Script ausführen in einer Group Policy. Wer weiss Rat?
Vielen Dank und Grüsse aus der Schweiz,
SiMonster
Seriennummer sicherheitshalber entfernt;)
Ich möchte mit meinem Script checken, ob Visio installiert ist, indem ich einen Reg-Key abfrage und - sofern dieser existiert - dann den KMS Key für Visio einspiele. Die Registry-Abfrage läuft sauber durch und erkennt den Wert, Visio wird jedoch nicht aktiviert. Fehlermeldung: Leider keine - es passiert einfach nichts Wenn ich den String übrigens so in eine CMD eingebe, funktioniert dies sauber.
Visual Basic-Quellcode
- Const HKEY_LOCAL_MACHINE = &H80000002
- strComputer = "."
- Set objRegistry = GetObject("winmgmts:" & _
- strComputer & "\root\default:StdRegProv")
- strKeyPath = "SOFTWARE\VAL_3.7\MSVisioProf2010_ENG\14.0.6029.1000\Setup"
- strValueName = "AppPath"
- objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
- If IsNull(strValue) Then
- Wscript.Echo "The registry key does not exist."
- Set objShell = WScript.CreateObject ("WScript.shell")
- objShell.run "cscript " & Chr(34) & "C:\Program Files (x86)\Microsoft Office\Office14\OSPP.vbs" & Chr(34) & "/inpkey:***"
- Else
- Wscript.Echo "The registry key exists."
- End If
Das Script möchte ich gerne als Startup-Script ausführen in einer Group Policy. Wer weiss Rat?
Vielen Dank und Grüsse aus der Schweiz,
SiMonster
Seriennummer sicherheitshalber entfernt;)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FlashTek“ ()