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-разрядное двоичное значение. |