[talich2006]

Private Function GetPrimarySKUType()
Dim objProduct
Dim strPrimarySKUType, strDescription
Dim iIsPrimaryWindowsSku

Dim objWinProductsWithPKeyInstalled

Set objWinProductsWithPKeyInstalled = g_objWMIService.ExecQuery( _
"SELECT ApplicationId, PartialProductKey, LicenseIsAddon, Description " & _
"FROM " & PRODUCT_CLASS & " " & _
"WHERE ApplicationId = '" & WINDOWS_APPID & "' " & _
"AND PartialProductKey <> NULL" _
)

For Each objProduct in objWinProductsWithPKeyInstalled (2007 СТРОКА)
iIsPrimaryWindowsSku = GetIsPrimaryWindowsSKU(objProduct)
If (iIsPrimaryWindowsSku = 1) Then
strDescription = objProduct.Description
If (IsKmsServer(strDescription) Or IsKmsClient(strDescription)) Then
strPrimarySKUType = strDescription
Else
strPrimarySKUType = NonKMSPrimaryKey
End If
Exit For 'no need to continue
ElseIf ((iIsPrimaryWindowsSku = 2) And strPrimarySKUType = "") Then
strPrimarySKUType = IndeterminatePrimaryKeyFound
End If
Next