does anyone know how to to make script that changes workgroup?

[E1M1]

does anyone know how to to make script that changes workgroup?

I prefer regedit or command line method.

[ctyankeeinok]

I have done it by going thru My Computer. - but not by command line or registry.

[ctyankeeinok]

Google your problem (rename workgroup command line). You can use netdom.exe from windows Server 2003 to rename a computer with a command line. you may have to install it on each computer. I have not tried this method - YMMV.

[Juvigy]

What i do is Fileinstall() NetDom.exe and then use the :

$path="netdom join "& @ComputerName & " /domain:mydomain /userd:adminuser /passwordd:adminpassword"
RunWait(@ComSpec & ' /c ' & $path)

This is the domainjoin. You can type "netdom /?" in cmd to check for workgroup.

[99ojo]

What i do is Fileinstall() NetDom.exe and then use the :

$path="netdom join "& @ComputerName & " /domain:mydomain /userd:adminuser /passwordd:adminpassword"
RunWait(@ComSpec & ' /c ' & $path)

This is the domainjoin. You can type "netdom /?" in cmd to check for workgroup.

Hi,

here is the WMI Solution:

$strComputer = "localhost"
$newworkgroup = "WORKGROUP"

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
For $computersystem In $objWMIService.InstancesOf("Win32_ComputerSystem")
    $computersystem.JoinDomainOrWorkgroup ($newworkgroup)
Next

You have to reboot machine to make changes effect.

;-))

Stefan

[ctyankeeinok]

Thanks Stefan - I also found out how to rename the computer through WMI using $computersystem.Rename($newcompname) , but what about the Computer Description? How can that be changed?

[99ojo]

Thanks Stefan - I also found out how to rename the computer through WMI using $computersystem.Rename($newcompname) , but what about the Computer Description? How can that be changed?

Hi,

$strComputer = "localhost"
$strNewdescription = "Test"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
For $objitem In $objWMIService.InstancesOf("Win32_OperatingSystem")
    $objitem.Description =$strNewdescription
    $objitem.Put_ ()
Next

or alternate

RegWrite ("HKLM\SYSTEM\CurrentControlSet\Services\Lanmanserver\parameters", "srvcomment", "REG_SZ", $strNewdescription)

;-))

Stefan

[ctyankeeinok]

Very Cool. Thank you!