--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

Dim str As String = "if ""%clientname%""==""Name"" c:\drucker\con2prt /cd" & _
  "\\printserver\drucker "
 
        Dim strTemp As String = str.Substring(str.IndexOf("\\") + 2)
        Dim intPosition As Integer = strTemp.IndexOf("\"c)
 
        Dim strPrintserver As String = strTemp.Substring(0, intPosition)
        Dim strDrucker As String = strTemp.Substring(intPosition + 1)
 
        Dim strTempName As String = str.Substring(str.IndexOf("==") + 2)
        Dim strName As String = strTempName.Substring(0, strTempName.IndexOf( _
          ":"c) - 1).Replace("""", String.Empty)

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein

Micke