Код:

Set WshNetwork = CreateObject("WScript.Network")
strUserNTName = WshNetwork.UserName
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
Wscript.Echo strDNSDomain
Set objTrans = CreateObject("NameTranslate")
objTrans.Init 3, ""
objTrans.Set 1, strDNSDomain
strNetBIOSDomain = objTrans.Get(3)
strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1)
objTrans.Set 3, strNetBIOSDomain & "\" & strUserNTName
strUserDN = objTrans.Get(1)
Set objUser = GetObject("LDAP://" & strUserDN)
Set objOU = GetObject(objUser.Parent)
'Select Case Mid(objOU.Name, 4)
'Case "Admins"
'Wscript.Echo "objUser " & objUser ' вместо этого напишешь маппинг диска и прочее
'Case "SimpleUsers"
'Wscript.Echo "Hoho" ' аналогично
'End Select

 '   Set objADSystemInfo = CreateObject("ADSystemInfo")

 '   strUserDN = objADSystemInfo.UserName

 '   Wscript.Echo "метод 1: " & strUserDN
	
 '	'Code Snippet

strUserName = "hs"
dtStart = TimeValue(Now())
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
 
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
    "<LDAP://dc=rkb,dc=local>;(&(objectCategory=User)" & _
         "(samAccountName=" & strUserName & "));distinguishedName;subtree"
Set objRecordSet = objCommand.Execute
If objRecordset.RecordCount = 0 Then
    WScript.Echo "sAMAccountName: " & strUserName & " does not exist."
Else
    WScript.Echo "|" & objRecordSet.Fields("distinguishedName") & "|"
	DNuser="LDAP://" & objRecordSet.Fields("distinguishedName")
	Set objUsers = GetObject (""& DNuser & "")
	objUsers.Put "Mobile", "9146556555"
	objUsers.SetInfo
End If

objConnection.Close