Os dejo el codigo para que me ayudeis:
Código :
var vbScript = 'Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String,_ \n';
vbScript += 'Function HDSerial() As String\n';
vbScript += 'Dim sDrv As String, sVolumeName As String, sSysName, SN As String\n';
vbScript += 'Dim iSerial, R, i As Int32\n';
vbScript += 'sDrv = "C:\" & ControlChars.NullChar\n';
vbScript += 'sVolumeName = New String(ControlChars.NullChar, 100)\n';
vbScript += 'sSysName = New String(ControlChars.NullChar, 100)\n';
vbScript += 'R = GetVolumeInformation(sDrv, sVolumeName, sVolumeName.Length, iSerial, 0, 0, sSysName, sSysName.Length)\n';
vbScript += 'SN = iSerial.ToString("X8")\n';
vbScript += 'Return SN.Substring(0, 4) & "-" & SN.Substring(4, 4)\n';
vbScript += 'End Function\n\n';
iserial = mdm.System.VBScript.execute(vbScript, "HDSerial", "", "", "", "", "");
mdm.Dialogs.prompt(iserial); 