28-12-17, 03:59 PM
كود بديل عن السابق يعرض أيضا Service Pack إن وجد
أضف المكتبة System.Management.dll الى الرفرينسس References
أضف المكتبة System.Management.dll الى الرفرينسس References
PHP كود :
Dim OS = New Management.ManagementObjectSearcher("root\cimv2", "SELECT * FROM Win32_OperatingSystem").Get(0)
Dim OSFullName = OS.Properties("Caption").Value
Dim OSServicePack = OS.Properties("ServicePackMajorVersion").Value
Dim OSTitle As String = OSFullName & If(OSServicePack > 0, " Service Pack " & OSServicePack, String.Empty)
MsgBox(OSTitle)
