ник: osmor
так что все таки нужно? имя компьютера или имя пользователя? в глобальном модуле создаете функцию
[blue]для имени пользователя:[/blue]
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSUserName() As String
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 0 Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = ""
End If
End Function
[blue]или для имени компьютера[/blue]
Private Declare Function apiGetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName() As String
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompName, lngLen)
Else
fOSMachineName = ""
End If
End Function
в форме в свойстве поля "значение по умолчанию" (DefaultValue)
пишите имя вызываемой функции
[blue]для имени пользователя:[/blue]
=fOSUserName()
[blue]для имени компьютера:[/blue]
=fOSMachineName()
ЗЫ. где-то на сайте эти функции есть, но блин тормозит очень, не нашел :-(