nofreeBstrFromString :: Ptr String -> IO (Ptr String)
nofreeBstrFromString str = do
   ptr <- stringToBSTR str
   readPtr ptr
nofreeBstrFromString :: Ptr String -> IO (Ptr String)
nofreeBstrFromString str = do
   ptr <- stringToBSTR str
   readPtr ptr
nofreeBstrFromString str = do
   ptr <- stringToBSTR str
   readPtr ptr