Martini
|
PAROBÉ
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 17/03/2006 12:11 hs
'Windows API's - pega o nome da estação
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public strNomeEstacao As String 'Nome da estação de trabalho
Dim lngI As Long 'variavel de retorno
Dim strP As String * 50
Dim intI As Integer 'variavel para controle do laço FOR
strNomeArquivoIni = App.Path & "GeradorRelatorio.ini" 'Nome do arquivo INI da aplicação (com caminho)
lngI = GetComputerName(strP$, Len(strP$)) 'Tenta pegar o nome da estação
If lngI > 0 Then 'Ok! pega o mome da estação
strNomeEstacao$ = Left$(strP$, InStr(strP$ + Chr$(0), Chr$(0)) - 1)
Else 'O windows não sabe quem é!!!
strNomeEstacao$ = ""
End If
If Len(strNomeEstacao$) = 0 Then 'ainda não tem o nome da estação
If Len(strNomeEstacao$) = 0 Then 'se não conseguiu
If strNomeEstacao$ = "" Then 'não informou a estação...
End 'então não pode entrar no sistema.
End If
End If
End If
strNomeEstacao$ = strNomeEstacao$ + " - " 'prepara variável para grupo no .INI
|
|
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/03/2006 12:11 hs
'Windows API's - pega o nome da estação
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public strNomeEstacao As String 'Nome da estação de trabalho
Dim lngI As Long 'variavel de retorno
Dim strP As String * 50
Dim intI As Integer 'variavel para controle do laço FOR
strNomeArquivoIni = App.Path & "GeradorRelatorio.ini" 'Nome do arquivo INI da aplicação (com caminho)
lngI = GetComputerName(strP$, Len(strP$)) 'Tenta pegar o nome da estação
If lngI > 0 Then 'Ok! pega o mome da estação
strNomeEstacao$ = Left$(strP$, InStr(strP$ + Chr$(0), Chr$(0)) - 1)
Else 'O windows não sabe quem é!!!
strNomeEstacao$ = ""
End If
If Len(strNomeEstacao$) = 0 Then 'ainda não tem o nome da estação
If Len(strNomeEstacao$) = 0 Then 'se não conseguiu
If strNomeEstacao$ = "" Then 'não informou a estação...
End 'então não pode entrar no sistema.
End If
End If
End If
strNomeEstacao$ = strNomeEstacao$ + " - " 'prepara variável para grupo no .INI
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/03/2006 12:11 hs
'Windows API's - pega o nome da estação
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public strNomeEstacao As String 'Nome da estação de trabalho
Dim lngI As Long 'variavel de retorno
Dim strP As String * 50
Dim intI As Integer 'variavel para controle do laço FOR
strNomeArquivoIni = App.Path & "GeradorRelatorio.ini" 'Nome do arquivo INI da aplicação (com caminho)
lngI = GetComputerName(strP$, Len(strP$)) 'Tenta pegar o nome da estação
If lngI > 0 Then 'Ok! pega o mome da estação
strNomeEstacao$ = Left$(strP$, InStr(strP$ + Chr$(0), Chr$(0)) - 1)
Else 'O windows não sabe quem é!!!
strNomeEstacao$ = ""
End If
If Len(strNomeEstacao$) = 0 Then 'ainda não tem o nome da estação
If Len(strNomeEstacao$) = 0 Then 'se não conseguiu
If strNomeEstacao$ = "" Then 'não informou a estação...
End 'então não pode entrar no sistema.
End If
End If
End If
strNomeEstacao$ = strNomeEstacao$ + " - " 'prepara variável para grupo no .INI
|
|
|
|
|
|
Postada em 17/03/2006 13:01 hs
sem api: variavel = Environ("COMPUTERNAME") t+ |
|
|
|
|
|
Postada em 17/03/2006 13:14 hs
ghost_jlp meus parabens , muito bom. |
|
|
|
Luz
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/03/2006 13:33 hs
Pessoal Pode-se obter usando "Winsock1.LocalHostName" do componente Winsock. |
|
|
|
