Jump to content

KMS Server 2016 für die Aktivierung von Win7 und Office 2010


Direkt zur Lösung Gelöst von NorbertFe,
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Guten Morgen

 

Es geht um die Frage, ob ein Windows Server 2016 KMS Server Windows 7 und Office 2010 aktivieren kann.

 

Konnte im Internet leider keine abschliessende Antwort dazu finden.

 

Windows 7:

Kann Windows 7 aktiviert werden und falls ja, ist noch was zusätzliches zu beachten?

Active Directory based activation ist nicht aktiv.

 

Office 2010:

Früher (bis Server 2012) gabs ja dieses "Microsoft Office 2010 KMS Host License Pack" von https://www.microsoft.com/en-us/download/details.aspx?id=25095.

Dieses scheint allerdings nicht mehr für Windows Server 2016 kompatibel zu sein.

Gibt es einen anderen Weg oder ist diese Version nun definitiv zu alt?

 

 

Gruss

 

Andi

 

Link zu diesem Kommentar

Hallo Norbert

 

Super, danke für deine schnelle Antwort.

 

Gehst du nicht davon aus, dass wir später bei irgendeinem Windows Update Probleme bekommen könnten, da dieser Weg wohl nicht ganz der offizielle ist?

 

Gruss Andi

 

Ja natürlich kann Windows 7 und Office 2010 damit aktiviert werden. Für Office 2010 muß man ein wenig "tricksen".

https://social.technet.microsoft.com/Forums/de-DE/6d936558-c894-4967-b39a-56ace3baebbd/office-2010-per-kms-aktivieren-auf-server-2016?forum=office_14de

HTH
Norbert

bearbeitet von andidavos
Link zu diesem Kommentar
  • 5 Monate später...

Mit Blick in das VBS Skript von Office 2016 und ein wenig Englisch habe ich die Abfrage dann doch noch verstanden und erfolgreich angepasst.

 

Original:

 

For Each objOS in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    Ver = Split(objOS.Version, ".", -1, 1)
    ' Win2K3
    If (Ver(0) = "5" And Ver(1) = "2" And (objOS.ProductType = 2 Or objOS.ProductType = 3)) Then
        'Check for supported OS flavor
        intPosition = InStr(UCase(objOS.Caption),FlavorEnterprise)
        If intPosition = 0 Then intPosition = InStr(UCase(objOS.Caption),FlavorStandard)
        If intPosition = 0 Then intPosition = InStr(UCase(objOS.Caption),FlavorDataCenter)
        If intPosition <> 0 Then folder = "win2k3" : CheckSPP(objWMIService) : Exit For
    End If
    
    ' Win7
    If (Ver(0) = "6" And Ver(1) = "1" And objOS.ProductType = 1) Then
        folder = "win7"
        Exit For
    End If
    
    ' Server2008R2
    If (Ver(0) = "6" And Ver(1) = "1" And (objOS.ProductType = 2 Or objOS.ProductType = 3)) Then
        folder = "win7r2"
        Exit For
    End If
Next
 
 
Wie im Technet geschrieben muss man dann "nur noch" die Anfrage um neuere OS anpassen, ich habe das so realisiert:
folder = "unknown"
For Each objOS in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    Ver = Split(objOS.Version, ".", -1, 1)
    ' Win2K3
    If (Ver(0) = "5" And Ver(1) = "2" And (objOS.ProductType = 2 Or objOS.ProductType = 3)) Then
        'Check for supported OS flavor
        intPosition = InStr(UCase(objOS.Caption),FlavorEnterprise)
        If intPosition = 0 Then intPosition = InStr(UCase(objOS.Caption),FlavorStandard)
        If intPosition = 0 Then intPosition = InStr(UCase(objOS.Caption),FlavorDataCenter)
        If intPosition <> 0 Then folder = "win2k3" : CheckSPP(objWMIService) : Exit For
    End If
    
    ' Win7
    If (Ver(0) = "6" And Ver(1) = "1" And objOS.ProductType = 1) Then
        folder = "win7"
        Exit For
    End If
    
    ' Server2008R2
    If (Ver(0) = "6" And Ver(1) = "1" And (objOS.ProductType = 2 Or objOS.ProductType = 3)) Then
        folder = "win7r2"
        Exit For
End If
 
'future OS's
    If (CInt(Ver(0)) >= 10) Then
    folder = "win7r2"
    Exit For
    End If
Next
 
Damit kommt also rein dieser Teil dazu:
 
'future OS's
    If (CInt(Ver(0)) >= 10) Then
     folder = "win7r2"
     Exit For
    End If
Next
 
Jetzt gibt es einen Verweise für die neueren Betriebssysteme und der verweist einfach auch auf den Ordner win7r2, somit sind keine weiteren Anpassungen notwendig und die Installation funktioniert :-)
 
Grüße
Norbert

 

'future OS's
    If (CInt(Ver(0)) >= 10) Then
     folder = "win7r2"
     Exit For
    End If
Next
bearbeitet von dataKEKS
Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...