خطأ في قراءة المستخدم الحالي

يقوم الكود التالي بقراءة اسم المستخدم الحالي .. وقد يعمل معي لكن أثناء التعديل في النظام أصبح يقرأ اسم المستخدم .. Internet Guest Account

Dim DomainUser As String = System.Security.Principal.WindowsIdentity.GetCurrent.Name.Replace("\", "/")
		Dim ADEntry As New System.DirectoryServices.DirectoryEntry("WinNT://" & DomainUser)
		Dim FullName As String = ADEntry.Properties("FullName").Value
		lblLoginID.Text = FullName