Benutzerinformationen anzeigen

[komma4]

Helfe uns:

welche OOo Version, Betriebssystem, "in den Text" eines Writer-Dokuments?

[Karolus]

Hallo
Das geht doch einfach per →Einfügen→Feldbefehl....

Karolus

[Karolus]

Hallo
Warum per Basic ? - einfach aus einem Writerdokument heraus →Einfügen...

Karolus

[Karolus]

Hallo

Ich arbeite hier meist nur mit Linux - Windows Xp habe ich nur auf einer VM laufen - k.A. obs da so was wie ein ActiveDirectory gibt.
Von daher hab ich nicht die Möglichkeiten dir eine Lösung zu stricken.

Hier würde ich mit Python mal schauen welche Informationen sich unter os.environ finden.

Edit:
Hier ein paar Links die dir evtl. weiterhelfen:
http://codekicker.de/fragen/python-Benu ... shell-ldap
http://www.administrator.de/wissen/mitt ... 29328.html
http://www.administrator.de/forum/scrip ... 08952.html
http://entwickler-forum.de/showthread.p ... d-anzeigen



Karolus

[bst]

Hi,

M.E. funktionieren ActiveX Objekte in OO nicht besonders gut. Nimm als 'Würgaround' vielleicht so etwas:

Code: Alles auswählen

Option Explicit

Sub Main
	dim iHandle as integer, sUserName as string, sTelephoneNumber as string

	shell "cscript.exe" ,6, "e:\test\userinfo.vbs", True

	iHandle = Freefile
	open "c:\temp\userinfo.txt" for input as #iHandle
	line input #iHandle, sUserName
	line input #iHandle, sTelephoneNumber
	close #iHandle
	kill "c:\temp\userinfo.txt"
	
	MsgBox sUserName
	MsgBox sTelephoneNumber
End Sub

sowie das VBScript e:\test\userinfo.vbs:

Code: Alles auswählen

Option Explicit

Dim objSystemInfo, objUser, objFso, objTextFile

Set objSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSystemInfo.UserName)
Set objFso = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFso.CreateTextFile("C:\Temp\UserInfo.txt", True)
objTextFile.WriteLine objUser.Name
objTextFile.WriteLine objUser.TelephoneNumber
objTextFile.Close

Set objFso = Nothing
Set objTextFile = Nothing
Set objUser = Nothing
Set objSystemInfo = Nothing

cu, Bernd