Como recupero o nome do computador no Access ??

[xxgomesjr]

Como recupero o nome do computador no Access ??

[index.xp]

primeiro... qual versao você esta usando!?!?

segundo: o que você chama de nome!?!? o nome da rede? o nome Proprio da maquina ou serve algum numero que identifique unicamente a maquina!?!?!?

[xxgomesjr]

Estou usando a versao Access 2003. Exato, serve qualquer numero que identifique unicamente a máquina . Obrigado

[Booby McGee]

Cole num módulo:

'Busca o nome do usuário
Function GetNetworkUser() As String
    GetNetworkUser = Environ("USERNAME")
End Function


'Busca o nome do computador
Function GetNetworkComp() As String
    GetNetworkComp = Environ("ComputerName")
End Function

Para chamar coloque no valor padrão do campo:

environ("username") ou

environ("computername")

[xxgomesjr]

Obrigadoooooooooooooooo

[xxgomesjr]

Dá pra recuperar tambem o nro de serie do disco ou da placa-mãe ???

[index.xp]

hummm aí eu acho que nao... a nao ser que você utilize algum terceiro programa... por exemplo o Everest recupera essas informações... e gera relatorios... você pode fazer seu programa ler esses relatorios...

[xxgomesjr]

Um colega passou a funcao que recupera o nro do disco :

Function HDSerialNumber() As String
    Dim fsObj   As Object
    Dim drv     As Object

    Set fsObj = CreateObject("Scripting.FileSystemObject")
    Set drv = fsObj.Drives("C")

    HDSerialNumber = Left(Hex(drv.serialnumber), 4) _
        & "-" & Right(Hex(drv.serialnumber), 4)
End Function