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

на счет одновременно ты не уточнял ..., а только, на сколько я понимаю, твоя задача разрешима только в случае если у вас в сети поднят DHCP (я не волшебник, а тока учусь)

jONES1979


Цитата:

ты должен сказать какую конкретно ошибку выдает. Это может быть просто связано с настройками DCOM. Даже хоть ты DomainAdmin, всё равно, если в этих настройках чего-т не так, будешь обламываться...

Как раз никаких ошибок и нету, скрипт отробатывает но объекты пустые
colItems, как и остальные используемые объекты выше, просто пустые

Plaston
как было сказано ранее внедрение DHCP упростит решение задачи сейчас и в дальнейшем
+ я бы еще порекомендовал добавить еще один контроллер
переходить на динамику я пытался так:

Цитата:

strComputer = "."
strOurNet="192.168.0."

Set Shell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each objNetAdapter In colNetAdapters
    f=False
If Not IsNull(objNetAdapter.IPAddress) Then
For i=LBound(objNetAdapter.IPAddress) to UBound(objNetAdapter.IPAddress)
'WScript.Echo objNetAdapter.IPAddress(i)
    If InStr(objNetAdapter.IPAddress(i),strOurNet)>0 Then f=True
Next
End If
    If f Then
    errEnable = objNetAdapter.EnableDHCP()
    
    
    srtNetName = ""
    Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
        For Each objItem in colItems
            'WScript.Echo objItem.MACAddress &" - "& objNetAdapter.MACAddress &" - "& objItem.NetConnectionID
            If Not IsNull(objItem.NetConnectionID) Then
                If objNetAdapter.MACAddress=objItem.MACAddress Then
                    srtNetName = objItem.NetConnectionID
                End If    
            End If
        Next
    'WScript.Echo srtNetName
    shell.run "cmd /C netsh interface ip set dns name=""" & srtNetName &""" source=dhcp",0,True
End If

Next

maGELan

кста - последний запрос дает имя подключения (srtNetName );)

ЗЫ скрипт раздавался через политики состветственно

urel


Цитата:

кста - последний запрос дает имя подключения (srtNetName );)

мне лично она(команда) не дала или вернее дала не совсем то что от нее хотел

кста это не совсем то. напоминаю свою задачу:
1. получить имя действительного активного соединения (допустим у USER-а две сетевые карты или соединение переименовано.
2. переименовать его в "ИмяЛокальнойСети" для дальнейшей манипуляции.

если мона пример в CMD

сенк.

Цитата:

Хотелось бы иметь возможность автоматического заполнения этой формы при ее появлении.

WINDOWS XP
Click Start, Run and type CONTROL USERPASSWORDS2, and click Ok. Select the user account from the list (to which account you want to automatically logon). Uncheck Users must enter a user name and password to use this computer option, and click Ok. Type the user account password and complete the process.
For Windows XP Home, don't try to auto-login as the built-in Administrator, as you'll receive a restrictions error.

strizhakovs

а не стоит у тебя директива

Код: on error resume next

Народ подскажите пожалуйста
Как из сценария на VBScript проверить доступен сетевой принтер или нет
Что нибудь типа

Если СетевойПринтерДоступен = Истина то
Печатать "Сетвой принтер доступен"
Иначе
Печатать "Сетвой принтер доступен"

jONES1979



Цитата:

а не стоит у тебя директива

Код:on error resume next

может ошибки все же есть, но от тебя скрываются?

Слушай, так и есть , что то я упустил
Появилась ошибка "Automation error "
Run-time error "-2147217407(80041001)"

Сам скрипт я из экселя запускал.

ребят, подскажите, как у всех пользователей в АД в определённой OU и входящих в нёё OU, поменять web page?

cluster

dsquery user /?
dsmod user /?

dsquery user ou=users,dc=domain,dc=com -limit 10000 | dsmod user -webpg http://localhost

Странно при попытке удалить папку через WMI (http://www.microsoft.com/technet/scriptcenter/scripts/storage/folders/default.mspx?mfr=true) все работает корректно. Но если удалять например профиль пользователя через путь с:\\Documents and Settings\\user65 - профиль не удаляется.

Причем никаких сообщений об ошибках не появляется.
а скрипт выполняется от имени доменного админа и в момент удаления профиля пользователь разлогинен.
Удаленно, в ручную папка удаляется.
Но с подтверждением запросов на удаление desktop.ini и ряда других файлов.

Как же все-таки можно удалить профили из Documents and Settings через WMI?

tedhome

хттп://www.microsoft.com/technet/scriptcenter/resources/qanda/apr05/hey0405.mspx

а не пробовал так errResults = objFolder.Delete()

ok. Спасибо. Пойду почитаю.

Меня настораживает тот факт, что при удалении в ручную он спрашивает подтверждение на Desktop.ini и шаблон wordpfct.wpd

errResults = objFolder.Delete() - не помогло.

to tedhome
можно использовать fso.DeleteFolder(objFolder.Name) - удалит и не спросит.
п.с. для удаления профиля есть в реските утилита - delprof - посмотри в ее сторону.

tedhome

мистика - там True пропало - из скобок =)
errResults = objFolder.Delete(true)

Deletes a specified file or folder.


Delete Method
object.Delete( force );

Arguments
object
Required. Always the name of a File or Folder object.

force
Optional. Boolean value that is True if files or folders with the read-only attribute set are to be deleted; False (default) if they are not.


Добавлено:
alexxxn
опять же object.DeleteFolder ( folderspec[, force] );

Добавлено:
хттп://msdn2.microsoft.com/en-gb/library/0k4wket3.aspx

; )) Спасиба буду пробовать. А то я уже письмо в Microsoft написал. Посмотрю чего ответят.

Подскажите пожалста как LastLogon перевести в нормальный понятный вид с помощью PHP? Какая формулы там? Я нашел на vbs например

Код:
set objUser = GetObject("LDAP://" & strUserDN)
set objLogon = objUser.Get("lastLogonTimestamp")
intLogonTime = objLogon.HighPart * (2^32) + objLogon.LowPart
intLogonTime = intLogonTime / (60 * 10000000)
intLogonTime = intLogonTime / 1440
WScript.Echo "Approx last logon timestamp: " & intLogonTime + #1/1/1601#

AleXeyS55

я пересчитывал так это конечно VB но на PHP перенесется лекго:


Цитата:

Public Function CDate_Unix(dtStr As String)
If IsEmpty(dtStr) Or (dtStr = "") Or (dtStr = "0") Then
CDate_Unix = "No date"
Exit Function
End If
tmp = ((CDbl(dtStr) - CDbl("126858492000000000"))) / 24 / 3600 / 10000000
' days from 'www = CDbl(CDate("1.01.2003 00:00")) ' = 37662
' in Unix format - 12685849200
popravka = 37662 - 39.9583449074053
CDate_Unix = CDate(tmp + popravka)
End Function

помогите на vbs
задача простая, но столько решений что я не могу найти то что мне нужно.
задача.
нужно выполнять скрипт под текущим пользователем то есть WshNetwork.UserName

нужно с помощью блока
Select Case
case
------
case
-----
case else
End Select
выполнить опеределенное действие, в зависимости от того в какой он находится группе(доменной).
при этом начало группы у всех одинаковое, а дальше часть названия разная, то есть имеется abcd********* группа. * - разные названия от которых и будет зависеть обработка в скрипте.


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


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

Tocka

смотреть Microsoft Technet Scriptcenter, дорабатывать напильником. Врде этого:
Цитата:

On Error Resume Next

Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D

Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objUser=GetObject("LDAP://" & objADSystemInfo.UserName)

'WScript.Echo objUser.cn & " is a member of: "

arrMemberOf = objUser.GetEx("memberOf")
If Err.Number <> E_ADS_PROPERTY_NOT_FOUND Then
For Each Group in arrMemberOf
Set objGroup=GetObject("LDAP://" & Group)
        Select Case LCase(objGroup.cn)
            Case "employees"
                WScript.Echo "www"
            Case "employees2"
                WScript.Echo "www2"
            Case "employees3"
                WScript.Echo "www3"
        End Select
Next
Else
Err.Clear
End If

гуру , не подскажите как ускорить запуск скрипта (.vbs).
А то когда я его жму, то что-то долго он рожает.
Батник и то быстрее откликается.

Funt123
а у меня батники медленнее, чем вбс выполняются.


PS: Мысли вслух: скрипт бы показал, чтоли...

urel
да дело не в выполнении скрипта , а его запуске, вывод чисто msgbox я ожидаю с какой-то паузой. Я просто думал нужно запускать как-то особо, а не прямым тычком по скрипту.

Funt123
.vbs асоциировано с wscript, попробуй явно запустить
cscript .vbs
wscript .vbs

ченить вроде
Цитата:

wscript.echo "test"

urel
неа тоже самое. пару секунд проходит до появления окошка с сообщением "test".
Просто если сравнивать с запуском MSБлокнота , то блокнот быстрее выскакивает на секунду.

Funt123

Пока он инициализирует кучу библиотек!..
А чего ты хотел, в скриптовом языке отрабатывается(работает всмысле) COM-технология

запусти скрипт с одним только msgbox. кнопку ОК не жми. любым process explorer-ом посмотри сколько dll-ок заюзывается при работе процессов cscript.exe (wscript.exe)

Приветствую всех, подскажите пожалуйста возможно ли как нибудь с помощью скриптов автоматически настраивать ms outlook на сервер exchange

Не понял. =\ А стандартная процедура что, не канает?

ага к каждому коннектица radmin - ом и настраивать вручную по 10 почтовых ящиков? По моему эта ветка как раз и создана для автоматизации подобных процессов

для автоматизации настроек аутлука - надо подготовить специальным образом дистрибутив офиса. для этого создать файл mst с помощью утилиты из рескита офисного и затем накатить этот дистрибутив с этим mst файлом на систему.