Retrieve system Information

[bartus991]

I would like to create some functions to call the system info of the Computer.

The following information is needed:

- OS Name
Already tried with: sOS = Environ("OS") but this returns the Windows_NT in stead of: Microsoft Windows XP SP3.

- The computer information, displayed as: Intel Pentium 4 3066MHz

- The current IP address of the computer

- available physical memory, displayed as: 509MB (79% used)

- Uptime of the computer, i.e.: 1 hours 14 minutes.

 

[PHV]

Have you tried to use WMI ?

http://www.microsoft.com/downloads/details.aspx?FamilyID=09dfc342-648b-4119-b7eb-783b0f7d1178

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[bartus991]

No haven't tried it, as this database will run on differrent computers and the mentioned programm isn't installed on them. I can only install it on my pc.

I was hoping to retrieve it from the system info in the config screen... No succes yet.

 

[PHV]

The mentioned program is just a tool to develop WMI queries.
Then you may execute those queries in VBA.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[bartus991]

Thanks, have tried it, but won't give me the wanted information. Only the computer name could be retrieved with wmi...

 

[PHV]

Only the computer name could be retrieved with wmi...
Really ?
Did you try the Win32_OperatingSystem WMI class ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886