We are consolidating and renaming, I have a script which does not seem to work:
We want to base the OSDComputerNAme based on the current hostname, not where the computer is deployed from.
Here is the script
<><><><><>
'On Error Resume Next
Dim strComputer, newName
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
'wscript.echo strComputer & " " & objSMBIOS.SerialNumber
Select Case UCase(Left(strComputer,2))
Case "NY" newName = "HQ-" & objSMBIOS.SerialNumber
Case "NI" newName = "HQ-" & objSMBIOS.SerialNumber
Case "NM" newName = "HQ-" & objSMBIOS.SerialNumber
Case "LA" newName = "WE-" & objSMBIOS.SerialNumber
Case "AZ" newName = "WE-" & objSMBIOS.SerialNumber
End Select
wscript.echo newName
SET env = CreateObject("Microsoft.SMS.TSEnvironment")
env("OSDComputerName") = NewName
Next
<><><><><><>
Any help greatly appreciated.
Thank you.
