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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة استعلامات جديدة rabeh.ram 10 168 أمس, 03:59 AM
آخر رد: rabeh.ram
  اضافة وتعديل وحذف وبحث في وضع الاتصال المنفصل khaled12345 9 218 18-05-17, 12:34 AM
آخر رد: khaled12345
  [سؤال] ممكن طريقة اضافة سنوات في التاريخ Abdulaziz Hazazi 2 88 06-05-17, 09:59 PM
آخر رد: أسامة السالمي
  كيفية اضافة ملف صوتى الى برنامجى OakenShield 2 72 25-04-17, 02:33 PM
آخر رد: tarek
  طلب مساعدة في اضافة save & restore trakktour 10 464 22-04-17, 06:00 PM
آخر رد: sambro
  ,اضافة تكست للريبورت alma_fandi 6 173 22-04-17, 05:59 PM
آخر رد: alma_fandi
Photo [سؤال] بخصوص اضافة تمرير بيناتا للداتا قريد فيو من تيكست بوكس diab4diab 1 81 20-04-17, 05:26 AM
آخر رد: أسامة السالمي
  مشكلة في اضافة كافة حقول الـ DGV الى قاعدة البيانات كود برمجي 11 306 18-04-17, 11:03 PM
آخر رد: كود برمجي
Wink اضافة اعلان ادسينس على واجهة البرنامج Basel_hmd 0 70 11-03-17, 04:48 PM
آخر رد: Basel_hmd
  كيف اضافة جميع item list فى subitem Mohamed20 3 94 11-03-17, 01:34 AM
آخر رد: مساعدة

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


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