Re: Getting the Serial Number of the User's computer

2008-12-10 Thread Peter Alcibiades

Yes indeed.  It comes as standard in Debian, and I think Ubuntu also, but I
don't know about the rest.  Its in /usr/sbin and requires root privileges,
implying sudo, which also may well not be available in all distros, and not
to the particular user in any case.  It isn't very neat. Maybe run the app
install as root and change the permissions and put a link in /usr/bin?  Not
an expert on this stuff.

Peter



Ken Ray wrote:
 
 
 But given the many Linux distros, would it be safe to say that this may
 not
 work on all distros? 
 
 

-- 
View this message in context: 
http://www.nabble.com/Getting-the-Serial-Number-of-the-User%27s-computer-tp20921219p20937840.html
Sent from the Revolution - User mailing list archive at Nabble.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


Re: Getting the Serial Number of the User's computer

2008-12-10 Thread Mark Talluto


On Dec 9, 2008, at 10:59 AM, Paul Looney wrote:

How can I retrieve the computer serial number in OS X, Vista and  
Linux from Rev?

Thanks in advance, I appreciate it.



Hi Paul,

This is how we get the serial on OS X using shell.  It is very fast  
and has the added benefit of identifying refurb macs.


function getSerial
 put empty into tSerial
 put shell(/usr/sbin/system_profiler SPHardwareDataType)  
into tResult

 repeat with x=1 to the number of lines of tResult
  if Serial Number is in line x of tResult then put  
line x of tResult into tSerial

 end repeat
 if tSerial is not empty then put the last word of tSerial  
into tSerial

 if tSerial is empty then put Refurb Mac into tSerial
 return tSerial
end getSerial


Mark Talluto
http://www.canelasoftware.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


Re: Getting the Serial Number of the User's computer

2008-12-09 Thread Peter Alcibiades

Never personally used it in anger, but in Linux its dmidecode.  

http://www.thegeekstuff.com/2008/11/how-to-get-hardware-information-on-linux-using-dmidecode-command/

Peter


Paul Looney wrote:
 
 How can I retrieve the computer serial number in OS X, Vista and  
 Linux from Rev?
 Thanks in advance, I appreciate it.
 Paul Looney
 ___
 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
 
 

-- 
View this message in context: 
http://www.nabble.com/Getting-the-Serial-Number-of-the-User%27s-computer-tp20921219p20921793.html
Sent from the Revolution - User mailing list archive at Nabble.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


Re: Getting the Serial Number of the User's computer

2008-12-09 Thread Paul Looney

Thank you, Peter.
One down, two to go.
Paul Looney

On Dec 9, 2008, at 11:33 AM, Peter Alcibiades wrote:



Never personally used it in anger, but in Linux its dmidecode.

http://www.thegeekstuff.com/2008/11/how-to-get-hardware-information- 
on-linux-using-dmidecode-command/


Peter


Paul Looney wrote:


How can I retrieve the computer serial number in OS X, Vista and
Linux from Rev?
Thanks in advance, I appreciate it.
Paul Looney
___
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




--
View this message in context: http://www.nabble.com/Getting-the- 
Serial-Number-of-the-User%27s-computer-tp20921219p20921793.html

Sent from the Revolution - User mailing list archive at Nabble.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


___
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


Re: Getting the Serial Number of the User's computer

2008-12-09 Thread Ken Ray

 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


Re: Getting the Serial Number of the User's computer

2008-12-09 Thread J. Landman Gay

Paul Looney wrote:

Thank you, Peter.
One down, two to go.


This may be of use: 
http://www.sonsothunder.com/devres/revolution/tips/env001.htm


Ken knows everything.

--
Jacqueline Landman Gay | [EMAIL PROTECTED]
HyperActive Software   | http://www.hyperactivesw.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


Re: Getting the Serial Number of the User's computer

2008-12-09 Thread Paul Looney

Ken,
It worked perfectly, of course.
Thank you.
Paul Looney

On Dec 9, 2008, at 2:06 PM, Ken Ray wrote:




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


___
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


Re: Getting the Serial Number of the User's computer

2008-12-09 Thread Paul Looney

Jacque,
Ken really does know everything! He had actually replied before you  
suggest his site.
Of course, YOU know everything, too. Those of us second tier  
programmers on this list are very fortunate to have both of you  
helping us.

Paul Looney

On Dec 9, 2008, at 2:07 PM, J. Landman Gay wrote:


Paul Looney wrote:

Thank you, Peter.
One down, two to go.


This may be of use: http://www.sonsothunder.com/devres/revolution/ 
tips/env001.htm


Ken knows everything.

--
Jacqueline Landman Gay | [EMAIL PROTECTED]
HyperActive Software   | http://www.hyperactivesw.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


___
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


Re: Getting the Serial Number of the User's computer

2008-12-09 Thread Ken Ray


 Never personally used it in anger, but in Linux its dmidecode.
 
 http://www.thegeekstuff.com/2008/11/how-to-get-hardware-information-on-linux-u
 sing-dmidecode-command/

It seems you can get it by doing dmidecode -t 1, but it requires
permission, so you would need to sudo and provide a password to get it.
The way you do *that*, is (assumes the password is in the variable tPwd):

put #!/bin/sh  cr into tScript
put pw=  quote  tPwd  quote  cr after tScript
put echo $pw | sudo -S dmidecode -t 1  tPID  cr after tScript
put shell(tScript) into tResult
 -- Then parse tResult looking for Serial Number:

But given the many Linux distros, would it be safe to say that this may not
work on all distros? I know it doesn't work in a virtual device (when I do
this under VMWare, I don't get any System Information - I get
HDIO_GET_IDENTITY failed), but would it work for the most common distros?

Just curious...

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