the Active Directory Expert

Parse Object Name from Path

Function getServerNameFromPath(inputString)
  Dim textValue
 textValue = inputString
 Dim textLength
         textLength = Len(textValue)
 
 textValue = Right(textValue, textLength-10)

 Dim searchChar
     searchChar = “,”
 
 Dim searchCharPosition
     searchCharPosition=Instr(1, textValue, SearchChar, 1)
  
 textLength = Len(textValue)
  
 textValue = Left(textValue, SearchCharPosition-1)

 getServerNameFromPath = textvalue
End Function