// The maximum number of members displayed per page
 Public Const PER_PAGE = 15
 Private webObject, web
 Private P_Data, P_Name, P_Rank, Clan_Name

 Private Function Retrieve_Clan_Data(ClanTag)

    Dim P_Tag, P_RankNum_Raw, P_RankNum
    Dim i, j

    // Clear Clan Data in case the function is run subsequent time(s)
    P_Data.RemoveAll

       // Default - Runs for 10 pages. If the last page is found before this, then the loop ends there.
       For i = 1 To 10
          webObject.Open "GET", "http://classic.battle.net/war3/ladder/w3xp-clan-profile.aspx?ClanTag=" &UCase(ClanTag)& "&Gateway=" &BotVars.Gateway& "&PageNo=" &i& "", False
          webObject.Send
          web = webObject.responseText

          // Ensures that the following action(s) only happen once: on the 1st Page
          Select Case i
             Case "1":
                Clan_Name = "<title>Frozen Throne - " & BotVars.Gateway & " - "
                If InStr(web, Clan_Name) = 0 Then
                   Retrieve_Clan_Data = False
                   Exit Function
                Else
                   Clan_Name = Split(Split(web, Clan_Name)(1), " - Clan Profile</title>")(0)
                End If
          End Select

          P_Tag = Split(web, "&PlayerName=")
          P_RankNum_Raw = Split(web, "clans/rank")

          For j = 1 to UBound(P_Tag)
             P_Name = Split(P_Tag(j), """>")(0)
             P_Name = Replace(P_Name, "%5b", "[")
             P_Name = Replace(P_Name, "%5d", "]")
             P_RankNum = Split(P_RankNum_Raw(j), ".gif")(0)

             Select Case P_RankNum
                Case "0": P_Rank = "Peon"
                Case "2": P_Rank = "Grunt"
                Case "3": P_Rank = "Shaman"
                Case "4": P_Rank = "Chieftain"
             End Select

             P_Data.Item(P_Name) = P_Rank
          Next

          // If the last page is found, exit out.
          If UBound(P_Tag) < PER_PAGE Then Exit For 
       Next
    Retrieve_Clan_Data = True
 End Function

Quote

Retrieve Clan Data Script

Author: WataBoy7
Version: v1.0
Description: Explained in-depth above.

Commands:
.claninfo <clan tag>
NOTE: The Clan Tag argument is optional. If not specified, it will run for your own Clan (provided that you have one).

Aliases:
.cinfo <clan tag>
.rcd <clan tag>

Example Usages:
.cinfo pure
.cinfo PWR
.cinfo

Important Notes:

- This function could be implemented in a variety of different scripts (all dealing, however, with Clans). For instance, I've seen a lot of users manually creating user database entries and doling out access to each specific member in their clan. With a tiny modification, this function could grant a specific access to all members of a specified Clan Rank (i.e. 100 access to all Shamams, 50 to all Grunts, etc.) Also, this could For instance, this function could perhaps even replace the need for a "Clan Rank" script, especially if you need to give "outside" access to other affiliated Clans and their members (ex.: you are a Clan PuRe member and you want to give all Clan PwR members access to your bot).

- You can find out the names of members of another Clan, and even save the data to a file if you would like. I actually plan to use this function in the next revision of my Clan Mail script