Hello.
Does anybody know how can I read the HDD series or some other hardware parameters from within VBA code in MS Access?
If you can help me, thanks a lot.

Yes, you need to use a WMI query. Here is a basic format I use to gather data about the local hard drive:

Dim strDrive As String
Dim strComputer As String

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
For Each objItem in colItems
    intDiskSpace = Int(objItem.Size / 1000000)
Next

strDrive = "C"
Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='" & strDrive &":'")
intFreeSpace = int(objLogicalDisk.FreeSpace / 1000000)
intRem = (intFreeSpace / intDiskSpace)
'STORE THESE HARD DRIVE VALUES
objRecordset("DiskDriveSize") = intDiskSpace
objRecordset("SpaceRemaining") = intFreeSpace
objRecordset("PerCentRemaining") = FormatPercent(intRem, 2)

HTH

mmcdonal

:) Thank's!

Is there a way of checking the screen setting of the Clients PC so that you could make the nessassary provisions for Form sizes etc.
Better still - Would it be possible to set the screen settings to 800X600 in VB?

Thanx
Base

Yes there is. I will look it up.
You don't ever want to change the screen settings of a user, especially to something ugly like 800x600.
Anyway, if you are designing for 800x600, it will show up well enough on anyone's machine since that is the smallest resolution these days.

mmcdonal

Thanks - I'll await your reply. My Work PC is set to 1024 X 768 but I battle to see if I set my Home PC or Laptop to the same. So when I move my appication around I notice the diffence and though that it might create problems later with diff Clients. It would be nice to be able to read and write - then I could change the settings on opening and restore on closing. Else I'll stick to your adivce about the 800X600 "standard".

Thanx so far
Base