<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; VBA: Список пользователей компьютера]]></title>
	<link rel="self" href="https://forum.script-coding.com/extern.php?action=feed&amp;tid=11006&amp;type=atom" />
	<updated>2015-10-12T16:45:25Z</updated>
	<generator>PunBB</generator>
	<id>https://forum.script-coding.com/viewtopic.php?id=11006</id>
		<entry>
			<title type="html"><![CDATA[Re: VBA: Список пользователей компьютера]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=97978#p97978" />
			<content type="html"><![CDATA[<p>я прислушался к вашему совету и пошел в vbedit, нашел библиотеку примеров), раньше почему то не замечал, и получился вот такой скрипт, а потом понял что Win32_SID ограниченная библиотека, спасибо за примеры, завтра попробую!</p>]]></content>
			<author>
				<name><![CDATA[shade45]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=33296</uri>
			</author>
			<updated>2015-10-12T16:45:25Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=97978#p97978</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBA: Список пользователей компьютера]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=97972#p97972" />
			<content type="html"><![CDATA[<p>Слушать моего совета, видимо, совсем не хотим. Идём в Portable Script Center, набираем в поиске <strong>LastLogon</strong>, попадаем на:<br /><a href="http://biantouo.com/script/network/client/list/nwlsvb07.htm">List Network Login Profiles</a><br />Вдобавок к исходной цели: <a href="http://biantouo.com/script/ds/local/users/lousvb11.htm">List Local User Accounts Using WMI</a></p>]]></content>
			<author>
				<name><![CDATA[Flasher]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=27593</uri>
			</author>
			<updated>2015-10-12T12:02:27Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=97972#p97972</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBA: Список пользователей компьютера]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=97970#p97970" />
			<content type="html"><![CDATA[<p>Нашел вот такой скрипт, выводит то что нужно, подскажите, можно ли добавить к нему на каждый профиль, который он находит в ПК, время последнего входа (LastLogon) из АД или последнего изменения профиля<br /></p><div class="codebox"><pre><code>On Error Resume Next 

Const HKEY_LOCAL_MACHINE = &amp;H80000002

strComputer = &quot;.&quot;
Set objWMIService = GetObject(&quot;winmgmts:\\&quot; &amp; strComputer &amp; &quot;\root\cimv2&quot;) 
Set objRegistry=GetObject(&quot;winmgmts:\\&quot; &amp; strComputer &amp; &quot;\root\default:StdRegProv&quot;)
strKeyPath = &quot;SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList&quot; 
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

For Each strsubkey In arrSubkeys &#039;получаем сиды и берем из АД их учетки
Set objAccount = objWMIService.Get(&quot;Win32_SID.SID=&#039;&quot;&amp;strsubkey&amp;&quot;&#039;&quot;)
LogonUser = LogonUser &amp;  vbLf &amp; objAccount.ReferencedDomainName &amp; &quot; \ &quot; &amp; objAccount.AccountName

Next
msgbox LogonUser</code></pre></div>]]></content>
			<author>
				<name><![CDATA[shade45]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=33296</uri>
			</author>
			<updated>2015-10-12T11:02:31Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=97970#p97970</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: VBA: Список пользователей компьютера]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=97946#p97946" />
			<content type="html"><![CDATA[<p>Непосредственно для активного пользователя эти данные получаются <a href="http://script-coding.com/WSH/WshNetwork.html#2.2.">стандартно</a>.<br />Чтобы собрать информацию о всех пользователях, то применяется WMI либо ADO. Все ответы на подобные вопросы легко находятся средствами поиска в справке Portable Script Center или примерах (Samples) программы VBSEdit.</p>]]></content>
			<author>
				<name><![CDATA[Flasher]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=27593</uri>
			</author>
			<updated>2015-10-08T12:59:58Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=97946#p97946</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[VBA: Список пользователей компьютера]]></title>
			<link rel="alternate" href="https://forum.script-coding.com/viewtopic.php?pid=97945#p97945" />
			<content type="html"><![CDATA[<p>Здравствуйте, дали задачу, получить список доменных пользователей компьютера, возможно ли такое реализовать средствами vb?, данная информацию содержится во вкладке безопасность в папках по пути:</p><p>C:\Documents and Settings\</p><p>По этому пути есть профили залогиненных пользователей, в каждой папке во вкладке Безопасность, есть имя учетки формата: </p><p>Трокин Василий Васильевич TrokinVV (TrokinVV@domainName)</p><p>Можно ли вытащить эту информацию с компьютера, можете посоветовать как решить данную проблему. Есть скрипт собирающий список всех пользователей данного компьютера с &quot;адресом распроложения профиля&quot;. Но он не отображает к какому домену он относится.</p>]]></content>
			<author>
				<name><![CDATA[shade45]]></name>
				<uri>https://forum.script-coding.com/profile.php?id=33296</uri>
			</author>
			<updated>2015-10-08T11:58:51Z</updated>
			<id>https://forum.script-coding.com/viewtopic.php?pid=97945#p97945</id>
		</entry>
</feed>
