Fix error in vbscript

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16365 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-05-20 14:56:01 +00:00
parent 973597d493
commit 38b3d1c46a

View File

@ -15,11 +15,11 @@ Do While Not netuse.StdOut.AtEndOfStream
Loop
instdrv = myshell.ExpandEnvironmentStrings ( "%INSTALLTO%" )
if InStr(instdrv,"%INSTALLTO%") Then
Set myenv=wshShell.Environment("User")
Set myenv=myshell.Environment("User")
instdrv = myenv("INSTALLTO")
End If
if instdrv = "" Then
Set myenv=wshShell.Environment("System")
Set myenv=myshell.Environment("System")
instdrv = myenv("INSTALLTO")
End If
if instdrv = "" Then