What log files do I look at to see if my userexit script is working or more inportantly why it isn't. It seems to ignore my modelalias variable and runs the default install everytime. Here is my customsettings.ini [Settings] Priority= setmodel, CSettings , CRoles , MMSettings , MMApps , RApps , RAdmins , Default Properties= modelalias [setmodel] Modelalias = #setmodelalias()# userexit = userexit.vbs [Default] Deployroot=\\wdsserver\distribution$ SQLServer=wdsserver Database=wdddatabase Netlib=DBNMPNTW SQLShare=wddshare OSInstall=Y SkipAdminPassword=YES SkipProductKey=YES TimeZone=020 TimeZoneName= Central Standard Time KeyboardLocal = 0409:0000049 _SMSTSOrgName= EMC Insurance Co SLShare=\\wdsserver\logs\default\%serialnumber% UserDataLocation=NONE SkipAppsOnUpgrade=YES SkipCapture=YES
[CSettings] SQLServer=wdsserver Database=wdddatabase Netlib=DBNMPNTW SQLShare=wddshare Table=ComputerSettings Parameters=UUID, AssetTag, SerialNumber, MacAddress ParameterCondition=OR
[CRoles] SQLServer=wdsserver Database=wdddatabase Netlib=DBNMPNTW SQLShare=wddshare Table=ComputerRoles Parameters=UUID, AssetTag, SerialNumber, MacAddress ParameterCondition=OR [RApps] SQLServer=wdsserver Database=wdddatabase Netlib=DBNMPNTW SQLShare=wddshare Table=RoleApplications Parameters=Role Order=Sequence [RAdmins] SQLServer=wdsserver Database=wdddatabase Netlib=DBNMPNTW SQLShare=wddshare Table=RoleAdministrators Parameters=Role [MMSettings] SQLServer=wdsserver Database=wdddatabase Netlib=DBNMPNTW SQLShare=wddshare Table=MakeModelSettings Parameters=Make, modelalias modelalias = model [MMApps] SQLServer=wdsserver Database=wdddatabase Netlib=DBNMPNTW SQLShare=wddshare Table=MakeModelApplications Parameters=Make, modelalias modelalias = model Order=Sequence Here is my userexit.vbs Function UserExit(sType, sWhen, sDetail, bSkip) oLogging.CreateEntry "entered UserExit ", LogTypeInfo UserExit = Success End Function
Function setmodelalias() oLogging.CreateEntry "Entered UserExit Function 'setmodelalias'", LogTypeInfo\ On Error Resume Next model = oEnvironment.item("Model") Select Case model Case "646557u","6463WA7","6463W9P" setmodelalias = "t61" ologging.createentry = "userexit - setmodelalias has been set to " & setmodelalias,logtypeinfo Case "20077JU","1953DAU","1953D7U" setmodelalias = "t60" ologging.createentry = "userexit - setmodelalias has been set to " & setmodelalias,logtypeinfo Case "1859BAU","18595RU","1859B9U" setmodelalias = "r52" ologging.createentry = "userexit - setmodelalias has been set to " & setmodelalias,logtypeinfo Case "1836BAU","1836Q4U" setmodelalias = "r51" ologging.createentry = "userexit - setmodelalias has been set to " & setmodelalias,logtypeinfo Case "E-295C" setmodelalias = "e-295c" ologging.createentry = "userexit - setmodelalias has been set to " & setmodelalias,logtypeinfo Case "M285-E" setmodelalias = "M285-E" ologging.createentry = "userexit - setmodelalias has been set to " & setmodelalias,logtypeinfo Case Else setmodelalias = model ologging.createentry = "userexit - setmodelalias has not been changed " & model ,logtypeinfo End Select On Error goto 0 End Function Function GetWDSServerName() oLogging.CreateEntry "Entered UserExit Function 'GetWDSServerName'", LogTypeInfo On Error Resume Next oShell.run "wpeutil updatebootinfo", 1, True sWDSServerName = oShell.RegRead("HKLM\System\CurrentControlSet\Control\PEBootServerName") sWDSServerName = Left(sWDSServerName, InStr(sWDSServerName ,".")-1) oLogging.CreateEntry "WDSServerName = " & sWDSServerName, LogTypeInfo oLogging.CreateEntry "Exiting UserExit Function 'GetWDSServerName'", LogTypeInfo GetWDSServerName = sWDSServerName On Error goto 0 End Function
Thanks for any input Dan |