Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Letzten Zugriff auf Office Anwendung auswerten

Frage Microsoft Microsoft Office

Mitglied: djbazo

djbazo (Level 1) - Jetzt verbinden

19.01.2011 um 11:57 Uhr, 2388 Aufrufe, 6 Kommentare

Hallo zusammen,

gibt es eine Möglichkeit herauszufinden, wann Office (Word, Excel Powerpoint) das letzte mal auf einem Client von einem Benutzer gestartet wurde?


Hintergrund: Lizenzreduzierung

Vielen Dank
Mitglied: MrTrebron
19.01.2011 um 12:22 Uhr
Hallo djbazo

wenn du einen Rechtsclick auf z.B. die EXCEL.exe machst und in die Properties gehst dann siehst du die Daten für
Created, Modified und Accessesd.

Gruß
Norbert
Bitte warten ..
Mitglied: djbazo
19.01.2011 um 13:51 Uhr
Hallo Norbert.

danke für die Antwort.

Ich hab das Veispiel nun mal bei mir gemacht.

Excel sagt, dass es zuletzt am
Donnerstag, ‎14. ‎Oktober ‎2010, ‏‎19:48:26
Accessesd wurde.

Das kann aber nicht sein, da ich es täglich (über die Startmenüverknüpfung) starte.

Die andere Frage wäre, wie ich das bei >500 Clients mache - wenn es funktioniert.

Danke & Grüße


EDIT:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem
NtfsDisableLastAccessUpdate = 0

muss gesetzt sein - ich starte nun meinen Rechner neu
Bitte warten ..
Mitglied: MrTrebron
19.01.2011 um 14:24 Uhr
Hi djbazo

Kleiner VBS
01.
Option Explicit 
02.
'Declaration 
03.
Dim FSO, File, Output 
04.
'Constants 
05.
Const Filename = "C:\Program Files\Microsoft Office\OFFICE11\Excel.exe" 
06.
 
07.
'Create Object 
08.
Set FSO = CreateObject("Scripting.FileSystemObject") 
09.
 
10.
'File exists 
11.
If FSO.FileExists(Filename) Then 
12.
	'Yes 
13.
	Set File = FSO.GetFile(Filename) 
14.
	MsgBox("Last Access: " & File.DateLastModified) 
15.
Else 
16.
	MsgBox("File does not exists") 
17.
End If
Zeigt dir das Datum in einer MsgBox an.
Wenn man es erweitert kann es das auch in ein Logfile auf dem Server schreiben.

Musst du nur auf dem Client zur Ausführung bringen

Gruß
Norbert
Bitte warten ..
Mitglied: MrTrebron
19.01.2011 um 14:46 Uhr
01.
'Declaration 
02.
Dim FSO, File, LogText, Logname, f 
03.
'Constants 
04.
Const Filename = "C:\Program Files\Microsoft Office\OFFICE11\Excel.exe" 
05.
Main 
06.
Sub Main 
07.
ComputerName 
08.
Access 
09.
WriteDown 
10.
End Sub 
11.
 
12.
Function ComputerName 
13.
Set wshShell = WScript.CreateObject( "WScript.Shell" ) 
14.
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" ) 
15.
LogText = "Computer Name: " & strComputerName 
16.
End Function 
17.
 
18.
Function Access 
19.
'Create Object 
20.
Set FSO = CreateObject("Scripting.FileSystemObject") 
21.
 
22.
'File exists 
23.
If FSO.FileExists(Filename) Then 
24.
	'Yes 
25.
	Set File = FSO.GetFile(Filename) 
26.
	LogText = LogText & "; " & Filename & "; Last Access: " & File.DateLastAccessed  
27.
Else 
28.
	LogText 
29.
End If 
30.
End Function 
31.
 
32.
Function WriteDown 
33.
	Logname = "c:\temp\Softwareprotocol.log" 
34.
	 
35.
	If (fso.FileExists(Logname)) Then 
36.
		Set f = fso.OpenTextFile(Logname, 8, True) 
37.
		f.WriteLine LogText 
38.
		f.Close 
39.
	Else 
40.
		Set f = fso.CreateTextFile(Logname, True) 
41.
		f.WriteLine LogText 
42.
		f.Close 
43.
	End If 
44.
End Function
Schreibt dir den Namen und den Filename und das AccessDate in eine Log Datei

Pfade sind natürlich anzupassen

Edit: MsgBoxen raus genommen und LastModified zu LastAccessed geändert
Bitte warten ..
Mitglied: djbazo
19.01.2011 um 15:04 Uhr
Hallo,

perfekt - vielen Dank!!!!

nur muss der "DateLastModified" in "DateLastAccessed" geändert werden.

Grüße
bazo
Bitte warten ..
Mitglied: MrTrebron
19.01.2011 um 15:09 Uhr
Hi

klar, danke für den Hinweis

Gruß
Norbert
Bitte warten ..
Ähnliche Inhalte
iOS
Apple: Office- und Multimedia-Anwendungen kostenlos

Link von runasservice zum Thema iOS ...

Windows Server
Zugriff auf IIS und Apache Tomcat Anwendung übers Internet (3)

Frage von horstvogel zum Thema Windows Server ...

Drucker und Scanner
WLAN-Handscanner für VPN und Zugriff auf Anwendung im LAN (10)

Frage von Akrosh zum Thema Drucker und Scanner ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (27)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Microsoft Office
Office Druck fehler (14)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...