تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة الى دومين
#1
السلام عليكم ورحمة الله وبركاته
استخدم الكود التالى لعمل join لجهاز ويعمل جيد
ولكن اريد ان اضيف رساله تعود بخطا اذا حدث او انه تم التنفيذ
PHP كود :
Dim args(4) As String
            Dim args2
(2) As String

            Dim comp 
As ManagementObject
            Dim comps 
As ManagementObjectCollection
            Dim clsComps 
As New ManagementClass("Win32_ComputerSystem")
            
comps clsComps.GetInstances()
            For 
Each comp In comps
                Dim pss 
As String TextBox12.Text

                
If pss "" Then
                    MsgBox
("Enter Passowrd")
                Else
                
End If
                
args(0) = "domain name heare"
                
args(1) = pss
                args
(2) = "user"
                ''
args(3) = "Specify OU Here (ou=test,dc=domain,dc=com)"
                
args(4) = "3"

                
comp.InvokeMethod("JoinDomainOrWorkgroup"args
الرد }}}}
تم الشكر بواسطة:
#2
هذه ارقام الاخطاء


إقتباس :0 = "Success joining computer to the domain!"

5 = "Access is denied"

87 = "The parameter is incorrect"

110 = "The system cannot open the specified object"

1323 = "Unable to update the password"

1326 = "Logon failure: unknown username or bad password"

1355 = "The specified domain either does not exist or could not be contacted"

2224 = "The account already exists"

2691 = "The machine is already joined to the domain"

2692 = "The machine is not currently joined to a domain"
الرد }}}}
تم الشكر بواسطة:
#3
بارك الله فيك
ولكن كيف اضيفها فى الكود
الرد }}}}
تم الشكر بواسطة:
#4
PHP كود :
try
'code
catch ex as exception
if err.number =233 then
msgbox("not mapped error")

تقوم بوضع رقم الخطأ وتظهر الرساله  الخاصه به 
الرد }}}}
تم الشكر بواسطة:
#5
اشكركم على مجهوداتكم
كده تمام

PHP كود :
Dim args(4) As String
        Dim args2
(2) As String
        Dim comp 
As ManagementObject
        Dim comps 
As ManagementObjectCollection
        Dim clsComps 
As New ManagementClass("Win32_ComputerSystem")

        
comps clsComps.GetInstances()

        For 
Each comp In comps
            
'this is used to join the domain
            args(0) = "domain name"
            args(1) = "password" '
from box 1
            args
(2) = "user"  ' from box 2
            '
args(3) = strOFCELOC.ToString 'from dropdwn
            args(4) = 1 Or 2 '
join or create account
            Dim retVal 
As UInt32
            retVal 
comp.InvokeMethod("JoinDomainOrWorkgroup"args)
            
retVal Convert.ToString(retVal)
            
Select Case (Convert.ToString(retVal))
                Case 
0
                    MsgBox
("Success joining computer to the domain")
                Case 
5
                    MsgBox
("Access is denied")
                Case 
87
                    MsgBox
("The parameter is incorrect")
                Case 
2691
                    MsgBox
("alredeee")
                Case 
110
                    MsgBox
("The system cannot open the specified object")
                Case 
1323
                    MsgBox
("Unable to update the password")
                Case 
1326
                    MsgBox
("Logon failure: unknown username or bad password")
                Case 
1355
                    MsgBox
("The specified domain either does not exist or could not be contacted")
                Case 
1909
                    MsgBox
("User Locked")
                Case 
2224
                    MsgBox
("The account already exists")
                Case 
2691
                    MsgBox
("The machine is already joined to the domain")
                Case 
2692
                    MsgBox
("The machine is not currently joined to a domain")
                Case Else
                    
MsgBox(Convert.ToString(retVal))
            
End Select
        Next 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عند اضافة حالة جديدة naden 1 42 16-09-17, 09:20 PM
آخر رد: أبو نوره
  اضافة عدد الايام + التاريخ الاول = التاريخ الثانى nabil.1710 3 78 15-09-17, 05:10 AM
آخر رد: طـلال
  كيفية اضافة حقل CheckBox لعنوان العمود المتألق9 6 136 24-08-17, 04:18 PM
آخر رد: سعود الشامان
  طلب كود اضافة العلامات العشريه للتكست بوكس نبيل كونكت 7 145 20-08-17, 12:48 AM
آخر رد: محمود بكرى
  اضافة حقل الى جدول برمجيا كرم ابوهشام 1 97 31-07-17, 08:44 PM
آخر رد: سعود
  كيفية اضافة ال hycam2 لل refrence في الفيجوال بيسك khaled12345 8 192 08-07-17, 01:18 AM
آخر رد: khaled12345
  [سؤال] اضافة مجلدات المشروع لبرنامج ال setup factory makky 3 374 06-07-17, 03:37 PM
آخر رد: Adrees
  كيفية اضافة صورة للتقرير المتألق9 1 131 22-06-17, 05:16 PM
آخر رد: boudyonline
  [VB.NET] اضافة كلمة في جميع اسطر listbox mervandzz 1 133 19-06-17, 05:03 PM
آخر رد: silverlight
  اضافة بيانات من خلال القائمة المنسدلة KH_Alaswad 0 114 19-06-17, 12:58 AM
آخر رد: KH_Alaswad

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم