Subject: Some Code that might help
I wrote this code to send in a button to users. It seems to work pretty well. So my testing has let me to believe that most users at our organization only have one Dyninfocr_ variable in their ini file. Those that have travelled around a bit and connected to multiple servers may have multiple instances of a notes ini variable that start with Dyninfocr_ .
So I wrote a code in a button to send to users to look for dyninfocr_ and remove that variable. If it occurs once the next time they start their client and hit their mail server it creates an adminP request without issue. Fo those with multiple Dyninfocr_… varibles in their file…deleting all of them doesnt do the trick. For those users I wound up deleting the Dyninfocr_ variables and then backrev’ing their setup= var. for those users they will get the setup complete popup when they restart their notes client but it does seem to work. Here we are able to know what version of the client we can back rev to without causing them to go through the setup of IM.
It’s a bit of a hack job but it worked for us. Hope others can find use in it too.
Rgrds,
Sub Click(Source As Button)
MyIni% = Freefile()
Dim AgilityFile As Variant
Dim session As New NotesSession
Dim user As String
Dim Counter As Integer
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
AgilityFile= Evaluate("@ConfigFile")
count=0
’ Open the ini file and read it in line by line.
Open AgilityFile(0) For Input As MyIni%
While Not Eof(1)
Line Input #1,a$
subString$ = Left$(a$, 10)
If subString$="DYNINFOCR_" Then
’ Now that we found the line get the rest of the var
TEMP$ = Strleft( a$, "=")
' Now delete it
Call session.SetEnvironmentVar( Temp$, "",True )
count=count+1
End If
’ if they have more then one dyninfocr_ instance then backrev their setup
If count>1 Then
' if they had more then one Dyn_ var they need the Setup Variable set too
Call Session.SetEnvironmentVar("Setup","650100",True)
End If
Wend
Close MyIni%
user = session.UserName
doc.Form = "Memo"
doc.SendTo = "yourname"
doc.Subject =user + " Has Pressed the Client Build Button"
Call doc.Send( False )
Msgbox ("Process Complete. Please restart your Notes client. Thank you.")
End Sub
There are times though when you’ll want to