select * from Win32_OperatingSystem where (Version like "5.%" or Version like "6.1%" or Version like "10.%") and ProductType="1"
SELECT * from win32_computerSystem WHERE name LIKE "%COMPUTERNAME%"
Function check(Drive, share)
i = 0
Set oNet = CreateObject("WScript.Network")
Set drv = oNet.EnumNetworkDrives
Ushare = ucase(share)
check = ""
for each element in drv
Uelement = ucase(element)
i = i + 1
If i Mod 2 = 0 then
'msgbox n
m = i - 2
IF Uelement = Ushare and drive = drv(m) then
check = element
end if
end if
next
end function