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

Reference Manual - Index