Black_Lung
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dim objArgs, Server, DomainName, Port, User, Pass, Folder, rootFolder, CloseDOS, DosStr
Server = "test.com"
DomainName = "ftp://test.com"
Port = "21"
User = "***"
Pass = "***"
rootFolder = "public" 'корневая
Folder = "TEST" 'подкаталог
CloseDOS = True
if not CloseDOS then DosStr = "&pause"
Set objArgs = wscript.Arguments
If objArgs.Count <> 0 Then 'Проверяем аргументы (Drag & Drop "путь к файлу")
Dim FName, WSHShell, Link, FF, TmpFile, objFile
FName = Mid(objArgs(0), InStrRev(objArgs(0), "\") + 1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHShell = CreateObject("WScript.Shell")
dim a(64)
for i=0 to 9
a(i)=i
next
j=10
for i=65 to 91
a(j)=chr(i)
j=j+1
next
for i=97 to 123
a(j)=chr(i)
j=j+1
next
randomize
for i=1 to 10
NewFName=NewFName(Int(63 * Rnd))
next
TMP=WSHShell.ExpandEnvironmentStrings("%temp%")
Set NewFile=FSO.Getfile(objArgs(0))
NewFile.copy(TMP+NewFName)
Link = DomainName & "/" & Folder & "/" & NewFName
WSHShell.Run "cmd.exe /C <nul set /p ""=" & Link & """ | CLIP", 0, False
TmpFile = TMP & "\temp_" & CInt(Rnd() * 1000)
Set objFile = objFSO.OpenTextFile (TmpFile, 2, True, 0) 'True - создать файл
objFile.WriteLine "open " & Server & " " & Port
objFile.WriteLine User
objFile.WriteLine Pass
objFile.WriteLine "cd " & rootFolder & "/" & Folder
objFile.WriteLine "binary"
objFile.WriteLine "put """ & TMP+NewFName & """"
objFile.WriteLine "disconnect"
objFile.WriteLine "bye"
objFile.Close
WSHShell.Run "cmd.exe /c"&WSHShell.ExpandEnvironmentStrings("%windir%") & _
"\system32\ftp.exe"" ENABLE& ftp -s:""" & TmpFile & """" & DosStr & ")""", 0, True
objFSO.DeleteFile TmpFile, True
objFSO.DeleteFile TMP+NewFName, True
Дальше без изменений.
У меня что-то с отправкой сообщения на форум проблема
|
Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 15:05 10-12-2012 | Исправлено: Black_Lung, 15:19 10-12-2012 |
|
