Скрипт обработки буфера обмена

'15 минут проморочился, почему выдает ошибку, что не найден объект "ярлык"
'оказывается есть Public\Desktop, а есть User\Desktop и оба отображаются на одном столе
'Path_dpnx = "c:\users\Public\desktop\Resident Evil Revelations.lnk" 'тестирую ярлык
Path_dpnx = "c:\users\alex\desktop\RemDrive.cmd - ярлык.lnk"
'Path_dpnx = "c:\VoiceSpy\reports\29.05.2013" 'тестирую папку
'Path_dpnx = "c:\VoiceSpy\reports\29.05.2013\29.05.2013_22_58_31.jpg" 'тестирую файл
'Path_dpnx = "c:\" 'тестирую корень
 
'Чтобы получить путь к объекту через аргументы или меню Shell:SendTo
'Раскомментируйте нижнюю строку:
'if WScript.Arguments.Count > 0 then Path_dpnx = WScript.Arguments(0)
 
Set objShellApp = CreateObject("Shell.Application")
 
'В языке VBScript не поддерживаются метки: работаем через цикл
Do
  Path_d = Left(Path_dpnx, 3)
  Set objFolder = objShellApp.Namespace(Path_d) '"C:\"
 
  If Len(Path_dpnx) > 3 Then
      Path_pnx = Mid(Path_dpnx, 4)
      Set objFolderItem = objFolder.ParseName(Path_pnx) '"VoiceSpy\reports\29.05.2013"
      If objFolderItem.isLink Then 'является ли объект ярлыком?
          ItsLink = True
          On Error Resume Next
              Set objLink = objFolderItem.GetLink
          If Err = 0 Then
              Path_dpnx = objLink.Path
          Else 'if err = 70 (Permissions Denied)
              Err.Clear
              'msgbox "Для этой операции требуется повышение привилегий"
              'Silent-режим: если не хватает прав использую ссылку на исходный ярлык вместо целевого объекта
              ItsLink = False
          End If
          On Error Resume Next
      Else
          ItsLink = False
      End If
  Else 'если корневой каталог
      Set objFolderItem = objFolder.Self
      ItsLink = False
  End If
 
Loop While (ItsLink = True) 'выполнять пока целевой объект - ярлык
 
'Ниже мы копируем в буфер обмена ссылку на объект
 
'1) Способ 1 - здесь нужно использовать глаголы на английском
objFolderItem.InvokeVerb ("Copy")
 
'2) Способ 2 - здесь нужно использовать глаголы согласно системным настройкам языка
For Each objFIV In objFolderItem.Verbs()
    If objFIV.Name = "&Копировать" Then '&Открыть
        objFIV.DoIt
        Exit For
    End If
Next
 
' Вот так можно просмотреть всю коллекцию глаголов, которые поддерживает конкретный выделенный объект
' Лучше смотреть на англоязычной винде (т.к. эти глаголы обратносовместимы с локализациями)
 
If objFolderItem.IsFolder Then 'Если объект - папка
    Set objFileOrFolder = objFolderItem.GetFolder.Self
Else
    Set objFileOrFolder = objFolder.ParseName(Path_pnx)
End If
Set objVerbs = objFileOrFolder.Verbs
If (Not objVerbs Is Nothing) Then
    For Each Verb In objVerbs
        MsgBox Verb.Name
        'Debug.Print Verb.Name
    Next
End If

 strClipboard = ""
 Set objIE = CreateObject("InternetExplorer.Application")
 objIE.Navigate("about:blank")
 strClipboard = objIE.document.parentWindow.clipboardData.getData("Text")
 objIE.Quit
 ' strClipboard - содержимое буфера обмена