Seitenindex umschalten Seiten: [1] 2  Thema versendenDrucken
Heißes Thema (mehr als 10 Antworten) Clients länger als 180 Tage nicht connected - Report (Gelesen: 1985 mal)
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Clients länger als 180 Tage nicht connected - Report
07.04.09 um 09:53:22
Beitrag drucken  
Hallo,

kann ich für Clients länger als 180 Tage nicht connected einen Report erstellen. So das man sieht , welche Clienst das sind ?

Gruss
Ralf
  
Zum Seitenanfang
 
AlienShooter
WSUS Senior Member
***
Offline



Beiträge: 105
Mitglied seit: 16.01.09
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #1 - 07.04.09 um 11:15:27
Beitrag drucken  
Das kannst du über APIs selber auslesen, aber nicht direkt über die Konsole.
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #2 - 07.04.09 um 11:35:18
Beitrag drucken  
wie geht das mit API s ?
  
Zum Seitenanfang
 
AlienShooter
WSUS Senior Member
***
Offline



Beiträge: 105
Mitglied seit: 16.01.09
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #3 - 07.04.09 um 11:51:15
Beitrag drucken  
Hier mal ein Beispiel dafür:

Code
Dim OldComputers As New ComputerTargetCollection
Dim LastValidContactDate As DateTime
Dim iUpdateServer As IUpdateServer

Dim AdminProxy As AdminProxy
'connect to the local server
AdminProxy = New AdminProxy
iUpdateServer = AdminProxy.GetUpdateServer()

NotContactedDays = 180
'Das Letzt mögliche Kontaktdatum festlegen
LastValidContactDate = DateTime.Now.Subtract(New TimeSpan(NotContactedDays, 0, 0, 0))
Console.WriteLine("LastValidContactDate: " & LastValidContactDate)


For Each computer As IComputerTarget In iUpdateServer.GetComputerTargets()
	If DateTime.Compare(LastValidContactDate, computer.LastSyncTime) > 0 And DateTime.Compare(LastValidContactDate, computer.LastReportedStatusTime) > 0 Then
		OldComputers.Add(computer)
	End If
Next

'Wenn es keine Rechner gibt, wird abgebrochen
If OldComputers.Count = 0 Then
	Console.WriteLine("Keine Computer gefunden)
	Exit Sub
End If

'Computer anzeigen
For Each computer As IComputerTarget In OldComputers
	Console.WriteLine(" {0}", computer.FullDomainName)
Next 



Das Skript muss so natürlich auf dem WSUS Server selber laufen.
Du kannst es aber auch Remote starten, allerdings muss du das Skript dann mit den Berechtigungen aufrufen die du auch auf dem Server hast und folgende Zeile im Skript anpassen:

Code
iUpdateServer = AdminProxy.GetUpdateServer(FQDNVomWsusServer,SSL,Port)

FQDNVomWsusServer = Wie der name schon sagt, den FQDN von deinem WSUS Server
SSL = True oder False (halt ob dein WSUS Server SSL verwendet oder nicht)
Port = 80,443,8531 oder welchen Port du auch immer verwendest

z.B.
iUpdateServer = AdminProxy.GetUpdateServer(FQDNVomWsusServer,True,8531)
 



PS: Code ist übrigens Visual Basic
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #4 - 07.04.09 um 11:57:53
Beitrag drucken  
Danke.

Kann man auch mit Excel auf WSUS über API zugreifen ?

gruss
Ralf
  
Zum Seitenanfang
 
AlienShooter
WSUS Senior Member
***
Offline



Beiträge: 105
Mitglied seit: 16.01.09
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #5 - 07.04.09 um 12:04:03
Beitrag drucken  
Wenn du auch noch die IP-Adresse des Clients haben möchtest, dann füge bei der Ausgabe der Clients noch folgende Zeile hinzu bzw änder die Zeile:

Code
Console.WriteLine(" {0},{1}", computer.FullDomainName,Computer.IPAddress.ToString) 




acservice schrieb on 07.04.09 um 11:57:53:
Danke.

Kann man auch mit Excel auf WSUS über API zugreifen ?

gruss
Ralf 


Uff, noch nicht gemacht, sollte aber auch funktionieren.
Musst halt über Excel-VBA auf die APIs zugreifen.
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #6 - 07.04.09 um 13:19:49
Beitrag drucken  
ja ich schauê mal im Googole.

Gruss
Ralf
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #7 - 07.04.09 um 13:37:24
Beitrag drucken  
klann ich niocht einfach einen SQL qeuery anstatt API machen ?

Gruss
Raöf
  
Zum Seitenanfang
 
AlienShooter
WSUS Senior Member
***
Offline



Beiträge: 105
Mitglied seit: 16.01.09
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #8 - 07.04.09 um 14:08:21
Beitrag drucken  
Wenn du Zugriff auf die DB hast schon.
Welche Infos aber in welchen Tabellen stehen kann ich dir aber leider nicht sagen. Habe das selber noch nicht gemacht.
Aber SQL-Querys wären auf jedenfall schöner ^^

Vielleicht hilft dir das weiter: (Du musst Dich Einloggen oder Registrieren um Multimediadateien oder Links zu sehen).
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #9 - 07.04.09 um 14:26:22
Beitrag drucken  
hallo,

blicke da noch nicht durch. Evenutell ist Api doch besser. Finde nur nichts wie ich einen Connect mit Excela uf WSUS mache.

Gruss
Ralf
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #10 - 07.04.09 um 15:25:40
Beitrag drucken  
Habe dein Script mal als VBS auf den Server gelegt.
Ist das richtig so ?

Habe nun beim auführen Fehlermeldung
Line : 1
Char : 18
Error : Expected end of statemant
Code : 800A0401
Source: Microsoft VBscript Compilation error
  
Zum Seitenanfang
 
AlienShooter
WSUS Senior Member
***
Offline



Beiträge: 105
Mitglied seit: 16.01.09
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #11 - 07.04.09 um 16:11:35
Beitrag drucken  
*DISCH*

Sorry Durchgedreht

Du musst vorher noch in Visual Basic folgenden Verweis hinzufügen: Update Services Remotable AdminAPI

hier nochmal der Verbesserte Code:

Code
Imports Microsoft.UpdateServices.Administration

Module Module1

    Sub Main()
	  Dim OldComputers As New ComputerTargetCollection
	  Dim LastValidContactDate As DateTime
	  Dim iUpdateServer As IUpdateServer
	  Dim NotContactedDays As Integer
	  Dim AdminProxy As AdminProxy
	  Dim WsusServer As String

	  NotContactedDays = 180
	  WsusServer = "FQDN_WSUS"
	  'connect to the local server
	  AdminProxy = New AdminProxy
	  iUpdateServer = AdminProxy.GetUpdateServer(WsusServer, True, 8531)

	  'Das Letzt mögliche Kontaktdatum festlegen
	  LastValidContactDate = DateTime.Now.Subtract(New TimeSpan(NotContactedDays, 0, 0, 0))
	  Console.WriteLine("LastValidContactDate: " & LastValidContactDate)


	  For Each computer As IComputerTarget In iUpdateServer.GetComputerTargets()
		If DateTime.Compare(LastValidContactDate, computer.LastSyncTime) > 0 And DateTime.Compare(LastValidContactDate, computer.LastReportedStatusTime) > 0 Then
		    OldComputers.Add(computer)
		End If
	  Next

	  'Wenn es keine Rechner gibt, wird abgebrochen
	  If OldComputers.Count = 0 Then
		Console.WriteLine("Keine Computer gefunden")
		Exit Sub
	  End If

	  'Computer anzeigen
	  For Each computer As IComputerTarget In OldComputers
		Console.WriteLine(" {0} {1}", computer.FullDomainName, computer.IPAddress.ToString)
	  Next
    End Sub

End Module 



Gruß Tim
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #12 - 07.04.09 um 16:28:06
Beitrag drucken  
Hallo,

danke auch . Habe unseren Server in das Script eingetragen. Kommt aber nun ein anderer Fehler. Siehe Printscreen.

Gruss
Ralf
  
(Du musst Dich Einloggen oder Registrieren um Multimediadateien oder Links zu sehen). 180tagefehler.bmp (Anhang gelöscht)
Zum Seitenanfang
 
AlienShooter
WSUS Senior Member
***
Offline



Beiträge: 105
Mitglied seit: 16.01.09
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #13 - 07.04.09 um 16:43:15
Beitrag drucken  
Du hast es in VBScript gemacht.
Ich in Visual Basic ... ich weiß nicht, ob man die Sprache 1:1 übernehmen kann.

Habe das mit Microsoft Visual Basic 2008 Express Edition gemacht. Und am ende dann eine .exe Datei erzeugt. In dem Programm kann man dann auch durchdebuggen etc.
  
Zum Seitenanfang
 
acservice
WSUS Senior Member
***
Offline


www.......

Beiträge: 223
Standort: CH-Nussbaumen
Mitglied seit: 18.03.08
Geschlecht: männlich
Re: Clients länger als 180 Tage nicht connected - Report
Antwort #14 - 07.04.09 um 16:48:21
Beitrag drucken  
achso. Danke. Frage mal bei uns intern.

Gruss
Ralf
  
Zum Seitenanfang
 
Seitenindex umschalten Seiten: [1] 2 
Thema versendenDrucken
Bookmarks: Facebook Google Google+ Linked in Twitter Yahoo
 



Nutzungsbedingungen | Datenschutz
Kontakt | RSS | Feedback | Impressum
Facebook | News einsenden