معرفة اسم الجهاز باستخدام Active Directory ومعلومات أخرى مفيدة

كل ما عليك هو استخدام الأوبجكت ActiveDs.WinNTSystemInfo وقراءة المعلومات المطلوبة من ضمن المعلومات الكثيرة المتاحة ضمن هذا الكائن :


كود:

On Error Resume Next
Dim oSysInfo As New ActiveDs.WinNTSystemInfo
ComputerName = oSysInfo.ComputerName
Set oSysInfo = Nothingولمعرفة الدومين مثلاً :


كود:

DomainName = oSysInfo.DomainNameواسم المستخدم :


كود:

UserName = oSysInfo.UserName