Dim managementObj as new ManagementObject("root\\CIMV2", "Win32_ComputerSystem.Name='" & _
Environment.MachineName & "'", Nothing)
Dim parameter as ManagementBaseObject = managementObj.GetMethodParameters("Rename") _
parameter["Name"] = "NEWCOMPUTERNAMEHERE"
Dim outParams as ManagementBaseObject = managementObj.InvokeMethod("Rename", inParams, null)
http://www.vbforums.com/showthread.php?t=630181
Environment.MachineName & "'", Nothing)
Dim parameter as ManagementBaseObject = managementObj.GetMethodParameters("Rename") _
parameter["Name"] = "NEWCOMPUTERNAMEHERE"
Dim outParams as ManagementBaseObject = managementObj.InvokeMethod("Rename", inParams, null)
http://www.vbforums.com/showthread.php?t=630181


