Lotus 8.5.1
Hi,
Right now am working on Lotus 8.5.1.
Any one working on this app previously or present.
Thanks,
Annuj.
Right now am working on Lotus 8.5.1.
Any one working on this app previously or present.
Thanks,
Annuj.
0 Comments
[ + ] Show comments
Answers (19)
Please log in to answer
Posted by:
Yuvaraj_Subramanian
14 years ago
Hi Annuj,
I have added two custom actions one for file copying (this is because in Citrix server file called notes.ini is installing at C:\Windows\system32 hwere as in XP it is installed in C:\Program Files\Lotus \Notes\) and another for providing the folder permission to the standard users.PFA Custom action script below:
Custom Action Name : File Copy
Custom Action Script :
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForAppending = 8
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim FSO, WshShell, strF1,strDestinationFldr, strSourceFldr,strDestFldr,strLine
strDestFolder = Trim (WshShell.ExpandEnvironmentStrings("%ProgramFiles%"))
strDestinationFldr= strDestFolder + "\Lotus\Notes\data"
If objFSO.FileExists (strDestinationFldr & "\notes.ini") = False Then
'Copying Files
'------------------------------------------------------------------------------------------
'msgbox "File Doesnot exist and Copying File"
Set FSO = CreateObject("Scripting.FileSystemObject")
set WshShell = CreateObject("WScript.Shell")
strSourceFldr = WshShell.ExpandEnvironmentStrings("%windir%")
FSO.CopyFile strSourceFldr & "\notes.ini" , strDestinationFldr & "\notes.ini"
'------------------------------------------------------------------------------------------
'File Exist - Appending Content
'------------------------------------------------------------------------------------------
'msgbox "Appending Content"
strLine = "Directory=C:\Program Files\Lotus\Notes\data"
filename = strDestinationFldr + "\notes.ini"
If objFSO.fileExists(filename) then
Set objFile = objFSO.OpenTextFile(filename, ForAppending)
objFile.Write strLine
objFile.Close
End If
'------------------------------------------------------------------------------------------
End If
Set objFSO = Nothing
Custom Action Name : FilePermission
Custom Action Script :
'--------------------Begin -----------
'This script will assign Modify/C-Change (write) Permission To Power User on "C:\MyFolder" using cacls on NTFS formatted drive
Dim oShell, FoldPerm, Calcds, oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
sSysDir = oFSO.GetSpecialFolder(1).Path
If Right(sSysDir,1) <> "\" Then sSysDir = sSysDir & "\"
Calcds = sSysDir & "cacls"
'Chang The folder Name, User and Access rights in the following line of code
FoldPerm = """" & Calcds &"""" & """%ProgramFiles%\Lotus""" & " /E /T /C /G " & """Users""" & ":C"
oShell.Run FoldPerm, 0 ,True
'----------------End of Script---------
I have added two custom actions one for file copying (this is because in Citrix server file called notes.ini is installing at C:\Windows\system32 hwere as in XP it is installed in C:\Program Files\Lotus \Notes\) and another for providing the folder permission to the standard users.PFA Custom action script below:
Custom Action Name : File Copy
Custom Action Script :
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForAppending = 8
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
Set WshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim FSO, WshShell, strF1,strDestinationFldr, strSourceFldr,strDestFldr,strLine
strDestFolder = Trim (WshShell.ExpandEnvironmentStrings("%ProgramFiles%"))
strDestinationFldr= strDestFolder + "\Lotus\Notes\data"
If objFSO.FileExists (strDestinationFldr & "\notes.ini") = False Then
'Copying Files
'------------------------------------------------------------------------------------------
'msgbox "File Doesnot exist and Copying File"
Set FSO = CreateObject("Scripting.FileSystemObject")
set WshShell = CreateObject("WScript.Shell")
strSourceFldr = WshShell.ExpandEnvironmentStrings("%windir%")
FSO.CopyFile strSourceFldr & "\notes.ini" , strDestinationFldr & "\notes.ini"
'------------------------------------------------------------------------------------------
'File Exist - Appending Content
'------------------------------------------------------------------------------------------
'msgbox "Appending Content"
strLine = "Directory=C:\Program Files\Lotus\Notes\data"
filename = strDestinationFldr + "\notes.ini"
If objFSO.fileExists(filename) then
Set objFile = objFSO.OpenTextFile(filename, ForAppending)
objFile.Write strLine
objFile.Close
End If
'------------------------------------------------------------------------------------------
End If
Set objFSO = Nothing
Custom Action Name : FilePermission
Custom Action Script :
'--------------------Begin -----------
'This script will assign Modify/C-Change (write) Permission To Power User on "C:\MyFolder" using cacls on NTFS formatted drive
Dim oShell, FoldPerm, Calcds, oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")
sSysDir = oFSO.GetSpecialFolder(1).Path
If Right(sSysDir,1) <> "\" Then sSysDir = sSysDir & "\"
Calcds = sSysDir & "cacls"
'Chang The folder Name, User and Access rights in the following line of code
FoldPerm = """" & Calcds &"""" & """%ProgramFiles%\Lotus""" & " /E /T /C /G " & """Users""" & ":C"
oShell.Run FoldPerm, 0 ,True
'----------------End of Script---------
Posted by:
ekniranjan
14 years ago
I really appreciate you reply, first thanks for that.
We use Lotus notes in our corporation and we install it with .ipf file and am trying to find some knowledge base stuff. Still am not at started working on it, but in couple of weeks i will.
Before that i just want to know more packaging details about that.
Thanks,
Annuj.
We use Lotus notes in our corporation and we install it with .ipf file and am trying to find some knowledge base stuff. Still am not at started working on it, but in couple of weeks i will.
Before that i just want to know more packaging details about that.
Thanks,
Annuj.
Posted by:
mekaywe
14 years ago
Posted by:
mekaywe
14 years ago
have a look at this.. you might get some Idea [;)]
http://itninja.com/link/help---ibm-lotus-domino-and-notes-information-center
http://itninja.com/link/help---ibm-lotus-domino-and-notes-information-center
Posted by:
ekniranjan
14 years ago
Other than customizing the MST i need to check for the previous versions of Lotus notes, if there is any previous version exist, i need to delete them using any VBS or Autoit Script. We also need to verify the Operating system while installing, so this make me to write a script for installing. So if anyone worked on this or if he has anything to share that's really appreciated.
Once again thanks for your precious reply's. If you know any link of any documents in our site, please let me know.
Thanks,
Annuj.
Once again thanks for your precious reply's. If you know any link of any documents in our site, please let me know.
Thanks,
Annuj.
Posted by:
mekaywe
14 years ago
Posted by:
ekniranjan
14 years ago
Posted by:
mekaywe
14 years ago
Posted by:
anonymous_9363
14 years ago
Posted by:
Yuvaraj_Subramanian
14 years ago
Posted by:
ekniranjan
14 years ago
Posted by:
ekniranjan
14 years ago
Posted by:
ekniranjan
14 years ago
Yuvaraj,
That's really nice & i started working on that script. But i need to write some different script like Autoit or .IPF or any .VBS.
We are just check the previous version and OS. If previous version exists then we delete through script and then install new on 8.5.1 checking against OS.
RIght now am trying to convert your script logic into VBS or Autoit. If you have any info on that, that's really appreciated. Once again thanks.
That's really nice & i started working on that script. But i need to write some different script like Autoit or .IPF or any .VBS.
We are just check the previous version and OS. If previous version exists then we delete through script and then install new on 8.5.1 checking against OS.
RIght now am trying to convert your script logic into VBS or Autoit. If you have any info on that, that's really appreciated. Once again thanks.
Posted by:
Yuvaraj_Subramanian
14 years ago
Posted by:
anonymous_9363
14 years ago
Forgive me, no offence intended, but appending text is a bit of an amateurish way to write to an INI file. What happens if the section or value/data pair already exists in the file? I'll bet IBM's handling of that scenario would be....interesting.
Go to JSWare's site, grab the class pack which includes the INI file class and use that.
Go to JSWare's site, grab the class pack which includes the INI file class and use that.
Posted by:
ekniranjan
14 years ago
Posted by:
Yuvaraj_Subramanian
14 years ago
Posted by:
ekniranjan
14 years ago
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
so that the conversation will remain readable.