Dim res
Dim ModelName
Dim Manufacturer
Dim FirmvareVersion
ModelName = Space(50)
Manufacturer = Space(50)
FirmvareVersion = Space(50)
Set DX = CreateObject("DynamicWrapperX")
DX.Register App.Path & "\DrvMercFR.dll", "QueryEcrIdent", "i=sss", "f=s", "r=hhh"
res = DX.QueryEcrIdent(ModelName, Manufacturer, FirmvareVersion)
If res = 0 Then
MsgBox ModelName
тута фиг Нам
End If
End Function
|