https://blogs.manageengine.com/product-blog/desktopcentral/2009/04/13/rename-remote-computer-using-desktop-central.html

I do know how to implement a VBS script that has an argument to change the Workgroup.  Romanus provided that to me last year.

None of the PCs are AD joined.  The PC workgroup name varies between PCs.

Is it possible to get a VBS script that I can use to change the Computer name.  Below is the VBS script that was used for changing the workgroup name - I think it might be modified to change the computer name.

********************

'ManageEngine Desktop Central Agent

'Supply workgroup name , username and password as parameters

'==============================================================

 

Const JOIN_WORKGROUP          = 0

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

 

Const NETSETUP_ACCT_DELETE = 2 'Disables computer account in domain.

 

'strDomain   = "WORKGROUP"

'strUser     = "username"

'strPassword = "password"

 

if WScript.Arguments.Count = 3 Then

               strDomain = WScript.Arguments.Item(0)

               strUser = WScript.Arguments.Item(1)

               strPassword = WScript.Arguments.Item(2)

Else if WScript.Arguments.Count = 2 Then

               strDomain = WScript.Arguments.Item(0)

               strUser = WScript.Arguments.Item(1)

Else if WScript.Arguments.Count = 1 Then

               strDomain = WScript.Arguments.Item(0)

End if

End if

End if

 

Set objNetwork = CreateObject("WScript.Network")

strComputer = objNetwork.ComputerName

Set objComputer = _

    GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _

    strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" _

    & strComputer & "'")

              

intReturn = objComputer.UnjoinDomainOrWorkgroup _

 (NULL, NULL, NETSETUP_ACCT_DELETE)

 

 

ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _

    strPassword, _

    strDomain & "\" & strUser, _

    NULL, _

    JOIN_WORKGROUP + ACCT_CREATE)

 

Wscript.Quit ReturnValue

********************

Hope to hear back soon.

Mike