An unauthorized change was made to windows (windows server 2008)

 1) Click the option that launches an Internet Browser

2) Type: %windir%\system32 into the address field

3) Find the file cmd.exe

4) Right-click on cmd.exe and select Run as Administrator

5) Type: cscript %windir%\System32\slmgr.vbs /ilc %windir%\System32\licensing\ppdlic\Security-Licensing-SLC-ppdlic.xrm-ms

6) Hit the Enter key

7) Reboot 

Change product key from Windows Server 2016 Eval edition

Use Power Shell as Administrator: and run below command 

Step 1.

Dism /online /Set-Edition:ServerStandard /AcceptEula /ProductKey:*****-*****-*****-*****-*****

Press Yes then reboot

Mail move from all document to inbox

Error : Mails found in all document instead of In-box

Use below given lotus script agent and run from user mail file .


Sub Click(Source As Button)
Dim s As New notessession
Dim db As notesdatabase
Dim fDoc As NotesDocument ' Document in folder
Dim ad As notesview ' All Documents view
Dim aDoc As notesdocument ' document in All Docs view
Dim fUNID() As String ' array of UNID's of docs in folders
Dim i As Integer ' UNID array index
Dim MailCount As Integer
Dim LoopCount As Double
i =0
MailCount = 0
LoopCount = 0
Set db = s.CurrentDatabase
' Build UNID array by looping through folders, then their documents
Forall view In db.views
If view.IsFolder And Not view.Name=("($All)") Then
Print "Scanning - " & view.name
Set fDoc = view.GetFirstDocument
While Not fDoc Is Nothing
LoopCount = LoopCount + 1
Redim Preserve fUNID(i)
fUNID(i) = fDoc.UniversalID
i=i+1
Set fDoc = view.GetNextDocument(fDoc)
Wend
End If
End Forall
' Loop through docs in the All Documents view and compare UNIDs to each doc
in the array
Print "Adding documents to the Inbox"
Set ad = db.GetView("($All)")
Set aDoc = ad.GetFirstDocument
While Not aDoc Is Nothing
i = 0
Do While i <= Ubound(fUNID)
LoopCount = LoopCount + 1
If fUNID(i) = aDoc.UniversalID Then
Exit Do
End If
i = i + 1
Loop
If i > Ubound(fUNID) And (adoc.form(0) = "Memo" Or adoc.form(0) = "Reply"
Or adoc.form(0) = "Reply With History") And adoc.DeliveredDate(0) <> "" Then
MailCount = MailCount + 1
Print MailCount & " documents added to inbox"
Call adoc.PutInFolder( "($Inbox)")
End If
Set aDoc = ad.GetNextDocument(adoc)
Wend
Messagebox"Process completed. "
End Sub

How to sync domino time with syetem

use below console command to sync time with windows time
"set systemtime"

How to create new local replica

Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim replica As NotesDatabase
Set db = session.CurrentDatabase
askme = workspace.Prompt (PROMPT_YESNO,"Replication", "This will create a new replica of your mail file. Do you want to continue?")
If askme = 1 Then
dbname = db.FileName
 dbname ="mail\"+dbname
Set replica = db.CreateReplica("", dbname )
Call workspace.OpenDatabase("",dbname)
 End If
End Sub

How to find out IBM Domino Server license types ???

GO to start>>>>Run>>>type regedit>>>[HKEY_LOCAL_MACHINE\SOFTWARE\Lotus\Domino] You will find Setup Type>>>EnterpriseServer or whatever installed :)

Mail quota information button

ction Button: @Command([ToolsRunMacro] ; "(database properties)" ) Agent: Agent Title: (database properties) Agent Type: Shared, Hidden Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim server As String Dim Size As Long Dim Quota As Double Set db = session.CurrentDatabase server=db.Server If server="" Then server="Local" End If size=db.Size/1056000 quota=db.SizeQuota/1024 Messagebox "Database Information:" &Chr(10)_ &Chr(10)_ & "Database Title: " & db.Title & Chr(10) _ & "Resides on Server: " & server & Chr(10) _ & "Full File Path name: " & db.FilePath & Chr(10) _ &Chr(10)_ & "Database Size Information:" & Chr(10) _ &Chr(10)_ & "Size (Mb): " & size & Chr(10) _ & "Quota: (Mb): " & quota & Chr(10) _ & "Percent used: " & db.PercentUsed & Chr(10) _ &Chr(10)_ & "Database Design Information:" & Chr(10) _ &Chr(10)_ & "Inherits from Template: " & db.DesignTemplateName & Chr(10)_ & "Database is the Template: " & db.TemplateName & Chr(10)_ & "Replica ID: " & db.ReplicaID,MB_OK+MB_ICONINFORMATION,"Database Property Synopsis" If quota <> 0 Then If size > quota Then Messagebox "You are Currently Over your quota" ,MB_OK+MB_ICONINFORMATION,"What this Agent Does" End If End If End Sub

Error: The Administration Process is waiting for new mail fields in Person document

Problem
The following error occurs in the Domino server's LOG.NSF database for a particular person after moving their mail file using the Administration Process (AdminP):
Errors: Waiting for new mail fields
Resolving the problem Pull down the names.nsf from hubserver then use tel adminp process new

When creating a new memo in a Lotus Notes client, is there a way to enable by default the "Do not expand personal groups" option in the Delivery Options?

To enable the "Do not expand personal groups" option by default, add the following parameter to the notes.ini file (c:\Notes directory) and restart the Notes client:

$CollapsePersonalGroups=0

How to convert Note 8.x Standard to Basic

1.To launch Notes 8 (Basic Configuration), create a shortcut on your desktop to point to nlnotes.exe in the Notes program directory.Or, simply launch nlnotes.exe.

2.you can create a shortcut which executes notes.exe within the Notes program directory and add one of two command line switches, -sa or -basic. For example: C:\Program Files\Lotus\Notes\notes.exe -sa.

Parameter in notes.ini that can be used to control launching

Adding UseBasicNotes=1 to open Notes Basic

Adding UseBasicNotes=0, to open Standard client

Remove archive profile from mail file

Create a hotspot button with below script and run with user mail file



Sub Click(Source As Button)
 Dim s As New NotesSession
 Dim db As Notesdatabase
 Dim doc As NotesDocument
 Set db = s.CurrentDatabase
 Set doc = db.GetProfileDocument("archive database profile")
 If Not Doc.IsNewNote Then
  Print "Found Profile"
  Print "Set field"
  Call doc.RemoveItem("ArchiveDatabase")
  Call doc.Save( False, True )
 End If
End Sub

"Icon Bar Window" error coming in Lotus Notes 8.5.2..

 Error Message "Icon Bar Window" start appearing in the taskbar everytime when open Notes or close any window inside Notes

Resolution : Delete Bookmark.nsf from notes data directory ..

Document is in use by XXXX and has been locked

The Symantec AntiVirus/Filtering for Domino Settings database uses a document
locking mechanism to prevent multiple users from simultaneously modifying the same Settings document. This prevents Save Conflicts from occurring.  If a Lotus Notes client crashes or is not shut down properly while a Settings document is open, the Settings document may remain locked and the next attempt to open the Settings document may result in an error message being displayed.
To unlock the Settings document, do one of the following:
A . Shut down and restart the Symantec AntiVirus/Filtering for Domino server task:
  1. At the Domino server console, type the following command:
     TELL SAV QUIT This stops the Symantec AntiVirus/Filtering for Domino server task.
  2. At the Domino server console, after the Symantec AntiVirus/Filtering for
     Domino server task has stopped, type the following command:
     LOAD NTASK   This reloads the Symantec AntiVirus/Filtering for Domino server
     task and unlocks any locked documents in the Symantec AntiVirus/Filtering
     for Domino Settings database on the server.
B . Use the Unlock action button in the (Lockdocs) hidden view:
  1. Open the Symantec AntiVirus/Filtering for Domino Settings database.
  2. In the Settings document, press Ctrl and Shift, then on the View menu,
     click Go To.
  3. In the Go To dialog box, in the list, select (Lockdocs).
     This opens the hidden (Lockdocs) view. The locked document will
     have Locked displayed as its Status in the view.
  4. Select the locked document in the view, then click Unlock action.
     This unlocks the document, which lets you access it normally.

Server Error :File trucated - file may have been damaged

For resolve the problem use Domino tools (Fixup,Updall& Compact) on domino console

How to change logo image displayed by WorldClient (MDaemon)

WorldClient's branding (Logo) images now be easily customized In version 13x, MDaemon release a feature called WorldClient branding.  This can be configured within WebAdmin by logging in as a global Administrator, then clicking on "WorldClient Branding" option  from WebAdmin's "Main" menu then change the image as per your requirements .

Pop up message to users

Pop up message to user while trying to open server copy

Steps

 Open mail template in lotus designer and  follow the below steps..

Folder>>>($Inbox)>>>Postopen>>'Adding prompt..
Then script

' Last update : 24 September 2012
 ' Warning only to mbx owner
 Dim mysession As New notessession
 Dim myDb As NotesDatabase
 Dim MyMsg As String
 Dim mycalprof As NotesDocument
 Dim XUser As NotesName
 Dim XOwner As NotesName
 Set mydb = mysession.CurrentDatabase 
 ' Check only if user is owner
 '*****************************
 Set mycalprof = mydb.GetProfileDocument("calendarprofile")
 If  mycalprof Is Nothing Then

 End If
 If Not myCalProf.HasItem("Owner") Then
 End If
 Set XUser = New NotesName(mySession.UserName)
 Set XOwner = New NotesName(myCalProf.Owner(0))
 If Lcase(XUser.Abbreviated) = Lcase(XOwner.Abbreviated) Then
  If (mydb.Server<>"") Then
   MyMsg="You are opening your mailbox on the server. " & Chr$(13) & _
   "Please use the local replica of your mailbox for better performance. "
   Messagebox MyMsg,MB_ICONEXCLAMATION, "Warning"
  End If
 End If

Blackberry Error

Below are the error happen while adding different domain user in BESserver
Inbox not found! (XXX /Domain)
PopulateFolderLIst failed because mail file could not be opened
UpdateFolderLIst failed because mail file could not be opened

Resolation 

Add BES server name in user DB ACL  and

Error: 'Your availability time range is invalid' when selecting Preferences in Mail file or Overflow

Create an agent and run on mail box .......

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As notesDatabase
    Set db=session.CurrentDatabase
    Set profile=db.GetProfileDocument("CalendarProfile")
    Call Profile.Remove(True)   
End Sub

Error 500 HTTP Web Server: Illegal Arguments Exception

Check ACL entry .Remove old Name and add new LN name

"Notes Error: Adding entry will cause text list to exceed 64K. Entry not added."

Error Resolution
1. In the Designer client, open the agent, Upgrade Folder Design.

2. Add the following line in the (Declarations) event, below the entry, Global Variables:

Dim folderlist(5000) As String

3. In the ProcessAutoUpdate subroutine, make the following modification. Replace the line, "Forall x In note.UserFolders," with these two lines:

Forall x In folderlist
If x="" Then Exit Forall

4. In the Initialize event, make the following modification. Change the code below (at approximately line 61), from:

If (entry.document.hasitem("$ViewInheritedFrom")) Then
Call UserFolders.appendtotextlist(Trim(NewFolderName) & strDelimiter &_

to the following:
NOTE: Only line 2 is modified; line 1 is included as a reference point):

If (entry.document.hasitem("$ViewInheritedFrom")) Then
folderlist(counter)=Trim(NewFolderName) & strDelimiter &_

5. IMPORTANT: To avoid a compile error, you must remove a bracket from the next line of code when making the changes outlined in Step 4.

By simply making the changes outlined above, you end up with an extra bracket that will cause an error when compiling the code:

If (entry.document.hasitem("$ViewInheritedFrom")) Then
folderlist(counter)=Trim(NewFolderName) & strDelimiter &_
entry.document.GetItemValue("$ViewInheritedFrom")(0) & "]")

To resolve this problem, simply remove this last bracket:

If (entry.document.hasitem("$ViewInheritedFrom")) Then
folderlist(counter)=Trim(NewFolderName) & strDelimiter &_
entry.document.GetItemValue("$ViewInheritedFrom")(0) & "]"