Securing a Model

[crimlet]

Is there anyway to secure a XL Model so that It can only be used on a specific machine. e.g. using the network identifer?

[Ivan F Moala]

On 2002-05-14 04:20, crimlet wrote:
Is there anyway to secure a XL Model so that It can only be used on a specific machine. e.g. using the network identifer?

Perhaps something along the lines of testing
for the Network setup for your computer via
the Environ command....

Sub Tester()

Dim sComp As String



sComp = Environ("COMPUTERNAME")

'MsgBox sComp



If sComp <> "The comptername you need" Then

    'Do your thing

End If



End Sub

[crimlet]

Doesn't seem to work, any other ideas?

[Ivan F Moala]

On 2002-05-14 06:02, crimlet wrote:
Doesn't seem to work, any other ideas?

What exactly doesn't work ?
1) What OS are you using
2) Version of Excel
3) What coding did you use

[crimlet]

I'm using windows 98
XL97
and I duplicated the code that shown, but inputing a msg box to display a result

[Ivan F Moala]

On 2002-05-14 06:24, crimlet wrote:
I'm using windows 98
XL97
and I duplicated the code that shown, but inputing a msg box to display a result

Ah...the Environ function will return ""
in Win98.....I assumed you wanted this for
a network situation NT....this is where it
will work in...sorry Return a result.

The Environ const strings avial are;

ALLUSERSPROFILE
APPDATA
CommonProgramFiles
COMPUTERNAME
ComSpec
HOMEDRIVE
HOMEPATH
HOMESHARE
Include
Lib
LOGONSERVER
LOGSERVER
NUMBER_OF_PROCESSORS
OS
Os2LibPath
Path
PATHEXT
PROCESSOR_ARCHITECTURE
PROCESSOR_IDENTIFIER
PROCESSOR_LEVEL
PROCESSOR_REVISION
ProgramFiles
SMSHOME
STARTUPLOG
SYBASE
SystemDrive
SystemRoot
TEMP
TMP
USERDOMAIN
USERNAME
USERPROFILE
windir
_MACH
_TYPE


Not sure if this is the complete list ?
Check out VBA help for Environ function

[Chris Davison]

see if this similar thread by Tom from the old board helps out any

http://www.mrexcel.com/wwwboard/messages/15353.html