Fråga : Why äger rum min VB skrivar begränsande resultat till 1500?

Hi all-knowing! bruk för

We vben skrivar nedanfört till extraktet medlemskap av en global säkerhetsgrupp. Vi har några grupper med över 2000 användare i dem. När vi används, vi verkar oförmögna för att få det för att ge oss mer, än 1500 namnger, utan hänsyn till de två sökandeparameterinställningarna. Behar kunde du råda, om denna är en begränsning, eller kan oss fixa den?

-----------------------------------------------------------------------------------------------------------------objShell för
Set = objFS för CreateObject (”Wscript.Shell”)
Set = CreateObject (”Scripting.FileSystemObject”)

'*** frågar för username
strUser = Inputbox (”behaga skriver in det känt av säkerhetsgruppen som du önskar att lista. ”) strUser för

If = "" then
Msgbox ”ingen skriven in GroupID! Skriva ska nu går ut. ”
WScript.Quit
End If

'*** förklarar att variabler och objDataScript
Const för rs
Dim Com
Dim för con
Dim för constants

Dim DATA_FOLDER = ”C:\Scripts " DATA_SCRIPT = ”results.txt för medlemskap för den C:\Scripts\AD säkerhetsgruppen "
GetADUserDetails = 0


'*** ställer in en ADOquery för att få värderar från uppsätta som mål object.
Set lurar = rs för CreateObject (”ADODB.Connection”)
Set = CreateObject (”ADODB.Recordset”)
Set

'*** för Com = CreateObject
Const (”ADODB.Command”) öppnar en anslutning object.
con. Familjeförsörjare = ”ADsDSOObject "
con. Öppen

'*** ”för aktivarkivfamiljeförsörjaren” skapar en befalla anmärker på denna connection.
Set Com.ActiveConnection = con

'*** mot efterkrav ADsPath, sAMAccountName och cn specificerar för uppsätta som mål object
Com.CommandText = ”et>; (samAccountName=” & strUser &”); ADsPath sAMAccountName, för cn " för

'*** preferenserna för Search.
Com.Properties (”sidan storleksanpassar”), =

'*** för 2000
Com.Properties uppsättningen (”frånslagningstid”) = utför rsna = Com.ExecuteIf för query.
Set rs.RecordCount = 1 Then
strPath = rs. Sätter in (0). Värdera ”*** lagerbanan till användareaccount
Else
GetADUserDetails = 1” found
End If



If GetADUserDetails för *** användaren inte = 1 then
som Msgbox ”skrivs in inte funnit i arkiv. *** kontrollen ”för
WScript.Quit
Else ”*** användaren finns så continue
om inte objFS.FolderExists (DATA_FOLDER) därefter” för mappexistens, om inte funnen därefter fastställd objFolder för create
=
för objFS.CreateFolder (DATA_FOLDER) avslutar If

, om objFS.FileExists (DATA_SCRIPT) därefter ”*** sparar finns, så fästar information till it
på felmeritförteckningNext
fastställd objDataScript =
objDataScript.WriteLine ”*” & för ************************* för strUser
objDataScript.WriteLine uppsättning för ********* ”för för ************************* för
objDataScript.WriteLine ”för
objDataScript.WriteBlankLines för objFS.OpenTextFile (DATA_SCRIPT, 8, True) (1) för
”för ********* ” objUser = arrMemberOf för GetObject (strPath)

=
för objUser.GetEx (”medlem”) för varje grupp i fastställd objGroup för arrMemberOf
= GetObject (”LDAP: /” & för
för grupp)
GroupCN = "" för objGroup.CN
objDataScript.WriteLine & GroupCN

Next
objDataScript.Close
MsgBox ”avslutade sig! ”fastställd objDataScript för

Else
= *** ”för medlem” för objFS.CreateTextFile (DATA_SCRIPT, True)” *** inte sparar, finns, så därefter skapa och skriv till it
på som felmeritförteckningNext
för ************************* för/> fastställd/>
RIPT som, är riktig)
objDataScript.WriteLine ”*” & strUser
objDataScript.WriteLine ”för ************************* för för ********* ”fastställd objUser för
= arrMemberOf för GetObject (strPath)

= objUser.GetEx () ”får användare gruppen membership
för varje grupp i arrMemberOf” *** kretsar till och med fastställd objGroup för groups
= GetObject (”LDAP: /” & gruppen) för *** kontroll för
”gruppen är disttyp, eller *** för för universalsekundgroup
GroupCN = objGroup.CN” *** får "" för gruppname
objDataScript.WriteLine, & GroupCN ”skriver gruppname
Next
objDataScript.Close
färdiga MsgBox ”!”,                                          ” *** Indikerar att avslutning av
för process
avslutar If
End If

-----------------------------------------------------------------------------------------------------------------tack för

Many. Någon ska hjälp är hugely appreciated.
" klar "

Svar : Why äger rum min VB skrivar begränsande resultat till 1500?

AwesomeMachine => klart du förstår inte ifrågasätta, som är perfekt klar.    Maskinvaruaccelerationsservice för MPEG-avkodning och avkodning H.264 är vilden för särdrag av det normala GPU fungerar… och är fullständigt inte inklusive sammanlagt videokort.

==> narmi2 ja, det är möjligheten.    Nästan någon modern processor kan avkoda MPEG2 DVDs på 1080p utan någon hjälp från GPUEN.
   
H.264 (HD som är nöjd på BluRays, och HD DVDs) är även mer cPU-intensive, men det kan också avkodas utan GPU-hjälp med modernt kärnar ur arkitektur gå i flisor ==> där var en kapacitet för raddadiskussion härom på AVSForumsen, när kärna ur-arkitekturen gå i flisor var först utsläppt några år sedan.   H.264 kräver en CPU med kapaciteten som är jämn av en E6600 eller, förbättrar.   En ska E6600 att närma sig utilization 100% på kickhandlingplatser, men kan fullständigt avkoda H.264 som är nöjd, utan any att stamma, så länge som datoren inte används för andra activiites under playbacken.       E6600en görar poäng drygt 1500 på PassMarks CPUMark, så något CPU med en PassMark ställning av 2000 eller bättre bör lätt vara kompetent till playbackvideoen utan maskinvaruacceleration i GPUEN.  

Någon spelareprogramvara låter dig inaktivera maskinvaruacceleration, som ska uppehället som, den från att använda maskinvaran avkoda hjälpsärdrag på GPUEN (om gåva).   Till exempel PowerDVD har en checkbox för ”att möjliggöra maskinvaruaccelerations” ==> standardinställer by ska detta kontrolleras, om din GPU har maskinvara accelererad service, men du kan uncheck det, om du önskar att se verkställa på ditt system.
Andra lösningar  
 
programming4us programming4us