Geöffnete Dateien

runas /user:Administrator@domain.org "cmd /K \"cscript d:\files.vbs\""

OPTION EXPLICIT
Dim DateiDienst 'IADsFileService
Dim GeoeffenteRessource 'IADsResource 
 
Set DateiDienst =  GetObject("WinNT://srvfs01/lanmanserver,fileservice")
 
For Each GeoeffenteRessource In DateiDienst.Resources
  WScript.Echo "Geöffenete Datei .:" & vbTab & GeoeffenteRessource.Path
  WScript.Echo "Zugriff durch ....:" & vbTab & GeoeffenteRessource.User
  WScript.Echo "Anzahl Sperren ...:" & vbTab & GeoeffenteRessource.LockCount
  WScript.Echo "-------------------------------------"
Next

Auswertung mit R

Datei mit Notepad++ geöffnet, nach ANSI konvertiert und gespeichert.

[code lang=“scilab“]getwd()
setwd(„D:/Temp“)
list.files()
# Daten laden und konvertieren
data <- read.csv("lizenzen.csv", header = FALSE, sep = ";") levels(data$V1)[200]=10042 head(data) data$V2 <- as.character(levels(data$V2)[data$V2]) data$V3 <- as.numeric(levels(data$V3)[data$V3]) data$V4 <- as.character(levels(data$V4)[data$V4]) data$V5 <- as.numeric(levels(data$V5)[data$V5]) data$V6 <- as.character(levels(data$V6)[data$V6]) str(data) ls() rm(list=ls())[/code]

Umlaute in R

Unter Linux und Mac OS X nach dem Programmstart auf der Kommandozeile folgenden Befehl eingeben:

[code lang=“scilab“]Sys.setlocales(„LC_ALL“, „en_US.UTF-8“)[/code]

Unter Windows das Encoding der Quelldatei explizit bei der Funktion read.table() angeben:

[code lang=“scilab“]read.table(„Quelle.csv“, sep=“,“, fileEncoding=“UTF-8″)[/code]