помогите плиз со скриптом

Discussion in 'PHP' started by VIrusProX, 11 Jul 2009.

  1. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    мне нужна помощь....
    ситуация такая....

    мне нужен скрипт 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
     
    #1 VIrusProX, 11 Jul 2009
  2. inlanger

    inlanger Elder - Старейшина

    Joined:
    7 Jan 2007
    Messages:
    985
    Likes Received:
    283
    Reputations:
    27
    Тебе в раздел заказов написания скриптов
     
    #2 inlanger, 12 Jul 2009
  3. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    мне не написать нада его а дописать....
     
    #3 VIrusProX, 12 Jul 2009
  4. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    ап
     
    #4 VIrusProX, 12 Jul 2009
  5. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    ау
     
    #5 VIrusProX, 12 Jul 2009
  6. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    прощу неуказивать тех хто незнает!!!!!!!!!!
     
    #6 VIrusProX, 12 Jul 2009
  7. mailbrush

    mailbrush Well-Known Member

    Joined:
    24 Jun 2008
    Messages:
    1,997
    Likes Received:
    996
    Reputations:
    155
    До тебя плохо доходит, чтоли? Тебе же сказали - прочти второй пост. И русский подучи.
     
    #7 mailbrush, 12 Jul 2009
  8. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    1)я с украини 2)бред читать несобираюсь
     
    #8 VIrusProX, 13 Jul 2009
  9. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    ап
     
    #9 VIrusProX, 13 Jul 2009
  10. alexdrn

    alexdrn Member

    Joined:
    21 Jul 2008
    Messages:
    41
    Likes Received:
    6
    Reputations:
    0
    не с глаголами раздельно
     
    #10 alexdrn, 13 Jul 2009
  11. sNt

    sNt Elder - Старейшина

    Joined:
    30 Jul 2008
    Messages:
    117
    Likes Received:
    11
    Reputations:
    1
    Глупый какой-то. Ему объясняют, он продолжает тупить. Тебе же сказали - в тему о работе, что не ясного? Чо такой непонятливый? Ведь нормально объясняют. Админы, перенесите топик.
     
    #11 sNt, 13 Jul 2009
  12. VIrusProX

    VIrusProX New Member

    Joined:
    11 Jul 2009
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    ап
     
    #12 VIrusProX, 17 Jul 2009
  13. Deathdreams

    Deathdreams Elder - Старейшина

    Joined:
    8 Nov 2008
    Messages:
    342
    Likes Received:
    116
    Reputations:
    5
    завали свой ап.
    никто тебе не поможет,хамишь ещё и чего-то требуешь с ачата.
    здесь тебе никто ничего не должен!
     
    #13 Deathdreams, 17 Jul 2009
  14. Pashkela

    Pashkela Динозавр

    Joined:
    10 Jan 2008
    Messages:
    2,750
    Likes Received:
    1,044
    Reputations:
    339
    Всё не покажу, вот когда-то давно писал для себя - запускает сканирование на подключение флехи (режим ожидания) + как только всунули - показывает букву диска. Дальше сам:

    Code:
    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
     
    #14 Pashkela, 17 Jul 2009
(You must log in or sign up to post here.)