[amel27]

philippov

Вариант 1: использовать специальный софт типа Sysinternals BgInfo.
Вариант 2: переименовать иконку "Мой компьютер" в "Пользователь на Компьютере"

[dimich22]

Ага, только вот по здравом размышлении я пришел к выводу, что переименовывать иконку "Мой компьютер" совсем не нужно, иначе пользователь ее вообще на найдет, да и вы объяснить уже не сумеете - уже проверено. В общем, одни проблемы. Проще батник всем или на общий ресурс скопировать, который выдает имя компьютера и ip-адрес. Или на каждый компьютер наклеить бумажку с именем и адресом))

[Butunin Klim]

dimich22, philippov,
Я широко использую для этого SMS очнь удобно достаточно спросить фамилию сотрудника, хотя это он и сам говорит, а вычеслить машину уже не составит труда очень помогает...
пример в файле
amel27, Есть одно "но" Если у пользователя всесь стол забит ярлыками то тогда есть проблемы с пониманием то же под ярлыками.

[dimich22]

Butunin Klim, ну, об SMS мы не говорили. Это все-таки очень специфично, хотя на предыдущем месте работы у меня он был и также активно использовался. А уж если еще обои пользователям поменять, так они вообще сожрут))

[philippov]

В общем, одни проблемы. Проще батник всем или на общий ресурс скопировать, который выдает имя компьютера и ip-адрес.

Наверно так и будет. У каждого на столе иконка под названием "КТО Я?", ядовито-оранжевого цвета, кликаешь, а там все твои данные.

Вообще-то хотелось что-то похожее на Sysinternals BgInfo, только чтобы эта информация была поверх всех элементов рабочего стола, ну как есть на ноутбуках при нажатии спец.кнопок, типа "CAPS LOCK: ON"

[farlow]

Вариант 1: использовать специальный софт типа Sysinternals BgInfo.

классная софтина
токо вопрос, как можно вытащить номер телефона текущего юзера

и номера телефонов+название_групп из определенного контейнера

[dim-soft]

а можно инфу добавить в то место где винда пишет что она бета или не лицензионная ?

[amel27]

как можно вытащить номер телефона текущего юзера

VBS-скрипт специально для BgInfo:

Код:

On Error Resume Next
Set objWSH = CreateObject("WScript.Shell")
Echo getTelephone(objWSH.ExpandEnvironmentStrings("%USERNAME%"))

Function getTelephone(userName)
    Set oUser = GetObject("LDAP://" & getUserDN(userName))
    getTelephone = oUser.TelephoneNumber
End Function

Function getUserDN (userName)
	Const ADS_SCOPE_SUBTREE = 10
	Set objConnection = CreateObject("ADODB.Connection")
	Set objCommand = CreateObject("ADODB.Command")
	objConnection.Provider = "ADsDSOObject"
	objConnection.Open "Active Directory Provider"
	Set objCommand.ActiveConnection = objConnection
	objCommand.Properties("Page Size") = 1000
	objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
	objCommand.CommandText = "SELECT distinguishedName " & _
		"FROM 'LDAP://" & getDomainDN & "' " & _
		"WHERE objectCategory='user' AND sAMAccountName='" & userName & "'"
	Set objRecordSet = objCommand.Execute
	objRecordSet.MoveFirst
	Do Until objRecordSet.EOF
		ans = objRecordSet.Fields("distinguishedName").Value
		objRecordSet.MoveNext
	Loop
	getUserDN = ans
End Function

Function getDomainDN
	DCs = Split(objWSH.ExpandEnvironmentStrings("%USERDNSDOMAIN%"), ".")
	For Each DC in DCs
		DCString = DCString & "dc=" & DC & ","
	Next
	getDomainDN=Left(DCString, Len(DCString)-1)
End Function

и номера телефонов+название_групп из определенного контейнера

куда, на рабочий стол?

[farlow]

куда, на рабочий стол? >>>

да, у мекня такая дурная задумка...
у меня есть группы пользователей,
_Бухгалтерия
_Юристы
и т.д.
там в описание групп я хочу вписать номера внутренних телефонов (группы разбиты по кабинетам, и хранятся в отдельном контейнере)

так вт в идеале хотелось бы вывести из этого контейнера все названия групп и их номера телефонов
это было бы очень удобно, тем более уц нас новая атс и никто не знает как позвонить соседям