VBS Script für Anmeldescript- Eintragen Benutzerinformationen in Word 2003
Ab einer bestimmten Anzahl von Clients im Netzwerk und immer wieder wechselnden Usern an den verschiedenen Clients macht es irgendwann keinen Spaß mehr die Benutzerinformationen
in Word 2003 unter "Extras-Optionen-Benutzerinformationen" von Hand einzutragen...
Nun habe ich mir ein kleines VBScript gebastelt, welches auch ohne Fehlermeldung funktioniert, aber nicht den gewünschten Effekt hat!!
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP:" & strUser)
Set objWord = CreateObject("Word.Application")
objWord.UserName = objUser.givenName & " " & objUser.SN
objWord.UserInitials = objUser.sAMAccountName
objWord.UserAddress = objUser.telephoneNumber & Chr(13) & _
objUser.facsimileTelephoneNumber & Chr(13) & _
objUser.mail
objWord.Quit
Es passiert folgendes:
Der Namen wird unter "Name" eingetragen
Die Initialen unter "Initialen"
Allerdings passiert unter Adresse: nichts....
Die Varaiablen passen, da dieses Script einwandfrei funzt:
Const strLog = "D:\UserLog.txt"
Set objNetwork = WScript.CreateObject("WScript.Network")
If strComp(objNetwork.UserDomain, objNetwork.ComputerName, vbTextCompare) <> 0 Then 'kein lokaler Account
Set fso = CreateObject("Scripting.FileSystemObject")
Set objUser = GetObject("LDAP:" & CreateObject("ADSystemInfo").UserName)
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.givenName & " " & objUser.SN
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.telephoneNumber
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.facsimileTelephoneNumber
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.mail
End If
Gelöst weil: habe den Fehler selbst gefunden.
in dieser Zeile: "objUser.facsimileTelephoneNumber & Chr(13) & _" ist das " & Chr(13) & _" zuviel.....
Was habe ich falsch gemacht?
Gruß
Frank
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP:" & strUser)
Set objWord = CreateObject("Word.Application")
objWord.UserName = objUser.givenName & " " & objUser.SN
objWord.UserInitials = objUser.sAMAccountName
objWord.UserAddress = objUser.telephoneNumber & Chr(13) & _
objUser.facsimileTelephoneNumber & Chr(13) & _
objUser.mail
objWord.Quit
Es passiert folgendes:
Der Namen wird unter "Name" eingetragen
Die Initialen unter "Initialen"
Allerdings passiert unter Adresse: nichts....
Die Varaiablen passen, da dieses Script einwandfrei funzt:
Const strLog = "D:\UserLog.txt"
Set objNetwork = WScript.CreateObject("WScript.Network")
If strComp(objNetwork.UserDomain, objNetwork.ComputerName, vbTextCompare) <> 0 Then 'kein lokaler Account
Set fso = CreateObject("Scripting.FileSystemObject")
Set objUser = GetObject("LDAP:" & CreateObject("ADSystemInfo").UserName)
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.givenName & " " & objUser.SN
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.telephoneNumber
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.facsimileTelephoneNumber
fso.OpenTextFile(strLog, 8, True).WriteLine objUser.mail
End If
Gelöst weil: habe den Fehler selbst gefunden.
in dieser Zeile: "objUser.facsimileTelephoneNumber & Chr(13) & _" ist das " & Chr(13) & _" zuviel.....
Was habe ich falsch gemacht?
Gruß
Frank
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 131325
Url: https://administrator.de/contentid/131325
Ausgedruckt am: 29.03.2024 um 06:03 Uhr