دریافت اطلاعات سیستمی و سخت افزاری در اکسس

بسم الله الرحمن الرحیم

سلام

 

ابتدا فرارسیدن ایام شهادت حضرت صدیقه طاهره، زهرای مرضیه سلام الله علیها رو خدمت همه دوستان تسلیت عرض میکنم و در ادامه هم فرارسیدن 12 بهمن‌ماه، سالروز ورود حضرت امام خمینی رحمت الله علیه و آغاز دهه مبارک فجر و تبریک و آرزوی سربلندی نظام و انقلاب اسلامی ایران رو در همه عرصه‌ها دارم.

 

خب عنوان پست یک عنوان کلی هست که لازمه کمی توضیح بدم در موردش؛

گاهی نیاز هست تا اطلاعات مربوط به سیستم عامل (نام کاربری، اطلاعات شبکه و ریجستری سیستم) و یا اطلاعات سخت افزاری (مثل سریال HDD و یا سریال CPU) رو بدست بیارم و ازشون در برنامه استفاده کنیم.

 

برای انجام و بدست آوردن این اطلاعات بصورت معمول باید رشته کدهای فراوانی رو نوشت تا شاید بخشی از این اطلاعات، آنهم بدون خطا دریافت کرد.

ولی با استفاده از فانکشنی که در این مقاله معرفی میکنم قابلیت Outpot رو از طریق CMD استخراج میکنیم.

 

خب ابتدا فانکشن زیر رو در برنامه خودتون قرار بدین:

Public Function ShellRun(sCmd As String) As String
 
 
'Run a shell command, returning the output as a string
'Published by: http://Access-Training.blog.ir/tag/wmic
 
 
    Dim oShell As Object
    Set oShell = CreateObject("WScript.Shell")
 
 
    'run command
    Dim oExec As Object
    Dim oOutput As Object
    Set oExec = oShell.Exec(sCmd)
    Set oOutput = oExec.StdOut
 
 
    'handle the results as they are written to and read from the StdOut object
    Dim s As String
    Dim sLine As String
    While Not oOutput.AtEndOfStream
        sLine = oOutput.ReadLine
        If sLine <> "" Then s = s & sLine & vbCrLf
    Wend
 
 
    ShellRun = s
 
 
End Function

و با دستور زیر که در ایونت OnLoad فرم مورد نظرتون قرار دادین میتونید به عنوان مثال شماره سریال هارد درایو سیستمتون رو در یک MsgBox نمایش بدین:

Dim res As String
    res = ShellRun("wmic diskdrive get serialnumber")
    MsgBox res

 

در حال بروز رسانی ...

• دریافت اطلاعات سیستمی و سخت افزاری در اکسس
• لیست دستورات موجود در wmic - بروز رسانی اول
• دریافت اطلاعات سخت افزاری توسط دستور wmic - بروز رسانی دوم
• مخفی سازی پنجره cmd در زمان دریافت اطلاعات - بروز رسانی سوم