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

Как в условиях домена (используя скрипты), при загрузке клиента с системой win9x получить имя его логина для последующей передачи его команде mkdir для создания директории сответствующей имени логина?

p.s. С системами win2k и winXP проблем нет, т.к. там есть переменная окружения %username%..

где в настройках server 2003, дать разрешение на выполнение скрипта vbs пользователю rdp

Люди,

Подскажите в HTA, есть команда аналогичная WScript.Sleep?

Вопрос возник потому, что в теле скрипта в HTA я не могу использовать эту команду

Вылетает ошибка "Object required: 'WScript' "

А мне в сценарии скрипта, нужно сделать паузу на 30 секунд.

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

alexio
напиши батник например:
copy d:\myfile.txt \\server\folder
и положи его на запуск для всех юзверей.
но учти, что у юзверей есть необходимые права на копирования этого файла.

в том то и дело что нет у них прав
может как то через скрипт при исполнении его удаленно админом
и как то получить список компов?

strizhakovs
setTimeout (смотри любой справочник по JavaScript).
Такие разные форумы, такие одинаковые вопросы

mozers
Сенкс!

mozers

Подскажи пжл не могу применить эту функцию в своем случае.
В примерах везде Sub или Function без переменных. А у меня с переменными и почемуто она не работает, переберал кучу вариантов.
В примерах:
Sub Test
dtmStartTime = Now
idTimer = window.setTimeout("PausedSection", 5000, "VBScript")
End Sub

Sub PausedSection
Msgbox dtmStartTime & vbCrLf & Now
window.clearTimeout(idTimer)
End Sub

В моем случае:

Sub Test(strCN, mail)
................
idTimer = window.setTimeout("PausedSection", 5000, "VBScript")
...................
End Sub

Sub PausedSection(mail)
...................
End Sub

Подскажите как нужно написать.
А вообще по логике мне нужно приостановить Sub Test на 5 секунд и чтобы она потом продолжила работать и если определенное условие не выполнилось то приостановить Sub Test еще раз и так либо 5 раз либо условие выполнить и скрипт пойдет работать дальше...

Друзья, как изменить значение ключа реестра на всех компах в домене?

Интересует ключ winlogon.

Заранее благодарю!

Приветствую
Я начинающий админ, вижу что пора автоматизировать свою работу, вижу что надо начинать изучать скриптовые языки, но от их обилия рябит в глазах. Автоматизация необходима для экономии своего времени и сил, вариант изучить все языки не очень подходит в данный момент. В идеале хотелось бы изучить один(ну ладно несколько) язык который позволял бы решать все задачи связанные с администрированием и отнимал минимум времени на программирование. Что бы не получилось случаев что я долго изучал язык А, но при помощи языка А, нельзя сделать, например, простейший GUI и надо начинать изучать язык Б, а язык Б после длительного изучение оказывается отнимает намного много больше времени на написание скриптов чем язык В и так далее. Попытался найти сравнение скриптовых языков но не очень успешно.
Помогите отпеределится как язык нужно изучать. Цели? Автоматизация администрирования. И автоматизировананя установка софта, и логон скрипты и какие то небольшие скрипты, скажем для проверки соединения и еще куча задач администрирования о которых я даже еще не знаю Простой в использовании язык, дающий большие возможнасти и актуальный в данный момент

Спасибо!

Всем привет, есть такая проблема. Есть какой-то скрипт, который добавляет А Record в DNS
мне надо, чтобы он также добавлял PTR record в DNS. может ли кто помочь, а то моих знаний явно не хватает... Заранее спасибо. Код прилагаю.


Set oShell = WScript.CreateObject("WScript.Shell")
remoteServer = "dc"
domainFQDN="dev.com"
newHost="VirtAMT-" & left(oShell.ExpandEnvironmentStrings("%CS_AMT_UUID%"),8)
newIP=oShell.ExpandEnvironmentStrings("%CS_AMT_ADDRESS%")
inputFilename = oShell.ExpandEnvironmentStrings("%CS_OUT_FILE_NAME%")

if not right( oShell.ExpandEnvironmentStrings("%CS_AMT_UUID%"),4)="0000" then
    oShell.run ("Cscript C:\VBScripts\ServerScript.vbs")
else

strForwardRRAdd = newHost & "."& domainFQDN &" IN A " & newIP
strReverseRRAdd = newIP&".in-addr.arpa IN PTR " & newHost&"." & domainFQDN
strForwardDomain = domainFQDN
strReverseDomain = "8.8.8.in-addr.arpa."
ADOU = "OU=AMT,DC=dev,DC=com"


set objDNS = GetObject("winMgmts:\\"& remoteServer&"."&domainFQDN &"\root\MicrosoftDNS")
set objRR = objDNS.Get("MicrosoftDNS_ResourceRecord")
'set objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name="&remoteServer&)
set objDNSServer = objDNS.Get("MicrosoftDNS_Server.Name="".""")
' Create the A record 'objDNSServer.Name, _
on error resume next
strNull = objRR.CreateInstanceFromTextRepresentation( _
objDNSServer.Name, _
strForwardDomain, _
strForwardRRAdd, _
objOutParam)
set objRR2 = objDNS.Get(objOutParam)
WScript.Echo "Created Record: " & objRR2.TextRepresentation
WScript.Echo "strReverseRRAdd: " &strReverseRRAdd
WScript.Echo "strReverseDomain" & strReverseDomain
Create the PTR record
strNull = objRR.CreateInstanceFromTextRepresentation( _
objDNSServer.Name, _
strReverseDomain, _
strReverseRRAdd, _
objOutParam)
set objRR2 = objDNS.Get(objOutParam)
WScript.Echo "Created Record: " & objRR2.TextRepresentation
on error resume next

WSCript.Quit(0)
End if

ВСЕМ:
НИКОГДА Не СПРАШИВАЙТЕ КАК СДЕЛАТЬ ТО-ТО И ТО-ТО ПОКА НЕ ПРОСМОТРИТЕ ВСЕ СТРАНИЦЫ С 1-ПО ПОСЛЕДНЮЮ !!!


Добавлено:

Цитата:

h0tdog

ТЕБЕ ДЯДЯ НАДО ТРУДЫ ПИСАТЬ И В УНИВЕРЕ ПРЕПОДАВАТЬ, А НЕ ТУТ ТУСИТЬ!!!
УНИВЕРСАЛЬНОГО СКРИПТОВОГО ЯЗЫКА НЕТ !

Добавлено:

Цитата:

aontop

ПОСТАВЬ MSDN и знаний добавится

Добавлено:

Цитата:

aontop

в приведенном тобой скрипте написано:
Цитата:

Create the PTR record

???

YNY Я прекрасно понимаю что универсального языка нет и быть не может. Я выбираю из того что есть. Нечего сказать - лучше молчи.

strizhakovs
вообще-то энто тот не раздел где HTML скриптинг обсуждается, см в твои личные сообщения я тебе туда ответил

h0tdog
выбирай язык исходя из того, какой язык знаешь - знаешь С++ - изучай JSсript, Паскаль, Бейсик - VBS, если никакого не знаешь - то пофигу с какого начинать.

h0tdog
Windows PowerShell

YNY

Все, я разобрался! Спасибо большое за примеры

Etalon powershell язык дающий большие возможности? насколкь я понимаю на нем даже автоматизировать установку софта нельзя

пока дял себя сделал вывод изучать vbscript, как мне показалось этот язык дает наибольшие возможности. и надо изучить wmi, очень полезная вещь.

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

h0tdog
WMI --- это составная часть операционной системы Windpws, а не языка программирования.
Для примера, два сцерания делающих одно и тоже, один написан на VBScript, другой на PowerShell

Код:
VBScript
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem in colItems
Wscript.Echo "Имя пользователя: " & objItem.UserName
Next

PowerShell
strComputer = "."
$colItems = Get-WmiObject -class "Win32_ComputerSystem" -computername $strComputer
Write-Host "Имя пользователя: " $colItems.Username

Использую для отправки и приема факсов стандартную виндошную службу факсов.
Проблема в том, что входящим факсам, автоматически назначаются имена, напр.:
498e374500.tif
А хотелось бы, напр.: 10.10.2007-12.00
Если кто знает подскажите?

Рулим firewall

' Включаем - выключаем firewall
Set firewall = CreateObject("HNetCfg.FwMgr")
Set firewallPolicy = firewall.LocalPolicy.CurrentProfile
firewallPolicy.FirewallEnabled = TRUE ' FALSE to disable
WScript.Echo("FirewallEnabled set to " & FirewallEnabled & "!")

' добавляем исключения для firewall
Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "ISTF - Aplicação"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "C:\Windows\System32\calc.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

счас еще замутим темку на получение списка компьюторов с выключеным firewall

awsswaawsswa
что-то твой скрипт на 3й строчке валится и пишет

Цитата:

в системе отображения конечных точек на осталось доступных точек

=(((

а скриптик работает только под XP SP2 и W2003 PS1 и выше
так под чем пускаем ?

Для истории

' замена bat файла на vbs - net time \\server-name /set /yes
Dim wshell
Set wshell = CreateObject("WScript.Shell")
wshell.Run "%COMSPEC% /c net time \\server-name /set /y",0,TRUE
set wshell = Nothing

all
Подскажите, плиз, как повесить в груп полиси скрипт на группу, чтобы он выполнялся при логине юзеров в нее включенных?
Банальный вопрос, но никогда с этим не сталкивался, а надо срочно...

Коллеги!
Помогите плиз с этим
http://forum.ru-board.com/topic.cgi?forum=8&bm=1&topic=23948#1

Lovec

Цитата:

Подскажите, плиз, как повесить в груп полиси скрипт на группу, чтобы он выполнялся при логине юзеров в нее включенных?
Банальный вопрос, но никогда с этим не сталкивался, а надо срочно...

тут все подробно описано Логон скрипт

[more=взято с первого поста...]
Делаю вроде правильно, но результат отрицательный:
на сервере W2k Pro
в политиках типа: Выполнить->gpedit.msc -> Local Computer Policy -> User Configuration -> Windows Settings -> Scripts (Logon/Logoff) в свойствах Logon указываю через add на батничек start.bat вложенный в папке на сервере WINNT\system32\GroupPolicy\User\Scripts\Logon
содержимое батничка для пробы например: \\Server\BuhData\start.txt [/more]

Обычная рабочая группа, компов 20. Имеется сервер на 2003, используется, как сервер терминалов (1С).
Есть ли возможность расположить файл на сервере и с помощью какого-нить скрипта раскидать его по рабочим станциям в автозагрузки (ХР)?

Я таки самого главного не понял... Скрипт вешается на каждую группу свой или 1 скрипт, но уже внутри него проверяется соответствие юзера группе. Щас так у меня сделано в скрипте, который в свойствах юзера прописан при логоне.

Нашел интерестный скрипт - сканирует сеть, ищет CD и показывает имя диска который в нём стоит CDR.VBS

[more=сам скрипт]
Const ADS_SCOPE_SUBTREE = 2
On Error Resume Next

Comp = "."
Set objWMIService = GetObject("winmgmts:\\" & Comp & "\root\directory\LDAP")
Set colItems = objWMIService.ExecQuery("SELECT * FROM RootDSE",,48)
For Each objItem in colItems
DNC = objItem.defaultNamingContext
Next

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
"Select Name, Location from 'LDAP://" & DNC & "' " & "Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
Computer = objRecordSet.Fields("Name").Value


Set objWMIService = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_CDROMDrive",,48)
For Each objItem in colItems
CDName = objItem.VolumeName
MediaLoaded = objItem.MediaLoaded

    If MediaLoaded = False Then
    Else
    Drive = objItem.Drive
    SCDN = CDName & " was found on: " & Computer & " (Drive: " & Drive & ")"
    intMessage = Msgbox(SCDN & vbCrLf & vbCrLf & "Is this the CD you were looking for?", _
vbYesNo, "Success - CD-ROM Found!!")
    If intMessage = vbYes Then
        WScript.Echo "Congrats, you found your CD."
            Wscript.Quit
        Else
        
        End If
End If
Next
objRecordSet.MoveNext
Loop
WScript.Echo "CD Search Completed!"

[/more]

2all
Как мне можно в планировщике виндовс задать чтоб после допустим 18-00 и до 8 утра он включал брендмавер виндовс и не пускал пинги на мою машину, она у меня на работу все время включена из-за осла и торента, а начальство интерисуется почему у тебя она даже в выходные молотит?
если это можно реализовать средствами домена то тоже буду рад узнать как?