Пошагово разобрать код, определяющий версию дотнета

Option Explicit
 
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ             = 1
 
Const strTest = ".NET CLR "
 
 
Dim objSWbemServicesEx
 
Dim strComputer
Dim arrValueNames, arrValueTypes
Dim i
 
 
strComputer = "."
 
Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\Default")
 
If objSWbemServicesEx.Get("StdRegProv").EnumValues( _
   HKEY_LOCAL_MACHINE, _
   "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform", _
   arrValueNames, _
   arrValueTypes) = 0 Then
   
   For i = LBound(arrValueNames) To UBound(arrValueNames)
       If arrValueTypes(i) = REG_SZ Then
           If Left(arrValueNames(i), Len(strTest)) = strTest Then
               WScript.Echo Mid(arrValueNames(i), Len(strTest) + 1)
           End If
       End If
   Next
End If
 
Set objSWbemServicesEx = Nothing
 
WScript.Quit 0