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