=)))) прибить программку намертво к винту?? =))))))))))
номер производителя..... (железячный).. не знаю.. сам бы хотел услышать, но можно узнать серийный номер раздела, который даётся при форматировании. но если раздел отформатировать он будет другим

Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long


Function SN(Drive As String) As Long
Dim i As Long
Dim lpRootPathName As String
Dim lpVolumeNameBuffer As String
Dim nVolumeNameSize As Long
Dim lpVolumeSerialNumber As Long
Dim lpMaximumComponentLength As Long
Dim lpFileSystemFlags As Long
Dim lpFileSystemNameBuffer As String
Dim nFileSystemNameSize As Long

lpRootPathName = Drive + ":\"
lpVolumeNameBuffer = String$(128, 0)
nVolumeNameSize = Len(lpVolumeNameBuffer)
lpVolumeSerialNumber = 0
lpMaximumComponentLength = 0
lpFileSystemFlags = 0
lpFileSystemNameBuffer = String$(128, 0)
nFileSystemNameSize = Len(lpFileSystemNameBuffer)

i = GetVolumeInformation(lpRootPathName, _
lpVolumeNameBuffer, _
nVolumeNameSize, _
lpVolumeSerialNumber, _
lpMaximumComponentLength, _
lpFileSystemFlags, _
lpFileSystemNameBuffer, _
nFileSystemNameSize)

SN = lpVolumeSerialNumber
End Function

2 Senin Viktor
где-то я встречал.. что FSO это не совсем гуд =) не везде работает.

да уж. и я видел с длл... но не таскать же её с базой =((((

это вообще возможно из вба обращаться к железу???

>Особенно там, где его нет
>если разработка для компании, то почему бы и нет?

а потом станет не для компании.. и переделывать заново? =))))
нет уж.. лучше...
>В моих прогах ни строчки из FSO - only API.


>Через API - Да, хоть к BIOS, но к сожалению не на NT-based systems.
но как то же узнаются эти номера.. ?.. другими программами??? уж если винда2000 не пускает.. то она непускает всех.. или я неправ?

да уж... Аксес попросил отправить багрепорт =))...