Assuming you have a connected graph (in my case also undirected and equal/no edge weights), how could you see all the vertex pairs whose shortest length path is equal to the graph's diameter?
An implementation of Floyd–Warshall algorithm would work, and it sounds like there are slightly faster implementations to the problem. As of now I'm just looping over every pair and running FindShortestPath.
Maybe you can somehow get access to the pair(s) used to output the longest minimum path with the built-in Diameter function?
diameterPairs[g_?ConnectedGraphQ] := Module[{dm = GraphDistanceMatrix[g]}, Position[dm, Max[dm]]]
ordiameterPairs2[g_?ConnectedGraphQ] := Position[GraphDistanceMatrix[g], GraphDiameter[g]]
? $\endgroup$