[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

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

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