userexit.vbs

ddnwolff

I am getting an error message in the BDD.log when it tries to run the
userexit.vbs file, unable to parse user exit script file. Any ideas what
might be causing this?

Thanks

Dan

<![LOG[ERROR - Unable to parse the user exit script file: Syntax error
(1002)]LOG]!><time="09:04:03.000+000" date="06-23-2008" component="ZTIGather"
context="" type="3" thread="" file="ZTIGather">
<![LOG[ERROR returned from user exit. No further
processing.]LOG]!><time="09:04:03.000+000" date="06-23-2008"
component="ZTIGather" context="" type="3" thread="" file="ZTIGather">

[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

Select Case oEnvironment.item ("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 = oEnvironment.item ("Model")
ologging.createentry = "userexit - setmodelalias has not been changed " &
oEnvironment.item ("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\Cont rol\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