[barakascap]

السلام عليكم ورحمة الله وبركاته
استخدم الكود التالى لعمل 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)