UnjoinDomainOrWorkgroup Windows 2000

[DMc2007]

Hi

Does the Win32_ComputerSystem method UnjoinDomainOrWorkgroup support Windows
2000 Clients, as I am getting am error on the following:

Const NETSETUP_ACCT_DELETE = 2 'Disables computer account in domain.
strPassword = "SW2009Feb10792-d"
strUser = "SWCAMW"

Dim intreturn
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"
& _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer &
"'")
strDomain = objComputer.Domain
intReturn = objComputer.UnjoinDomainOrWorkgroup _
(strPassword, strDomain & "\" & strUser, NETSETUP_ACCT_DELETE)

Basically i am trying to remove a Windows 2000 Workstation from a Domain.

Regards

D

 

[Paul Bergson [MVP-DS]]

Here is a script repository example using and LDAP call, you will just have
to know the Distinguished Name (DN)
http://www.microsoft.com/technet/scriptcenter/scripts/default.mspx?mfr=true

--
Paul Bergson
MVP - Directory Services
MCTS, MCT, MCSE, MCSA, Security+, BS CSci
2008, 2003, 2000 (Early Achiever), NT4

http://www.pbbergs.com

Please no e-mails, any questions should be posted in the NewsGroup This
posting is provided "AS IS" with no warranties, and confers no rights.

 

[Richard Mueller [MVP]]

Hi

Does the Win32_ComputerSystem method UnjoinDomainOrWorkgroup support
Windows 2000 Clients, as I am getting am error on the following:

Const NETSETUP_ACCT_DELETE = 2 'Disables computer account in domain.
strPassword = "SW2009Feb10792-d"
strUser = "SWCAMW"

Dim intreturn
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer =
GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer &
"'")
strDomain = objComputer.Domain
intReturn = objComputer.UnjoinDomainOrWorkgroup _
(strPassword, strDomain & "\" & strUser, NETSETUP_ACCT_DELETE)

Basically i am trying to remove a Windows 2000 Workstation from a Domain.

Regards

D

Per this link it should work on Windows 2000 clients:

http://www.microsoft.com/technet/scriptcenter/scripts/ad/computer/cptrvb19.mspx

If you get an error, what is the error message and on which line is it
raised?

 

[DMc2007]

Hi, the link opens the window with the main script catergorys?

Regards

D

 

[DMc2007]

Using on a Windows 2000 SP4 Domain workstation, on a Windows 2003 Domain.

Code is below:

Const NETSETUP_ACCT_DELETE = 2 'Disables computer account in domain.
strPassword = "SW2009Feb10792-d"
strUser = "SWCAMW"

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" &
_
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer &
"'")
strDomain = objComputer.Domain
intReturn = objComputer.UnjoinDomainOrWorkgroup _
(strPassword, strDomain & "\" & strUser, NETSETUP_ACCT_DELETE)

Error message is as follows:

Script: C:\Temp\DeleteFromDomain.vbs
Line: 11
Char: 1
Error: Object doesn't support this property or method:
'objComputer.UnjoinDomainOrWorkGroup'
Code: 800A01B6
Source: Microsoft VBScript runtime error.

Kind Regards

D

 

[Richard Mueller [MVP]]

I've never used the UnjoinDomainOrWorkgroup method, but I just looked at my
script that uses the JoinDomainOrWorkgroup method. I have this comment based
on research I did some time ago:

' The computer must have XP or above.
' The AD must be W2k3 or above.
' See c:\Windows\debug\NetSetup.log for details.

I would say the link I gave is incorrect. The client must be XP or above
(unless someone knows how to upgrade WMI to support the method).

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Using on a Windows 2000 SP4 Domain workstation, on a Windows 2003 Domain.

Code is below:

Const NETSETUP_ACCT_DELETE = 2 'Disables computer account in domain.
strPassword = "SW2009Feb10792-d"
strUser = "SWCAMW"

Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"
& _
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer &
"'")
strDomain = objComputer.Domain
intReturn = objComputer.UnjoinDomainOrWorkgroup _
(strPassword, strDomain & "\" & strUser, NETSETUP_ACCT_DELETE)

Error message is as follows:

Script: C:\Temp\DeleteFromDomain.vbs
Line: 11
Char: 1
Error: Object doesn't support this property or method:
'objComputer.UnjoinDomainOrWorkGroup'
Code: 800A01B6
Source: Microsoft VBScript runtime error.

Kind Regards

D