» Автоматизация администрирования. Часть 2

Скажите как в Vbs скрипте можно узнать к какому контроллеру домена я в текущий момент подкличен?

IgorXI
набираешь в cmd

Код: set

Teo
Спасибо, всё работает

Подписываюсь на получение ответов по почте.

vlazari
это можно сделать нажав на ссылочку "Подписаться", не уведомляя всех о столь великом событии

Прошу прощения, не заметил.

Нужно работать с GSM модемом из командной строки.
Делаю так echo "команда AT" > com3.
А как результат просмотреть (ответ COM порта)?

Напомните, какой аналог * в VBS?

Нужно:
objFSO.DeleteFolder("D:\123*\Игры") , True

Соответственно и D:\123 59\Игры, и D:\123.Е1\Игры и просто D:\123\Игры должны убиваться...

Известен SID. Как по нему определить пользователя?

Sk1f
PsGetSid от Русиновича http://www.microsoft.com/technet/sysinternals/utilities/psgetsid.mspx

Подскажите, как настроить параметры прокси в vbs?

как вытаскивать инфу о пользователях в домене это уже понятно всем!
а у меня вот щаз стоит задача вытащить иформацию о пользователях в Novell (4.11)
может кто знает и подскажит как из новела вытащить: логин и ФИО пользователей?

north_crow
eDirectory?
тогда LDAP-запросами попробуй

Teo
eDirectory нету
как еще можно?

Здравствуйте не подскажите как написать скрипт для автоматической установки Microsoft office

Dimastii86
http://oszone.net/2773

north_crow
там NIS же вроде ещё был
или нет?
слабо помню
но если NIS есть, тогда перлом ток ИМХО...
и вообще перл есть под новел
а там есть getpwent() и прочая подобная штука
попробуй копнуть

Подскажите, как доработать скрипт, дабы он мапил диск даже если сетевой ресурс недоступен?

Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName
'
strDriveLetter = "x:"
strRemotePath = "\\data.net\fileserver"
strNewName = "555"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

WScript.Quit

' End of script.

Куда пропали все светлые головы?

У меня еще вопрос:

set objFSO = CreateObject("Scripting.FileSystemObject")
set WshShell = WScript.CreateObject("WScript.Shell")
FilePath = Wscript.Arguments.Item(0) 'аргумент из командной строки
WshShell.Run (FilePath)

Как заставить его открывать файл если в его имени есть пробелы?
Просто закрыть "FilePath" в кавычки не работает...

Цитата:

Как заставить его открывать файл если в его имени есть пробелы?

нужно имя файла передавать параметрами в кавычках:
myvbs.vbs "my file.txt"
Достаточно было запустить
FilePath = Wscript.Arguments.Item(0) 'аргумент из командной строки
WScript.Echo FilePath
что бы увидеть что именно пытается открыть скрипт

Добавлено:

Цитата:

Подскажите, как доработать скрипт, дабы он мапил диск даже если сетевой ресурс недоступен?

Не сколько мне известно что бы "замепить" ресурс он должен быть доступен на момент "меппания". С другой стороны можно сделать mapped drive с опцией "reconnect after logon", тогда драйв будет присутствовать даже после рестарта пока сам не уберешь

gap5
закрывая FilePath в кавычки ты вместо значения переменной получишь константу ""FilePath"

pe3yc

Цитата:

нужно имя файла передавать параметрами в кавычках:
myvbs.vbs "my file.txt"

не поможет
в переменную имя файла сядет с пробелами но без кавычек, и функция Run отработает ошибку. Проверено на людях :-D

правильный код будет
WshShell.Run ( """" + FilePath + """")

jONES1979
Спасибо, помогло

К чему я все это спрашивал...
пришла мысль - при запуске ярлыков указывающих на файлы с сетевых дисков, запускать их через скрипт, который будет проверять наличие диска, при отсутствии - попытается замапить, если и после этого облом - вежливо сообщит юзеру...

Но вот стоит ли?

Теоретически уже нашел как мапить persistent.

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, True

Доброго всем времени суток!

ЗАДАЧА: написать скрипт, который при логоне закрывает ВСЕ Language bar (языковая панель) и после этого добавляет одну Language bar (языковую панель).

Проблема в следующем: в терминальной сессии "плодятся" Языковые панели. Т.е. их появляется 2, потом 3, потом 4 и т.д. От версии сервера и его локализации не зависит - появляется на всех. Обсуждается это здесь:
http://forum.ru-board.com/topic.cgi?forum=8&topic=17264&start=0
, решение НЕ НАЙДЕНО!

МЫ ПРОСИМ ВАШЕЙ ПОМОЩИ, КОЛЛЕГИ!!!

jONES1979


Цитата:

правильный код будет WshShell.Run ( """" + FilePath + """")

Зачем плодить кавычки?

strCommandLine = Chr(34) & strFileName & Chr(34)
WshShell.Run strCommandLine

Извините может конечно не в той теме,но другой не нашел.
Поделитесь опытом,кто скрещивал Босс-кадровик с Active Directory.Знаю что сам босс-кадровик такие решения внедряет,но за бабосы. Направьте в нужном направлении.
Спасибо.

Ребята помогите ...написать скрипт

Подключение к принтеру в другом домене локальной сети

Имя пароль админа домен известны ..
Очень надо выручайте

rosalin

Цитата:

одключение к принтеру в другом домене локальной сети

net use lpt1: \\server\printer /u:Domain\user /persistent:yes

Описалово: http://articles.org.ru/cfaq/index.php?qid=780&frommostrecent=yes

netman
Попробую спасибо где то так и думал...

Нужно одним кликом удалить/добавить запись в реестре у КАЖДОГО юзера, к примеру путь к базе 1С. Желательно в батнике, т.к. в них хоть что-то понимаю, посоветуйте, пожалуйста.

coolpunk

запросто:
это в cmd и в скрипт на логон каждого юзера:

Цитата:

regedit /S с:\1s.reg

это содержание 1s.reg:

Цитата:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles]
"D:\\Bases\\MainDB\\"="Главная база"

потом всех перелогинистя и все
если 1с на терминале, то там в строке запуска путь к cmd и всех делов