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);