how to make a result available to all procedures

[tony.reynolds]

I refer to post http://www.mrexcel.com/forum/showthread.php?t=550350 where I then wrote this simple code the produce the machine serialnumber

 Const sKey As String = "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName"
  
  MsgBox QueryValue(sKey, HKEY_LOCAL_MACHINE, "ComputerName")

I would like the function to refer to to the serial number to return the name of the licenced user or if the serial number is not in the list of users it returns "Not Licensed"

So

Function MachineReigistration()
 
LicencedTo = "Not Licensed"
If SerialNumber = "MCA074075" Then LicensedTo = "Tony"
If SerialNumber = "MCA069595" Then LicensedTo = "Ellen"
If SerialNumber = "MCA073878" Then LicensedTo = "Estelle"
If SerialNumber = "MCA026058" Then LicensedTo = "Leonie"
If SerialNumber = "MCA026062" Then LicensedTo = "Doug"
 
End Function

So in any code within the Project we can check..

Sub TestMachineRegistration()
 
If LicensedTo = "Not Licensed" then Exit Sub
 
'Procedure here if all ok
 
MsgBox LicensedTo
 
End Sub

Can someone help me do this

 

[Sektor]

Public LicencedTo = "Not Licensed"

Function MachineReigistration()
    Select Case SerialNumber
        Case "MCA074075": LicensedTo = "Tony"
        Case "MCA069595": LicensedTo = "Ellen"
        Case "MCA073878": LicensedTo = "Estelle"
        Case "MCA026058": LicensedTo = "Leonie"
        Case "MCA026062": LicensedTo = "Doug"
    End Select
End Function

 

[tony.reynolds]

Public LicencedTo = "Not Licensed"
 
Function MachineReigistration()
    Select Case SerialNumber
        Case "MCA074075": LicensedTo = "Tony"
        Case "MCA069595": LicensedTo = "Ellen"
        Case "MCA073878": LicensedTo = "Estelle"
        Case "MCA026058": LicensedTo = "Leonie"
        Case "MCA026062": LicensedTo = "Doug"
    End Select
End Function

Sorry you've lost me

Can you show me how to call that function in a procedure?

Sub Test()

msgbox LicensedTo

End Sub

 

[Sektor]

Public LicensedTo As String

Sub TestMachineRegistration()
 
    LicensedTo = GetMachineReigistration
    
    If LicensedTo = vbNullString Then Exit Sub
     
    'Procedure here if all ok
    MsgBox LicensedTo
 
End Sub

Function GetMachineReigistration() As String
    
    ' Your code...
    
    Select Case SerialNumber
        Case "MCA074075": MachineReigistration = "Tony"
        Case "MCA069595": MachineReigistration = "Ellen"
        Case "MCA073878": MachineReigistration = "Estelle"
        Case "MCA026058": MachineReigistration = "Leonie"
        Case "MCA026062": MachineReigistration = "Doug"
    End Select

End Function

 

[tony.reynolds]

Thanks very much all done

 

[Sektor]

Oops, didn't make one change:

Function GetMachineReigistration() As String
    
    ' Your code...
    
    Select Case SerialNumber
        Case "MCA074075": [B]GetMachineReigistration[/B] = "Tony"
        Case "MCA069595": [B]GetMachineReigistration[/B] = "Ellen"
        Case "MCA073878": [B]GetMachineReigistration[/B] = "Estelle"
        Case "MCA026058": [B]GetMachineReigistration[/B] = "Leonie"
        Case "MCA026062": [B]GetMachineReigistration[/B] = "Doug"
    End Select

End Function

 

[tony.reynolds]

Yeh I worked that out!

Thanks.