شماره سریال هارد

[amin61b]

با سلام


به نظر شما کدی وجود داره که شماره سریال هارد دیسک یا مادربورد کامپیوتر رو در بیاره؟

[m_d6712]

سلام راه های زیادی برای این کار هست.

بستگی داره چه کار می خوای انجام بدی:

یک راه ساده به این شکل است.


از ماژول زیر استفاده کن

Sub a()
Dim fso, objDrive, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set objDrive = fso.GetDrive("D:")
s = "SN: " & Hex(objDrive.SerialNumber)
MsgBox s
End Sub


راههای دیگری نیز هست که می تونی از این لینک کمک بگیری:
http://social.msdn.microsoft.com/Forums/lt-LT/vbpowerpacks/thread/0e9a097d-c22c-4b70-ad50-106d680fa5b3[hr]
سلام راه های زیادی برای این کار هست.

بستگی داره چه کار می خوای انجام بدی:

یک راه ساده به این شکل است.


از ماژول زیر استفاده کن

Sub a()
Dim fso, objDrive, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set objDrive = fso.GetDrive("D:")
s = "SN: " & Hex(objDrive.SerialNumber)
MsgBox s
End Sub


راههای دیگری نیز هست که می تونی از این لینک کمک بگیری:
http://social.msdn.microsoft.com/Forums/lt-LT/vbpowerpacks/thread/0e9a097d-c22c-4b70-ad50-106d680fa5b3

[hossinforughi]

سلام چطور میشه سریال هارد رو که ترکیبی از حرف و عدده فق اعداد رو جدا کرد و تو یه رشته قرار داد؟