デバイスの識別子をIntegerとして戻します。デバイス識別子は、デバイスマネージャに含まれるチャンネルのコレクション（DeviceCollection）内でデバイスを識別する連続番号です。
Application.Devices.enable = true
set oDevice = Application.Devices.Item("PC1600")
If TypeName (oDevice) = "Nothing" Then
set oDevice = Application.Devices.AddDevice( "PC1600" )
End If
logmessage "The device ID is: " & oDevice.ID
|