Fix error in vbscript

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@16366 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-05-20 14:56:32 +00:00
parent 7731929803
commit 3456243248

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