Application.Devices.enable = true

set oDevice = Application.Devices.Item("Mouse")

If TypeName (oDevice) = "Nothing" Then

set oDevice = Application.Devices.AddDevice( "Mouse" )

End If

set oChannels = oDevice.Channels

for each oChannel in oChannels

	 logmessage "Channel: " & oChannel

next