| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:51:41 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=91810bb8bad4a30ac26d9218979ec61f38cea99203de1d6b1dcde233d383c1cda%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22VBfJudLoZ1uGPQ8Bg6B4qw95bO7rt6Ip%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc6e2e4859f424-BLR
Missing person - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- %REM
- Agent Run
- Created Nov 27, 2018 by Admin/Universe
- Description: Comments for Agent
- %END REM
- Option Public
- Option Declare
- Const ServerName = "Domino/Universe"
- Const NabFileName = "names.nsf"
- Const UserLicName = "userlicenses.nsf"
- Sub Initialize
- Dim ses As New NotesSession
- Dim db As NotesDatabase
- Dim NABDb As NotesDatabase
- Dim LicDb As NotesDatabase
- Set NABDb = New NotesDatabase(ServerName,NABFileName)
- If Nabdb Is Nothing Then
- MsgBox "Could not open your NAB database " + NABFilename + " at server " + ServerName
- GoTo selesai
- End If
- Set LicDb = New NotesDatabase(ServerName,UserLicName)
- If LicDb Is Nothing Then
- MsgBox "Could not open your License database " + UserLicName + " at server " + ServerName
- GoTo selesai
- End If
- Dim NABView As NotesView
- Set NABView = NABdb.Getview("($VIMPeople)")
- Dim NABPeopleDoc As NotesDocument
- Set NABPeopleDoc = NABView.Getfirstdocument()
- Dim LicDoc As NotesDocument
- Dim strMissingPerson As String
- Dim strPerson as string
- Dim NNPerson As NotesName
- While Not NABPeopleDoc Is Nothing
- 'Print NABPeopleDoc.FullName(0)
- strPerson = NABPeopleDoc.FullName(0)
- Set NNPerson = New NotesName(strPerson)
- Set LicDoc = getDocumentByKey(NNPerson.canonical,"($LicUsers)",LicDb)
- If LicDoc Is Nothing Then
- strMissingPerson = strMissingPerson + NNPerson.abbreviated + "; "
- End If
- Set NABPeopleDoc = NABView.Getnextdocument(NABPeopleDoc)
- Wend
- msgbox "Missing Person are " + strMissingPerson
- selesai:
- Exit sub
- End Sub
- Sub Terminate
- End Sub
- Function getDocumentByKey(strKey As String,strView As String, lookupdb As NotesDatabase) As NotesDocument
- Set getDocumentByKey = Nothing
- Dim act As String
- Dim errstr As String
- On Error GoTo errhandler
- Dim viewLookup As NotesView
- Dim viewLookupName As String
- viewLookupName = strView
- Set viewLookup = lookupdb.Getview(viewLookupName)
- If viewLookup Is Nothing Then
- MsgBox "view " + strView + " not found!"
- GoTo keluar
- End If
- Dim lookupDoc As NotesDocument
- Set lookupDoc = viewLookup.Getdocumentbykey(strKey,True)
- If lookupDoc Is Nothing Then
- 'is okay!
- GoTo keluar
- End If
- Set getDocumentByKey = lookupdoc
- keluar:
- Exit Function
- errhandler:
- errstr = "function getDocumentByKey error found ...." & Str(Err) & ": " & Error$ + " at line " + CStr(Erl)
- Print errstr$
- Resume Next
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ M
JavaScript | 1 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 1 sec ago | 0.24 KB
-
⭐⭐⭐Swapzone.io Glitch (Working)⭐⭐
Java | 11 sec ago | 0.10 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 11 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ H
JavaScript | 12 sec ago | 0.24 KB
-
⭐✅ MAKE $2000 INSTANTLY ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 20 sec ago | 0.24 KB
-
⭐⭐⭐Crypto Accounts⭐⭐
Java | 23 sec ago | 0.10 KB
-
⭐⭐Exchange Exploit⭐⭐ M
JavaScript | 23 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
