OpenOffice.info

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

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