Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   помогите плиз со скриптом (https://forum.antichat.xyz/showthread.php?t=129359)

VIrusProX 11.07.2009 22:51
помогите плиз со скриптом
 
мне нужна помощь....
ситуация такая....

мне нужен скрипт VBS которий будет копиривать папку на флешку при етом штоб сам опридилял букву флешки.....


set fso=createobject("scripting.filesystemobject")
set WshShell=WScript.CreateObject("WScript.Shell")
fso.copyfolder WshShell.ExpandEnvironmentStrings("%USERPROFILE%") +"\Application Data\Opera\Opera\profile","?:\1"


допишите плиз скрипт.....
зарание спс....
если кому нада подробности еще какие-то то в асю 496-308-746

inlanger 12.07.2009 00:00
Тебе в раздел заказов написания скриптов

VIrusProX 12.07.2009 00:33
мне не написать нада его а дописать....

VIrusProX 12.07.2009 14:21
ап

VIrusProX 12.07.2009 18:05
ау

m0Hze 12.07.2009 18:15
Пречитывай второй пост.

VIrusProX 12.07.2009 21:22
прощу неуказивать тех хто незнает!!!!!!!!!!

mailbrush 12.07.2009 21:49
До тебя плохо доходит, чтоли? Тебе же сказали - прочти второй пост. И русский подучи.

VIrusProX 13.07.2009 13:49
1)я с украини 2)бред читать несобираюсь

VIrusProX 13.07.2009 23:18
ап

alexdrn 13.07.2009 23:30
не с глаголами раздельно

sNt 13.07.2009 23:47
Глупый какой-то. Ему объясняют, он продолжает тупить. Тебе же сказали - в тему о работе, что не ясного? Чо такой непонятливый? Ведь нормально объясняют. Админы, перенесите топик.

VIrusProX 17.07.2009 22:27
ап

Deathdreams 17.07.2009 22:34
завали свой ап.
никто тебе не поможет,хамишь ещё и чего-то требуешь с ачата.
здесь тебе никто ничего не должен!

Pashkela 17.07.2009 22:38
Всё не покажу, вот когда-то давно писал для себя - запускает сканирование на подключение флехи (режим ожидания) + как только всунули - показывает букву диска. Дальше сам:

Код:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objEvents = objWMIService.ExecNotificationQuery _
("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
    "TargetInstance ISA 'Win32_LogicalDisk'" & _
    " AND TargetInstance.DriveType = 2")
Wscript.Echo "Ожидаем события ..."
a=0
Do While a<>1
Set objReceivedEvent = objEvents.NextEvent
disk=objReceivedEvent.TargetInstance.Name
a=1
msgbox disk
Loop
Set objWMIService = Nothing
Set objEvents = Nothing
Wscript.Quit


Время: 07:32