cara mendapatkan serial number drive c: menggunakan asp classic

Kadang kala kita membutuhkan serial number drive c menggunakan bahasa microsoft asp classic, berikut coding nya :

                    dim fas,driveC

                    set fas=Server.CreateObject("Scripting.FileSystemObject")

                    set driveC=fas.GetDrive("c:")

                    vInit=driveC.SerialNumber

                    set driveC=nothing

                    set fas=nothing

sehingga vInit sudah memperoleh serial number dari hardisk c anda

terima kasih