title: Rename PC To Serial Number
body: <p>I'm trying to make a script to rename PC's to their serial number. I'm not great with VB, but I've been able to put together enough code to READ the serial number, but I'm not sure where to WRITE it. </p>
  
  <p>Here's what I currently have:</p>
  
  <pre><code>    strComputer = "."
  Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\CIMV2")
  
  
  Set colBIOS = objWMIService.ExecQuery("Select * from Win32_BIOS")
  
  For each objBIOS in colBIOS
    WScript.Echo "SERIAL=" &amp; objBIOS.SerialNumber
  Next
  </code></pre>
  
  <p>Thanks in advance for any help!</p>