# VBScript [===] function

A VBScript equivalent of PHP’s ===

``````
Function [===](a, b)

[===] = false

Dim tmp_a,tmp_b
Dim key
If (isArray(a) or isArray(b)) or (isObject(a) or isObject(b)) Then

If isObject(a) and isObject(b) Then
If a.count <> b.count Then Exit Function

tmp_a = a.keys : tmp_b = b.keys
If Not [===](tmp_a,tmp_b) Then Exit Function

tmp_a = a.Items : tmp_b = b.Items
If Not [===](tmp_a,tmp_b) Then Exit Function
[===] = true
End If

If isArray(a) and isArray(b) Then
If uBound(a) <> uBound(b) Then Exit Function

For key = 0 to uBound(a)
If Not [===](a(key),b(key) ) Then Exit Function
Next

[===] = true
End If

Else
[===] = eval(a = b and vartype(a) = vartype(b))
End If

End Function

``````

Please also note that php.vbs offers community built functions and goes by the McDonald’s Theory. We’ll put online functions that are far from perfect, in the hopes to spark better contributions. Do you have one? Then please just:
{"ft_lang_label":"__label__en","ft_lang_prob":0.6264673,"math_prob":0.99159527,"size":894,"snap":"2023-14-2023-23","text_gpt3_token_len":272,"char_repetition_ratio":0.16067415,"word_repetition_ratio":0.054421768,"special_character_ratio":0.31879196,"punctuation_ratio":0.10614525,"nsfw_num_words":0,"has_unicode_error":false,"math_prob_llama3":0.99957246,"pos_list":[0],"im_url_duplicate_count":[null],"WARC_HEADER":"{\"WARC-Type\":\"response\",\"WARC-Date\":\"2023-03-21T13:35:00Z\",\"WARC-Record-ID\":\"<urn:uuid:2dede5e0-b1fc-4bee-a97b-45ae0659a597>\",\"Content-Length\":\"36955\",\"Content-Type\":\"application/http; msgtype=response\",\"WARC-Warcinfo-ID\":\"<urn:uuid:376c08bc-01b1-481a-831a-3f5e7452d4d7>\",\"WARC-Concurrent-To\":\"<urn:uuid:443dad97-423d-4171-af71-268313336c5d>\",\"WARC-IP-Address\":\"162.43.116.62\",\"WARC-Target-URI\":\"https://phpvbs.verygoodtown.com/en/vbscript-function-2/\",\"WARC-Payload-Digest\":\"sha1:HFKLBCZ7DEQTFXYBKN7ZDJGBOXB742DT\",\"WARC-Block-Digest\":\"sha1:JUFGQLYX7THDHIDNNXZJHUQJ7GYKCIZ5\",\"WARC-Identified-Payload-Type\":\"text/html\",\"warc_filename\":\"/cc_download/warc_2023/CC-MAIN-2023-14/CC-MAIN-2023-14_segments_1679296943698.79_warc_CC-MAIN-20230321131205-20230321161205-00378.warc.gz\"}"}