strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
Wscript.Echo objComputer.UserName
Next
Как узнать имя пользователя работающего с Windows?
Как узнать имя пользователя, который в данный момент работает с Windows?
если не ошибаюсь:
GetUserName - для получения имени пользователя(текущего процесса) LookupAccountName - для получения дополнительной информации SID, domain e.t.c
'' объявление функции
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
'' сама функция
Function strGetUserName() As String
Dim lngLen As Long, lngRet As Long
strGetUserName = Space(255)
lngLen = 255
lngRet = GetUserName(strGetUserName, lngLen)
strGetUserName = Left(strGetUserName, lngLen - 1)
End Function
GetUserName - для получения имени пользователя(текущего процесса) LookupAccountName - для получения дополнительной информации SID, domain e.t.c
'' объявление функции
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
'' сама функция
Function strGetUserName() As String
Dim lngLen As Long, lngRet As Long
strGetUserName = Space(255)
lngLen = 255
lngRet = GetUserName(strGetUserName, lngLen)
strGetUserName = Left(strGetUserName, lngLen - 1)
End Function
Цитата:
Originally posted by Lei fang
Как узнать имя пользователя, который в данный момент работает с Windows?
Как узнать имя пользователя, который в данный момент работает с Windows?
Можете также попытаться воспользоваться средствами WMI. Вот пример:
Код:
Спасибо Вам! Попробую и так и так, а дальше как получится