Flasher
|
 Posted: Fri Jan 17, 2014 04:04 Post subject: |
 |
|
| skyinfire wrote: | | Но последний барахлит на FTP ресурсах. |
Вот поэтому мы его и не берём. Внёс некоторые коррективы:
| Code: | '===================================================
' Копировать имена выделенных папок/файлов
' Необязательный параметр (добавлять пути): 1
'================= Путь к TCFS2 ====================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'===================================================
For Each OS in GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecQuery("Select OSArchitecture from Win32_OperatingSystem")
If Left(OS.OSArchitecture,2) <> 32 Then x64 = "\Wow6432Node"
Next
P = "\Software" & x64 & "\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
P1 = "HKCU" & P : P2 = "HKLM" & P
If WScript.Arguments.Count Then Num = "2021" Else Num = "2017"
With CreateObject("WScript.Shell")
.Run TCFS2 & " /ef tcm(" & Num & ")""",, True
A = .RegRead(P1) : If Trim(A) = "" Then A = .RegRead(P2) : P1 = P2 : End If
If A > 0 Then .RegWrite P1, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank") : Clip = .document.Parentwindow.ClipboardData.GetData("text")
List = Replace(Clip, "\" + chr(13), chr(13))
List = Replace(List, "/" + chr(13), chr(13))
R = Right(List, 1) : If R = "/" Or R = "\" Then List = Left(List, Len(List) - 1)
.document.ParentWindow.ClipboardData.SetData("text"), List
.ExecWB 45, 2 : .Quit
End With : If A > 0 Then .RegWrite P1, A, "REG_DWORD"
End With |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
