Question : Pourquoi mon manuscrit de VB limite-t-il des résultats à 1500 ?

Salut les all-knowing ! utilisation du

We le manuscrit de vb ci-dessous d'extraire l'adhésion d'un groupe de sécurité global. Nous avons quelques groupes avec plus de 2000 utilisateurs dans eux. Une fois utilisés, nous semblons incapables de l'obtenir pour nous donner plus de 1500 noms, indépendamment des deux arrangements de paramètre de recherche. Est-ce que pourriez-vous vous veuillez conseiller si c'est une limitation, ou pouvez nous la fixer ?

-----------------------------------------------------------------------------------------------------------------l'objShell du
Set = objFS du
Set de CreateObject (« Wscript.Shell ») =

'*** de CreateObject (« Scripting.FileSystemObject ») demandent l'username
strUser = Inputbox (« écrire svp le nom du groupe de sécurité que vous souhaitez au strUser = au then
Msgbox de list.")

If de "" « aucune identification du groupe écrite ! Le manuscrit sortira maintenant. le « 
WScript.Quit
End If

'*** déclarent que les variables et l'objDataScript
Const du rs
Dim Com
Dim du con
Dim du constants

Dim DATA_FOLDER = « de C:\Scripts " DATA_SCRIPT = « 
GetADUserDetails = 0


'*** ont installé une question d'AGITATION pour obtenir les valeurs des rs d'escroquerie de la cible object.
Set = de
Set de CreateObject (« ADODB.Connection ») = du
Set de CreateObject (« ADODB.Recordset ») le

'*** de COM = de CreateObject le
Const (« d'ADODB.Command ») ouvrent un raccordement object.
con. Fournisseur =
con de « ADsDSOObject ". Le

'*** « de fournisseur actif d'annuaire » créent un objet de commande dessus ce connection.
Set Com.ActiveConnection = con

'*** rassemble ADsPath, sAMAccountName et détails de NC pour l'object
Com.CommandText = « et> ; (samAccountName= » et strUser et ") ; ADsPath, le sAMAccountName, du cn "/>
'*** a placé les préférences pour Search.
Com.Properties le
Com.Properties () = 60 que le

'*** exécutent les rs = le Com.Execute
If de query.
Set rs.RecordCount = 1 strPath = rs de Then
. Champs (0). Chemin de magasin de *** de valeur le « à l'account
Else
GetADUserDetails d'utilisateurs = 1 » le found
End If



If GetADUserDetails d'utilisateur de *** pas = 1 then
Msgbox « est entré non trouvé dans l'annuaire. du « 
WScript.Quit
Else « l'utilisateur de *** existe ainsi le continue
sinon objFS.FolderExists (DATA_FOLDER) puis » de *** contrôle pour l'existence de chemise, sinon alors trouvés l'objFolder du create
= le
d'If
de fin du
d'objFS.CreateFolder (DATA_FOLDER) si d'objFS.FileExists (DATA_SCRIPT) alors « le dossier de *** existe ainsi appose l'information à l'it
sur l'objDataScript réglé de Next
de résumé d'erreur = l'objFS.OpenTextFile (DATA_SCRIPT, 8,
objDataScript.WriteLine « * » et « objUser de
de ********* de de ************************* « de strUser
objDataScript.WriteLine =
de ************************* de True)
objDataScript.WriteBlankLines (1)
objDataScript.WriteLine « de GetObject (strPath) arrMemberOf de/>
=
d'objUser.GetEx (« membre ») pour chaque groupe dans l'objGroup réglé de l'arrMemberOf
= le GetObject (« LDAP : / » et le
GroupCN du
de groupe) = le "" d'objGroup.CN
objDataScript.WriteLine et le
Next
objDataScript.Close
MsgBox de GroupCN
« ont fini ! « objDataScript réglé du
Else
du
= objFS.CreateTextFile (DATA_SCRIPT, de True) » dossier de *** n'existe pas ainsi créer et puis écrire à l'it
sur/>
de résumé d'erreur = (DATA_SCRIPT, vrai) objDataScript.WriteLine « de ************************* du du ********* « le
objDataScript.WriteLine « * » et strUser
de ************************* du du ********* « l'objUser du
arrMemberOf = du

de GetObject (strPath) = objUser.GetEx (*** de « membre ») « obtiennent le membership
de Groupe d'utilisateurs pour chaque groupe dans l'arrMemberOf » boucle de *** par l'objGroup réglé du groups
= le GetObject (« LDAP : / » et le groupe) groupe de contrôle de *** de
« est le type de dist ou *** universel du group
GroupCN = de l'objGroup.CN le le » *** obtiennent le "" du name
objDataScript.WriteLine de groupe et GroupCN « de sec écrivent le name
Next
objDataScript.Close
MsgBox de groupe « de finition ! »                                          Le » *** indiquent l'accomplissement de l'extrémité If
End If

du
du process
-----------------------------------------------------------------------------------------------------------------mercis du

Many. N'importe quelle aide sera énormement appreciated.
class= de

Réponse : Pourquoi mon manuscrit de VB limite-t-il des résultats à 1500 ?

=> d'AwesomeMachine clairement vous ne comprenez pas la question, qui est parfaitement claire.    Le soutien d'accélération de matériel du décodage de MPEG et le décodage H.264 sont indépendant de dispositifs complètement du GPU normal fonctionne… et n'est pas inclus dans toutes les cartes vidéo.

le ==> narmi2 oui, il est possible.    Presque n'importe quel processeur moderne peut décoder MPEG2 DVDs à 1080p sans n'importe quelle aide du GPU.
   
H.264 (contenu de HD sur BluRays et HD DVDs) est bien plus CPU-intensive, mais lui peut également être décodé sans aide de GPU avec les morceaux modernes d'architecture de noyau que le ==> là était beaucoup de discussion au sujet de ces possibilités sur l'AVSForums quand les morceaux de noyau-architecture ont été la première fois libérés il y a quelques années.   H.264 exige une unité centrale de traitement avec le niveau des performances d'un E6600 ou meilleur.   Un E6600 approchera l'utilisation 100% sur des scènes élevées d'action, mais peut entièrement décoder le contenu H.264 sans bégayer tant que l'ordinateur n'est pas utilisé pour d'autres activiites pendant le playback.       Les points E6600 juste plus de 1500 sur CPUMark de PassMark, ainsi n'importe quelle unité centrale de traitement avec des points de PassMark de 2000 ou améliorent devraient facilement pouvoir en mesure à la vidéo de playback sans accélération de matériel dans le GPU.  

Du logiciel de joueur te permet de désactiver l'accélération de matériel, qui le gardera d'utiliser le matériel pour décoder des dispositifs d'aide sur le GPU (si présent).   Par exemple, PowerDVD fait permettre un checkbox pour le ==> « de matériel accélération » transfèrent près ceci sera vérifié si votre GPU a l'appui accéléré par matériel, mais vous pouvez uncheck il si vous voulez voir l'effet sur votre système.