SpectrosKop2
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Отличный скрипт. Очень помогает в работе.
Однако, есть один неприятный момент. Мне зачастую приходится перекидывать пользователей вместе с документами с одного сервера на другой. Для этого приходится непосредственно менять скрипт. Однако есть способ проще. Имя сервера можно передавать скрипту как параметр. Вот так:
Dim Args: Set Args = WScript.Arguments
'Make sure the expected number of arguments were provided on the command line.
'if not, print usage text and exit.
If (Args.Count < 1) Then
PrintUsage()
wscript.quit 0
End If
Dim server
server = Args(0)
Sub PrintUsage()
WScript.Echo "Usage:" + Chr(10) + _
"<Please enter server name OR ip address as argument>"
End Sub
А кроме того, изменения в реестр можно вносить не только с помощью запуска reg файла, но и с помощью команды
WshShell.RegWrite strName, varValue, [strtype]
Метод RegWrite записывает в реестр имя параметра или значение параметра, указанное в аргументе varValue. Если аргумент strName заканчивается на обратный слеш (\), то RegWrite записывает в реестр varValue как имя параметра. Иначе RegWrite записывает в реестр varValue как значение параметра. С помощью необязательного аргумента strtype можно задать тип параметра: REG_SZ и REG_EXPAND_SZ определяют строковые значения, REG_DWORD — 32-разрядное целое значение и REG_BINARY — 32-разрядное двоичное значение. |
