just an idea - what about checking the name of the machine your application
is running on? - if its the server, then code to take whatever action
required.

code (not mine but authour unknown) like following may help - goes in
standard module

Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long


Function GetName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetComputerName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
GetName = UCase(Trim(tString))
End Function



Sub GetDesktopName()

MsgBox GetName

End Sub
--
jb


"sgl" wrote:

Hi All,

I have developed a Dictator application in excel that will be distributed to
various branches of the company. I have used SetUp Factory 8 to package the
application. As the application is loaded I have placed a registry value in
the Windows Registry HKEY_LOCAL_MACHINE etc etc.

To restrict copying of the Excel application when the program is opened by
the user the Auto_Open routine checks that the registry value (placed in
HKEY_LOCAL_MACHINE) agrees with the "registration" value of the program. If
the two agree then the program will open otherwise the user is notified
accordingly.

My problem is if the system administrator loads the Excel application on the
company's "server" how can I get my program to check the values which are
placed not on the users computer but on the "server machine".

Any assistance would be appreciated/sgl