smohan08

Hi Team, Thank u.its working fine on windows-7. Could you plz update and share to handle more error code. Thank u in advance.

Hi, Ok let me check Does it work in Windows -7 Operating system? -Mohan

Dear Team, I am trying to run the following vb script on Windows-7 (64) bit operating system. Code is, Const JOIN_DOMAIN = 1 Const ACCT_CREATE = 2 Const ACCT_DELETE = 4 Const WIN9X_UPGRADE = 16 Const DOMAIN_JOIN_IF_JOINED = 32 Const JOIN_UNSECURE = 64 Const MACHINE_PASSWORD_PASSED = 128 Const DEFERRED_SPN_SET = 256 Const INSTALL_INVOCATION = 262144 Dim message Dim IP strDomain = "blrdomain.com" strUser = administrator strPassword = admin@321 Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objWMIService = GetObject ("winmgmts:" & "!" & strComputer & "\root\cimv2") Set colAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True") title = "Join computer to domain" message = "Please enter computer name. Leave blank or press cancel to quit." & vbCrLf & vbCrLf & "Generated name: " & generatedName newComputerName = InputBox(message, title) If newComputerName = "" Then Wscript.quit End If areYousure = MsgBox("Are you sure you want to add computer to domain with name:" & vbCrLf & vbCrLf & newComputerName, vbYesNo + vbQuestion,"Add computer to domain") If areYouSure = "7" Then MsgBox "Exiting script.",vbInformation Wscript.quit End If Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonat e}!" & _ strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _ strComputer & "'") ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & "" & strUser, "ou=Computer,DC=blrdomain,dc=com", _ JOIN_DOMAIN + ACCT_CREATE) If ReturnValue = 0 Then MsgBox "Computer added to domain under old name without error. proceeding to change computer name. " Else MsgBox "Computer not added to domain successfully. Return value: " & ReturnValue End If strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!" & strComputer & "\root\cimv2") Set colComputers = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputers MsgBox "About to rename computer to: " & newComputername ErrCode = objComputer.Rename(newComputerName, strPassword, strUser) If ErrCode = 0 Then MsgBox "Computer renamed correctly." Else MsgBox "Eror changing computer name. Error code: " & ErrCode End If Next Whereas it fails with below error, Line:38 Char:1 Error:0x80041021 Code: 80041021 Source: (null). Could you please help me to resolve the same. Thanks, Mohan