Script i Access?

mener du noget som det her:
http://www.mvps.org/access/api/api0009.htm

Nedenstående function skal oprettes i et module og returer computernavnet på
PC - kan kaldes overalt i access databasen når den lægges i et module.

Jeg ved ikke om det var det du  mente ?


Public Function Getcomputername()

Dim EnvString, Indx, Msg, PathLen    ' Declare variables.
Msg = ""
Indx = 1    ' Initialize index to 1.
Do
    EnvString = Environ(Indx)    ' Get environment
                ' variable.
   
    If Left(EnvString, 13) = "COMPUTERNAME=" Then    ' Check PATH entry.
       
        Msg = Right(EnvString, Len(EnvString) - 13)
        GoTo Getcomputername_exit
    End If    ' so increment.
    Indx = Indx + 1    ' Not PATH entry,
Loop Until EnvString = ""
Getcomputername_exit:
Getcomputername = Msg
End Function

Eller kort fortalt

Environ("COMPUTERNAME") returnerer computerens navn.


Der er 30 forskellige ting der kan hentes ud med Environ.

1 ALLUSERSPROFILE
2 APPDATA
3 CLIENTNAME
4 CommonProgramFiles
5 COMPUTERNAME
6 ComSpec
7 FP_NO_HOST_CHECK
8 HOMEDRIVE
9 HOMEPATH
10 LOGONSERVER
11 NUMBER_OF_PROCESSORS
12 OS
13 Path
14 PATHEXT
15 PROCESSOR_ARCHITECTURE
16 PROCESSOR_IDENTIFIER
17 PROCESSOR_LEVEL
18 PROCESSOR_REVISION
19 ProgramFiles
20 SESSIONNAME
21 SystemDrive
22 SystemRoot
23 TEMP
24 TMP
25 USERDOMAIN
26 USERNAME
27 USERPROFILE
28 VS80COMNTOOLS
29 WecVersionForRosebud.CB4
30 windir

Du kan bruge følgende til at finde oplysningerne frem.

Sub GetEnvironData()
  Dim i As Long
  For i = 1 To 30
    Debug.Print i & " " & Environ(i)
  Next i
End Sub

Du kan så selv vælge om du skriver

Environ(5)

Eller

Environ("ComputerName")

Tak for svarene, alle,
Det blev jensriis' svar der viste sig nyttigt.

Jan