Michael Brown - Blogging for Dominos

Michael Brown - Blogging for Dominos The Blogging Inspirations of a Guy who Lives, Eats and Breathes Lotus Software http://www.blogging4dominos.com/blog/dominoblog.nsf/ en-us Fri, 25 Apr 2008 10:52:22 -0400 "Skin" your Notes Workspace Fri, 25 Apr 2008 10:52:22 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/skin-your-notes-workspace Just for Fun Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/skin-your-notes-workspace?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/skin-your-notes-workspace http://blog.panagenda.com/pub/panablog.nsf/d6plinks/FLOR-7DRBHC

It's also very easy to customize.
http://blog.panagenda.com/pub/panablog.nsf/d6plinks/FLOR-7DRDTE

]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/skin-your-notes-workspace http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/skin-your-notes-workspace?opendocument&comments How to control the Fan speed on your Thinkpad Thu, 20 Mar 2008 12:12:29 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-control-the-fan-speed-on-your-thinkpad Personal Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-control-the-fan-speed-on-your-thinkpad?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-control-the-fan-speed-on-your-thinkpad
http://sourceforge.net/projects/tp4xfancontrol/

Please read the readme.txt file first as the developer explains some of the settings in the INI file. ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/how-to-control-the-fan-speed-on-your-thinkpad http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-control-the-fan-speed-on-your-thinkpad?opendocument&comments Technote 1099635 - Which Domino Server databases have replica IDs related to names.nsf Mon, 10 Mar 2008 10:59:22 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/technote-1099635---which-domino-server-databases-have-replica-ids-related-to-names.nsf Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/technote-1099635---which-domino-server-databases-have-replica-ids-related-to-names.nsf?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/technote-1099635---which-domino-server-databases-have-replica-ids-related-to-names.nsf
http://www-1.ibm.com/support/docview.wss?uid=swg21099635

The replica IDs of some Lotus Domino® server databases are related to that of the Domino Directory (names.nsf). Which ones are related and which ones are not?

The following is a list of Domino server databases that have a known replica ID based on the replica ID of the domain's Domino Directory:

catalog.nsf
events4.nsf
statrep.nsf
ddm.nsf
admin4.nsf
billing.nsf
vpuserinfo.nsf (Sametime Authorization Database)
activity.nsf

Example:

names.nsf has a replica ID of:	852564AC:004EBCCF
catalog.nsf has a replica ID of:	852564AC:014EBCCF
events4.nsf has a replica ID of:	852564AC:024EBCCF
admin4.nsf has a replica ID of:	852564AC:034EBCCF
statrep.nsf has a replica ID of:	852564AC:044EBCCF

Notice that the similarity is in the last six (6) characters of the replica ID (4EBCCF in this example). The distinguishing characters are the first two (2) characters of the unique part of the replica ID (01, 02, 03, 04 in this example), such as 852564AC:044EBCCF.

Mail.box which is built automatically upon server startup has a randomly generated replica ID, unrelated to that of names.nsf, as does certlog.nsf which must be built manually.

In Lotus Notes®/Domino 5 releases:
Only the admin4.nsf and catalog.nsf replica IDs are similar to the names.nsf replica ID. This differs from previous versions in which events4.nsf and statrep.nsf were also similar.

In release 5, you may also notice that the replica IDs of the following databases are similar to one another (but not necessarily similar to names.nsf):

log.nsf
statrep.nsf
statmail.nsf
reports.nsf
certsrv.nsf

With these five databases, all but the last four (4) characters are identical, for example:

log.nsf has a replica ID of:	852567F5:003C3954
statrep.nsf has a replica ID of:	852567F5:003C8D04

]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/technote-1099635---which-domino-server-databases-have-replica-ids-related-to-names.nsf http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/technote-1099635---which-domino-server-databases-have-replica-ids-related-to-names.nsf?opendocument&comments Do you Bleed Yellow? Fri, 7 Mar 2008 10:44:24 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/do-you-bleed-yellow Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/do-you-bleed-yellow?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/do-you-bleed-yellow NotesNerd told me about this site and I wanted to share it with everyone else.

Do you BLEED YELLOW?
www.bleedyellow.com

This was also mentioned on Alan's blog.
http://www.alanlepofsky.net/alepofsky/alanblog.nsf/dx/chat-with-others-whom-bleed-yellow ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/do-you-bleed-yellow http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/do-you-bleed-yellow?opendocument&comments LScript to Check for Domino Server "Slow" Downs Fri, 1 Feb 2008 16:42:30 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/lscript-to-check-for-domino-server-slow-downs Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/lscript-to-check-for-domino-server-slow-downs?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/lscript-to-check-for-domino-server-slow-downs
I recently encountered this issue with a customer and wrote the following LotusScript to try and prove when a server is responding slow. The LotusScript will go into a Loop trying to open a database on the server, report the time duration to open in seconds and then sleep for so many seconds. The idea is every 5 seconds you try to open the names.nsf, record how long it takes and do this 120 times. So for a 10 minute window you now have the time it took to open a database every 5 seconds. If you set the database to run for a longer period of time, say 1 hour, you could possible identify server slow downs.

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim db2 As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim mystart As Long
Dim myend As Long
Dim mytime As String
Dim mybatchtime As String
Dim myserver As String
Dim stopthis As Integer
Dim counter As Integer
Dim sleeptime As Integer
Dim overduration As Integer

Set db = session.CurrentDatabase
counter = 0
stopthis = 1
mybatchtime = Now

'Define All Variables Here if Hardcoded
' myserver = "BROWNSERV1/HOME" 'Server Name to poll
' mydbtoget = "names.nsf" 'Database to Open
' counter2 = 5 'Number of Iterations to run
' sleeptime = 2 'Time to sleep between each iteration
' overduration = 5 'Time to flag as taking to long to open

'Define All Variables Here if Dynamic
myserver = Inputbox("Enter Canonical Server Name to poll")
mydbtoget = Inputbox("Enter database to open on server - suggest names.nsf")
counter2 = Inputbox("Enter number of iterations to run through")
sleeptime = Inputbox("Enter how many seconds to pause between iterations")
overduration = Inputbox("Enter the amount of time in seconds that is to long when opening the database to set an additional flag")

PICKUPHERE:

Do Until stopthis = 0
'If you answer Yes to the Prompt in the IF statement below, it returns 1 and loops, if you answer No it returns 0 and stops
mytime = Now
mystart = Timer
Set db2 = session.GetDatabase(myserver,mydbtoget)

If db2.IsOpen = "False" Then
Set doc = db.CreateDocument
doc.myserver = "FAILED"
doc.mybatchtime = "FAILED"
doc.mytime = "FAILED"
doc.mystart = "FAILED"
doc.myend = "FAILED"
doc.myduration = "FAILED"
doc.Form = "TrackResponse"
Call doc.Save( True, True )
End
End If
myend = Timer
Call db2.Close
myduration = myend - mystart
'Move the "If myduration > overduration Then" 8 lines down to here if you want to only create a document when you exceed the time
Set doc = db.CreateDocument
doc.myserver = myserver
doc.mybatchtime = mybatchtime
doc.mytime = mytime
doc.mystart = mystart
doc.myend = myend
doc.myduration = myduration
If myduration >= overduration Then
doc.durationflag = "1"
End If
doc.Form = "TrackResponse"
Call doc.Save( True, True )

counter = 1 + counter
If counter = counter2 Then
Print "Agent is sleeping for " & sleeptime & " seconds - finished iteration " & counter
stopthis = ws.Prompt(PROMPT_YESNO,"Continue?", "Do you wish to continue for another " & counter2 & " interations?")
counter = 0
Goto PICKUPHERE
End If

Print "Agent is sleeping for " & sleeptime & " seconds - finished iteration " & counter
Sleep sleeptime
Loop

End Sub ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/lscript-to-check-for-domino-server-slow-downs http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/lscript-to-check-for-domino-server-slow-downs?opendocument&comments SNTT - How to find Person Docs without Mail Files Thu, 24 Jan 2008 06:00:00 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt---how-to-find-person-docs-without-mail-files Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt---how-to-find-person-docs-without-mail-files?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt---how-to-find-person-docs-without-mail-files
The agent can either flag the Person Document by adding a field to it. This will allow you to create a simple view and select all the Person Documents at once. It also creates a document in the database the agent is ran from so you can go back and manually check each person document.

Sub Initialize
On Error Goto Errorhandler

Dim session As New notessession
Dim db As notesdatabase
Dim dbNAB As notesdatabase
Dim dbmail As notesdatabase
Dim view As notesview
Dim pdoc As notesdocument
Dim logdoc As notesdocument
Dim errcount As Integer
Dim maxcount As Integer
errcount = 0
maxcount = 0

Set db = session.currentdatabase
Set dbNAB = session.GetDatabase("SERVERNAME/HERE","names.nsf")
'Hardcode Server Name and Domino Directory Here

Set pdocview = dbNAB.GetView("People")
'Get Hold on People View from NAB
pdocview.AutoUpdate = False

Set pdoc = pdocview.getfirstdocument()
'Get First Person Document from NAB

Do While Not(pdoc Is Nothing)
'Do While and get Mail Server and Mail File from PDOC
maxcount = maxcount + 1
'>>>>LIMITED TEST RUN - Due to large number of person docs, you can limit how many it initially processes for testing
' If maxcount > 500 Then
' End
' End If
'>>>>LIMITED TEST RUN
MailServer = pdoc.MailServer(0)
MailFile = pdoc.MailFile(0)
Print maxcount & " - " & pdoc.FullName(0)
Set dbmail = session.GetDatabase(MailServer,MailFile,False)
'Try to open mail file specified in PDOC

If dbmail Is Nothing Then
'If Mail File is not valid, creates log document
Set logdoc = db.CreateDocument
logdoc.mailserver = MailServer
logdoc.mailfile = MailFile
logdoc.fullname = pdoc.FullName(0)
logdoc.Form = "MissingMailFile"
Dim nrt As New NotesRichTextItem(logdoc, "Pdoclink")
Call nrt.AppendDocLink(pdoc,"Person Document")
Call logdoc.Save( True, True )

'>>>>>>FLAG PERSON DOCUMENT - OPTIONAL
' pdoc.MissingMailFile = "1"
' Call pdoc.Save(True, True)
'>>>>>>If you want to flag the PDOC in the nab, you can create a view to show all docs with this field and remove them
'>>>>>>FLAG PERSON DOCUMENT - OPTIONAL
End If
Set pdoc = pdocview.getnextdocument(pdoc)
Loop

Exit Sub
ErrorHandler:
'>>>>If you can't access a person's mail file due to ACL rights, that will trigger an error and log it here
errcount = errcount + 1
Set logdoc = db.CreateDocument
logdoc.mailserver = MailServer
logdoc.mailfile = MailFile
logdoc.fullname = pdoc.FullName(0)
logdoc.Form = "AccessMailFile"
Dim nrt2 As New NotesRichTextItem(logdoc, "Pdoclink")
Call nrt2.AppendDocLink(pdoc,"Person Document")
Call logdoc.Save( True, True )

'>>>>Error Trapping will catch first 5 errors and then End the Script
If errcount < 5 Then
Messagebox "Initialize Error " + Cstr(Err) + " : " + Error$ + " on line number " + Cstr(Erl), 16, "CUSTOM AGENT ERROR"
Resume Next
Else
Messagebox "TO MANY ERRORS: Initialize Error " + Cstr(Err) + " : " + Error$ + " on line number " + Cstr(Erl), 16, "CUSTOM AGENT ERROR"
End
End If
End Sub ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/sntt---how-to-find-person-docs-without-mail-files http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt---how-to-find-person-docs-without-mail-files?opendocument&comments Some nice information on Mass emails Mon, 19 Nov 2007 07:09:45 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/some-nice-information-on-mass-emails Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/some-nice-information-on-mass-emails?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/some-nice-information-on-mass-emails
Technote 1227966:
http://www-1.ibm.com/support/docview.wss?rs=0&q1=1227966&uid=swg21227966

In addition to the technote, a fellow co-worker wrote a nice piece on what all to consider when sending mass emails.
"Thanks for you insight Walter."

When a user sends a mass mail (any mail message with more than 250 recipients), the mail delivery system may be taxed beyond the planned capacity. This unexpected spike in workload can result in poor performance as seen by the end-user's perspective.
These end-users may perceive degraded client response times, longer mail delivery times, and the inability for to log onto the Domino system.
To understand how mass mailing affects server performance, it is helpful to understand the mail routing workload.

When sending any mail message, Domino performs three operations.

Message Addressing: The Domino server reads the To, Cc and Bcc fields, resolves all addressees and then determines which messages are intended for local delivery
Message Transfer: If one or more recipients have a different home mail server than the sender, the message is queued for transfer to the correct destination mail server(s) based on the available routing tables.
Message Delivery: The addressed message is transferred from the server's mail.box database to the mail file of the recipient on the local server.

Each phase of message delivery has unique performance considerations which we cover below:

Addressing the Message
Addressing the message, also referred to as recipient list expansion or message dispatching, comprises several steps:
Special addressing considerations apply:

if the message is in Notes hierarchical name format or in Internet format
if groups exist (which must be expanded)
if user names are listed in the Cc and/or Bcc fields

The Lotus Domino router server task must lock the $Users view in the Domino Directory during recipient expansion. This view lock is extremely brief, but the larger the recipient list the longer the lock will be held, The router will process all recipients in a single pass. As this work is handled as a single request, the longer the recipient list, the more memory will be required by the router task.
The $Users view is required by Notes clients to open a new session, therefore this very brief lock invoked by the router task may delay the opening of new sessions by the Notes clients. Under normal conditions on a healthy server, no response time issues result from this delay. Benchmark testing shows that Domino can deliver a .027 second response time. However, a mass mailing on a heavily load server will likely result in response time issues for end users. Additionally, the size of the $Users and $Groups views affect name resolution performance.
Router attempts to address all messages in mail.box on each sweep of the queue If the number of messages or quantity of recipients is very large, the Domino router task might get delayed in dispatching messages, thus the router will never deliver any mail as no mail has yet been dispatched.

Transferring the Message
If the mail recipients' mail files are not located on the local server, the router task transfers the message elsewhere.
After resolving the home mail server for each recipient for a message, the message transfer thread (within the router task) handles the delivery to the others servers in the domain.
The router task has a number of threads which perform message transfer, as defined in the server configuration document. The amount of processing power and memory used by the transfer threads depends on three factors: the size of the message, number of destination servers, and number of transfer threads.
Router allocates enough memory to keep the entire message in memory for transfer, If a message has a 4 MB attachment, and there are 10 transfer threads, and at least 10 recipients to transfer the message to, router would allocate more than 40 MB of memory for this message. Limiting the number of threads can reduce the amount of memory used by router, but will lengthen the time required to transfer the same number of messages.

Delivering the Message
Delivering the message pertains to writing the message to the recipient's personal mail file. The Domino router task will locally deliver any message from the mail.box which has been dispatched and resolved to the current server if that is the user's home mail server. Router has dedicated threads to perform this operation, the number of which is defined in the configuration document. Like transfer threads, delivery threads must allocate enough memory to store the entire message in memory. The same performance concerns affecting transfer affect local delivery.

The minimize the impact on performance due to sending mass email, do the following.

Do not send mass mail from a production mail server.
Avoid sending mass email. If mass email must be sent, do not send it from a production mail server but an administration server or another dedicated Domino server which is not directly servicing end users. Distributing this workload will prevent end users from experiencing performance issues related to address expansion during phase one of the message delivery process.

This dedicated Domino server should be configured to hold messages for transfer outside of peak system usage.

Reduce the number of threads for transfer and delivery in the Domino router
If you must sent mass mailings, reducing the number of transfer and delivery threads will decrease the CPU and memory requirements.
**Note:** This modification may increase the time required for message delivery.

Limit message dispatch,
The Domino router can configured to dispatch smaller numbers of messages (not recipients) for delivery in the mail.box, thus reducing the peak CPU and memory usage for the Domino router server task. Doing so, however, may increase delivery time.

To configure, utilize the setting: MailDispatchThreshold=xxx . (Where xxx is the number of concurrent messages to dispatch; the recommended setting is 100.)

Limit mass mailing
To configure, utilize the following setting: RouterMaxEffectiveSize=xxx (where xxx is in kilobytes.)

When enabled, this restriction will cause the router to present the Non-Delivery Failure (NDF) message when the number of recipients multiplied by the message size (in k bytes) is greater than the value specified by the notes.ini setting. Attachments are excluded. The value of the RouterMaxEffectiveSize=setting is set in KB.

Implement the following notes.ini setting: RouterMaxEffectiveSizeIncAttach=1.
With this setting enabled, any file attachments are included in the equation to calculate the size of the message.

Increase the capacity of your system to support mass mailing.
Most production Domino mail environments are sized based on the usual end user workloads, Mass mailing, however, is not part of that normal workload. Therefore if mass mailing is part of your business requirements, increase the CPU and memory available to the specific Domino servers that are expected to support this additional workload.

For example, if you wish to configure the Domino router with 25 transfer threads and 25 delivery threads, and the largest expected mass mail item will be 10 MB, sent to 1000 users:
Router will require an additional 500 MB of memory to support this particular mass mailing.

To determine the additional CPU required:
By default, the Lotus Domino server can only support 20 concurrent user requests, (available threads in the pool) Router can service 250% the load of Server, increasing the system requirements by the same is the recommendation.
Example: an Intel 4 way system driving 80% CPU, 30% on the NSERVER task would mean router is expected to require 3 additional CPU to support the load.

Limiting Factors......

Domino is a 31 Bit, 32 bit or 64 bit application depending on the platform, Total server memory is limited by platform from (1.2 Gb to over 4Gb), If the memory requirements of mass mailing combined with the memory requirements of users exceeds the supported memory of your platform, server hangs or crashes may result. ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/some-nice-information-on-mass-emails http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/some-nice-information-on-mass-emails?opendocument&comments Slowing Opening Mail File after AdminP Rename - Regression in 7.0.2 Fri, 16 Nov 2007 08:49:14 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/slowing-opening-mail-file-after-adminp-rename---regression-in-7.0.2 Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/slowing-opening-mail-file-after-adminp-rename---regression-in-7.0.2?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/slowing-opening-mail-file-after-adminp-rename---regression-in-7.0.2
http://www-1.ibm.com/support/docview.wss?rs=727&uid=swg21115338

From Technote:
Question
After you rename users using the Lotus Notes®/Lotus Domino® 6 adminp "rename person" task, users experience a significant delay when opening their mail files using their own IDs. The delay can be up to ten minutes.

There is no delay if the mail file doesn't contain any folders or if the mail file is opened with an ID other than your own.

The situation also occurs in 6.5.4 and 7 releases if the user was moved in the hierarchy (change of /OU or /O) and had created folders in the mailfile prior to the move.

Answer
This issue was reported to Quality Engineering as SPR #RMAA72TCTX and was fixed in Notes/Domino release 7.0.3. This was a regression in releases 7.0.1 and 7.0.2 because of slow response time that occurred when users who were renamed opened their mail files.

The situation was originally reported to Quality Engineering as SPR# DWIN5HMN4K and was fixed in Notes/Domino releases 6.0.4 and 6.5.2. ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/slowing-opening-mail-file-after-adminp-rename---regression-in-7.0.2 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/slowing-opening-mail-file-after-adminp-rename---regression-in-7.0.2?opendocument&comments How to switch between Notes 8 "Eclipse" and Notes 8 Basic Client quickly Thu, 20 Sep 2007 05:00:00 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-switch-between-notes-8-eclipse-and-notes-8-basic-client-quickly Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-switch-between-notes-8-eclipse-and-notes-8-basic-client-quickly?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-switch-between-notes-8-eclipse-and-notes-8-basic-client-quickly
Size of Install Package Notes 8 Eclipse: 450megs
Size of Install Package Notes 8 Basic: 184 megs
Time to Launch Notes 8 Eclipse: 10+ seconds
Time to Launch Notes 8 Basic: 2 seconds
(Time measurements based on Thinkpad T60p w/ 2Gig RAM)

Now back to the original question. If you install the Notes 8 Client running on the Eclipse Framework, you will notice the shortcut points to "notes.exe". Well, in the past, people would create their own shortcut and point it to "nlnotes.exe" so they could bypass the Splash screen and save some time on startup.

If you create a shortcut that uses the "nlnotes.exe" in Notes 8, you not only bypass the Splash screen, you also bypass the Eclipse Framework.

Now I keep both shortcuts on my desktop so I can quickly switch between them during a demo or switch to the Basic Notes 8 Client when running memory resource intensive applications like Virtualization Software. ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/how-to-switch-between-notes-8-eclipse-and-notes-8-basic-client-quickly http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-switch-between-notes-8-eclipse-and-notes-8-basic-client-quickly?opendocument&comments Updated Notes 8 Designer Column Icons Thu, 20 Sep 2007 05:00:00 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/updated-notes-8-designer-column-icons Lotus - Developer Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/updated-notes-8-designer-column-icons?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/updated-notes-8-designer-column-icons

]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/updated-notes-8-designer-column-icons http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/updated-notes-8-designer-column-icons?opendocument&comments How to Restart any Domino Server Task Fri, 14 Sep 2007 14:07:37 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-restart-any-domino-server-task Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-restart-any-domino-server-task?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-restart-any-domino-server-task
Starting in Domino 6, there is a new command that can be used to shut down and restart any task:

restart task [taskname]

For example, to restart the Router task:

> restart task router
mm/dd/yyyy 12:50:22 PM Router: Shutdown is in progress
mm/dd/yyyy 12:50:22 PM Mail Router shutdown
mm/dd/yyyy 12:50:22 PM Mail Router started for domain IBM
mm/dd/yyyy 12:50:22 PM Router: Internet SMTP host TEST in domain test.com

More Info at: http://www-1.ibm.com/support/docview.wss?rs=899&uid=swg21090075 ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/how-to-restart-any-domino-server-task http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-restart-any-domino-server-task?opendocument&comments How to blend your IT Infrastructure Tue, 17 Jul 2007 16:06:14 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-blend-your-it-infrastructure Just for Fun Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-blend-your-it-infrastructure?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-blend-your-it-infrastructure
http://www.willitblend.com/videos.aspx?type=unsafe&video=novell ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/how-to-blend-your-it-infrastructure http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/how-to-blend-your-it-infrastructure?opendocument&comments SNTT: How to quickly check your Mail File Size Fri, 13 Jul 2007 10:03:47 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-how-to-quickly-check-your-mail-file-size Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-how-to-quickly-check-your-mail-file-size?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-how-to-quickly-check-your-mail-file-size
The LotusScript is simple and displays a dialog box with the following information as an example:
"170 Megs with 2.7% whitespace for Total Size of 175 Megs"

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim size As Double
size = db.Size
white = db.PercentUsed
mysize = ((size / 1024) / 1024) * ((white /100))
Messagebox Cstr(Round(mysize,0)) + " Megs with " + Cstr(Round(100 - white,1)) + "% whitespace for Total Size of " + Cstr(Round((size / 1024) / 1024,0)) + " Megs"
End Sub ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/sntt-how-to-quickly-check-your-mail-file-size http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-how-to-quickly-check-your-mail-file-size?opendocument&comments SNTT: Track who is deleting documents Fri, 13 Jul 2007 09:47:37 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-track-who-is-deleting-documents Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-track-who-is-deleting-documents?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-track-who-is-deleting-documents
To help with troubleshooting this, I created a LotusScript that can be placed in the QueryDocumentDelete Event of the DatabaseScript and it will create a document in the user's mail file and save the UID, time it was deleted and the person's name who hit the delete key.

You can then create a view in user's mail file to show all documents where Form = "WhoDoneIt" and then add three columns, "CreationDate", "UIDofDoc", & "thisperson" (based on the fields names used in the Script). The view will allow you to quickly find the UID and who deleted it. A few call outs. If Soft Deletions are enabled, it records when the document was marked for deletion by the end user, not when it was purged from the database. If a user undeletes something, we would find a second entry when they marked it for deletion a second time. If Soft Deletions are disabled, it records when the document was marked for deletion and the "X" was placed beside the document, not when the user actually hit "F9" and permanently deleted the document. In this scenario, you can hit delete and place the "X" beside the document, press delete again and remove the "X". Every time you press delete and place the "X" beside the document, the script will record that event each time.

Just be sure to remove the LotusScript and clean out the documents it created after you finish troubleshooting and determining who is deleting the documents (or convincing the end user they were deleting their own documents the whole time).

Dim session As New notessession
Dim deletiontrackingdoc As notesdocument
Dim dtrtitem As notesrichtextitem
Set collection = source.documents
Set note = collection.GetFirstDocument
Set dbmail = session.currentdatabase
While Not(note Is Nothing)
Set deletiontrackingdoc = dbmail.createdocument
deletiontrackingdoc.form = "WhoDoneIt"
deletiontrackingdoc.UIDofDoc = note.universalID
deletiontrackingdoc.thisperson = session.UserName
Set dtrtitem = New notesrichtextitem(deletiontrackingdoc, "Body")
dtrtitem.appendtext ("Deletion tracking was recorded for document UNID " & note.universalID)
dtrtitem.addnewline(1)
dtrtitem.appendtext("Deletion was caused by " & session.UserName)
Call deletiontrackingdoc.save(True,True,True)
Set note = collection.getnextdocument(note)
Wend ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/sntt-track-who-is-deleting-documents http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-track-who-is-deleting-documents?opendocument&comments SnTT: Compact ques requests from Notes Clients in Domino 7 Thu, 19 Apr 2007 09:00:00 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-compact-ques-requests-from-notes-clients-in-domino-7 Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-compact-ques-requests-from-notes-clients-in-domino-7?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-compact-ques-requests-from-notes-clients-in-domino-7
Technote 1247507

There is a set of stats you can check by issuing a "SH STAT" on the console.
Update.PendingList = 2
Update.PendingList.Max = 3
Update.PendingList.NextDueTime = 04/19/2007 22:30:59 EDT
Update.PendingList.Processed.Compactions = 3

This can show you how many compact requests are pending, how many it's carried out and the next time it will try.

This issue is under review by Lotus Development. My customer received a hotfix to revert the functionality back to the way it worked in 6 so the compact request would be immediate. I understand there may be a new INI parameter in Domino 7.0.3 that will allow you to choose rather to let the compact request que or take place immediately. ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/sntt-compact-ques-requests-from-notes-clients-in-domino-7 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-compact-ques-requests-from-notes-clients-in-domino-7?opendocument&comments SnTT: Domino 7 Heads Up with new RnRMgr task Thu, 19 Apr 2007 09:00:00 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-domino-7-heads-up-with-new-rnrmgr-task Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-domino-7-heads-up-with-new-rnrmgr-task?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-domino-7-heads-up-with-new-rnrmgr-task
The RnRMgr task requires that the busytime.nsf exist. If you have a habit during maintenance of deleting busytime.nsf and letting it rebuild, you will probably notice sometimes the RnRMgr tasks errors our and fails to load. The reason is because when the busytime.nsf does not exist, the Sched task must first create the busytime.nsf. If the RnRMgr loads to fast or prior to the Sched task, it will fail because the busytime.nsf does not exist.

This is working by design according to Lotus Development. The only work around so far that has been verified by both Lotus Support and a small handful of customers is to modify the ServerTasks= line of the notes.ini and place the Sched task first and the RnRMgr last so it allows the Sched task to load first and recreate the busytime.nsf just before the RnRMgr task loads last. ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/sntt-domino-7-heads-up-with-new-rnrmgr-task http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/sntt-domino-7-heads-up-with-new-rnrmgr-task?opendocument&comments From a Strictly Mathematical Viewpoint Mon, 9 Apr 2007 10:48:10 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/From-a-Strictly-Mathematical-Viewpoint Personal Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/From-a-Strictly-Mathematical-Viewpoint?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/From-a-Strictly-Mathematical-Viewpoint What Equals 100%? What does it mean to give MORE than 100%? Ever wonder about those people who say they are giving more than 100%? We have all been in situations where someone wants you to give over 100%. How about achieving 101%? What equals 100% in life?

Here's a little mathematical formula that might help you answer these Questions:

If:
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

Is represented as:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 1 9 20 21 22 23 24 25 26.

Then:

H-A-R-D-W-O-R- K
8+1+18+4+23+15+18+11 = 98%

and

K-N-O-W-L-E-D-G-E
11+14+15+23+12+5+4+7+5 = 96%

But,

A-T-T-I-T-U-D-E
1+20+20+9+20+21+4+5 = 100%

AND, look how far the love of God will take you

L- O- V- E-O-F-G-O-D

12+15+22+5+15+6+7+15+4 = 101%

Therefore, one can conclude with mathematical certainty that:
While Hard work and Knowledge will get you close, and Attitude will get you there, it's the Love of God that will put you over the top! ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/From-a-Strictly-Mathematical-Viewpoint http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/From-a-Strictly-Mathematical-Viewpoint?opendocument&comments Updated DB to Collect Stats and Config v1.2 Sun, 18 Mar 2007 22:30:25 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/Updated-DB-to-Collect-Stats-and-Config-v1.2 Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/Updated-DB-to-Collect-Stats-and-Config-v1.2?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/Updated-DB-to-Collect-Stats-and-Config-v1.2
If you find the tool useful, please leave feedback. If you customize it to do something different, please share that as well so I can either incorporate it or allow others to pull from your knowledge.

One idea you can use the tool for is if you ever need to push out a notes.ini change to your servers, just enter the parameter using "SH CONFIG PARAMETER=X" into one of the custom variable options and the tool will automatically push the parameter to every server by just running the agent.

You can download the database from my here:
www.blogging4dominos.com/FTP/collector.zip
www.blogging4dominos.com/FTP/collector.zip

Sub Initialize
Dim session As New NotesSession
Dim db As notesdatabase
Dim doc As notesdocument
Set db = session.currentdatabase
Dim sInfo As NotesItem

' This view contains all server profile docs.
Set viewprofile= db.GetView("Active Servers")
viewprofile.AutoUpdate = False
' Get first Active Server Document
Set doc = viewprofile.getfirstdocument()

'Pull information from Active Server Doc
Do While Not(doc Is Nothing)
cdatetime = Date & " " & Time
sName = doc.PName(0)
sLog = doc.PLog(0)
sEmail = doc.PEmailN(0)
sCV1 = doc.PCVariable1(0)
sCC1 = doc.PCCommand1(0)
sCV2 = doc.PCVariable2(0)
sCC2 = doc.PCCommand2(0)
sCV3 = doc.PCVariable3(0)
sCC3 = doc.PCCommand3(0)

'Pulls info from Server Console
cconsole = session.SendConsoleCommand( sName,"sh server")
cconsole1 = Split(cconsole,Chr$(10),-1,5)
cstat = session.SendConsoleCommand( sName,"sh stat")
cstat1 = Split(cstat,Chr$(10),-1,5)
cconfig = session.SendConsoleCommand( sName,"sh config *")
cconfig1 = Split(cconfig,Chr$(10),-1,5)
ctask = session.SendConsoleCommand( sName,"sh task")
If sCV1 = "1" Then
ccustom1 = session.SendConsoleCommand( sName,sCC1)
End If
If sCV2 = "1" Then
ccustom2 = session.SendConsoleCommand( sName,sCC2)
End If
If sCV3 = "1" Then
ccustom3 = session.SendConsoleCommand( sName,sCC3)
End If

'Create Doc locally in DB
Dim nsn As New NotesSession
Dim ndb As NotesDatabase
Dim ndo As NotesDocument
Dim nit As NotesItem
Set ndb = nsn.CurrentDatabase
Set ndo = ndb.CreateDocument
With ndo
'Create Fields for Base Entries
.Form="ServerTrack"
.STServerName=sName
.STDateTime=cdatetime
.STConsoleServer=cconsole
Dim nrt As New NotesRichTextItem(ndo, "STConsoleStat")
Call nrt.AppendText(cstat)
Dim nrt1 As New NotesRichTextItem(ndo, "STConsoleConfig")
Call nrt1.AppendText(cconfig)
.STConsoleTask = ctask
If sLog = "2" Then
.STEmailLog = sEmail
Else
.STEmailLog = "No Email Sent"
End If
'Create Individual Fields for all SH STAT Entries
Forall myx In cstat1
howlong = Len(myx)
mycount = 1
myc = ""
Do Until myc = "=" Or howlong = 0 Or mycount 200
myc = Right(Left(myx,mycount),1)
If myc = "=" Then
myposition = mycount
End If
mycount = mycount +1
Loop
If howlong > 0 And mycount <> 200 Then
myleft = Left(myx,myposition-2)
myleft = Replace(myleft," ","")
myleft = "stat_" & Replace(myleft,".","")
myright = Left(Right(myx,howlong-myposition-1),howlong-myposition-2)
Set nit = .ReplaceItemValue(myleft,myright)

'Captures Metrics for Email Out
If myleft = "stat_ServerName" Then
subject1 = myright
End If
If myleft = "stat_ServerVersionNotes" Then
subject2 = myright
End If
If myleft = "stat_ServerVersionNotesBuildNumber" Then
subject3 = "Build " & myright
End If
If myleft = "stat_ServerVersionOS" Then
subject4 = myright
End If
If myleft = "stat_ServerElapsedTime" Then
subject5 = myright
End If
'End Capturing of Metrics for Email Out

End If
End Forall
'Create Individual Fields for all SH CONFIG Entries
Forall myx In cconfig1
howlong = Len(myx)
mycount = 1
myc = ""
Do Until myc = "=" Or howlong = 0 Or mycount 200
myc = Right(Left(myx,mycount),1)
If myc = "=" Then
myposition = mycount
End If
mycount = mycount +1
Loop
If howlong > 0 And mycount <> 200 Then
myleft = "config_" & Left(myx,myposition-1)
myright = Left(Right(myx,howlong-myposition),howlong-myposition-1)
Set nit = .ReplaceItemValue(myleft,myright)
End If
End Forall
'Append Custom Variables if specified in ServerTrack Doc
If sCV1 = "1" Then
.STCustom1 = ccustom1
.STCustomV1 = sCC1
End If
If sCV2 = "1" Then
.STCustom2 = ccustom2
.STCustomV2 = sCC2
End If
If sCV3 = "1" Then
.STCustom3 = ccustom3
.STCustomV3 = sCC3
End If
'Finish Local Doc, Save and Close
End With
Call ndo.Save(True,True)

'Create doc to email if sLog = 2
If sLog = "2" Then
Dim nsn2 As New NotesSession
Dim ndb2 As NotesDatabase
Dim ndo2 As NotesDocument
Dim nit2 As NotesItem
Dim nrt2 As NotesRichTextItem
Dim sendto As String
Dim copyto As String
Dim blindcopyto As String
Dim subject As String
sendto=sEmail
copyto=""
blindcopyto=""
Set ndb2 = nsn2.CurrentDatabase
Set ndo2 = ndb2.CreateDocument
With ndo2
.Form="Memo"
Set nit2 = .ReplaceItemValue("SendTo", Split(sendto,","))
Set nit2 = .ReplaceItemValue("CopyTo", Split(copyto,","))
Set nit2 = .ReplaceItemValue("BlindCopyTo", Split(blindcopyto,","))
'Include Stat Metrics in Subject of Outbound Email
subject = "Tracking Server Stats for " & subject1 & " - " & subject2 & " - " & subject3 & " - " & subject4 & " - " & subject5
Set nit2 = .ReplaceItemValue("Subject", subject)
End With
Set nrt2 = ndo2.CreateRichTextItem("Body")
'Include three primary console outputs in outbound email
With nrt2
Call .AppendText(sName)
Call .AddNewline(1)
Call .AppendText(cdatetime)
Call .AddNewline(2)
Call .AppendText("Show Server")
Call .AddNewline(1)
Call .AppendText(cconsole)
Call .AddNewline(2)
Call .AppendText("Show TASK")
Call .AddNewline(1)
Call .AppendText(ctask)
Call .AddNewline(2)
Call .AppendText("Show CONFIG")
Call .AddNewline(1)
Call .AppendText(cconfig)
Call .AddNewline(2)
Call .AppendText("Show STAT")
Call .AddNewline(1)
Call .AppendText(cstat)
'Include three custom console outputs in outbound email
If sCV1 = 1 Then
Call .AddNewline(2)
Call .AppendText("Custom Variable 1")
Call .AddNewline(1)
Call .AppendText(sCC1)
Call .AddNewline(1)
Call .AppendText(ccustom1)
End If

If sCV2 = 1 Then
Call .AddNewline(2)
Call .AppendText("Custom Variable 2")
Call .AddNewline(1)
Call .AppendText(sCC2)
Call .AddNewline(1)
Call .AppendText(ccustom2)
End If

If sCV3 = 1 Then
Call .AddNewline(2)
Call .AppendText("Custom Variable 3")
Call .AddNewline(1)
Call .AppendText(sCC3)
Call .AddNewline(1)
Call .AppendText(ccustom3)
End If
'Send Outbound Email
End With
Call ndo2.Send(False)
End If

'Reset variables to blank
sname = ""
cconsole = ""
cstat = ""
cconfig = ""
ctask = ""
cdatetime = ""
sLog = ""
sEmail = ""
sCV1 = ""
sCC1 = ""
sCV2 = ""
sCC2 = ""
sCV3 = ""
sCC3 = ""

'Get next Active Server Doc
Set doc = viewprofile.getnextdocument(doc)
Loop
End Sub ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/Updated-DB-to-Collect-Stats-and-Config-v1.2 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/Updated-DB-to-Collect-Stats-and-Config-v1.2?opendocument&comments Database to Collect Stats and Config from your Domino Servers Thu, 22 Feb 2007 03:00:00 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/database-to-collect-stats-and-config-from-your-domino-servers Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/database-to-collect-stats-and-config-from-your-domino-servers?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/database-to-collect-stats-and-config-from-your-domino-servers SH SERVER
SH TA
SH CONFIG *
SH STAT

Once the results are returned, I save each of the four results in a seperate field on a document for simple viewing when you open the document. The second step is I parse through each entry in the SH CONFIG and SH STAT and save each entry into a seperate field so you can build views to report on specific areas of your Domino Server. To help manage the data I append a "config_" or "stat_" to the name of the parameter and use that as the field name and then store it's value in the field. A third option is to email a copy of the document showing the four outputs to any internet email address.

You will need to create a "Server Profile" for each server you want it to collect against. You can create a server profile for each server and then just enable or disable the ones your want it to run against. When you create the Server Profile, if you set it to "Log and Email", it will take the email address you specify in the server profile and send a copy of the four outputs via email to the email address you specify.

Once your server profile document is complete, run the "Pull Stats v09" agent from the Actions pull down menu.

You can download the database from my here:
www.blogging4dominos.com/FTP/collector.zip
www.blogging4dominos.com/FTP/collector.zip

This is a work in progress and over time I plan on adding additional views and other functionality. If you like it or have any suggestions please post them as comments to this blog entry. If you make any modifications to the code yourself please share them with the rest of the blog community.

Here is a copy of the primary LotusScript agent if you would like to just look over it.
Sub Initialize
Dim session As New NotesSession
Dim db As notesdatabase
Dim doc As notesdocument
Set db = session.currentdatabase
Dim sInfo As NotesItem

' This view contains all server profile docs.
Set viewprofile= db.GetView("Active Servers")
viewprofile.AutoUpdate = False
' Get first Active Server Document
Set doc = viewprofile.getfirstdocument()

'Pull information from Active Server Doc
Do While Not(doc Is Nothing)
cdatetime = Date & " " & Time
sName = doc.PName(0)
sLog = doc.PLog(0)
sEmail = doc.PEmailN(0)

'Pulls info from Server Console
cconsole = session.SendConsoleCommand( sName,"sh server")
cconsole1 = Split(cconsole,Chr$(10),-1,5)
cstat = session.SendConsoleCommand( sName,"sh stat")
cstat1 = Split(cstat,Chr$(10),-1,5)
cconfig = session.SendConsoleCommand( sName,"sh config *")
cconfig1 = Split(cconfig,Chr$(10),-1,5)
ctask = session.SendConsoleCommand( sName,"sh task")

'Create Doc locally in DB
Dim nsn As New NotesSession
Dim ndb As NotesDatabase
Dim ndo As NotesDocument
Dim nit As NotesItem
Dim nrt As NotesRichTextItem
Set ndb = nsn.CurrentDatabase
Set ndo = ndb.CreateDocument
With ndo
'Create Fields for Base Entries
.Form="ServerTrack"
.STServerName=sName
.STDateTime=cdatetime
.STConsoleServer=cconsole
.STConsoleStat=cstat
.STConsoleConfig=cconfig
.STConsoleTask = ctask
If sLog = "2" Then
.STEmailLog = sEmail
End If
'Create Individual Fields for all SH STAT Entries
Forall myx In cstat1
howlong = Len(myx)
mycount = 1
myc = ""
Do Until myc = "=" Or howlong = 0 Or mycount = 200
myc = Right(Left(myx,mycount),1)
If myc = "=" Then
myposition = mycount
End If
mycount = mycount +1
Loop
If howlong > 0 And mycount <> 200 Then
myleft = Left(myx,myposition-2)
myleft = Replace(myleft," ","")
myleft = "stat_" & Replace(myleft,".","")
myright = Left(Right(myx,howlong-myposition-1),howlong-myposition-2)
Set nit = .ReplaceItemValue(myleft,myright)

'Captures Metrics for Email Out
If myleft = "stat_ServerName" Then
subject1 = myright
End If
If myleft = "stat_ServerVersionNotes" Then
subject2 = myright
End If
If myleft = "stat_ServerVersionNotesBuildNumber" Then
subject3 = "Build " & myright
End If
If myleft = "stat_ServerVersionOS" Then
subject4 = myright
End If
If myleft = "stat_ServerElapsedTime" Then
subject5 = myright
End If
'End Capturing of Metrics for Email Out

End If
End Forall
'Create Individual Fields for all SH CONFIG Entries
Forall myx In cconfig1
howlong = Len(myx)
mycount = 1
myc = ""
Do Until myc = "=" Or howlong = 0 Or mycount = 200
myc = Right(Left(myx,mycount),1)
If myc = "=" Then
myposition = mycount
End If
mycount = mycount +1
Loop
If howlong > 0 And mycount <> 200 Then
myleft = "config_" & Left(myx,myposition-1)
myright = Left(Right(myx,howlong-myposition),howlong-myposition-1)
Set nit = .ReplaceItemValue(myleft,myright)
End If
End Forall
End With
Call ndo.Save(True,True)

'Create doc to email if sLog = 2
If sLog = "2" Then
Dim nsn2 As New NotesSession
Dim ndb2 As NotesDatabase
Dim ndo2 As NotesDocument
Dim nit2 As NotesItem
Dim nrt2 As NotesRichTextItem
Dim sendto As String
Dim copyto As String
Dim blindcopyto As String
Dim subject As String
sendto=sEmail
copyto=""
blindcopyto=""
Set ndb2 = nsn2.CurrentDatabase
Set ndo2 = ndb2.CreateDocument
With ndo2
.Form="Memo"
Set nit2 = .ReplaceItemValue("SendTo", Split(sendto,","))
Set nit2 = .ReplaceItemValue("CopyTo", Split(copyto,","))
Set nit2 = .ReplaceItemValue("BlindCopyTo", Split(blindcopyto,","))
'Include Stat Metrics in Subject of Outbound Email
subject = "Tracking Server Stats for " & subject1 & " - " & subject2 & " - " & subject3 & " - " & subject4 & " - " & subject5
Set nit2 = .ReplaceItemValue("Subject", subject)
End With
Set nrt2 = ndo2.CreateRichTextItem("Body")
With nrt2
Call .AppendText(sName)
Call .AddNewline(1)
Call .AppendText(cdatetime)
Call .AddNewline(2)
Call .AppendText("Show Server")
Call .AddNewline(1)
Call .AppendText(cconsole)
Call .AddNewline(2)
Call .AppendText("Show CONFIG")
Call .AddNewline(1)
Call .AppendText(cconfig)
Call .AddNewline(2)
Call .AppendText("Show TASK")
Call .AddNewline(1)
Call .AppendText(ctask)
Call .AddNewline(2)
Call .AppendText("Show STAT")
Call .AddNewline(1)
Call .AppendText(cstat)
End With
Call ndo2.Send(False)
End If

'Reset variables to blank
sname = ""
cconsole = ""
cstat = ""
cconfig = ""
ctask = ""
cdatetime = ""
sLog = ""
sEmail = ""

'Get next Active Server Doc
Set doc = viewprofile.getnextdocument(doc)
Loop
End Sub ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/database-to-collect-stats-and-config-from-your-domino-servers http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/database-to-collect-stats-and-config-from-your-domino-servers?opendocument&comments Update DST Agent 4.0.2.6 released - Fixes Reminders Wed, 21 Feb 2007 08:46:02 -0400 http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/update-dst-agent- Lotus - Admin Tip Michael V Brown http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/update-dst-agent-?opendocument&comments http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/update-dst-agent-
http://www-1.ibm.com/support/docview.wss?rs=899&uid=swg21254639 ]]> http://www.blogging4dominos.com/blog/dominoblog.nsf/dxcomments/update-dst-agent- http://www.blogging4dominos.com/blog/dominoblog.nsf/dx/update-dst-agent-?opendocument&comments