国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

用vbs確定用戶的登錄名的代碼

2020-06-26 18:08:26
字體:
供稿:網(wǎng)友
問: 
您好,腳本專家!如何確定名為 John Smith 的用戶的用戶登錄名? 

-- FR 

答: 
您好,F(xiàn)R。您知道,我們很愿意告訴您如何確定名為 John Smith 的用戶的用戶登錄名,但是我們不能這樣做:因?yàn)樵谖覀兊哪硞€(gè)樣例腳本中有一個(gè)特定的姓名列表,表示我們只能引用的用戶名。遺憾的是,John Smith 不在該列表中,因此我們不能使用他的名字。 

是的,對此我們也覺得不舒服,但是我們無能為力。但是要告訴您的是:向您介紹一個(gè)確定名為 Ken Myer 的用戶的用戶登錄名的腳本怎么樣?是的,我們知道:確實(shí)不一樣,不是嗎?但我們最多只能做到這樣了: 

On Error Resume Next 

Const ADS_SCOPE_SUBTREE = 2 

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 sAMAccountName FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='user' " & _ 
        "AND givenName='Ken' AND sn='Myer'" 
Set objRecordSet = objCommand.Execute 

objRecordSet.MoveFirst 
Do Until objRecordSet.EOF 
    Wscript.Echo objRecordSet.Fields("sAMAccountName").Value 
    objRecordSet.MoveNext 
Loop 

您可能已經(jīng)發(fā)現(xiàn)了,這是一個(gè)用于搜索 Active Directory 的腳本。我們不打算逐個(gè)解釋此腳本中使用的每一行代碼,那樣會花費(fèi)太多時(shí)間。如果您不熟悉 Active Directory 搜索腳本,建議您看一下我們的兩篇“腳本故事”系列文章 Dude:Where's My Printer? 您在此腳本中看到的所有看起來怪怪的東西 - ADsDSOObject、DS_SCOPE_SUBTREE、ADODB.Command - 在這兩個(gè)專欄中都有詳細(xì)的解釋。 

但是,我們將指出與用于進(jìn)行搜索的查詢有關(guān)的幾件事情。在編寫用于搜索 Active Directory 的腳本時(shí),最難的部分也許就是知道要搜索的屬性名。例如,您提到的用戶登錄名。我們知道用戶登錄名的意思,您也知道用戶登錄名的意思,但是 Active Directory 不知道用戶登錄名是什么。Active Directory 會改為調(diào)用 sAMAccountName。(注意:盡管字母的大小寫無關(guān)緊要,但是我們會將此屬性名寫作 sAMAccountName,僅僅是因?yàn)檫@是該屬性的正式名稱而已。因而,SQL 查詢將檢索指定用戶的 sAMAccountName。 

那么如何指定該用戶呢?嗯,我們要查找符合以下三個(gè)條件的 Active Directory 對象: 

• 是用戶帳戶。為了將返回的數(shù)據(jù)限制為用戶帳戶,我們要搜索 objectCategory 等于 user 的項(xiàng)。 

• 名字為 Ken。當(dāng)然,Active Directory 不知道什么是“名字”。因此,我們需要搜索 givenName 為 Ken 的用戶。 

• 姓氏為 Myer。正如您所料,Active Directory 也從未聽說過“姓氏”一詞。因此,我們需要改為搜索 sn(姓)Myer。 


將以上所有條件加起來,查詢最后將如下所示: 

objCommand.CommandText = _ 
    "SELECT sAMAccountName FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='user' " & _ 
        "AND givenName='Ken' AND sn='Myer'" 

剩下的就很容易了。執(zhí)行此查詢,Active Directory 將返回一個(gè)記錄集,該記錄集由 giveName 為 Ken 且 sn 為 Myer 的所有用戶組成。然后,設(shè)置一個(gè) Do Until 循環(huán)來遍歷該記錄集,并回顯每個(gè)用戶的 sAMAccountName。(理想的情形為,Active Directory 中只有一個(gè) Ken Myer,但是實(shí)際上可能會有多個(gè)同名同姓的用戶。在這種情況下,sAMAccountName 將是一個(gè)區(qū)別因素,因?yàn)?nbsp;sAMAccountNames 必定是唯一的。) 

明白一些了吧?好了,看(不要告訴任何人是我們說的),拿剛才向您介紹的腳本來說,用 John 替換 Ken、用 Smith 替換 Myer,您將得到用于搜索名為 John Smith 的用戶的腳本。但是,這只是您和我們之間的秘密,好嗎?好 
 
發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 峨眉山市| 临朐县| 定边县| 龙门县| 瑞丽市| 奉贤区| 德令哈市| 如皋市| 方正县| 临漳县| 东乌珠穆沁旗| 岢岚县| 都匀市| 台南县| 盐津县| 涡阳县| 永靖县| 青州市| 新宁县| 醴陵市| 蓝田县| 綦江县| 四平市| 古蔺县| 温泉县| 瑞金市| 五家渠市| 丁青县| 滦平县| 南召县| 开阳县| 新龙县| 商河县| 巴里| 乌苏市| 衡阳县| 新巴尔虎左旗| 库车县| 固安县| 竹北市| 绥江县|