VBScript - Netzlaufwerk von gemappten Laufwerk unterscheiden

Option Explicit

Const strPath1 = "U:\Eigene Dateien\Test"  
Const strPath2 = "\\MickeyMouse.local\user\home\Meier\Eigene Dateien\Test"  

If NetPathCompare(strPath1, strPath2) Then
  WScript.Echo "Gleich"  
Else
  WScript.Echo "Ungleich"  
End If


Function NetPathCompare(ByVal strPath_1, ByVal strPath_2)
  NetPathCompare = False

  ' Der einfachste Fall ... Textvergleich.  
  If StrComp(strPath_1, strPath_2, vbTextCompare) = 0 Then
    NetPathCompare = True
    Exit Function
  End If

  ' Ansonsten versuchen Netzlaufwerke aufzulösen.  
  Dim colDrives, strDrive_1, strDrive_2, strShare_1, strShare_2, i
  strDrive_1 = Left(strPath_1, 2)
  strDrive_2 = Left(strPath_2, 2)
  strShare_1 = strDrive_1
  strShare_2 = strDrive_2
  Set colDrives = CreateObject("WScript.Network").EnumNetworkDrives  
  For i = 0 To colDrives.Count - 1 Step 2
    If StrComp(strDrive_1, colDrives.Item(i), vbTextCompare) = 0 Then
      strShare_1 = colDrives.Item(i + 1)
    End If
    If StrComp(strDrive_2, colDrives.Item(i), vbTextCompare) = 0 Then
      strShare_2 = colDrives.Item(i + 1)
    End If
  Next
  strPath_1 = Replace(strPath_1, strDrive_1, strShare_1, 1, 1, vbTextCompare)
  strPath_2 = Replace(strPath_2, strDrive_2, strShare_2, 1, 1, vbTextCompare)
  If StrComp(strPath_1, strPath_2, vbTextCompare) = 0 Then NetPathCompare = True
End Function