| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : C:/Program Files (x86)/Certbot/pkgs/win32com/test/ |
Upload File : |
' Test Pyhon.Dictionary using VBScript - this uses
' IDispatchEx, so is an interesting test.
set ob = CreateObject("Python.Dictionary")
ob("hello") = "there"
' Our keys are case insensitive.
ob.Item("hi") = ob("HELLO")
dim ok
ok = true
if ob("hello") <> "there" then
WScript.Echo "**** The dictionary value was wrong!!"
ok = false
end if
if ob("hi") <> "there" then
WScript.Echo "**** The other dictionary value was wrong!!"
ok = false
end if
if ok then
WScript.Echo "VBScript has successfully tested Python.Dictionary"
end if