> How can I retrieve the computer serial number in OS X, Vista and > Linux from Rev?
Here's what I have, Paul... for OS X it can take a while (a few seconds) to get the number on OS X (since it has to go through a series of different "system_profiler" data types), but it works (watch for wraps): function stsGetSerialNumber pWinDriveLetter local tID switch (the platform) case "MacOS" put shell("system_profiler SPHardwareDataType") into tData put matchText(tData,"(?s)Serial Number:\W*(.*?)\n",tID) into tIsMatch break case "Win32" if pWinDriveLetter = "" then put "C:" into tDriveLetter else put pWinDriveLetter into tDriveLetter if length(tDriveLetter) = 1 then put ":" after tDriveLetter set the hideConsoleWindows to true if the shellCommand <> "command.com" then put shell(tDriveLetter && "& dir") into tData else put "c:\temp.bat" into tBatPath put tDriveLetter & cr & "dir" into url ("file:" & tBatPath) put shell("start" && tBatPath) into tData delete file tBatPath end if put matchText(tData,"(?s)Serial Number is\W*(.*?)\n",tID) into tIsMatch break end switch if tIsMatch then return tID else return "STSError: Can't locate serial number." end if end stsGetSerialNumber Ken Ray Sons of Thunder Software, Inc. Email: [EMAIL PROTECTED] Web Site: http://www.sonsothunder.com/ _______________________________________________ use-revolution mailing list use-revolution@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-revolution