Clearly I'm doing something wrong with Device Type... though pulling all other properties works perfectly.
thx for the help!
code...
thx for the help!
code...
Code:
objEnum = hs.GetDeviceEnumerator ' Get a list of all HS devices Do While Not objEnum.Finished ' Retrieve data for each HS device objDevice = objEnum.GetNext If objDevice Is Nothing Then Continue Do intDevRef = objDevice.Ref(hs) strDevName = objDevice.Name(hs) strDevLoc = objDevice.Location(hs) strDevLoc2 = objDevice.Location2(hs) dblDevValue = hs.DeviceValueEx(intDevRef) [B]strDevType = objDevice.dev_type_string(hs)[/B]
Comment