17-10-12, 01:05 AM
كاتب الموضوع : AhmedEssawy
كل ما عليك هو استخدام الأوبجكت ActiveDs.WinNTSystemInfo وقراءة المعلومات المطلوبة من ضمن المعلومات الكثيرة المتاحة ضمن هذا الكائن :كود :
On Error Resume Next
Dim oSysInfo As New ActiveDs.WinNTSystemInfo
ComputerName = oSysInfo.ComputerName
Set oSysInfo = Nothingكود :
DomainName = oSysInfo.DomainNameكود :
UserName = oSysInfo.UserName