Титла: "remotely" събиране на инфо ... Публикувано от: extralud в Apr 06, 2007, 00:20 става дума за следното
има ли някакъв начин за следене и сабиране на информация от пс-тата в една локална мрежа като да кажем на кое пс какъв софтуеър има инсталиран.. има една програмка която ползвах "Belarc", но при нея трябва да се ходи по отделно на всяка една машина, да се инсталира програмата , а това е малко неудобно .. та интересно ми е дали има начин това да се прави "remotely".. oт моята машина да събера цялата информация която ми трябва... ползвам slackware, а пс-тата работят с уйндоус... Титла: "remotely" събиране на инфо ... Публикувано от: Kalin в Apr 06, 2007, 00:49 С каква цел се прави това упражнение?
Титла: "remotely" събиране на инфо ... Публикувано от: extralud в Apr 06, 2007, 01:18 целта е да се събере информация всеки отдел във фирмата какъв софтуеър ползва (кой по предназначение, кой за лични удоволствия :-) )... както казах, вече ползвах "Bellarc", но е доста неудобно... все пак са доста машини за обикаляне всяка поотделно :-)
Титла: "remotely" събиране на инфо ... Публикувано от: KPETEH в Apr 06, 2007, 09:21
А какво общо има Bellarc advisor с линукс ? И какво искаш,машини работещи под уиндоус да ги наблюдаваш с някоя програма под линукс ли ? Титла: "remotely" събиране на инфо ... Публикувано от: extralud в Apr 06, 2007, 12:53 Никъде не съм казал, 4е има нещо общо между Bellarc и линукс!!!.. Споменях само , 4е съм я използвал на уиндоуските машини .. и сега турся някоя подобна за линукс ..а ще е още пошдобре ако може да се използва римоутли :-)
Титла: "remotely" събиране на инфо ... Публикувано от: George Andonov в Apr 10, 2007, 12:09 Отдалечено събиране на подобен род информация не може да се реализира без конфигуриране на всяко едно PC (разбирай - едно по едно).
SNMP (Simple Network Management Protocol) е специален протокол за събиране (и конфигуриране) на информация от отдалечени устроиства (PC-та, комутатори, маршрутизатори, принтери и т.н.). Има доста решения, които следят мрежата ти. За доста от тях има plug-ins, които следят Windows машини (за моя радост, точно от такава функционалност не съм имал нужда ![]() Ето ти един едно решение - AutoScan, което сигурно ще ти свърши работа. П.П. Между другото Microsoft имат един софтуер, който върши същата работа. Microsoft SMS сървър или нещо такова. Разбира се е платен. И разбира се - на всяко PC се инсталира съответния клиент. П.П.П. Няма лесно. Успех. ![]() Титла: "remotely" събиране на инфо ... Публикувано от: gat3way в Apr 10, 2007, 12:21 Имаше един лаф, "SNMP == Security is Not My Problem".
Въпреки, че в snmp3 има автентикация и нещата не стоят точно по този начин де.. Титла: "remotely" събиране на инфо ... Публикувано от: ktodorov в Apr 10, 2007, 13:31 Здравей.
Ако комповете са в домеин ... и можеш да ползваш vbscript, и си админ, следното би ти свършило работа ... само да не земат да ни 'благославят' тука в този форум ![]() Function GetAddRemove(sComp) 'Function credit to Torgeir Bakken Dim cnt, oReg, sBaseKey, iRC, aSubKeys Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ sComp & "/root/default:StdRegProv") sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" iRC = oReg.EnumKey(HKLM, sBaseKey, aSubKeys) Dim sKey, sValue, sTmp, sVersion, sDateValue, sYr, sMth, sDay For Each sKey In aSubKeys iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue) If iRC <> 0 Then oReg.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue End If If sValue <> "" Then iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _ "DisplayVersion", sVersion) If sVersion <> "" Then sValue = sValue & vbTab & "Ver: " & sVersion Else sValue = sValue & vbTab End If iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _ "InstallDate", sDateValue) If sDateValue <> "" Then sYr = Left(sDateValue, 4) sMth = Mid(sDateValue, 5, 2) sDay = Right(sDateValue, 2) 'some Registry entries have improper date format On Error Resume Next sDateValue = DateSerial(sYr, sMth, sDay) On Error GoTo 0 If sdateValue <> "" Then sValue = sValue & vbTab & "Installed: " & sDateValue End If End If sTmp = sTmp & sValue & vbcrlf cnt = cnt + 1 End If Next sTmp = BubbleSort(sTmp) GetAddRemove = "INSTALLED SOFTWARE (" & cnt & ") - " & sCompName & _ " - " & Now() & vbcrlf & GetIpAdress & vbcrlf & vbcrlf & sTmp End Function Може и на друг език ... въпрос на избор ... Търси инфо за WMI ... Май имаше форум на М$ някъде ... |