ניווט

    תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    • מקצועות
    חוקי הפורום

    קודי VBA לאקסס שמחזירים מידע על המערכת, קיים?

    תכנות
    2
    4
    48
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגב כנושא
    התחבר בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • אביי
      אביי נערך לאחרונה על ידי אביי

      כגון גירסת מע' ההפעלה, דגם המחשב וכו'.

      א"כ אשמח שביאו לכאן, תודה!

      תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • Y
        yits נערך לאחרונה על ידי

        זה דוגמא שמצאתי בחיפוש גוגל למציאת גירסת מערכת הפעלה

        Public Function GetOSName()
            On Error GoTo Fejl
            Dim ObjWMIservice As Object, ColItems As Object, ObjItem As Object
            
            Set ObjWMIservice = GetObject("winmgmts:\\.\root\cimv2")
            Set ColItems = ObjWMIservice.ExecQuery("SELECT * FROM Win32_OperatingSystem", , 48)
            For Each ObjItem In ColItems
                GetOSName = ObjItem.Name
            Next
            
            GetOSName = Left(GetOSName, InStr(GetOSName, "|") - 1)
            GetOSName = Trim(Mid(GetOSName, InStr(15, GetOSName, " "), 4))
            Select Case GetOSName
                Case 10: GetOSName = 10
                Case 8.1: GetOSName = 8
                Case 7.1, 7: GetOSName = 7
                Case Else: GetOSName = 5
            End Select
            Set ObjItem = Nothing
            Set ColItems = Nothing
            Set ObjWMIservice = Nothing
        ExitHer:
            Exit Function
        Fejl:
            MsgBox Err.Description, , ""
            Resume ExitHer
        End Function
        

        אבל יש לי עוד הרבה וזה שמור באיזה פרוייקט שלי,
        תפרט איזה נתונים אתה צריך לקבל, אולי השתמשתי בזה.

        Y תגובה 1 תגובה אחרונה תגובה ציטוט 3
        • Y
          yits @yits נערך לאחרונה על ידי yits

          Sub GetWindowsVersion()
              Dim SysReport As String
            
          'Check Windows version.
          'based on: http://answers.microsoft.com/en-us/office/forum/office_xp-access/VBA-to-find-windows-version/1a1e72f5-0b4a-4c6a-ba4c-a6964f4ee4cc
              Dim objWMIService As Variant
              Dim colOperatingSystems As Variant
              Dim objOperatingSystem As Variant
              Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
              Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
              For Each objOperatingSystem In colOperatingSystems
                  SysReport = SysReport & "The operating system on this computer is " & _
                      objOperatingSystem.Caption & "  (" & objOperatingSystem.Version & ")"
              Next
              
          'Determine if operating system is 32-bit or 64-bit
          '-------------------------------------------------
          'Modified from code provided at:
          '  http://www.vb-helper.com/howto_get_os_name.html
              Dim proc_query As String
              Dim proc_results As Object
              Dim info As Object
              Dim IsWin32OrWin64 As String
              
              proc_query = "SELECT * FROM Win32_Processor"
              Set proc_results = GetObject("Winmgmts:").ExecQuery(proc_query)
              For Each info In proc_results
                  IsWin32OrWin64 = info.AddressWidth & "-bit"
              Next info
              SysReport = SysReport & " " & IsWin32OrWin64 & "."
              
          Debug.Print SysReport
          End Sub
          
          

          תוצאה:

          The operating system on this computer is þþMicrosoft Windows 10 Pro  (10.0.18363) 64-bit.
          
          Y תגובה 1 תגובה אחרונה תגובה ציטוט 4
          • Y
            yits @yits נערך לאחרונה על ידי

            Sub Main()
            Set objWMIService = GetObject("winmgmts://./root/cimv2")
            
            Set ColItems = objWMIService.ExecQuery("Select * from Win32_BIOS where PrimaryBIOS = true", , 48)
            
            For Each ObjItem In ColItems
                strMsg = strMsg _
                       & "    BIOS Name       :  " & ObjItem.Name & vbCrLf _
                       & "    Version         :  " & ObjItem.Version & vbCrLf _
                       & "    Manufacturer    :  " & ObjItem.Manufacturer & vbCrLf _
                       & "    Serial Number   :  " & ObjItem.SerialNumber & vbCrLf _
                       & "    SMBIOS Version  :  " & ObjItem.SMBIOSBIOSVersion & vbCrLf
            Next
            
            Debug.Print strMsg
            End Sub
            
                BIOS Name       :  Phoenix BIOS SC-T v2.1
                Version         :  LENOVO - 2400
                Manufacturer    :  LENOVO
                Serial Number   :  R9022X21
                SMBIOS Version  :  GNET92WW (2.40 )
            

            מקור
            https://www.tek-tips.com/viewthread.cfm?qid=1105123

            תגובה 1 תגובה אחרונה תגובה ציטוט 4
            • 1 / 1
            • First post
              Last post
            בא תתחבר לדף היומי!