how can I get serial number of drive (C:\) and use at wincc?

Hello,

I want to protect my wincc program to duplicate it at another pc. For my opinion I should take serial number of drive and use in wincc 6.0 by script. In my project startuppageunder picture objects/miscellaneous/open pictureI wrote script as:

Dim fs,d,r,s,t

Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("C:")))

s = d.SerialNumber

If s =-547985164 Then
VAR_345 = 1
Else
VAR_345 = 0
Text = "THERE IS ERROR!PLEASE CONTACT WITH BERKANT!"
Dauer_in_s = 100
Titel = "SYSTEM IS CANCELED"
Buttons = 48

Set WSHShell = CreateObject("WScript.Shell")
Ruckgabewert = WSHShell.Popup (Text,Dauer_in_s,,Buttons)
End If

but it didnt work! :( I need urgently your opinions. my there is simple way or scripts I dont know. should you give mesome suggestions please.

your sincerely,

Dear April,

I have program to find serial number but my script doesnt work. I try that code at wincc flexible 2007 and it works. I need to use the same way at Wincc 6.0. I tried but it didnt work :(
I'm not profesional script user. If you show me the way to make a script at Wincc6.0 I will be full with grateful for you.

your sincerely,

Berkant.