Нужно с помощью ХП прочитать метку диска на котором запущен сервер.
Это возможно ?

В WinAPI есть ф-ция GetVolumeInformationA. С помощью ее я из ПБ читаю метку без проблем.

В ПБ обьявляю:
Function boolean GetVolumeInformationA (string lpRootPathName, ref string lpVolumeNameBuffer, ulong nVolumeNameSize, ref ulong lpVolumeSerialNumber, ref ulong lpMaximumComponentLength, ref ulong lpFileSystemFlags, ref string lpFileSystemNameBuffer, ulong nFileSystemNameSize) Library "KERNEL32.DLL"

//..................... скрипт вызова для ПБ .......................
string ls_RootPath, ls_VolumeName, ls_FileSystemNameBuffer
ulong ll_VolumeSerialNumber, ll_MaximumComponentLength, ll_FileSystemFlags

ls_RootPath = cdisk+"\"
ls_VolumeName = Space (256)
ls_FileSystemNameBuffer = Space (12)

GetVolumeInformationA (ls_RootPath, ls_VolumeName, Len (ls_VolumeName), ll_VolumeSerialNumber, ll_MaximumComponentLength, ll_FileSystemFlags, ls_FileSystemNameBuffer, Len (ls_FileSystemNameBuffer))

return ( string(ll_VolumeSerialNumber) )
//............................................................................................

Перенес на ASA.
Создал процедуру-обьявление:

CREATE PROCEDURE DBA.getvolinfo(in lpRootPathName char(255),inout lpVolumeNameBuffer char(255),in nVolumeNameSize integer,inout lpVolumeSerialNumber integer,inout lpMaximumComponentLength integer,inout lpFileSystemFlags integer,inout lpFileSystemNameBuffer char(255),in nFileSystemNameSize integer)
external name 'GetVolumeInformationA@KERNEL32.DLL'

Создал ф-цию:

ALTER FUNCTION DBA ."GetDiskMark" ( in ls_RootPath char(256) )
RETURNS varchar (256)
BEGIN
DECLARE ls_VolumeName char (256);
DECLARE ls_FileSystemNameBuffer char (12);
DECLARE ll_VolumeSerialNumber int ;
DECLARE ll_MaximumComponentLength int;
DECLARE ll_FileSystemFlags int;
//
SET ls_VolumeName = Space (256) ;
SET ls_FileSystemNameBuffer = Space (12) ;
SET ll_VolumeSerialNumber = 0 ;
SET ll_MaximumComponentLength = 0;
SET ll_FileSystemFlags = 0;
CALL dba.getvolinfo( ls_RootPath,
ls_VolumeName,
256,
ll_VolumeSerialNumber,
ll_MaximumComponentLength,
ll_FileSystemFlags,
ls_FileSystemNameBuffer,
12
) ;
RETURN string(ll_VolumeSerialNumber);
END
// ...............................................................
При вызове ее из ISQL:

CALL "DBA"."GetDiskMark"( 'c:\' )

пишет: ASA error -735: Invalid parameter.

Что я делаю не так ?

[ ASA 8.0.2.4454 ]

2ASCRUS
Спасибо за совет, но к сож. по другому не получится.
Хочу хоть как-то защитить базу(ы) от копирования на др. компьютеры или диски.
Базы в разных городах и полностью во власти юзеров, но пароль на нее они не знают (надеюсь). Вот и хочется, что бы она САМА при старте определяла где находится и в случ. чего отбивала соединение или чего еще ... .
Может есть др. методы ?