Question : Problem: WTF's up with my iSCSI network config ???

Experts:

I just purchased an EMC AX4-5i dual-SP SAN appliance; two racks, one for SAS drives and the other with SATA drives. I'm just setting up the appliance and I'm stuck, hoping you all can help me figure something out.

If you look at the attached file you'll notice my vanilla setup: 1 server with 3 NICs connected to a pair of GigE switches configured in a meshed network connecting a pair of SP units, each with two iSCSI ports of their own.

The problem I'm having is that on the server i can only ping one of two switches and only two of four iSCSI ports

C:\Program Files\Support Tools>ipconfig /all

Windows IP Configuration

   Host Name . . . . . . . . . . . . : galapagos
   Primary Dns Suffix  . . . . . . . : xxx.local
   Node Type . . . . . . . . . . . . : Unknown
   IP Routing Enabled. . . . . . . . : Yes
   WINS Proxy Enabled. . . . . . . . : Yes
   DNS Suffix Search List. . . . . . : xxx.local


Ethernet adapter 192.168.253.98:

   Connection-specific DNS Suffix  . : xxx.local
   Description . . . . . . . . . . . : Intel(R) PRO/1000 MT Server Adapter
   Physical Address. . . . . . . . . : 00-04-23-AB-6A-0B
   DHCP Enabled. . . . . . . . . . . : No
   IP Address. . . . . . . . . . . . : 192.168.253.98
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . :

Ethernet adapter 192.168.253.99:

   Connection-specific DNS Suffix  . :
   Description . . . . . . . . . . . : Intel(R) PRO/1000 MT Server Adapter #2
   Physical Address. . . . . . . . . : 00-04-23-AB-6A-0C
   DHCP Enabled. . . . . . . . . . . : No
   IP Address. . . . . . . . . . . . : 192.168.253.99
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . :

Ethernet adapter 192.168.10.25:

   Connection-specific DNS Suffix  . :
   Description . . . . . . . . . . . : HP NC3163 Fast Ethernet NIC
   Physical Address. . . . . . . . . : 00-50-8B-EB-15-1C
   DHCP Enabled. . . . . . . . . . . : No
   IP Address. . . . . . . . . . . . : 192.168.10.25
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . : 192.168.10.1
   DNS Servers . . . . . . . . . . . : 192.168.10.13
                                       192.168.10.25
   Primary WINS Server . . . . . . . : 192.168.10.13
   Secondary WINS Server . . . . . . : 192.168.10.25

C:\Program Files\Support Tools>ping 192.168.253.199

Pinging 192.168.253.199 with 32 bytes of data:

Reply from 192.168.253.199: bytes=32 time=3ms TTL=64
Reply from 192.168.253.199: bytes=32 time=2ms TTL=64
Reply from 192.168.253.199: bytes=32 time=1ms TTL=64
Reply from 192.168.253.199: bytes=32 time=2ms TTL=64

Ping statistics for 192.168.253.199:
    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 1ms, Maximum = 3ms, Average = 2ms

C:\Program Files\Support Tools>ping 192.168.253.198

Pinging 192.168.253.198 with 32 bytes of data:

Request timed out.
Request timed out.
Request timed out.
Request timed out.

Ping statistics for 192.168.253.198:
    Packets: Sent = 4, Received = 0, Lost = 4 (100% loss),

C:\Program Files\Support Tools>ping 192.168.253.200

Pinging 192.168.253.200 with 32 bytes of data:

Reply from 192.168.253.200: bytes=32 time<1ms TTL=64
Reply from 192.168.253.200: bytes=32 time<1ms TTL=64
Reply from 192.168.253.200: bytes=32 time<1ms TTL=64
Reply from 192.168.253.200: bytes=32 time<1ms TTL=64

Ping statistics for 192.168.253.200:
    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 0ms, Maximum = 0ms, Average = 0ms

C:\Program Files\Support Tools>ping 192.168.253.201

Pinging 192.168.253.201 with 32 bytes of data:

Request timed out.
Request timed out.
Request timed out.
Request timed out.

Ping statistics for 192.168.253.201:
    Packets: Sent = 4, Received = 0, Lost = 4 (100% loss),

C:\Program Files\Support Tools>ping 192.168.253.202

Pinging 192.168.253.202 with 32 bytes of data:

Reply from 192.168.253.202: bytes=32 time=1ms TTL=64
Reply from 192.168.253.202: bytes=32 time<1ms TTL=64
Reply from 192.168.253.202: bytes=32 time<1ms TTL=64
Reply from 192.168.253.202: bytes=32 time<1ms TTL=64

Ping statistics for 192.168.253.202:
    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
    Minimum = 0ms, Maximum = 1ms, Average = 0ms

C:\Program Files\Support Tools>ping 192.168.253.203

Pinging 192.168.253.203 with 32 bytes of data:

Request timed out.
Request timed out.
Request timed out.
Request timed out.

Ping statistics for 192.168.253.203:
    Packets: Sent = 4, Received = 0, Lost = 4 (100% loss),

C:\Program Files\Support Tools>

So before I go any further and start configuring iSCSI initiators or LUNs, etc...I wanted to clear up this networking mystery


Thanks,
juckyt

Answer : Problem: WTF's up with my iSCSI network config ???

Yer tiz... paste this into a new vb projects code window. If the server doesn't exist the .final file will probably be empty.

I couldn't test it properly because I haven't got that EXE. Make sure it works with "echo" first, and then switch it over from "echo" to "srvinfo"

Option Explicit
Option Compare Text

Private Sub Form_Load()
   
    Dim sFile As String
    Dim sBuffer As String
    Dim sList() As String
    Dim sComputer As String
    Dim lCount As Long
   
    sFile = "c:\servlist.txt"
   
    sBuffer = ReadTextFile(sFile, False)
    sList = Split(sBuffer, vbCrLf)
   
    For lCount = 0 To UBound(sList)
        sComputer = Trim$(sList(lCount))
        If sList(lCount) <> "" Then
            ProcessComputer sList(lCount)
        End If
    Next
   
    MsgBox "Phase 1 done, click OK when all files have returned", vbInformation
   
    Dim scr As Object
    Dim fld As Object
    Dim fil As Object
   
    Set scr = CreateObject("scripting.filesystemobject")
    Set fld = scr.getfolder("c:\temp")
    For Each fil In fld.Files
        If Right$(fil.Name, 4) = ".LOG" Then
            CleanFile fil.Path
        End If
    Next
   
    MsgBox "Finished", vbInformation
   
End Sub

Private Sub ProcessComputer(sComputer As String)
   
    Debug.Print sComputer
    Shell "command.com /c echo \\" & sComputer & " > c:\temp\" & sComputer & ".log"
    'Shell "c:\windows\srvinfo.exe -d \\" & sComputer & " > c:\temp\" & scomputer & ".log"
   
End Sub

Private Sub CleanFile(sPath As String)
   
    Dim sBuffer As String
    Dim sList() As String
    Dim sText As String
    Dim sBufOut As String
    Dim bReading As Boolean
    Dim lCount As Long
   
    bReading = False
   
    sBuffer = ReadTextFile(sPath, False)
    sBufOut = ""
    sList = Split(sBuffer, vbCrLf)
    For lCount = 0 To UBound(sList)
        sText = Trim$(sList(lCount))
        If sText = "Services:" Then
            bReading = True
        ElseIf Left$(sText, 8) = "Network " Then
            bReading = False
            Exit For
        End If
       
        If bReading Then
            sBufOut = sBufOut & sText & vbCrLf
        End If
       
    Next
   
    WriteTextFile sPath & ".final", sBufOut, False
   
End Sub


Private Function ReadTextFile(sName As String, Optional bUnicode As Boolean = True, Optional lMaxRows As Long = 0) As String
   

    Dim scr As Object
    Dim txt As Object
    Dim sBuffer As String
    Dim lCount As Long
   
    If sName = "" Then
        Err.Raise 32426, , "File name supplied to ReadTextFile is blank. Please supply a valid file name"
    End If
    Set scr = CreateObject("Scripting.FileSystemObject")
    Set txt = scr.OpenTextFile(sName, , , bUnicode)
    If lMaxRows > 0 Then
        For lCount = 1 To lMaxRows
            If txt.AtEndOfStream() Then Exit For
            sBuffer = sBuffer & txt.ReadLine() & vbCrLf
        Next
        ReadTextFile = sBuffer
    Else
        If txt.AtEndOfStream() Then
            ReadTextFile = ""
        Else
            ReadTextFile = txt.ReadAll()
        End If
    End If
    txt.Close
    Set txt = Nothing
    Set scr = Nothing
   
End Function


Public Sub WriteTextFile(sName As String, sContent As String, Optional bUnicode As Boolean = True)
   
   
    Dim scr As Object
    Dim txt As Object
   
    Set scr = CreateObject("Scripting.FileSystemObject")
    Set txt = scr.CreateTextFile(sName, True, bUnicode)
    txt.Write sContent
    txt.Close
    Set txt = Nothing
    Set scr = Nothing
   
End Sub



Random Solutions  
 
programming4us programming4us