Изпечатай

[extralud]

става дума за следното

  има ли някакъв начин за следене и сабиране на информация от пс-тата в една локална мрежа като да кажем на кое пс какъв софтуеър има инсталиран..
 има една програмка която ползвах "Belarc", но при нея трябва да се ходи по отделно на всяка една машина, да се инсталира програмата , а това е малко неудобно ..
 та интересно ми е дали има начин това да се прави
"remotely".. oт моята машина да събера цялата информация която ми трябва...
 ползвам slackware, а пс-тата работят с уйндоус...

[Kalin]

С каква цел се прави това упражнение?

[extralud]

целта е да се събере информация всеки отдел във фирмата какъв софтуеър ползва (кой по предназначение, кой за лични удоволствия :-) )... както казах, вече ползвах "Bellarc", но е доста неудобно... все пак са доста машини за обикаляне всяка поотделно :-)

[KPETEH]

Цитат (extralud @ Април 06 2007,01:18)

целта е да се събере информация всеки отдел във фирмата какъв софтуеър ползва (кой по предназначение, кой за лични удоволствия :-) )... както казах, вече ползвах "Bellarc", но е доста неудобно... все пак са доста машини за обикаляне всяка поотделно :-)

А какво общо има Bellarc advisor с линукс ? И какво искаш,машини работещи под уиндоус да ги наблюдаваш с някоя програма под линукс ли ?

[extralud]

Никъде не съм казал, 4е има нещо общо между Bellarc и линукс!!!.. Споменях само , 4е съм я използвал на уиндоуските машини .. и сега турся някоя подобна за линукс ..а ще е още пошдобре ако може да се използва римоутли :-)

[George Andonov]

Отдалечено събиране на подобен род информация не може да се реализира без конфигуриране на всяко едно PC (разбирай - едно по едно).

SNMP (Simple Network Management Protocol) е специален протокол за събиране (и конфигуриране) на информация от отдалечени устроиства (PC-та, комутатори, маршрутизатори, принтери и т.н.).
Има доста решения, които следят мрежата ти. За доста от тях има plug-ins, които следят Windows машини (за моя радост, точно от такава функционалност не съм имал нужда '> )

Ето ти един едно решение - AutoScan, което сигурно ще ти свърши работа.

П.П. Между другото Microsoft имат един софтуер, който върши същата работа. Microsoft SMS сървър или нещо такова. Разбира се е платен. И разбира се - на всяко PC се инсталира съответния клиент.
П.П.П. Няма лесно. Успех.  '>

[gat3way]

Имаше един лаф,  "SNMP == Security is Not My Problem".

Въпреки, че в snmp3 има автентикация и нещата не стоят точно по този начин де..

[ktodorov]

Здравей.
Ако комповете са в домеин ... и можеш да ползваш 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 ...
Май имаше форум на М$ някъде ...