Я использовал это в прошлом, когда не было поддержки флэш-памяти: http://www.ispgeeks.com/wild/modules/Bandwidth_Meter_DSL/initialmeter.php
Моя самая большая проблема с большинством этих сайтов, особенно нефлэш-памяти - то, что они никогда, кажется, не работают достаточно долго, чтобы быть точными.
(Извините, пропущенный часть ни о какой флэш-памяти), После speakeasy, я использовал бы http://www.speedtest.net/
Я думаю, что Вы ищете sAMAccountname??
попробуйте следующее...
dsquery * "CN=Alice Smith, Office OU=Head, DC=Cyberdyne, DC=local" - определяют объем основного-attr sAMAccountName
Хотя это не получает префикс DOMAIN\(CYBERDYNE)
Примечание: Я думаю, что dsquery установлен на единственном DC, Вам, вероятно, придется захватить копию с DC, если Вы хотите выполнить его в другое место...
.. Ken
Я избежал добираться до Вашего вопроса достаточно рано, возможно, сохранять Вас любой из тот "ручной" работой, которую Вы упомянули в своем комментарии Ken Hughes. Чтобы сделать это программно, Вы смотрите на использование интерфейса iADsNameTranslate. Можно вытащить большой пробег из него для имеющего дело, переведя различные возможные названия AD учетной записи (GUID, SID, samAccountName, displayName, DN, и т.д.).
Пример:
Option Explicit
' Constants for the iADsNameTranslate object. (from http://msdn.microsoft.com/en-us/library/aa772267(VS.85).aspx)
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1
Const ADS_NAME_INITTYPE_GC = 3
Dim objNameTranslate
Dim strUsersamAccountName
' Create a nametranslate object and init to talk to a global catalog server
Set objNameTranslate = CreateObject("NameTranslate")
objNameTranslate.Init ADS_NAME_INITTYPE_GC, ""
' We're looking for a distinguished name, aka 1779
objNameTranslate.Set ADS_NAME_TYPE_1779, "CN=Bob, OU=blah, ..."
' Translate into the user's samAccountName
strUsersamAccountName = objNameTranslate.Get(ADS_NAME_TYPE_NT4)
WScript.Echo strUsersamAccountName