von bst » Do, 17.01.2013 11:42
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
Hi,
M.E. funktionieren ActiveX Objekte in OO nicht besonders gut. Nimm als 'Würgaround' vielleicht so etwas:
[code]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]
sowie das VBScript e:\test\userinfo.vbs:
[code]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
[/code]
cu, Bernd