Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 2394 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 ...

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

Frage von Akrosh zum Thema Drucker und Scanner ...

Windows Netzwerk
gelöst Dateiberechtigung Office 2007 und Office 2013 (3)

Frage von Maverick6 zum Thema Windows Netzwerk ...

Neue Wissensbeiträge
Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(4)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...