MyTetra Share
Делитесь знаниями!
Операционная система
16.03.2019
23:43
Текстовые метки: Операционная система, Windows,vba
Раздел: !Закладки - VBA - Разобрать

'Получить номер версии операционной системы

ver = CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
msgbox ver


'Определить разрядность операционной системы

Function GetOSBitness()
    On Error Resume Next
    GetOSBitness = "x64"
    If oShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") = "x86" and oShell.ExpandEnvironmentStrings("%PROCESSOR_ARCHITEW6432%") = "%PROCESSOR_ARCHITEW6432%" then GetOSBitness = "x32"
End Function


'Определить семейство ОС (NT или Vista).

'NT - XP, 2003; Vista - собственно Vista и выше.

Function GetOSFamily()
    On Error Resume Next
    Dim ver: ver = CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
    GetOSFamily = "Vista": if Left(ver,1) = "5" then GetOSFamily = "NT"
End Function

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования