PureBasic - SRGET

Overview

Often we need some more info about the Computer we are running software;
sometimes for Installers, other for licensing schemes or for Error-Reporting via email.
So with these extended Commands you can do it.
(C) 2003 by Siegfried Rings
(Source available in special cases)

Command Index

SRGETCPUVendor
SRGETComputerName
SRGETDriveSerial
SRGETFolder
SRGETMACID
SRGETOnlinestatus
SRGETUsername
SRGetDriveFormat
SRGetDriveName

Source-example: 


OpenConsole() 
PrintN("---------------------------------------------------------------") 
PrintN("Testing SRGETINFO Library") 
PrintN("---------------------------------------------------------------") 
sResult.s="" 
MyAdress.s="192.192.0.1" 
sResult.s=SRGetMACID(MyAdress.s) 
If sResult<>"" 
 PrintN("MAC-ID for "+MyAdress.s+" is= "+sResult.s) 
Else 
 PrintN("MAC-ID not available for "+MyAdress.s) 
EndIf 
PrintN("---------------------------------------------------------------") 
sResult="" 
sResult.s=SRGetUserName() 
PrintN("Local Username is = '"+sResult.s+"'") 
PrintN("---------------------------------------------------------------") 

sResult.s=SRGetComputerName() 
PrintN("Local Computername is = '"+sResult.s+"'") 
PrintN("---------------------------------------------------------------") 
sResult="" 
sResult.s=SRGETCPUVendor() 
PrintN("CPU-Vendor is = '"+sResult.s+"'") 
PrintN("---------------------------------------------------------------") 

sResult="" 
sResult.s=SRGETCPUName() 
PrintN("CPU-Name is = '"+sResult.s+"'") 
PrintN("---------------------------------------------------------------") 

Path.s="C:\" 
lResult.l=SRGetDriveSerial(Path.s) 
PrintN("Serialnumber for "+path.s+" is ='"+Hex(lResult)+"'") 
PrintN("---------------------------------------------------------------") 

sResult="" 
sResult.s=SRGetDriveName(Path.s) 
PrintN("Drivename for "+Path.s+" is = '"+sResult.s+"'") 
PrintN("---------------------------------------------------------------") 

sResult="" 
sResult.s=SRGetDriveFormat(Path.s) 
PrintN("DriveFormat for "+Path.s+" is = '"+sResult.s+"'") 
PrintN("---------------------------------------------------------------") 

lResult=SRGetOnlinestatus() 
If lResult<>0 
 PrintN("You are ONLINE") 
Else 
 PrintN("You are OFFLINE") 
EndIf 
PrintN("---------------------------------------------------------------") 

sResult.s=SRGetFolder(#SRGet_SENDTO) 
PrintN("special Folder for SendTo is = ") 
PrintN(sResult.s) 
PrintN("---------------------------------------------------------------") 
sResult.s=SRGetFolder(#SRGet_COMMON_PROGRAMS) 
PrintN("special Folder for COMMON_PROGRAMM is = ") 
PrintN(sResult.s) 

Dummy.s=Input() 

CloseConsole() 

Supported OS

Windows