Pytanie : Dlaczego mój VB pismo ograniczać rezultat 1500?

Cześć all-knowing ones!

We use the vb pismo grupa the członkostwo Globalny ochrona grupa. My mieć użytkownik grupa z nad 2000 użytkownik w. Gdy, my wydawać się niezdolny ono bardziej niż 1500 imię, niezależnie od the dwa rewizja parametr położenie. Zadawalać móc ty jeżeli zadawalać być ograniczenie, lub móc my ono?

-----------------------------------------------------------------------------------------------------------------
Set objShell = CreateObject ("Wscript.Shell")
Set objFS = CreateObject ("Scripting.FileSystemObject")

'*** Pytać dla username
strUser = Inputbox ("Zadawalać wchodzić do the imię the Ochrona Grupa ty życzyć list.")

If strUser = "" then
Msgbox "Żadny GroupID wchodzić do! Pismo teraz wychodzić. "
WScript.Quit
End If

'*** Oznajmiać zmienna i constants

Dim con
Dim rs
Dim Com
Dim objDataScript
Const DATA_FOLDER = "C:\Scripts "
Const DATA_SCRIPT = "C:\Scripts\AD Ochrona Grupa Członkostwo results.txt "
GetADUserDetails = 0


'*** Ustawianie CEREGIELE zapytanie the wartość od the cel object.
Set przeciw = CreateObject ("ADODB.Connection")
Set rs = CreateObject ("ADODB.Recordset")
Set Com = CreateObject ("ADODB.Command")

'*** Otwierać Związek object.
con. Dostawca = "ADsDSOObject "
con. Otwarty "Aktywny Adresowy Dostawca"

'*** Tworzyć nakazowy przedmiot dalej ten connection.
Set Com.ActiveConnection = con

'*** Zbierać ADsPath, sAMAccountName i cn szczegół dla cel object
Com.CommandText = "et>; (samAccountName=" & strUser & "); ADsPath, sAMAccountName, cn "

'*** Ustawiać the preferencja dla Search.
Com.Properties ("Strona Rozmiar") = 2000
Com.Properties ("Timeout") = 60

'*** Wykonywać the query.
Set rs = Com.Execute
If rs.RecordCount = (1) Then
strPath = rs. Pole ((0)). Wartość "*** Sklep ścieżka użytkownik account
Else
GetADUserDetails = (1)" *** Użytkownik nie found
End If



If GetADUserDetails = (1) then
Msgbox "Falcówka imię wchodzić do w książka telefoniczna. "
WScript.Quit
Else "*** Użytkownik istnieć więc continue
Jeśli nie objFS.FolderExists (DATA_FOLDER) Wtedy" *** Czek dla skoroszytowy istnienie, jeśli nie znajdować wtedy create
Ustalony objFolder = objFS.CreateFolder (DATA_FOLDER)
Końcówka If

Jeżeli objFS.FileExists (DATA_SCRIPT) Wtedy "*** Kartoteka istnieć więc append informacja it
Na Błąd Życiorys Next
Ustalony objDataScript = objFS.OpenTextFile (DATA_SCRIPT, 8, True)
objDataScript.WriteBlankLines (1)
objDataScript.WriteLine "************************* ********* "
objDataScript.WriteLine "*" & strUser
objDataScript.WriteLine "************************* ********* "
Ustalony objUser = GetObject(strPath)

arrMemberOf = objUser.GetEx ("członek")
Dla Ldap Grupa w arrMemberOf
Ustalony objGroup = GetObject ("LDAP: /" & Grupa)

GroupCN = objGroup.CN
objDataScript.WriteLine "" & GroupCN

Next
objDataScript.Close
MsgBox "Kończyć! "

Else
Ustalony objDataScript = objFS.CreateTextFile (DATA_SCRIPT, True)" *** Kartoteka istnieć więc tworzyć i wtedy pisać it
Na Błąd Życiorys Next
Ustalony objDataScript = objFS.OpenTextFile (DATA_SCRIPT, Prawdziwy)
objDataScript.WriteLine "************************* ********* "
objDataScript.WriteLine "*" & strUser
objDataScript.WriteLine "************************* ********* "
Ustalony objUser = GetObject (strPath)

arrMemberOf = objUser.GetEx ("członek") "*** Dostawać grupa użytkowników membership
Dla Ustalony Grupa w arrMemberOf" *** Pętla przez groups
Ustalony objGroup = GetObject ("LDAP: /" & Grupa)
"*** Czek grupa być dist typ lub cecha ogólna sec group
GroupCN = objGroup.CN" *** Dostawać grupowy name
objDataScript.WriteLine "" & GroupCN "*** Pisać grupowy name
Next
objDataScript.Close
MsgBox "Skończony!"                                          " *** Wskazywać ukończenie process

Końcówka If
End If

-----------------------------------------------------------------------------------------------------------------

Many dzięki. Jakaś pomoc być wielce appreciated.

Odpowiedź : Dlaczego mój VB pismo ograniczać rezultat 1500?

AwesomeMachine => Wyraźnie ty rozumieć the pytanie, che być doskonale jasny.    Narzędzia przyśpieszenie poparcie dla MPEG odszyfrowanie i H.264 odszyfrowanie być cecha całkowicie bezpartyjnik the normalna GPU funkcja… i zawrzeć w wszystkie wideo karta.

narmi2 ==> Tak, ono być ewentualny.    Prawie jakaś nowożytny procesor móc MPEG2 Dvd przy 1080p bez jakaś asysta od the GPU.
   
H.264 (HD zawartość na BluRays i HD Dvd) być rok Rok, ale ono móc także odszyfrowywać bez GPU asysta z nowożytny sedno architektura układ scalony ==> tam  być mnóstwo dyskusja o ten potencjał na the AVSForums gdy the rdzeniować-architektura układ scalony najpierw uwalniać najpierw rok temu.   H.264 wymagać JEDNOSTKA CENTRALNA z the występ poziom E6600 lub lepszy.   E6600 zbliżać się 100% spożytkowanie na wysoki akcja scena, ale móc w pełni H.264 zawartość bez wcale dopóki the komputer używać dla inny activiites podczas the playback.       The E6600 zdobywać punkty właśnie nad 1500 na PassMark's CPUMark, więc jakaś JEDNOSTKA CENTRALNA z PassMark wynik 2000 lub polepszać musieć łatwo sprawnie playback wideo bez narzędzia przyśpieszenie w the GPU.  

Niektóre gracz oprogramowanie pozwolić ty narzędzia przyśpieszenie, che utrzymywać ono od the narzędzia asysta cecha na the GPU (jeżeli teraźniejszość).   Na przykład, PowerDVD mieć checkbox dla "Narzędzia przyśpieszenie" ==> obok default ==> sprawdzać jeżeli twój GPU mieć narzędzia przyśpieszać poparcie, ale ty móc uncheck ono jeżeli ty chcieć the skutek na twój system.
Inne rozwiązania  
 
programming4us programming4us