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

Цитата:

скрипт ничего не выводит.

Цитата:

YURETS777

, смотри содержимое переменной sValue !



Добавлено:

Цитата:

Vetkol

ексли у тя сеть валится и ты думанещь что XP гонит, то юзай Пингвинятину.
а если в че, то смотри как службы воркают и не глючит ли "Обозреватель компов (Computer Browser)" и подобные ей.
Снач настройки проверь!!!

Добавлено:

Цитата:

Cyril Konst

Цитата:

При подключении через терминал

кокой именно терминал, точней терминальный клиент, если стандартный ремот десктоп винды, то ...

YNY

Попробовал через WMI, очень понравилось как оно работает но выводит только софт, проинсталлированный MSI-ками, половина софта не видна.
Как при помощи WMI вывести весь софт?

скрипт такой:

Set colSoftware = objWMIService.ExecQuery ("Select * from Win32_Product")
For Each objSoftware in colSoftware
objTextFile.WriteLine objSoftware.Caption & vbtab & objSoftware.Vendor & vbtab & objSoftware.Version & vbtab & objSoftware.InstallDate & vbtab & objSoftware.InstallLocation & vbtab & objSoftware.PackageCache
Next

Господа, есть задача:
как узнать серийные номера в установленной винде и M$ офисе? Про существование программ, которые это делают я знаю, но это не вариант. Надо удаленно запустить их на филиалах и сохранить (отправить по почте). Желательно скриптом.

Можно как то передать юзеру сообщение от имени system?
Т.е., от имени системы стартует vbs скрипт, по итогам работы выдается MsgBox, но юзер его не видит, видит только тот юзер, под чьим именем стартовал скрипт.

Цитата:

YURETS777

доработай вот это (вр небыло самому доделать)
'________________________________________________

const HKEY_LOCAL_MACHINE = &H80000002
const REG_SZ = 1
const REG_EXPAND_SZ = 2
const REG_BINARY = 3
const REG_DWORD = 4
const REG_MULTI_SZ = 7
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

WScript.Echo "Subkeys under " & "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

For Each subkey In arrSubKeys
WScript.Echo subkey
    strKeyPath2 = strKeyPath &"\"& subkey
        objReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath2, arrValueNames, arrValueTypes
        For I=0 To UBound(arrValueNames)
            WScript.Echo "Value Name: " & arrValueNames(I)
            Select Case arrValueTypes(I)
                 Case REG_SZ
                     WScript.Echo "Data Type: String"
                 Case REG_EXPAND_SZ
                     WScript.Echo "Data Type: Expanded String"
                Case REG_BINARY
                     WScript.Echo "Data Type: Binary"
                Case REG_DWORD
                    WScript.Echo "Data Type: DWORD"
                Case REG_MULTI_SZ
                    WScript.Echo "Data Type: Multi String"
            End Select
'_________________________________________________

подскажите, а есть ли софт, который постоянно мониторит запущенные процессы и, сравнивая с белым списком, извещает по почте или еще как админа при запуске чего-то неизвестного?

YNY

пингвинов для юзеров? Вы, никак, изволите смеяться? ) Им даже солнце особо не поставишь, вопить будут ))

Кроме того, тут сочетание Интел-Асер-Вынь играет Причём, больше первые двое, скорее всего, чудят. И я просил тут помощи В НАПИСАНИИ по алгоритму решения проблемы СКРИПТА.
С настройками абсолютно точно порядок Всё по дефолту. И по дефолту всё изначально работает.

YNY

Скрипт по разбору UnInstall я сделал.
Теперь задача - как сделать сортировку.


Код:

strValueName = "DisplayName"
strValueName2 = "DisplayVersion"
strValueName3 = "UninstallString"
strValueName4 = "SystemComponent"
strValueName5 = "ParentDisplayName"

oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
strInfo=strInfo + vbCrLf+ "Список установленного ПО Полный список !!!"
strInfo=strInfo + vbCrLf+ "===================="
For Each subkey In arrSubKeys
if Left(subkey,2) <> "KB" Then
sbbkey = strKeyPath & "\" & subkey
intRes = oReg.GetDWORDValue(HKEY_LOCAL_MACHINE,sbbkey,strValueName4,BinarValue)
intRes2 = oReg.GetStringValue(HKEY_LOCAL_MACHINE,sbbkey,strValueName5,strValue2)
if (intRes <> 0) and (intRes2 <> 0) Then
oReg.GetStringValue HKEY_LOCAL_MACHINE,sbbkey,strValueName,strValue
if strValue <> nul then
strInfo=strInfo + vbCrLf + strValue
oReg.GetStringValue HKEY_LOCAL_MACHINE,sbbkey,strValueName2,strValue
if strValue <> nul then
strInfo=strInfo + " |-=Версия-> " + strValue
else
strInfo=strInfo + " |-=Версия->None"
end if
oReg.GetStringValue HKEY_LOCAL_MACHINE,sbbkey,strValueName3,strValue
if strValue <> nul then
strInfo=strInfo + " |-=Строка удаления-> " + strValue
else
strInfo=strInfo + " |-=Строка удаления->None "
end if
else
if BinarValue <> 1 Then
objTextFile.WriteLine "Системный компонент не 1 ->" & sbbkey
end if
end if
end if

Цитата:

Теперь задача - как сделать сортировку.

Эээээ, какова рода сортировку если не трудно?
В общих чертах: пиши сначало в массив, там отсотрируй как хош, азатем в файл пиши )

Добавлено:
вообще-то все For... закрываются Next (я сам не скопировал-поторопился)
вообще -то GetDWORDValue и GetStringValue, и т.п. лучше бы ты в селекте использовал-смотрится лучше, а резултат вконце цикла "For Each subkey In arrSubKeys" пиши в массив.

Нужна сортировка по "DisplayName"
А массив содержит только название раздела.

Цитата:

А массив содержит

а твой собственный массив может что хочешь содержать
dim MySoftListArr()
...
Redim MySoftListArr(Ubound(arrSubKeys),4)
For Each subkey In arrSubKeys
n=0
...
'вконце цикла "For Each subkey In arrSubKeys" пишиv в массив

MySoftListArr(n,0)=... 'DisplayName
MySoftListArr(n,1)=... 'DisplayVersion
...
MySoftListArr(n,4)=... 'ParentDisplayName
n=n+1
Next
' затем делаешь сортировку ...
' затем пишешь в файл
(учше 1 скрипт для всего софта)

если в "subkey" численные индексы, то n мона не испть )

Еще один вопрос по скриптам
Имеется скрипт, который прекрасно работает на XP SP3, но вываливается на ошибку на Windows 2000 SP4 RU

Ошибка такая:
Невозможно создание объекта контейнером ActiveX: 'Shell.LocalMachine'

Скрипт такой:

'on error resume next
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Dim WshShell
Dim objComputer
Dim strComputer
Dim objUser
strUserName = "Pupkin"
strPassword = "123"


    On Error Resume Next

    Set objComputer = CreateObject("Shell.LocalMachine")
        strComputer = objComputer.MachineName
    Set objComputer = Nothing

    Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName & ", user")
        objUser.SetPassword strPassword
        objUser.SetInfo
    Set objUser = Nothing

    If Err.Number Then
        WScript.Echo "Ошибка №" & Err.Number & " , " & Err.Description
        MyErr = Err.Number
        Err.Clear
    End If

Народ, что можете предложить по такой задаче: поиск в doc-файле определенного слова (словосочетания), в куске текста, что находится перед этим словом - поиск фраз из массива?
Может прога какая это умеет или есть готовый скрипт?
P.S. Это все из командной строки или простым запуском программы (скрипта).

valhalla
первое что приходит на ум:
скриптом открываем док., и там делаем поиск... в принцмпе можно накидать скрипт.

Добавлено:
Вот для начала:
http://www.whatis.ru/reg/reg_s9.shtml

YURETS777

Цитата:

Невозможно создание объекта контейнером ActiveX: 'Shell.LocalMachine'

http://forum.ru-board.com/topic.cgi?forum=8&topic=1908&start=1720

Профи, помогите. Не могу установить Дубльгис 3.0 через ГП. Либо оболочка ставится отдельно от базы, а потом приходиться дописывать установку базы в политику, либо никак ): Происходит вроде из-за того что база не дожидается установки оболочки. Как заставить их запуститься последовательно?

Цитата:

YURETS777

Set objComputer = CreateObject("Shell.LocalMachine")

я просмотрел все св-ва объекта Shell и негде LocalMachine не нашел
под ХР работае ск всего т.к. установлен какой-то фикс или .NetFramework
согласно источника
http://www.microsoft.com/technet/scriptcenter/scripts/desktop/info/default.mspx?mfr=true
под 2К и не должно воркать )

Добавлено:
//
http://www.microsoft.com/technet/scriptcenter/guide/sas_wsh_crve.mspx?mfr=true

For example, this WSH script uses ADSI to create a user account in Active Directory:

Set objOU = Wscript.GetObject("LDAP://OU=management,dc=fabrikam,dc=com")
Set objUser = objOU.Create("User", "cn=MyerKen")
objUser.Put "sAMAccountName", "myerken"
objUser.SetInfo

\\

Мне не нужно в AD, мне нужно поменять локальную учетную запись на рабочей станции, а входит она в домен или нет это не важно.

ребята. Есть проблема, суть такова, что необходимо заменить ipconfig из CMD на скрипт, выдающий все IP адреса у имеющихся Ethernet адаптеров.
Вот написал скрипт, который выводит в окно IE, но почему то он задваивает, у некторых затраивает значения и т.п. одного и тоже же адаптера. Что не так, думаю, что с циклом, но так все в порядке
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank "
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 700
objExplorer.Height = 300
objExplorer.Left = 0
objExplorer.Top = 0
Do While (objExplorer.Busy)
Wscript.Sleep 200
Loop
objExplorer.Visible = 1
objExplorer.Document.Write "Ваш IP адрес:<br>"

For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For Each IPAddress In IPConfig.IPAddress
objExplorer.Document.Write "<b style='color:red'>IP:"& IPAddress & "</b><br>"
WScript.Sleep 500


Next
End If
Next

Вот подумал еще, что может данные берутся еще и из реестра.. может там еще какие-либо конфигурации..

Коллеги, простой вопрос, может знает кто навскидку как он решается.
Необходимо пробежаться по определённой OU (и по всем OU внутри неё) в AD и выгрузить списком в текстовичёк User Logon Name всего того, что встретиться на пути.

Помогите, пожалуйста, кто знает как делать!

Добавлено:
Коллеги, помогите решить простую задачу: нужно пробежаться по определённой OU с пользователями (и всех вложенных в неё OU) и выгрузить в тектовичёк все имеющиеся в ней User Logon Name вида:

User1@Domain.Ru
User2@Domain.Ru

YURETS777
тебе зачем этот Shell.LocalMachine ? Чтобы узнать имя компа? Для этого полно других вариантов. К примеру:


Код:
Set objNetwork = CreateObject("Wscript.Network")
txtdoc_Comp.InnerHTML = objNetwork.ComputerName ' !!!
txtdoc_Domen.InnerHTML = objNetwork.UserDomain
txtdoc_User.InnerHTML = objNetwork.UserName

Цитата:

PIL123

ответ нв вскидку: тут (на форуме) был подобный скрипт, так что ишите и обрящите!

Цитата:

PIL123

http://forum.script-coding.info/viewtopic.php?id=679
http://forum.script-coding.info/viewtopic.php?id=920
Думаю это как раз для тебя. Готовое

PIL123

Цитата:

нужно пробежаться по определённой OU с пользователями (и всех вложенных в неё OU) и выгрузить в тектовичёк все имеющиеся в ней User Logon Name вида:

User1@Domain.Ru
User2@Domain.Ru

Код: dsquery user [начальный_узел] -o upn -scope subtree -limit [число_объектов] > %systemdrive%\UserLogonName.txt