» Автоматизация администрирования

Rol155
если у тебя 2003 можешь попробовать forfiles.exe с ключом /D
если нет


Код:

function Near(Seconds) { return(new Date(new Date().valueOf()+1000*Seconds)) };

function InThePast(Value) { return(new Date().valueOf()>Value.valueOf()) };


...

if (InThePast(Near(-4*24*60*60))) {

...

};

Известно: имя пользователя, имя группы.
Как узнать является ли данный пользователь её членом?

Добавлено:
Используя JavaScript

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

а в нем мне надо :
запустить прогу.
пока не вышла заснуть на 5 минут.
опять проверить - вышла или нет.
если работает - снова спать.
а если не работает - прыгнуть в начало и все по кругу.

ну никак не могу сообразить, как все этот совокупить. goto не люблю..
понимаю, что скрипт-то легкий..
прошу помощи, вобщем..

slnes
IADsGroup.IsMember

изучаешь пример, перекладываешь на js.

leputain
можно в самом outlook вставить скрипт на application startup

Private Declare Function GetSystemMenu Lib "user32" (ByVal HWND As Long, _
ByVal bRevert As Long) As Long

Private Declare Function EnableMenuItem Lib "user32" (ByVal hMenu As _
Long, ByVal wIDEnableItem As Long, ByVal wEnable As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal classname As Long, ByVal winname As String) As Long

Const MF_GRAYED = &H1&
Const MF_BYCOMMAND = &H0&
Const SC_CLOSE = &HF060&

'Disable the Close Button Option
Sub CloseButtonState(boolClose As Boolean)
Dim HWND As Long
Dim wFlags As Long
Dim hMenu As Long
Dim result As Long

Dim cp As String
cp = ActiveExplorer.Caption

HWND = FindWindow(0, cp)


hMenu = GetSystemMenu(HWND, 0)
If Not boolClose Then
wFlags = MF_BYCOMMAND Or MF_GRAYED
Else
wFlags = MF_BYCOMMAND And Not MF_GRAYED
End If

result = EnableMenuItem(hMenu, SC_CLOSE, wFlags)
End Sub

Private Sub ExitMenuState(state As Boolean)
Dim mbc, sbc
For Each mbc In ActiveExplorer.CommandBars("Menu Bar").Controls
If mbc.Caption = "&Файл" Then
For Each sbc In mbc.Controls
If sbc.Caption = "В&ыход" Or sbc.Caption = "Вы&ход" Then
sbc.Enabled = state
End If
Next
End If
Next

End Sub

Private Sub Application_Startup()
CloseButtonState (False)
ExitMenuState (False)
End Sub

тогда и крестик, и пункт меню будут серыми... только надо будет или подписать проект, или поставить низкий уровень безопасности

спасибо конечно. но это слишком.
я хочу простого решения.

Как узнать является ли пользователь членим группы

Добавлено:
В AD используя JavaScript ну или VBScript на худой конец

Добавлено:
Имеется Active Directory.
Как узнать входит ли пользователь в группу используя JavaScript, или хотя бы VBScript.


Добавлено:
У меня тут фигня какая то, сообщение моё пропало, я новое написал, оно добавилось в старое и появилось ????

тогда тупой логон скрипт:

@echo off
hide h

:nx
start /D "D:\Program Files\Microsoft Office\OFFICE11" /MIN /WAIT OUTLOOK.EXE
goto nx

ed:

зы - hide h прячет окно командного интерпритатора cmd.exe

urel
"hide" не является внутренней или внешней командой, исполняемой программой или пакетным файлом.
Где этот утиль взять?

прет. спасибо.
я взял cmdow.exe из BTS_DriverPack
вместо hide h делаю cmdow @ /hid
прячется консоль!

Добрый день! Пересмотрел темку, очень-очень познавательно
У меня стоит задача - при загрузке компов в домене выполнять батник, причем содержимое батника юзерам видеть не обязательно . Батник приблизительно такого содержания:

c:\bin\_scripts\logon.bat:
-------------------------------
regedit -s c:\bin\_scripts\noBrowse.reg
copy \\MAIN\someting_files\*.* "C:\blahblahblah\" /Y
-------------------------------
лежит он на серваке в нерасшареной папке c:\bin\_scripts

в групповую политику в конфиг.компьтера\сценарии автозапуска прописываю скрипт такого вида:

logon.vbs
-------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "%comspec% /c c:\bin\_scripts\logon.bat",2
-------------------------------
и ложу его в C:\WINDOWS\SYSVOL\sysvol\tnu.local\Policies\{B5-...4D}\Machine\Scripts\Startup
кстати там уже лежит точно выполняющийся скрипт.
И ничего не происходит. Не выполняется ни 1-я строчка ни 2-ая, хотя сам скрипт запускается. В чем грабли?

stalker_2000
положить файлы: logon.bat и noBrowse.reg в
C:\WINDOWS\SYSVOL\sysvol\tnu.local\Policies\{B5-...4D}\Machine\Scripts\Startup
logon.vbs
-------------------------------
Set WshShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "%comspec% /c logon.bat",2

logon.bat:
-------------------------------
regedit -s noBrowse.reg
copy \\MAIN\someting_files\*.* "C:\blahblahblah\" /Y

Как можно получить DN залогинившегося пользователя?

Дано - Windows 200x
Задача - получить текущий день недели.
Желательно из командной строки, но устроит и VB (с которым я до сих пор не дружу), но не меняя системный формат даты/её отображения. (Хотя, тоже можно, если это сделать из того же CMD, GUI не предлагать).
А если уж совсем обнаглеть, то еще и неплохо бы еще оценку того что если день недели=суббота, то не последняя ли она в этом месяце? ... вот такие простые задачки :)

locky
получить текущий день недели.
--sample.vbs
msgbox Weekday(date, 2) - порядковый день недели

Добавлено:
последняя суббота в месяце
IF Weekday(date, 2)=5 and month(date+7)<>month(date) then

через
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
запускается батник. На некоторых машинах после его выполнения остается висеть досовское окно. Каким образом можно его програмно убрать?

PS. Вариант с PIF не предлагать ;o)

AlexSSS
прописать exit

FreemanRU
> прописать exit
прописан ;o(

Добавлено:
в домене пара десятков фирм, половина компов до сих пор Win98
сейчас в AD Users and Computers на пользователях (т.е. не через политики или OU) на каждую фирму стоит свой запускающий батник - логон скрипт, напр firm1.bat и т.п.
Батник является только запускающим скриптом, из него запускаются скрипты на KIX и VBS

1.
Хочу переделать, чтобы запускался единый скрипт для всех, а название фирмы передавалось через параметр, т.е.
INIT.BAT Firm1
на XP все замечательно работает, на 9X в этом случае скрипт вообще не запускается.
Можно ли каким-то образом на 9X запустить логон скрипт с параметром?

2.
Скрипты запускаются асинхронно, т.е. запущен скрипт, одновременно загружается и сам Windows.
Проблема на Win98. Как точно определить, что профайл пользователя уже загрузился, чтобы вносить изменения в HKCU?
Решение.
Однозначно определить, загрузился ли пользовательский профайл можно анализом
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ProfileReconciliation
ProfileDirectory

FreemanRU
Супер! За некоторые скрипты сенкс.
Полез "ковыряться" в xpkey.exe а тут готовый скрипт.
Может надо их как-то в шапку или отдельную тему?

Добавлено:

Цитата:

PS В VBScript похоже реализовать это нельзя, т.к. в нем нет функции "битовое OR"
Если кто знает, как можно реализовать "битовое OR" в VBScript - напишите. Буду очень признателен.

Не совсем понял?

Код:
WScript.Echo (21845 Or 43690)
// 1010101010101010 | 0101010101010101 = 1111111111111111 = FFFF = 65535

Подскажите, не могу сообразить, как при помощи скрипта для диалапного соединения поменять логин и пароль в win xp??

RoloTomasi
просто как рекомендация
для объёмных кодов удобно использовать тег more (см. шапку)

Цитата:

для объёмных кодов удобно использовать тег more (см. шапку)

Здорово! Удобная вешь.

Есть такой контрол mswinsck.ocx, что надо сделать что бы он не ругался на отсутствие лицензии?

Приветствую всех!
тут http://forum.ru-board.com/topic.cgi?forum=8&topic=12360#1 я задавал вопрос но пока тишина, а посему задам вопрос вам:
Цитата:

Необходимо из домена (в2000) удаленно определенной группе поменять в системе активный раздел, и перегрузить машины(тоже в2000). Как сделать.

RoloTomasi

Цитата:

Есть такой контрол mswinsck.ocx, что надо сделать что бы он не ругался на отсутствие лицензии?

Попробуй

Код:
REGEDIT4

[HKEY_CLASSES_ROOT\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d]
@="mlrljgrlhltlngjlthrligklpkrhllglqlrk"

Smitis
Угу, спасибо большое.

Чуть раньше RegMon-ом отловил.

RoloTomasi
Ну, regmon врядли покажет нужное значение ключа. Самый простой способ для "лицензирования" подобных OCX, взять из дистрибутива какого-нибудь Studio от мелкософта и поскать в нём файлики с расширением SRG, которые являются обычными REG-файлами без строчки REGEDIT4. Так как распаковывать вручную дистрибутив занятие муторное , надо спрашивать у тех, у кого эта хрень уже установлена (например, тот же Visual Basic), поискать эти файлы в системной папке (%windir%\system32)

Smitis

Цитата:

Ну, regmon врядли покажет нужное значение ключа.

НУ дело в том, что на моей машине стоит VS 8.0 Team и у меня все окей.
Вот на удаленой машине(что админю) начал ругаться. Я знал о такой ветке в реестре
и то, что некоторые компоненты оттуда читают.
Запустил у себя регмон(фильтр на wscript) затем "минимальный" скрипт и поймал

Код:
3.83084306    wscript.exe:4720    OpenKey    HKCU\Licenses    NOTFOUND        
3.83088397    wscript.exe:4720    OpenKey    HKCR\Licenses    SUCCESS    Key: 0xE2A62808    
3.83089793    wscript.exe:4720    QueryKey    HKCR\Licenses    SUCCESS    Name: \REGISTRY\MACHINE\SOFTWARE\Classes\Licenses    
3.83092203    wscript.exe:4720    OpenKey    HKCU\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    NOTFOUND        
3.83095868    wscript.exe:4720    OpenKey    HKCR\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    SUCCESS    Key: 0xE395D8F8    
3.83098046    wscript.exe:4720    QueryKey    HKCR\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    SUCCESS    Name: \REGISTRY\MACHINE\SOFTWARE\Classes\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    
3.83100195    wscript.exe:4720    OpenKey    HKCU\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    NOTFOUND        
3.83101463    wscript.exe:4720    QueryValue    HKCR\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d\(Default)    SUCCESS    "mlrljgrlhltlngjlthrligklpkrhllglqlrk"    
3.83102818    wscript.exe:4720    QueryKey    HKCR\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    SUCCESS    Name: \REGISTRY\MACHINE\SOFTWARE\Classes\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    
3.83104907    wscript.exe:4720    OpenKey    HKCU\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    NOTFOUND        
3.83105951    wscript.exe:4720    QueryValue    HKCR\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d\(Default)    SUCCESS    "mlrljgrlhltlngjlthrligklpkrhllglqlrk"    
3.83108187    wscript.exe:4720    CloseKey    HKCR\Licenses\2c49f800-c2dd-11cf-9ad6-0080c7e7b78d    SUCCESS    Key: 0xE395D8F8    

Помогите плиз начинающему оптимизатору своей работы с поморщью .бат файлов)
У меня стоит такая задача. Сначало нужно занести в файл user.txt запись вида:
user Вася
Потом с помощью какой то команды найти искомое слово "Вася" задав для поиска слово "user" и присвоить его какойто переменной.
findstr не подходит, т.к. написав findstr user d:\user.txt эта команда выведет на экран всю строку, а не только одно слово "Вася". Да и как потом присвоить это значение какой то переменной - я просто не умею(

Boochboy

Код: SET USER1=
for /F "tokens=1,2" %%i in (user.txt) do echo %%i | find "user" && SET USER1=%%j

Цитата:

Если user.txt уже существует, после выполнения этого батника в переменной USER1 будет "Вася". Если таких строк там несколько, переменной присвоится последнее значение. Если такой строки нет вообще, переменная будет удалена.

Спасибо огромное, всё работает