تقييم الموضوع :
  • 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 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 60 أمس, 03:36 AM
آخر رد: elhon.tec
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 75 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 8 95 08-12-16, 08:35 PM
آخر رد: ابراهيم النعيمي
  اضافة عمود من نوع image ل bound datagridview noway 1 72 17-11-16, 12:08 PM
آخر رد: Genius Live
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 72 15-11-16, 10:30 PM
آخر رد: السرور
  اضافة الاصناف جديد بشرط %Eman% 5 238 09-11-16, 01:39 PM
آخر رد: walkady
Thumbs Up اضافة كود جمع و طرح في داتا قريد ص hglogtd 4 103 27-10-16, 03:15 AM
آخر رد: hglogtd
  اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات makky 3 163 16-10-16, 06:09 PM
آخر رد: makky
  اضافة وقت الى وقت Mohamed20 5 127 02-10-16, 04:51 AM
آخر رد: ممدوح
  اضافة اكثر من ليست بوكس الي قاعدة البيانات makky 1 112 26-09-16, 09:57 PM
آخر رد: سعود

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


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