Skip to content

Instantly share code, notes, and snippets.

@PatrickKwinten
Last active September 19, 2016 18:45
Show Gist options
  • Save PatrickKwinten/1653edfc121eca713a620b649d20ac2e to your computer and use it in GitHub Desktop.
Save PatrickKwinten/1653edfc121eca713a620b649d20ac2e to your computer and use it in GitHub Desktop.
LotusScript agent to generate Person documents for (fake)names.nsf for IBM Domino
%REM
Agent GenerateRandomPersons
Created Apr 4, 2016 by Patrick Kwinten/quintessens
Last updated September 19, 2016
Description: Comments for Agent
%END REM
Option Public
Option Declare
Dim db As NotesDatabase
Dim uiview As NotesUIView
Dim view As NotesView
Dim doc As NotesDocument
Dim arr_fname(0 To 60) As String
Dim arr_lname(0 To 60) As String
Dim arr_organization(0 To 20) As String
Dim arr_company(0 To 20) As String
Dim arr_department(0 To 20) As String
Dim arr_jobtitle(0 To 20) As String
Dim arr_level(0 To 6) As String
Dim arr_country(0 To 23) As String
Dim arr_avatar(0 To 7) As String
Dim arr_birthyear(0 To 10) As String
Sub Initialize
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set uiview = ws.CurrentView
Set view = uiview.View
view.Autoupdate = False
'Get your inspiration here:
'http://baby-names.familyeducation.com/browse/letter/a
'List of first names
arr_fname(0) = "Adam"
arr_fname(1) = "Bianca"
arr_fname(2) = "Cris"
arr_fname(3) = "Diana"
arr_fname(4) = "Eric"
arr_fname(5) = "Felicia"
arr_fname(6) = "Gerard"
arr_fname(7) = "Hannah"
arr_fname(8) = "Isaac"
arr_fname(9) = "Jessica"
arr_fname(10) = "Kane"
arr_fname(11) = "Liv"
arr_fname(12) = "Mick"
arr_fname(13) = "Nancy"
arr_fname(14) = "Otto"
arr_fname(15) = "Peaches"
arr_fname(16) = "Quintijn"
arr_fname(17) = "Renate"
arr_fname(18) = "Stijn"
arr_fname(19) = "Theodor"
arr_fname(20) = "Ulla"
arr_fname(21) = "Vince"
arr_fname(22) = "Wanda"
arr_fname(23) = "Xander"
arr_fname(24) = "Yvonne"
arr_fname(25) = "Zander"
arr_fname(26) = "Alice"
arr_fname(27) = "Bernd"
arr_fname(28) = "Carol"
arr_fname(29) = "Dan"
arr_fname(30) = "Elsa"
arr_fname(31) = "Frida"
arr_fname(32) = "Gerda"
arr_fname(33) = "Hans"
arr_fname(34) = "Ida"
arr_fname(35) = "Jelle"
arr_fname(36) = "Klaas"
arr_fname(37) = "Lisa"
arr_fname(38) = "Mona"
arr_fname(39) = "Nova"
arr_fname(40) = "Oman"
arr_fname(41) = "Peter"
arr_fname(42) = "Qiana"
arr_fname(43) = "Renee"
arr_fname(44) = "Sam"
arr_fname(45) = "Tania"
arr_fname(46) = "Udo"
arr_fname(47) = "Vera"
arr_fname(48) = "Winnie"
arr_fname(49) = "Xandra"
arr_fname(50) = "Yaala"
arr_fname(51) = "Zabrina"
arr_fname(52) = "Agatha"
arr_fname(53) = "Benny"
arr_fname(54) = "Cindy"
arr_fname(55) = "Dana"
arr_fname(56) = "Ema"
arr_fname(57) = "Frits"
arr_fname(58) = "Gabriele"
arr_fname(59) = "Hyldagard"
arr_fname(60) = "Ingrid"
'List of last names
arr_lname(0) = "Abrahams"
arr_lname(1) = "Bach"
arr_lname(2) = "Christiansen"
arr_lname(3) = "DeVries"
arr_lname(4) = "Eno"
arr_lname(5) = "Ferry"
arr_lname(6) = "Gibb"
arr_lname(7) = "Henrikson"
arr_lname(8) = "Isaac"
arr_lname(9) = "Janssen"
arr_lname(10) = "Kwinten"
arr_lname(11) = "Last"
arr_lname(12) = "Moroder"
arr_lname(13) = "Nuland"
arr_lname(14) = "Oreiley"
arr_lname(15) = "Porsche"
arr_lname(16) = "Quinten"
arr_lname(17) = "Rhodes"
arr_lname(18) = "Sijbrands"
arr_lname(19) = "Tielemans"
arr_lname(20) = "Uyl"
arr_lname(21) = "VanGogh"
arr_lname(22) = "Winter"
arr_lname(23) = "Xiang"
arr_lname(24) = "Yamamoto"
arr_lname(25) = "Zabel"
arr_lname(26) = "Andersson"
arr_lname(27) = "Belles"
arr_lname(28) = "Codina"
arr_lname(29) = "DiAnno"
arr_lname(30) = "Ernest"
arr_lname(31) = "Faber"
arr_lname(32) = "Gleeson"
arr_lname(33) = "Hansson"
arr_lname(34) = "Ibrahimovitz"
arr_lname(36) = "Joplin"
arr_lname(37) = "Kinte"
arr_lname(38) = "Long"
arr_lname(39) = "Manson"
arr_lname(40) = "Newton"
arr_lname(41) = "Onasis"
arr_lname(42) = "Petterson"
arr_lname(43) = "Quaker"
arr_lname(44) = "Rune"
arr_lname(45) = "Stanson"
arr_lname(46) = "Teeven"
arr_lname(47) = "Ulvson"
arr_lname(48) = "Van den Broek"
arr_lname(49) = "Wilsson"
arr_lname(50) = "Xenzen"
arr_lname(51) = "Zeeland"
arr_lname(52) = "Akkerman"
arr_lname(53) = "Benoit"
arr_lname(54) = "Clemens"
arr_lname(55) = "DeVille"
arr_lname(56) = "Energo"
arr_lname(57) = "Fargo"
arr_lname(58) = "Hewton"
arr_lname(59) = "Innerson"
arr_lname(60) = "Jennesee"
'List of organizations
arr_organization(0) = "Acme"
arr_organization(2) = "Beta"
arr_organization(3) = "City"
arr_organization(4) = "Delta"
arr_organization(5) = "EO"
arr_organization(6) = "Final"
arr_organization(7) = "Help"
arr_organization(8) = "Independent"
arr_organization(9) = "Jazz"
arr_organization(10) = "King"
arr_organization(11) = "Live"
arr_organization(12) = "Mega"
arr_organization(13) = "Nova"
arr_organization(14) = "Omega"
arr_organization(15) = "Prius"
arr_organization(16) = "Quartz"
arr_organization(17) = "Ratio"
arr_organization(18) = "Status"
arr_organization(19) = "Thy"
arr_organization(20) = "Utero"
'List of companies
arr_company(0) = "Allied Forces"
arr_company(1) = "BootCamp"
arr_company(2) = "Clear Waters Inc"
arr_company(3) = "Data Company"
arr_company(4) = "Enterprise Ltd"
arr_company(5) = "Firm Corp"
arr_company(6) = "Geselschaft AB"
arr_company(7) = "Hello World Online"
arr_company(8) = "Inc Gmhb"
arr_company(9) = "Joenaited AB"
arr_company(10) = "Koninklijke Schippers"
arr_company(11) = "Liberty Ltd"
arr_company(12) = "MegaCorp"
arr_company(13) = "New Foundation"
arr_company(14) = "Opera House"
arr_company(15) = "Public Limited"
arr_company(16) = "Queens Hotels"
arr_company(17) = "Royal House"
arr_company(18) = "System Sounds"
arr_company(19) = "The Corp"
arr_company(20) = "Univeral Stadium"
arr_department(0) = "Administration"
arr_department(2) = "BioBank"
arr_department(3) = "Cultural and Media Science"
arr_department(4) = "Datacenter"
arr_department(5) = "Education"
arr_department(6) = "Finance"
arr_department(7) = "Healthcare"
arr_department(8) = "IT"
arr_department(9) = "Juniors Support"
arr_department(10) = "Knowledge Centre"
arr_department(11) = "Legal Affairs"
arr_department(12) = "Management"
arr_department(13) = "Natural Resources"
arr_department(14) = "Office Equipment"
arr_department(15) = "Personnel"
arr_department(16) = "Relational Management"
arr_department(17) = "System Administration"
arr_department(18) = "Telephony"
arr_department(19) = "Universal services"
arr_department(20) = "Vice Management"
'List of job titles
arr_jobtitle(0) = "Accountant"
arr_jobtitle(2) = "Business Developer"
arr_jobtitle(3) = "Chef"
arr_jobtitle(4) = "Data engineer"
arr_jobtitle(5) = "Event planner"
arr_jobtitle(6) = "Fundraiser"
arr_jobtitle(7) = "Host"
arr_jobtitle(8) = "Insurance officer"
arr_jobtitle(9) = "Junior Chef"
arr_jobtitle(10) = "Kindergarten Teacher"
arr_jobtitle(11) = "Headhunter"
arr_jobtitle(12) = "Senior Officer"
arr_jobtitle(13) = "Senior Assistant"
arr_jobtitle(14) = "Head Deployment"
arr_jobtitle(15) = "Test engineer"
arr_jobtitle(16) = "Transporter"
arr_jobtitle(17) = "Constructor"
arr_jobtitle(18) = "Contractor"
arr_jobtitle(19) = "Surveillance"
arr_jobtitle(20) = "Guard"
'List of toplevel domains
arr_level(0) = "com"
arr_level(1) = "tv"
arr_level(2) = "net"
arr_level(3) = "info"
arr_level(4) = "org"
arr_level(5) = "gov"
arr_level(6) = "edu"
'List of countries
arr_country(0) = "Argentina"
arr_country(1) = "Belgium"
arr_country(2) = "Chili"
arr_country(3) = "Denmark"
arr_country(4) = "Estland"
arr_country(5) = "France"
arr_country(6) = "Germany"
arr_country(7) = "Honduras"
arr_country(8) = "Italy"
arr_country(9) = "Jamaica"
arr_country(10) = "Kenya"
arr_country(11) = "Luxemburg"
arr_country(12) = "Mozambique"
arr_country(13) = "Netherlands"
arr_country(14) = "Oman"
arr_country(15) = "Portugal"
arr_country(16) = "Qatar"
arr_country(17) = "Russia"
arr_country(18) = "Sweden"
arr_country(19) = "Tasmania"
arr_country(20) = "United States of America"
arr_country(21) = "Venuzuala"
arr_country(22) = "Waterworld"
arr_country(23) = "Zambia"
'List of date of birth
arr_birthyear(0) = "1955"
arr_birthyear(1) = "1961"
arr_birthyear(2) = "1966"
arr_birthyear(3) = "1970"
arr_birthyear(4) = "1983"
arr_birthyear(5) = "1990"
arr_birthyear(6) = "1991"
arr_birthyear(7) = "1993"
arr_birthyear(8) = "1994"
arr_birthyear(9) = "1995"
arr_birthyear(10) = "1996"
'avatar images -> resides in webcontent/avatars
arr_avatar(0) = "avatars/avatar1.png"
arr_avatar(1) = "avatars/avatar2.png"
arr_avatar(2) = "avatars/avatar3.png"
arr_avatar(3) = "avatars/avatar4.png"
arr_avatar(4) = "avatars/avatar5.png"
arr_avatar(5) = "avatars/avatar6.png"
arr_avatar(6) = "avatars/avatar7.png"
arr_avatar(7) = "avatars/avatar8.png"
Print "asking for number of new persons"
Dim persons As Integer
persons% = Cint(Inputbox$("How many persons do you want to create? (5,10 or 25"))
Dim vc As NotesViewEntryCollection
Set vc = view.AllEntries
Print "removing current person entries"
vc.Removeall(True)
Dim num As Integer
Dim i As Integer
Dim firstname As String
Dim lastname As String
Dim organization As String
Dim company As String
Dim department As String
Dim country As String
Dim title As String
Dim birth As String
Dim avatar As String
Dim bday As Integer
Dim bmonth As Integer
Dim byear As String
Dim fullname As String
Dim shortname As String
Print "creating new person entries"
For i = 1 To persons
firstname = arr_fname( Round(Rnd()* Ubound(arr_fname) ,0) )
lastname = arr_lname( Round(Rnd()* Ubound(arr_lname) ,0) )
organization = arr_organization( Round(Rnd()* Ubound(arr_organization) ,0) )
company = arr_company( Round(Rnd()* Ubound(arr_company) ,0) )
department = arr_department( Round(Rnd()* Ubound(arr_department) ,0) )
company = arr_company( Round(Rnd()* Ubound(arr_company) ,0) )
country = arr_country( Round(Rnd()* Ubound(arr_country) ,0) )
title = arr_jobtitle( Round(Rnd()* Ubound(arr_jobtitle) ,0) )
avatar = arr_avatar( Round(Rnd()* UBound(arr_avatar) ,0) )
bday = Round(Rnd()* 28 ,0)
If bday = 0 Then
bday = 1
End If
bmonth = Round(Rnd()* 12 ,0)
If bmonth = 0 Then
bmonth = 1
End If
byear = arr_birthyear( Round(Rnd()* Ubound(arr_birthyear) ,0) )
birth = Cstr(bmonth) + "-" + Cstr(bday) + "-" + byear
fullname = "CN=" + firstname + " " + lastname + "/O=" + organization
shortname = Left$(firstname, 1) + lastname
Set doc = db.CreateDocument
doc.Form = "Person"
doc.Type = "Person"
doc.FirstName = firstname
doc.LastName = lastname
doc.ShortName = shortname
Dim namesItem As New NotesItem(doc, "FullName", fullname, NAMES)
namesItem.Isnames = True
doc.CompanyName = company
doc.JobTitle = title
doc.PhotoURL = avatar
Dim dateTime As NotesDateTime
Set dateTime = session.CreateDateTime( birth )
Call doc.ReplaceItemValue("Birthday", dateTime)
'doc.byear = byear
'doc.bmonth = bmonth
'doc.bday = bday
doc.Department = department
doc.OfficeCountry = country
'set roaming user for view appearance
doc.RoamingUser = "0"
Call doc.Save( True, True )
Next
view.Autoupdate = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment