EnableExplicit Procedure.s GetHDSerial(Drive.s) Protected Serial.l Protected Fixed.s = Left(Drive.s, 1) + ":\" GetVolumeInformation_(@Fixed, #Null, #Null, @Serial, 0,#Null , #Null, #Null) ProcedureReturn Hex(Serial.l) EndProcedure MessageRequester("","Seriennummer der Festplatte: "+GetHDSerial("c"),0)