N5182B上的GPIB连接错误

VB.net，我通常会开始这样的程序，我假设您安装了Agilent I / O库？
www.agilent.com/find/iosuite'''''''''''''''''''''''''''
“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”“”
''''''''''''''''''''''''''Imp Imp Imp Imp Imp In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In In
：INSTR“Dim oRm As New ResourceManagerClass（）Dim FGEN As New FormattedIO488Class（）'打开仪器的会话。
FGEN.IO = oRm.Open（instAddress，AccessMode.NO_LOCK，10000，“”）FGEN.IO.Timeout = 10000'查询Idendity字符串和报告。
FGEN.WriteString（“* IDN？”，True）Dim strResult As String = FGEN.ReadString（）Console.WriteLine（“Instrument Identity String：”+ strResult）'清除并重置仪器FGEN.WriteString（“* CLS; * RST
; * OPC？“，True）FGEN.ReadString（）



     以下为原文

  VB.net,  I usually start out my programs like this, I assume you have Agilent I/O libraries installed?  www.agilent.com/find/iosuite

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Imports System.Text
Imports Ivi.Visa.Interop

Dim instAddress As String = "GPIB0::22::INSTR"
        Dim oRm As New ResourceManagerClass()
        Dim FGEN As New FormattedIO488Class()

        'Open session for instrument.
        FGEN.IO = oRm.Open(instAddress, AccessMode.NO_LOCK, 10000, "")
        FGEN.IO.Timeout = 10000

        'Query Idendity string and report.
        FGEN.WriteString("*IDN?", True)
        Dim strResult As String = FGEN.ReadString()

        Console.WriteLine("Instrument Identity String: " + strResult)

        'Clear and reset instrument
        FGEN.WriteString("*CLS;*RST;*OPC?", True)
        FGEN.ReadString()