OSDComputername HyperV VM

Question

HI All
so I have SCCM 2012R2 and integrated MDT.
I am automating my laptop,desktop and tablet builds using L%assettag% for example and all is working fine.
however when I run tests on my HyperV vms its not working as its spoofing the Desktop and trying to set a computer name which is too long and there for failing. can someone let me know how to either stop it from thinking its a Laptop/desktop or how to set
it to a shorter Serial number.
many thanks
Chris

Answer 1

You can use the IsVirtual variable for one.
Or WMI query Select * From Win32_computersystem where Model='VirtualBox' or Model='VMware Virtual Platform' or Model='Xen' or Model='Virtual Machine'"
Or you can use a VBScript (that's what I do, see below)
Or you can use customsettings.ini like this: ComputerName=#Right("%SERIALNUMBER%",8)#
On Error Resume Next
DIM Gateway(7)
strComputer = "."
set objTSEnvironment=CreateObject("Microsoft.SMS.TSEnvironment")
Set objWMIService=GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters=objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Set colSerial=objWMIService.ExecQuery ("SELECT * FROM Win32_BIOS")
Set colBat=objWMIService.ExecQuery( "Select * from Win32_Battery")
Set colItems=objWMIService.ExecQuery("Select * From Win32_computersystem where Model='VirtualBox' or Model='VMware Virtual Platform' or Model='Xen' or Model='Virtual Machine'")
Set colUUIDItems=objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct")
Set WshShell = CreateObject("WScript.Shell")
'Arrays
Gateway(1)="BHM,198.99.1.1,192.102.1.1"
Gateway(2)="CHR,198.64.1.1"
Gateway(3)="HSV,198.60.1.1"
Gateway(4)="MTG,198.61.1.1"
Gateway(5)="NSV,198.10.100.1,198,17.0.1"
Gateway(6)="WDC,198.65.1.1"
Gateway(7)="JKS,198.62.1.1"
Set ProgressUI = CreateObject("Microsoft.SMS.TsProgressUI")
ProgressUI.CloseProgressDialog
'Getting Default Gateway
For Each objAdapter in colAdapters
If Not IsNull(objAdapter.DefaultIPGateway) Then
For i = 0 To UBound(objAdapter.DefaultIPGateway)
strGateway=objAdapter.DefaultIPGateway(i)
For a=1 to UBound(Gateway)
If instr(Gateway(a),strGateway)<>0 Then
strLoc=Left(Gateway(a),3)
GetAltLocation
End If
Next
Next
End If
Next
'Getting Serial Number
For Each objSerial in colSerial
strSerial=objserial.serialnumber
Next
'Checking for HW Type
strType="D"
strOSType="Windows7"
For Each objItem in colBat
For Each objVMItem in colItems
If objVMItem.model <> "VirtualBox" Then
strType="L"
End If
Next
Next
'VM Specific Settings
For Each objItem in colItems
If objitem.model="VMware Virtual Platform" Then
strIsVMWare="yes"
End If
For Each UUIDItem in colUUIDItems
strSerial=Right(UUIDitem.UUID,7)
strType="V"
strOSType="Windows7"
ServerBuildCheck
Next
Next
If strType <> "V" Then
If strType <> "S" Then
ThinClientCheck
End If
End If
'Setting OU Path
If strType="L" Then strOUPath="OU=Thick Desktop,OU=Physical,OU=Computers,OU=Unified Desktop,DC=MYDOMAIN,DC=com"
If strType="D" Then strOUPath="OU=Thick Desktop,OU=Physical,OU=Computers,OU=Unified Desktop,DC=MYDOMAIN,DC=com"
If strType="V" Then strOUPath="OU=Virtual,OU=Computers,OU=Unified Desktop,DC=MYDOMAIN,DC=com"
If strType="S" Then strOUPath="OU=Deployment Testing,OU=Servers,OU=" & strLoc & ",OU=BackEnd,DC=MYDOMAIN,DC=com"
If strType="T" Then strOUPath="OU=Desktops,OU=Computers,OU=" & strLoc & ",OU=FrontEnd,DC=MYDOMAIN,DC=com"
If strType="SD" Then strOUPath="OU=SharedDesktops,OU=XenApp,OU=Citrix,OU=FrontEnd,DC=MYDOMAIN,DC=com"
'Setting TS Variables
objTSEnvironment("Location")=strLoc
objTSEnvironment("SN")=strSerial
objTSEnvironment("HWType")=strType
If strType="SD" Then
objTSEnvironment("CompName")=strServerName
Else
objTSEnvironment("CompName")=strLoc & "-" & strType & "-" & strSerial
End If
objTSEnvironment("OUPath")=strOUPath
objTSEnvironment("OSType")=strOSType
objTSEnvironment("VMWARE")=strIsVMWare
objTSEnvironment("SharedDesktop")=strIsSharedDesktop
'sub GetAltLocation
'Set WshShell = CreateObject("WScript.Shell")
'strTimeOut=WshShell.Popup("Will this machine be used at different location?" & vbCrLf & "(This Message Will Close in 10 Seconds)", 10, "Location Check", 4 + 32)
' If strTimeOut=6 Then
' strInput=InputBox("If this machine is NOT being built for " & strLoc & vbCrLf & "Please enter the number from the list below" & vbCrLf & "1. BHM" & vbCrLf & "2. CHR" & vbCrLf & "3. HSV" & vbCrLf & "4. JKS" & vbCrLf & "5. MTG" & vbCrLf & "6. NSV" & vbCrLf & "7. WDC", "Alternate Location Selction")
' If IsNumeric(strInput)=0 Then
' ErrorRoutine
' ElseIf strInput <> "" Then
' If strInput < 8 Then
' If strInput=1 Then strLoc="BHM"
' If strInput=2 Then strLoc="CHR"
' If strInput=3 Then strLoc="HSV"
' If strInput=4 Then strLoc="JKS"
' If strInput=5 Then strLoc="MTG"
' If strInput=6 Then strLoc="NSV"
' If strInput=7 Then strLoc="WDC"
' Else
' ErrorRoutine
' End If
' End If
' End If
'End Sub
'Sub ErrorRoutine
'Set WshShell = CreateObject("WScript.Shell")
'strError=WshShell.Popup("You have not enetered a incorrect answer" & vbCrLf & " Do you want to select again?" & vbCrLf & "(This Message Will Close in 10 Seconds)", 10, "Incorrect Selection Made", 4 + 32)
'If strError=6 Then
' strInput=""
' strError=""
' GetAltLocation
'End If
'End Sub
'Sub ServerBuildCheck
'Set WshShell = CreateObject("WScript.Shell")
' strServerTimeOut=WshShell.Popup("Virtual hardware has been detected." & vbCrLf & "The default OS is Windows 7, would you like to change it to Windows Server 2008 R2?" & vbCrLf & "(This Message Will Close in 15 Seconds)", 15, "Virtual Hardware Detected", 4 + 32)
' If strServerTimeOut=6 Then
' strType="S"
' strOSType="Server"
' strServerName=InputBox("Please enter a name for the new Server:", "Server Name Prompt")
' strIsSharedDesktop="no"
' strSharedDesktopOU=msgbox("Will this machine be used as Citrix Shared Desktop?",4,"Citrix Shared Desktop Prompt")
' If strSharedDesktopOU=6 Then
' strIsSharedDesktop="yes"
' strType="SD"
' End If
' End If
'End Sub
'Sub ThinClientCheck
'Set WshShell = CreateObject("WScript.Shell")
' strServerTimeOut=WshShell.inputbox("Physical hardware has been detected." & vbCrLf & "The default OS is Windows 7, would you like to change it to Windows Thin PC?" & vbCrLf & "(Windows Thin PC is used for a thin client host system" & vbCrLf & "(This Message Will Close in 15 Seconds)", 15, "Physical Hardware Detected", 4 + 32)
' If strServerTimeOut=6 Then
' strType="T"
' strOSType="Thin"
' End If
'End Sub
John Marcum | http://myitforum.com/myitforumwp/author/johnmarcum/