Vraag : Waarom beperkt mijn manuscript VB resultaten tot 1500?

Hallo alle-kent degenen!

We gebruikt hieronder het vbmanuscript om het lidmaatschap van een Globale veiligheidsgroep te halen. Wij hebben een paar groepen met meer dan 2000 gebruikers in hen. Wanneer gebruikt, schijnen wij onbekwaam om het ertoe te brengen om ons meer dan 1500 namen, ongeacht de twee montages van de onderzoeksparameter te geven. Gelieve te kunnen u als dit een beperking adviseren is, of kunt wij het bevestigen?


Set objShell = CreateObject („Wscript.Shell“)
Set objFS = CreateObject („Scripting.FileSystemObject“)

'*** vraagt om username
strUser = Inputbox („te gaan gelieve de naam van de Groep van de Veiligheid in u wenst een lijst te maken van. “)

If strUser = "" then
Msgbox „Geen ingegane GroupID! Het manuscript zal nu weggaan. „
WScript.Quit
End If

'*** verklaart variabelen en constants

Dim con
Dim rs
Dim Com
Dim objDataScript
Const DATA_FOLDER = „C:\Scripts "
Const DATA_SCRIPT = „C:\Scripts\AD het Lidmaatschap van de Groep van de Veiligheid results.txt "
GetADUserDetails = 0

'*** een vraag van de DRUKTE om de waarden van het doel object.
Set te krijgen = CreateObject („ADODB.Connection“)
Set rs = CreateObject („ADODB.Recordset“)
Set Com = CreateObject („ADODB.Command“)

'*** openen een Verbinding object.
con. Leverancier = „ADsDSOObject "
con. De open „Leverancier“

'*** Actieve van de Folder cre�ërt een bevelvoorwerp dit connection.
Set Com.ActiveConnection = con

'*** verzamelt ADsPath, sAMAccountName en cn details voor doel object
Com.CommandText = „et>; (samAccountName=“ & strUser &“); ADsPath, sAMAccountName, cn "

'*** plaatste de voorkeur voor Search.
Com.Properties („de Grootte van de Pagina“) = 2000
Com.Properties („Onderbreking“) = 60

'*** uitvoert query.
Set rs = Com.Execute
If rs.RecordCount = 1 Then
strPath = rs. Gebieden (0). De weg van de Opslag van de waarde „*** aan gebruikers account
Else
GetADUserDetails = 1“ *** Gebruiker niet found
End If



If GetADUserDetails = 1 naam van de Omslag van then
Msgbox „ging gevonden niet in folder binnen. „
WScript.Quit
Else „*** Gebruiker er bestaat zo continue
als niet objFS.FolderExists (DATA_FOLDER) Dan“ Controle *** voor omslagbestaan, als niet gevonden dan create
objFolder = (DATA_FOLDER)
Eind objFS.CreateFolder If

plaatste als objFS.FileExists (DATA_SCRIPT) Dan „er bestaat ***- Dossier toevoegt zo informatie aan it
over Fout hervat Geplaatste Next
objDataScript objDataScript.WriteLine ********* „
RIPT, 8, True)
objDataScript.WriteBlankLi objDataScript.WriteLine/>nes (1)
„*“ & strUser
Geplaatste objDataScript.WriteLine „************************* ********* „
objUser = GetObject(strPath)

arrMemberOf = objUser.GetEx („lid“)
voor Elke Groep in arrMemberOf
plaatste objGroup = GetObject („LDAP: /“ & Groep)

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

Next
objDataScript.Close
Gebeëindigde MsgBox „! „

Geplaatste Else
objDataScript = objFS.CreateTextFile (DATA_SCRIPT, True)“ ***- Dossier bestaat niet zo cre�ërt en dan schrijft aan it
op Fout hervat Geplaatste Next
objDataScript = objFS.OpenTextFile (Ware DATA_SCRIPT,)
objDataScript.WriteLine „*************************/> objDataScript.WriteLine ********* „
Geplaatste objDataScript.WriteLine „************************* ********* „
objUser = GetObject (strPath)

arrMemberOf = objUser.GetEx („lid“) „*** krijgen gebruikersgroep membership
voor Elke Groep in arrMemberOf“ *** Lijn door Geplaatste groups
objGroup = GetObject („LDAP: /“ & de groep van de Controle van de Groep)
„*** is dist type of universele seconde group
GroupCN = worden objGroup.CN“ *** groeps name
objDataScript.WriteLine "" & schrijft GroupCN „*** groep name
Next
objDataScript.Close
Gebeëindigde MsgBox „!“                                          “ *** Wijst op voltooiing van process

Eind If
End If

dank

Many. Om het even welke hulp zal enord appreciated.
zijn

Antwoord : Waarom beperkt mijn manuscript VB resultaten tot 1500?

AwesomeMachine => u duidelijk begrijpt niet de vraag, die volkomen duidelijk is.    De de versnellingssteun van de hardware voor het decoderen van MPEG en het decoderen H.264 zijn eigenschappen volledig onafhankelijk van de normale functies GPU… en zijn niet inbegrepen in alle videokaarten.

narmi2 ==> ja, het is mogelijk.    Bijna kan om het even welke moderne bewerker MPEG2 DVDs bij 1080p zonder om het even welk decoderen bijwoont van GPU.
   
H.264 (HD inhoud op BluRays en HD DVDs) is cpu-Intensiever, maar het kan ook zonder GPU worden gedecodeerd helpt bij de moderne spaanders ==> van de kernarchitectuur daar was heel wat bespreking over dit vermogen over AVSForums toen de kern-architectuur spaanders eerst een paar jaar geleden werden vrijgegeven.   H.264 vereist een cpu met het prestatiesniveau van een E6600 of beter.   Een E6600 zal 100% gebruik op hoge actiescènes naderen, maar kan inhoud volledig decoderen H.264 zonder enige het stotteren zolang de computer niet voor andere activiites tijdens de playback wordt gebruikt.       E6600 noteert net iets meer dan 1500 op CPUMark van PassMark, zodat om het even welke cpu met een score PassMark van 2000 of zou beter gemakkelijk aan playbackvideo zonder hardwareversnelling in GPU moeten kunnen.  

Wat spelersoftware staat u toe om hardwareversnelling onbruikbaar te maken, die het van het gebruiken van de hardware decodeert bijstaat eigenschappen op GPU (als heden) zal houden.   Bijvoorbeeld, heeft PowerDVD checkbox voor „hardwareversnelling“ ==> door gebrek toelaten dit zal worden gecontroleerd als uw GPU hardware versnelde steun heeft, maar u kunt uncheck het als u het effect op uw systeem wilt zien.
Andere oplossingen  
 
programming4us programming4us