YNY
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору const ADS_SCOPE_SUBTREE = 2 ' или 0 если не интересны вложенные ОУ Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" '7 Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText = _ "Select * from 'LDAP://DC=Myh,DC=local' " _ & "Where objectClass='User' and objectCategory='person'" 'objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set rs = objCommand.Execute rs.MoveFirst '18 Do Until rs.EOF 'msgbox ChkLAcc(rs.Fields(0).Value) 'тока для не встроенных и локальных будем создавать папки if Not ChkLAcc(rs.Fields(0).Value) then Set objUser1 = GetObject(rs.Fields(0).Value) 'файл может/должен быть на шаре CrF "c:\",objUser1.Get("Name") Set objUser1= Nothing end if rs.MoveNext Loop 'чекаем локальные и встроенные аккаунты Function ChkLAcc(FDQNAccName) const LAC0="IUSR_" const LAC1="IWAM_" const LAC2="SUPPORT_" const LAC3="krbtgt" on error resume next ChkLAcc=False Set objUser = GetObject(FDQNAccName) if IsNull(objUser.Get("Description")) then exit function if instr(objUser.Get("Description"),"Встроенная")_ OR instr(objUser.Get("Name"),LAC0)_ OR instr(objUser.Get("Name"),LAC1)_ OR instr(objUser.Get("Name"),LAC2)_ OR instr(objUser.Get("Name"),LAC3) then ChkLAcc=true Set objUser = Nothing exit function end if End Function 'создаем файл если еще не существует в указанном месте с нужным именем Function CrF(FullPath,FName) msgbox FullPath&"-}-"&FName Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then Set f = fso.OpenTextFile(FullPath&"ListLocAcc.txt", ForAppending, True) else Set f = fso.OpenTextFile(FullPath&"ListLocAcc.txt", ForWriting, True) end if f.WriteLine FName f.Close Set fso = Nothing End Function | Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 16:27 13-02-2011 | Исправлено: YNY, 10:24 15-02-2011 |
|