PDA

View Full Version : به دست آوردن شماره هارد کامپیوتر



r_mehrizi
چهارشنبه 15 آبان 1387, 08:41 صبح
من میخوام برنامه ای که نوشتم فقط روی یک کامپیوتر نصب بشه به همین خاطر باید شماره هارد اون را به دست بیارم
برای به دست آوردن شماره هارد از کد زیر استفاده کردم


Me.ProgressBar1.Visible = True
Timer1.Enabled = True
Dim str_no As String = ""
Dim physicalMedia As New System.Management.ManagementClass("Win32_PhysicalMedia")
For Each physicalMedium As System.Management.ManagementObject In physicalMedia.GetInstances()
str_no = CStr(physicalMedium("SerialNumber"))
Exit For
Next physicalMedium

مشکلی که دارم اینه که اگه من پروژه را به صورت file>open web site>file system باز کنم این تابع شماره هارد را بر می گردونه اگه به صورت file>open web site>local iisباز کنم این تابع دیگه مقداری بر نمی گردونه :گریه: