Çözüldü İşletim sistemi (x32/x64)

[k0081]

Merhaba arkadaşlar;

işletim sisteminin 32 bit mi? , 64 bit mi ?
olduğunu anlamak için makro kodu nasıl olmalıdır..?

ör;

if sistem = "x32" then
msgbox "işletim sistemi : 32 bit"
else
msgbox "işletim sistemi : 64 bit"
end if

bu şekilde...

Yardımcı arkadaşıma şimdiden Teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Sistem_Bak()
    #If Win64 Then
        MsgBox "işletim sistemi : 64 bit"
    #ElseIf Win32 Then
        MsgBox "işletim sistemi : 32 bit"
    #End If
End Sub

 

[Haluk]

Ömer Beyin kodu benim işletim sistemini 32 Bit olarak gösterdi ancak, doğrusu; Windows 64 Bit / Office 32 Bit

Aşağıdaki yöntemle, doğru işletim sistemini (64Bit) gösterebildim.

Sub Test()
    'Haluk - 02/04/2019
    'sa4truss@gmail.com
    If Len(Environ("ProgramW6432")) > 0 Then
        MsgBox "İşletim Sistemi: 64 Bit"
    Else
        MsgBox "İşletim Sistemi: 32 Bit"
    End If
End Sub

.

 

[Zeki Gürsoy]

Win64 sabiti Office mimarisini söyler. İşletim sistemi mimarisi ile karıştırılmasın.

 

[k0081]

Camideyim. Test edip geri dönüş yaparım.

Çok Teşekkür ediyorum.

 

[Haluk]

WMI kullanarak da bulabilirsiniz ...

Sub Test()
    'Haluk - 02/04/2019
    'sa4truss@gmail.com
    Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
    Set objOS = objWMI.ExecQuery("SELECT OSArchitecture, SerialNumber, OSLanguage FROM Win32_OperatingSystem")
    
    For Each OS In objOS
        MsgBox "İşletim Sistemi mimarisi : " & OS.OSArchitecture & vbCrLf _
             & "İşletim Sistemi dili : " & OS.OSLanguage & "     (1033: İngilizce, 1055: Türkçe)" & vbCrLf _
             & "Windows Seri Numarası : " & OS.SerialNumber
    Next
End Sub

.

 

[k0081]

Öncelikle cevap yazan herkese çok Teşekkürler.

Ömer beyin; vermiş olduğu kod : 32 ve 64 bit sistemde çalışıyor. Ama Vb6 formunda 64 bit de 32 bit olarak gösteriyor... 64 göstermeliydi.

Haluk beyin; vermiş olduğu ilk kod : 32 ve 64 bit sistemde çalışıyor. Vb6 formunda çalışıyor.
; ikinci kod ise 32 bit sistemde Otomasyon hatası verirken, 64 bit sistem de sorunsuz çalışıyor. Vb6 içinde durum aynı.

Haluk beyin göndermiş olduğu ilk kod, sorumun tam çözümü oluyor. Çok Teşekkür ediyorum. Tamamdır elinize sağlık...