'

' This example demonstrates how to work with devices through scripting.

'

NewScene , false

' First make sure the device manager is active (we can't add devices if it isn't)

if Not(Application.Devices.Enable) then

	Application.Devices.Enable = true

end if

' Get the DeviceManager (DeviceCollection)

set oDevices = Application.Devices

' Get a pointer to the PC1600 Device, if it exists

set oDevice = oDevices.Item("PC1600")

' If it doesn't exist, then create it

if TypeName(oDevice) = "Nothing" then

	set oDevice = oDevices.AddDevice( "PC1600" )

end if

LogMessage "The device name is " & oDevice

'INFO : The device name is DeviceManager.PC1600