>I'm looking for functions to to retrieve information about computers. I have found that:
>OS() which gives info about Windows OS.
>SYS(17) which gives processor, but only "Pentium"?
>Drivetype() and DiskSpace() to get disk size and available space
>Anetresources() to get the available net and resources on each net, but how do I get the volumes on each machine?
>
>But how can I get
>* the Ethernet address?
>* available ports like USB, COM?
>* TCP/IP setting?
>* Processor speed?
>* Installed software?
>
>and maybe other info that is useful in a support situation.
Here is name and ip
lcMachineName=space(200)
lnLen=200
llRetVal=GetComputerName(@lcMachineName,@lnLen)
...
IPSocket = CreateObject("MSWinsock.Winsock")
...
? " This information is about your PC!" FONT "Courier",8
?" Date and Time: "+ TtoC(DateTime()) FONT "Courier",8
If Type('IPSocket')='O'
IPAddress = IPSocket.LocalIP
localhostname=IPSocket.localhostname
If llRetval
?" Machine Name: "+ SubStr(lcMachineName,1,lnLen) FONT "Courier",8
Else
?" Machine Name: Undetermined!" FONT "Courier",8
EndIf
?" Local Host Name: "+localhostname FONT "Courier",8
?" Local IP: " + IPAddress FONT "Courier",8
EndIf
Edgar L. Bolton, B.S. B.B.A.