نمایش نتایج 1 تا 2 از 2

نام تاپیک: بدست آوردن شماره سریال هارد با vba در اکسل

  1. #1
    کاربر جدید
    تاریخ عضویت
    شهریور 1392
    محل زندگی
    tbriz
    پست
    21

    Exclamation بدست آوردن شماره سریال هارد با vba در اکسل

    سلام
    دنبال کدی هستم که شماره سریال هارد (سخت افزاری) رو با کد vba اکسل نشون بده.

  2. #2

    نقل قول: بدست آوردن شماره سریال هارد با vba در اکسل

    نقل قول نوشته شده توسط mehdininja مشاهده تاپیک
    سلام
    دنبال کدی هستم که شماره سریال هارد (سخت افزاری) رو با کد vba اکسل نشون بده.

    Private Sub CommandButton1_Click()
    MsgBox GetSerialNumber
    End Sub

    Private Function GetSerialNumber() As String
    Dim Wmi As Object, Disks As Object, Disk As Object
    Set Wmi = GetObject ("winmgmts:{impersonationLevel" & "=impersonate}!root\cimv2")
    Set Disks = Wmi.ExecQuery("Select * from Win32_DiskDrive")
    For Each Disk In Disks
    If Len(Disk.SerialNumber) > Len(GetSerialNumber) Then GetSerialNumber = Disk.SerialNumber
    Next
    Set Disk = Nothing
    Set Disks = Nothing
    Set Wmi = Nothing
    End Function

تاپیک های مشابه

  1. پاسخ: 1
    آخرین پست: یک شنبه 06 فروردین 1396, 10:01 صبح
  2. پاسخ: 2
    آخرین پست: جمعه 31 مرداد 1393, 11:12 صبح
  3. سوال: ساخت چند یوزر پس برای هاست و محدود کردن هاست برای نویسندگان هاست.
    نوشته شده توسط rezanic در بخش توسعه وب (Web Development)
    پاسخ: 0
    آخرین پست: شنبه 04 مرداد 1393, 22:07 عصر
  4. پاسخ: 7
    آخرین پست: سه شنبه 28 آذر 1391, 14:48 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •