-
Notifications
You must be signed in to change notification settings - Fork 2
/
Form1.frm.twin
88 lines (80 loc) · 4.85 KB
/
Form1.frm.twin
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
[ FormDesignerId ("6EE2F46C-6D5A-4E33-9DB1-3EA13DF2598E") ]
[ ClassId ("6D937A60-8EA9-449D-99C0-DF0EFB8CD0F9") ]
[ InterfaceId ("3279AD1F-60D0-43C9-A0BE-64E80C79B323") ]
[ EventInterfaceId ("41FA127A-6FAE-48D1-9635-9E4069B40F77") ]
Class Form1
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim OSVer As clsOSInfo
Private Sub Form_Load()
Set OSVer = New clsOSInfo
Dim s As String
With OSVer
s = s & vbCrLf & "OS Name: " & .OSName
s = s & vbCrLf & "Service Pack ver.: " & .SPVer
s = s & vbCrLf & "Is Server? " & .IsServer
s = s & vbCrLf & "Bitness: " & .Bitness
s = s & vbCrLf & "Is Win x64: " & .IsWin64
s = s & vbCrLf & "Is Win x32: " & .IsWin32
s = s & vbCrLf & "Edition: " & .Edition
s = s & vbCrLf & "Suite mask: " & .SuiteMask
s = s & vbCrLf & "ProductType: " & .ProductType
s = s & vbCrLf & "PlatformID: " & .PlatformID & " (" & .Platform & ")"
s = s & vbCrLf & "Is Domain controller: " & .IsDomainController
s = s & vbCrLf & "Is Embedded: " & .IsEmbedded
s = s & vbCrLf & "OS - XP/Server 2003(R2)? " & .IsWindowsXP
s = s & vbCrLf & "OS - XP or newer? " & .IsWindowsXPOrGreater
s = s & vbCrLf & "OS - XP SP3 or newer? " & .IsWindowsXP_SP3OrGreater
s = s & vbCrLf & "OS - Vista/Server 2008? " & .IsWindowsVista
s = s & vbCrLf & "OS - Vista or newer? " & .IsWindowsVistaOrGreater
s = s & vbCrLf & "OS - 7/Server 2008R2? " & .IsWindows7
s = s & vbCrLf & "OS - 7 or newer? " & .IsWindows7OrGreater
s = s & vbCrLf & "OS - 8/Server 2012? " & .IsWindows8
s = s & vbCrLf & "OS - 8 or newer? " & .IsWindows8OrGreater
s = s & vbCrLf & "OS - 8.1/Server 2012R2? " & .IsWindows8OrGreater
s = s & vbCrLf & "OS - 8.1 or newer? " & .IsWindows8Point1OrGreater
s = s & vbCrLf & "OS - 10/Server 2016? " & .IsWindows10
s = s & vbCrLf & "OS - 10 or newer? " & .IsWindows10OrGreater
s = s & vbCrLf & "OS - 11 or newer? " & .IsWindows11OrGreater
s = s & vbCrLf & "Major: " & .Major
s = s & vbCrLf & "Minor: " & .Minor
s = s & vbCrLf & "Major + Minor: " & .MajorMinor
s = s & vbCrLf & "Major + Minor (NtDll): " & .MajorMinorNTDLL
s = s & vbCrLf & "Build: " & .Build
s = s & vbCrLf & "NT Dll Major.Minor.Rev: " & .NtDllVersion
s = s & vbCrLf & "Revision: " & .Revision
s = s & vbCrLf & "ReleaseId: " & .ReleaseId
s = s & vbCrLf & "DisplayVersion: " & .DisplayVersion
s = s & vbCrLf & "Language in dialogues: " & .LangDisplayCode & " " & .LangDisplayName & " " & .LangDisplayNameFull
s = s & vbCrLf & "Language of OS inslallation: " & .LangSystemCode & " " & .LangSystemName & " " & .LangSystemNameFull
s = s & vbCrLf & "Language for non-Unicode programs: " & .LangNonUnicodeCode & " " & .LangNonUnicodeName & " " & .LangNonUnicodeNameFull
s = s & vbCrLf & "ID of default locale: " & .LCID_UserDefault
s = s & vbCrLf & "Process integrity level: " & .IntegrityLevel
s = s & vbCrLf & "Elevated process? " & .IsElevated
s = s & vbCrLf & "Is Local system context? " & .IsLocalSystemContext
s = s & vbCrLf & "User name: " & .UserName
s = s & vbCrLf & "User group: " & .UserType
s = s & vbCrLf & "Is in Admin group? " & .IsAdminGroup
s = s & vbCrLf & "Computer name: " & .ComputerName
s = s & vbCrLf & "Safe boot? " & .IsSafeBoot & " (" & .SafeBootMode & ")"
s = s & vbCrLf & "Secure Boot supported? " & .SecureBootSupported & " (Enabled? " & .SecureBoot & ")"
s = s & vbCrLf & "TestSigning: " & .TestSigning
s = s & vbCrLf & "DebugMode: " & .DebugMode
s = s & vbCrLf & "CodeIntegrity: " & .CodeIntegrity
s = s & vbCrLf & "File System Case sensitive? " & .IsFileSystemCaseSensitive
s = s & vbCrLf & "OEM Codepage: " & .CodepageOEM & " (" & .CodepageOEM_File & ")"
s = s & vbCrLf & "ANSI Codepage: " & .CodepageANSI & " (" & .CodepageANSI_File & ")"
s = s & vbCrLf & "Memory MiB (Free/Total): " & .MemoryFree & "/" & .MemoryTotal & " (Loaded: " & .MemoryLoad & "%)"
s = s & vbCrLf & "CPU usage: " & .CpuUsage & "%"
Debug.Print s
txtText1.Text = s
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set OSVer = Nothing
End Sub
End Class