How to bring down a Domino Server with 4 lines of LotusScript

How to bring down a Domino Server with 4 lines of LotusScript.

This assumes you have organisational policies in your address book. If not then it won’t work.

  1. Create 2 LotusScript agents in any database on your server. Both with Target = “None”.

  2. The first is called AgentA and contains the following code…

Dim session As New NotesSession

session.CurrentDatabase.GetAgent({AgentB}).RunOnServer

  1. The second is called AgentB and contains the following code…

Dim session As New NotesSession

Msgbox session.GetUserPolicySettings({}, session.EffectiveUserName, POLICYSETTINGS_REGISTRATION).Signer

  1. If you have organisational policies but you don’t have a registration policy then change the code above to use a policy you do have.

POLICYSETTINGS_ARCHIVE

POLICYSETTINGS_DESKTOP

POLICYSETTINGS_REGISTRATION

POLICYSETTINGS_SECURITY

POLICYSETTINGS_SETUP

  1. Run AgentA

  2. Ka-Boom, bye-bye server.

Subject: msgbox

Of course the server shouldn’t crash, and that will be looked into. But the ui aspect of the msgbox in AgentB running on the server is non-sensical, other than to fall through to act as a print statement. Do you happen to know if the msgbox is relevant ? Is it the same with sending output to a NotesLog, or even just a regular print ?

Subject: troll