LotusScript agent to generate Person documents for (fake)names.nsf for IBM Domino

GeneratePersons

%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