'***********************************************************
'* File:      novellpm.vbs
'* Created:   June 2005
'* Version:   1.1
'* Function:  Set Passive Mode for Novell Login
'* Author:    Ron Williams
'***********************************************************
Dim WshShell, retval
Set WshShell = WScript.CreateObject("WScript.Shell")
retval=MsgBox("If you activate Passive Mode, the" + Chr(13) + "Microsoft login will be the default." + Chr(13) + Chr(13) + "You can then login to Novell" + Chr(13) + "after Windows boots.",0,"Passive Mode")
retval=MsgBox("Do you want Passive Mode On?" ,4,"Passive Mode")
If retval=6 Then 
   WshShell.RegWrite "HKLM\SOFTWARE\Novell\NWGina\PassiveMode", 1, "REG_DWORD"
 Else
   WshShell.RegWrite "HKLM\SOFTWARE\Novell\NWGina\PassiveMode", 0, "REG_DWORD"
End If
Set WshShell = Nothing
Set retval = Nothing