Hosted by uCoz
Определение имени пользователя и ПК
 
   [Объявите API функции]
   FUNCTION long GetComputerNameA(ref string ComputerName, ref ulong BufferLength) 
     LIBRARY "KERNEL32.DLL"
   FUNCTION long GetUserNameA(ref string UserName, ref ulong BufferLength) 
     LIBRARY "ADVAPI32.DLL"
 
   [PB Script]
   
   long ll_ret
   string ls_ComputerName, ls_UserName
   ulong BufferLength = 250

   ls_ComputerName = Space(BufferLength)
   ls_UserName     = Space(BufferLength)

   ll_ret = GetComputerNameA(ls_ComputerName, BufferLength)
   ll_ret = GetuserNameA(ls_UserName, BufferLength)