Geöffnete Dateien

[code lang=“dos“]runas /user:Administrator@domain.org „cmd /K \“cscript d:\files.vbs\““[/code]

[code lang=“vb.net“]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[/code]

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]