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, 2373 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows Server
Zugriff auf IIS und Apache Tomcat Anwendung übers Internet (3)

Frage von horstvogel zum Thema Windows Server ...

Outlook & Mail
Upgrade auf Office 2016: Kein Zugriff auf geteilte Kalender (2)

Frage von fuzzyLogic zum Thema Outlook & Mail ...

Microsoft Office
Keine Updates für Office 2016 (13)

Frage von Motte990 zum Thema Microsoft Office ...

Netzwerke
gelöst Zugriff auf Server von verschiedenen VLANs aus (7)

Frage von Kroeger02 zum Thema Netzwerke ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (32)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...