Kameya blog\u300cVBScript\u3067\u30d5\u30a9\u30eb\u30c0\u30fb\u30d5\u30a1\u30a4\u30eb\u306e\u6240\u6709\u8005\u306e\u78ba\u8a8d\u3092\u884c\u3046\u300d<\/a>\u3092\u53c2\u8003\u306b\u3001ExcelVBA\u3067\u4f5c\u6210\u3057\u3066\u307f\u305f\u3002<\/p>\n\n'-----------------------------------------------------\n' \u30d5\u30a1\u30a4\u30eb\u306e\u6240\u6709\u8005\u3092\u53d6\u5f97\u3059\u308b\n' \u5f15\u6570\u3000\uff1a\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9(File Only)\n'-----------------------------------------------------\nPrivate Function GetOwner(fpath As String) As String\n \n Dim WMIService As Object\n Dim objSet As Object\n Dim obj As Object\n Dim buf As String\n \n '\u3061\u3083\u3093\u3068\u6e21\u3057\u3066\u3088\uff01\u3063\u3066\u629c\u3051\u308b\n If Len(fpath) = 0 Then Exit Function\n \n Set WMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2")\n \n buf = ""\n \n 'TODO \u672c\u5f53\u306f\u3061\u3083\u3093\u3068\u30a8\u30b9\u30b1\u30fc\u30d7\u3057\u306a\u3044\u3068\u30c0\u30e1\n Set objSet = WMIService.ExecQuery("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" _\n & Replace(fpath, "\\", "\\\\") _\n & "'} WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")\n For Each obj In objSet\n buf = buf & obj.AccountName & ","\n Next\n If Len(buf) > 0 Then\n GetOwner = Left(buf, Len(buf) - 1)\n End If\n \n Set obj = Nothing\n Set objSet = Nothing\n Set WMIService = Nothing\n\nEnd Function\n<\/pre>\n\u53c2\u7167\u3057\u305f\u30b5\u30a4\u30c8\u3060\u3068\u8a18\u8f09\u3055\u308c\u3066\u3044\u306a\u304b\u3063\u305f\u306e\u3060\u304c\u3001¥\u30de\u30fc\u30af\u306f\u4e8c\u91cd\u306b\u3057\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u3002
\n\uff08\u5e38\u8b58\uff1f\u3044\u3084\u3001C\u3068\u304bC++\u3068\u304bC#\u3068\u304b\u30fb\u30fb\u30fb\u306a\u3089\u3068\u3082\u304b\u304f\u3001VB\u66f8\u3044\u3066\u308b\u3068\u304d\u306f\u982d\u304cBasic\u30e2\u30fc\u30c9\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u3001\u5fd8\u308c\u3066\u3057\u307e\u3046\u306e\u3060\u3002\uff09
\n\u30d5\u30a9\u30eb\u30c0\u306e\u6240\u6709\u8005\u3092\u78ba\u8a8d\u3059\u308b\u3068\u304d\u306f\u3001WHERE\u53e5\u304c\u5909\u308f\u308b\u306f\u305a\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
\u3053\u306e\u30d6\u30ed\u30b0\u306e\u30a2\u30af\u30bb\u30b9\u3063\u3066\u660e\u3089\u304b\u306b\u5e73\u65e5\u304c\u591a\u3044\u3002 \u8a18\u8f09\u3057\u305f\u6280\u8853\u60c5\u5831\u304c\u5f79\u306b\u7acb\u3063\u3066\u304f\u308c\u308c\u3070\u5e78\u3044\u306a\u306e\u3060\u304c\u30fb\u30fb\u30fb \u3055\u3066\u3001\u30d5\u30a1\u30a4\u30eb\u306e\u6240\u6709\u8005\u3063\u3066\u3068\u3063\u3066\u3053\u308c\u3093\u306e\u304b\uff1f\u3063\u3066\u8a71\u3002 \u3068\u3063\u3066\u3053\u308c\u308b\u307f\u305f\u3044\u3002 Kameya blog\u300cVBScript\u3067 […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5],"tags":[43,74],"class_list":["post-2045","post","type-post","status-publish","format-standard","hentry","category-excelvba","tag-excel","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2045","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2045"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2045\/revisions"}],"predecessor-version":[{"id":2690,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2045\/revisions\/2690"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2045"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2045"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2045"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}