Fixed device info for tcp devices

Does not crash anymore, but info might not be 100% correct.

+netvisa/+instrument/TCPIP.m

@@ -21,9 +21,15 @@ classdef TCPIP < netvisa.instrument.MessageBasedResource
                 {'ByteOrder', 'Timeout', 'Terminator'}...
             };
         
-            obj.Vendor       = string(obj.device.ResourceManufacturerName);
-            obj.Model        = string(obj.device.ModelName);
-            obj.SerialNumber = string(obj.device.UsbSerialNumber);
+            % This is a trick to get vendor, model and serial number - but
+            % I am unsure if it is wise to send data to the device
+            % implicitly...
+            try %#ok<TRYNC> % Reading the identification data is optional.
+                idn = strsplit(writeread(obj, '*IDN?'), ',');
+                obj.Vendor = string(idn{1});
+                obj.Model = string(idn{2});
+                obj.SerialNumber = string(idn{3});
+            end
             
             % TODO
             % - ByteOrder must be saved as a property and then passed to 
@@ -38,7 +44,7 @@ classdef TCPIP < netvisa.instrument.MessageBasedResource
         end
         
         function lanName = get.LANName(obj)
-            lanName = string(obj.device.DeviceName);
+            lanName = string(obj.device.HostName);
         end
         
         function instrumentAddress = get.InstrumentAddress(obj)

+netvisa/visadevlist.m

@@ -66,6 +66,9 @@ function resourceList = visadevlist()
                 Model{ii}           = char(res.ModelName);
                 SerialNumber{ii}    = char(res.UsbSerialNumber);
                 res.Dispose();
+                
+            case 'tcp'
+                % TODO
             
         end