''
' The InProcessIsapiApps.vbs modifies the IIS metabase property 
' W3SVC\InProcessIsapiApps. It has three command-line options:
'
' GET - displays the modules in the InProcessIsapiApps list
' ADD - adds the specified ISAPI extension to the list
' REMOVE - removes the specified ISAPI extension from the list
''

action = "NONE"
isapiFullPath = "NONE"

DetectExeType

ParseCommandLine

set w3svc = GetObject("IIS://localhost/w3svc")
list = w3svc.GetEx("InProcessIsapiApps")

Select Case action
  Case "GET"
    ActionGet
  Case "REMOVE" 
    ActionRemove
  Case "ADD"    
    ActionAdd
  Case Else
    WScript.Echo("Unknown action")
    WScript.Quit(1)
End Select

WScript.Quit(0)



''''''''''''''
''''''''''''''
Sub ActionAdd

  For Each isapi In list
    isapi = LCase(isapi)
    If (InStr(1, isapi, isapiFullPath, vbTextCompare) > 0) Then
      WScript.Echo("Error: " & isapiFullPath & " is already in the list!")
      WScript.Quit(1)
    End If
  Next  

  Dim count
  count = UBound(list) + 1

  ReDim Preserve list(count)
  list(count) = isapiFullPath

  w3svc.Put "InProcessIsapiApps", (list)
  w3svc.SetInfo

  WScript.Echo("Success: added " & isapiFullPath)

End Sub


''''''''''''''
''''''''''''''
Sub ActionGet
  WScript.Echo(vbCRLF & "W3SVC/InProcessIsapiApps (" & UBound(list)+1 & " modules):")
  For Each isapi In list
    isapi = LCase(isapi)
    WScript.Echo(isapi)	
  Next  
End Sub

''''''''''''''
''''''''''''''
Sub ActionRemove

  Dim matches
  matches = 0
  For Each isapi In list
    isapi = LCase(isapi)
    If (InStr(1, isapi, isapiFullPath, vbTextCompare) > 0) Then
      matches = matches + 1
    End if
  Next

  Dim count
  count = UBound(list) + 1

  Dim newList()
  ReDim newList(count-matches-1)

  Dim idx
  Dim found
  idx = 0
  found = 0
  For Each isapi In list
    isapi = LCase(isapi)
    If (InStr(1, isapi, isapiFullPath, vbTextCompare) = 0) Then
      newList(idx) = list(idx+found)
      idx = idx + 1
    Else
      found = found + 1
    End if
  Next

  If found > 0 Then
    w3svc.Put "InProcessIsapiApps", (newList)
    w3svc.SetInfo
    WScript.Echo("Success: removed " & isapiFullPath)
  Else
    WScript.Echo("ERROR: " & isapiFullPath & " not found!")
    WScript.Quit(1)
  End If
End Sub

'''''''''''''''''''''''''''
'''''''''''''''''''''''''''
Sub DetectExeType()
        Dim ScriptHost
        Dim ShellObject

        Dim CurrentPathExt
        Dim EnvObject

        Dim RegCScript
        Dim RegPopupType ' This is used to set the pop-up message box flags.
                                                ' I could not locate the pre-defined names
        RegPopupType = 32 + 4

        On Error Resume Next

        ScriptHost = WScript.FullName
        ScriptHost = Right(ScriptHost, Len(ScriptHost) - InStrRev(ScriptHost, "\"))

        If (UCase(ScriptHost) = "WSCRIPT.EXE") Then
                WScript.Echo ("This script does not work with WScript.")

                ' Create a pop-up message box to prompt the user with the question "Would you like to register CScript as your default host for VBscript?"
                Set ShellObject = WScript.CreateObject("WScript.Shell")
                ' -1 is the time to wait.  0 means wait forever.
                RegCScript = ShellObject.PopUp("Would you like to register CScript as your default host for VBscript?", 0, "Register CScript", RegPopupType)
                                                                                
                If (Err.Number <> 0) Then
                        ReportError ()
                        WScript.Echo "To run this script by using CScript, type: ""CScript.exe " & WScript.ScriptName & """"
                        WScript.Quit (GENERAL_FAILURE)
                        WScript.Quit (Err.Number)
                End If

                ' Determine if the user pressed yes or no.  Yes is 6. No is 7.
                If (RegCScript = 6) Then
                        ShellObject.RegWrite "HKEY_CLASSES_ROOT\VBSFile\Shell\Open\Command\", "%WINDIR%\System32\CScript.exe //nologo ""%1"" %*", "REG_EXPAND_SZ"
                        ShellObject.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VBSFile\Shell\Open\Command\", "%WINDIR%\System32\CScript.exe //nologo ""%1"" %*", "REG_EXPAND_SZ"
                        ' Determine if the PATHEXT environment variable already exists.
                        CurrentPathExt = ShellObject.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PATHEXT")
                        If Err.Number = &H80070002 Then
                                Err.Clear
                                Set EnvObject = ShellObject.Environment("PROCESS")
                                CurrentPathExt = EnvObject.Item("PATHEXT")
                        End If

                        ShellObject.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PATHEXT", CurrentPathExt & ";.VBS", "REG_SZ"

                        If (Err.Number <> 0) Then
                                ReportError ()
                                WScript.Echo "Error Trying to write the registry settings!"
                                WScript.Quit (Err.Number)
                        Else
                                WScript.Echo "Successfully registered CScript"
                        End If
                Else
                        WScript.Echo "To run this script type: ""CScript.Exe adsutil.vbs <cmd> <params>"""
                End If

                Dim ProcString
                Dim ArgIndex
                Dim ArgObj
                Dim Result

                ProcString = "Cscript //nologo " & WScript.ScriptFullName

                Set ArgObj = WScript.Arguments

                For ArgIndex = 0 To ArgCount - 1
                        ProcString = ProcString & " " & Args(ArgIndex)
                Next

                'Now, run the original executable under CScript.exe.
                Result = ShellObject.Run(ProcString, 0, True)

                WScript.Quit (Result)
        End If

End Sub

''''''''''''''
''''''''''''''
Sub ParseCommandLine
  If WScript.Arguments.Count = 0 Then
    Usage
    WScript.Quit(0)
  End if

  If WScript.Arguments.Count = 1 And WScript.Arguments(0) = "GET" Then
    action = "GET"
  ElseIf WScript.Arguments.Count = 2 And WScript.Arguments(0) = "REMOVE" Then
    action = "REMOVE"
    isapiFullPath = LCase(WScript.Arguments(1))
  ElseIf WScript.Arguments.Count = 2 And WScript.Arguments(0) = "ADD" Then
    action = "ADD"
    isapiFullPath = LCase(WScript.Arguments(1))
  Else 
    Usage
    WScript.Quit(1)
  End If
End Sub

''''''''''''''
''''''''''''''
Sub Usage
  WScript.Echo()
  WScript.Echo("Usage:")
  WScript.Echo("  cscript.exe " & WScript.ScriptName & " GET")
  WScript.Echo("  cscript.exe " & WScript.ScriptName & " REMOVE <isapi full-path>")
  WScript.Echo("  cscript.exe " & WScript.ScriptName & " ADD <isapi full-path>")
  WScript.Echo()
  WScript.Echo("Example:")
  WScript.Echo("  cscript.exe " & WScript.ScriptName & " REMOVE C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322")
End Sub