| |
|
|
| | Поздравляю всех с наступившим Новым годом и наступающим Рождеством! Счастья, здоровья, любви, исполнения желаний!
Снова прошу помощи. Мне нужно запретить вызывать одну форму на всех компьютерах, кроме одного. Думаю при ее открытии проверять сетевое имя компьютера, но не знаю, как можно его получить. | |
| |
| |
| |
|
|
| |
Public Declare Function GetComputerNameA Lib "Kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
' Возвращает имя компьютера в сети
Function GetComputerName() As String
Const MAX_COMUTERNAME = 99
Dim lpBuffer As String * MAX_COMUTERNAME
Dim lenString As Long
On Error GoTo GetComputerName_Error
Call SysCmd(acSysCmdSetStatus, "Osnovnoy -> " & "GetComputerName")
lenString = MAX_COMUTERNAME
Call GetComputerNameA(lpBuffer, lenString)
'GetComputerName = Left$(lpBuffer, lenString)
GetComputerName = StrConv(Left$(lpBuffer, lenString), vbLowerCase)
On Error GoTo 0
Exit Function
GetComputerName_Error:
End Function
|
| |
| |
| |
| |
|
|
| |
Me!Поле = " Пользователь " & GetComputerName()
|
что бы воспользоваться | |
| |
| |
| |
|
|
| | не знай получилося или нет  | |
| |
| |
| |
|
|
| | Большое спасибо! Все получилось. Прошу прощения за задержку с ответом, не было возможности выходить в интернет. | |
| |
| |
|
|
