Digitale Visitenkarten
Hallo zusammen,
ich bin auf der Suche nach einem Tool, mit dem ich Digitale Visitenkarten erstellen kann.
Die Informationen für die Visitenkarten sollen aus der AD ausgelesen werden.
Im Idealfall sollte das Tool kostenlos/Opensource sein.
Aber ich bin auch kommerziellen Lösungen nicht abgeneigt, wenn es nicht den Rahmen sprengt.
Hat jemand sowas am Start und kann eine Empfehlung geben?
ich bin auf der Suche nach einem Tool, mit dem ich Digitale Visitenkarten erstellen kann.
Die Informationen für die Visitenkarten sollen aus der AD ausgelesen werden.
Im Idealfall sollte das Tool kostenlos/Opensource sein.
Aber ich bin auch kommerziellen Lösungen nicht abgeneigt, wenn es nicht den Rahmen sprengt.
Hat jemand sowas am Start und kann eine Empfehlung geben?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 671341
Url: https://administrator.de/forum/digitale-visitenkarten-671341.html
Ausgedruckt am: 28.03.2025 um 23:03 Uhr
5 Kommentare
Neuester Kommentar
Was ist für dich eine "Digitale Visitenkarte"? Der Begriff wird für alles mögliche verwendet :S
Meinst du https://de.wikipedia.org/wiki/VCard ?
AD to VCARD Quelle ist ChatgPT
Getestet und spuckt funktionsfähige vcfs aus
Meinst du https://de.wikipedia.org/wiki/VCard ?
AD to VCARD Quelle ist ChatgPT
# Set output directory
$outputDir = "C:\AD_VCards"
if (!(Test-Path $outputDir)) { New-Item -ItemType Directory -Path $outputDir }
# Import Active Directory module
Import-Module ActiveDirectory
# Get AD users
$users = Get-ADUser -Filter * -Property DisplayName, GivenName, Surname, Mail, Title, TelephoneNumber, MobilePhone
foreach ($user in $users) {
# Create vCard content
$vCard = @"
BEGIN:VCARD
VERSION:3.0
FN:$($user.DisplayName)
N:$($user.Surname);$($user.GivenName);;
EMAIL:$($user.Mail)
TITLE:$($user.Title)
TEL;WORK:$($user.TelephoneNumber)
TEL;CELL:$($user.MobilePhone)
END:VCARD
"@
# Save as .vcf file
$filePath = "$outputDir\$($user.SamAccountName).vcf"
$vCard | Out-File -Encoding utf8 -FilePath $filePath
}
Write-Host "vCards exported to $outputDir"
Getestet und spuckt funktionsfähige vcfs aus
hiermit sollte man doch Vcard QR Codes erstellen können
https://winaero.com/generate-qr-code-powershell-windows-10/
noch nicht selber getestet
https://winaero.com/generate-qr-code-powershell-windows-10/
noch nicht selber getestet
Hallo gravelking,
das stimmt, mit dem Aufruf "New-QRCodeVCard" des PowerShell-Moduls QRCodeGenerator (2.6.0) stehen nur ein paar wenige Felder zur Verfügung.
Du kannst jedoch den vCard-Text direkt über "New-QRCodeText" verarbeiten, dann erhältst Du einen funktionierenden "vCard"-QRCode.
Habe das PowerShell-Beispiel mal entsprechend ergänzt und die meines Wissens wichtigsten Adress-Felder dabei berücksichtigt (bei diesem QRCodeGenerator-Modul funktioniert allerdings aktuell die -Width-Angabe für die Pixelbreite des QRCodes nicht korrekt):
das stimmt, mit dem Aufruf "New-QRCodeVCard" des PowerShell-Moduls QRCodeGenerator (2.6.0) stehen nur ein paar wenige Felder zur Verfügung.
Du kannst jedoch den vCard-Text direkt über "New-QRCodeText" verarbeiten, dann erhältst Du einen funktionierenden "vCard"-QRCode.
Habe das PowerShell-Beispiel mal entsprechend ergänzt und die meines Wissens wichtigsten Adress-Felder dabei berücksichtigt (bei diesem QRCodeGenerator-Modul funktioniert allerdings aktuell die -Width-Angabe für die Pixelbreite des QRCodes nicht korrekt):
# Import Active Directory module
Import-Module ActiveDirectory
# Import the module
Import-Module QRCodeGenerator
# Set QRcode size in pixels (10 to 2000) -> seems not to work correctly in QRCodeGenerator module 2.6.0
$qrCodeSize = 10
# Set output directory
$outputDir = "C:\AD_VCards"
if (!(Test-Path $outputDir)) { New-Item -ItemType Directory -Path $outputDir }
# Get AD users
$users = Get-ADUser -Filter * -Property DisplayName, GivenName, Surname, Company, StreetAddress, PostalCode, City, co, HomePage, Mail, Title, TelephoneNumber, MobilePhone
foreach ($user in $users) {
# Create vCard content
$vCard = @"
BEGIN:VCARD
VERSION:3.0
FN;CHARSET=utf-8:$($user.DisplayName)
N;CHARSET=utf-8:$($user.Surname);$($user.GivenName);;
EMAIL:$($user.Mail)
TITLE;CHARSET=utf-8:$($user.Title)
TEL;WORK;VOICE:$($user.TelephoneNumber)
TEL;CELL;VOICE:$($user.MobilePhone)
ORG;CHARSET=utf-8:$($user.Company)
ADR;WORK;CHARSET=utf-8:;;$($user.StreetAddress);$($user.City);;$($user.PostalCode);$($user.co)
URL;TITLE:$($user.HomePage)
END:VCARD
"@
# Save as .vcf file
$filePath = "$outputDir\$($user.SamAccountName).vcf"
$vCard | Out-File -Encoding utf8 -FilePath $filePath
# Save as QRcode .png file
$filePathQRC = "$outputDir\$($user.SamAccountName).png"
New-QRCodeText -Text $vcard -Width $qrCodeSize -OutPath $filePathQRC
}
Write-Host "vCards and qrCodes exported to $outputDir"