04-04-16, 02:06 PM
السلام عليكم ورحمة الله تعالى وبركاته
رجاءا كنت مصطب win xp على الجهاز وكنت أملآ كومبوبوكس بأسماء السيرفرات بهذا الكود
لكن وبعد أن غيرت إلى win7 أصبح هذا الكود لا يشتغل فما المطلوب من فضلكم؟
ألف شكر
رجاءا كنت مصطب win xp على الجهاز وكنت أملآ كومبوبوكس بأسماء السيرفرات بهذا الكود
كود :
Dim root As New DirectoryEntry("WinNT:")
Dim parent As DirectoryServices.DirectoryEntries
parent = root.Children
Dim d As DirectoryEntries = parent
For Each complist As DirectoryEntry In parent
For Each c As DirectoryEntry In complist.Children
If (c.Name <> "Schema") Then
ComboBox1.Items.Add(c.Name)
End If
Next
Next
ألف شكر