Sürücü Seri No?

[raysefo]

Selam,

Sürücü seri noyu nasıl öğrenebilirim? VB ile falan değil, işletim sisteminde böyle bir komut var mı? Kodlama yapmayı bilmeyen biri en basit biçimde nasıl bulabilir bu sunucu seri no yu?

teşekkür ederim

 

[Haluk]

DOS ekrarnında dir yazıp, ENTER tuşuna basın.

 

[raysefo]

seri no

selam,

Bu kod tam olarak nereden bulunuyor?

Surucu = FSO.GetDrive("C:")
Seri = Surucu.serialnumber

Seri olarak çıkan rakam ile dos komutundan dir yapılıp bulunan farklı?
Yardımcı olursanız memnun olurum. Teşekkürler.

 

[Haluk]

Her ikisi de aynıdır.

Birisi HEX cinsinden, diğeri DEC cinsinden.

Yani;

Sub Test()
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Surucu = FSO.GetDrive("C:")
    seri = Surucu.serialnumber
    MsgBox Left(Hex(seri), 4) & "-" & Right(Hex(seri), 4)
End Sub

Daha geniş bilgi için, aşağıdaki linki tıklayın...

http://www.excel.web.tr/viewtopic.php?t=12833