{"id":1999,"date":"2024-12-07T23:10:21","date_gmt":"2024-12-07T14:10:21","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1999"},"modified":"2024-12-07T23:19:44","modified_gmt":"2024-12-07T14:19:44","slug":"32bit-lan-pc-all-istup01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075010_ac2ktips\/32bit-lan-pc-all-istup01","title":{"rendered":"32bit\u7528\uff3f\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306b\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u5168\u3066\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\uff1f"},"content":{"rendered":"<p>32bit\u7528\uff3f\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306b\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u5168\u3066\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\uff1f<\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #ff0000;\">\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span><br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605\u5fdc\u7528<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Explicit\r\n\r\nType NETRESOURCE\r\n     dwScope As Long\r\n     dwType As Long\r\n     dwDisplayType As Long\r\n     dwUsage As Long\r\n     lpLocalName As String\r\n     lpRemoteName As String\r\n     lpComment As String\r\n     lpProvider As String\r\nEnd Type\r\n\r\nType LPNETRESOURCE\r\n     dwScope As Long\r\n     dwType As Long\r\n     dwDisplayType As Long\r\n     dwUsage As Long\r\n     lpLocalName As Long\r\n     lpRemoteName As Long\r\n     lpComment As Long\r\n     lpProvider As Long\r\nEnd Type\r\n\r\n'================================================\r\n 'dwScope \/\/ \u30ea\u30bd\u30fc\u30b9\u306e\u7bc4\u56f2\r\n'\u5217\u6319\u3059\u308b\u30ea\u30bd\u30fc\u30b9\u306e\u7bc4\u56f2\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6b21\u306e\u5024\u306e\u3044\u305a\u308c\u304b\u3092\u6307\u5b9a\u3057\u307e\u3059\r\n'================================================\r\n '\u73fe\u5728\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\uff08dwUsage \u30d1\u30e9\u30e1\u30fc\u30bf\r\n'\u306f\u7121\u8996\u3055\u308c\u307e\u3059\uff09\r\nPublic Const RESOURCE_CONNECTED = &H1\r\n '\u547c\u3073\u51fa\u3057\u5074\u306e\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u30b3\u30f3\u30c6\u30ad\u30b9\u30c8\u5185\uff08\uff3b\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\r\n'\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\uff3d\u306b\u8868\u793a\u3055\u308c\u308b\u7bc4\u56f2\uff09\u306e\u30ea\u30bd\u30fc\u30b9\uff08dwUsage\r\n '\u30d1\u30e9\u30e1\u30fc\u30bf\u306f\u7121\u8996\u3055\u308c\u307e\u3059\uff09\r\nPublic Const RESOURCE_CONTEXT = &H5\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u4e0a\u306e\u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCE_GLOBALNET = &H2\r\n'\u8a18\u61b6\u3055\u308c\u3066\u3044\u308b\u63a5\u7d9a\uff08dwUsage \u30d1\u30e9\u30e1\u30fc\u30bf\u306f\u7121\u8996\u3055\u308c\u307e\u3059\uff09\r\nPublic Const RESOURCE_REMEMBERED = &H3\r\n\r\n'================================================\r\n 'dwType \/\/ \u30ea\u30bd\u30fc\u30b9\u306e\u7a2e\u985e\r\n'\u5217\u6319\u3059\u308b\u30ea\u30bd\u30fc\u30b9\u306e\u7a2e\u985e\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6b21\u306e\u5024\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u6307\u5b9a\u3057\u307e\u3059\r\n'================================================\r\n '\u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\uff08RESOURCETYPE_DISK \u307e\u305f\u306f RESOURCETYPE_PRINT\r\n '\u3068\u306e\u7d44\u307f\u5408\u308f\u305b\u306f\u4e0d\u53ef\uff09\r\nPublic Const RESOURCETYPE_ANY = &H0\r\n'\u3059\u3079\u3066\u306e\u30c7\u30a3\u30b9\u30af\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCETYPE_DISK = &H1\r\n'\u3059\u3079\u3066\u306e\u5370\u5237\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCETYPE_PRINT = &H2\r\n\r\n'================================================\r\n 'dwUsage \/\/ \u30ea\u30bd\u30fc\u30b9\u306e\u7528\u9014\r\n'\u5217\u6319\u3059\u308b\u30ea\u30bd\u30fc\u30b9\u306e\u7528\u9014\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6b21\u306e\u5024\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'================================================\r\n '0 \u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\r\n' \u3059\u3079\u3066\u306e\u63a5\u7d9a\u53ef\u80fd\u306a\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCEUSAGE_CONNECTABLE = &H1\r\n' \u3059\u3079\u3066\u306e\u30b3\u30f3\u30c6\u30ca\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCEUSAGE_CONTAINER = &H2\r\n\r\n'================================================\r\n 'dwDisplayType \/\/ \u8868\u793a\u30bf\u30a4\u30d7\r\n'\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u306a\u3069\u3067\u8868\u793a\u3055\u308c\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30bf\u30a4\u30d7\r\n'================================================\r\n '\u4e00\u822c\r\nPublic Const RESOURCEDISPLAYTYPE_GENERIC = &H0\r\n'\u30c9\u30e1\u30a4\u30f3\r\nPublic Const RESOURCEDISPLAYTYPE_DOMAIN = &H1\r\n'\u30b5\u30fc\u30d0\r\nPublic Const RESOURCEDISPLAYTYPE_SERVER = &H2\r\n'\u5171\u6709\r\nPublic Const RESOURCEDISPLAYTYPE_SHARE = &H3\r\n\r\n'================================================\r\n 'WNetOpenEnum \u623b\u308a\u5024\r\n'================================================\r\n 'lpNetResource \u30d1\u30e9\u30e1\u30fc\u30bf\u304c\u30b3\u30f3\u30c6\u30ca\u30ea\u30bd\u30fc\u30b9\u3092\u6307\u3057\u3066\u3044\u307e\u305b\u3093\u3002\r\nPublic Const ERROR_NOT_CONTAINER = 1207&\r\n'dwScope \u30d1\u30e9\u30e1\u30fc\u30bf\u307e\u305f\u306f dwType \u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u5024\u304c\u7121\u52b9\u3067\u3059\u3002\r\nPublic Const ERROR_INVALID_PARAMETER = 87 ' dderror\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u304c\u3042\u308a\u307e\u305b\u3093\u3002\r\nPublic Const ERROR_NO_NETWORK = 1222&\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u56fa\u6709\u306e\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002\u30a8\u30e9\u30fc\u306e\u8a73\u7d30\u306f\u3001\r\n'WNetGetLastError \u95a2\u6570\u3067\u53d6\u5f97\u3067\u304d\u307e\u3059\u3002\r\nPublic Const ERROR_EXTENDED_ERROR = 1208&\r\n\r\n'================================================\r\n 'WNetEnumResource \u623b\u308a\u5024\r\n'================================================\r\n '\u5217\u6319\u304c\u6210\u529f\u3057\u3001\u8981\u6c42\u3057\u305f\u30c7\u30fc\u30bf\u304c\u30d0\u30c3\u30d5\u30a1\u306b\u683c\u7d0d\u3055\u308c\u307e\u3057\u305f\u3002\r\n'\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306f\u3001\u5f15\u304d\u7d9a\u304d\u3053\u306e\u95a2\u6570\u3092\u547c\u3073\u51fa\u3057\u3066\u3001\u5217\u6319\r\n'\u3092\u7d9a\u3051\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\r\nPublic Const NO_ERROR = 0\r\n'\u3053\u308c\u4ee5\u4e0a\u5217\u6319\u3059\u308b\u30a8\u30f3\u30c8\u30ea\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u3053\u306e\u3068\u304d\u306e\u30d0\u30c3\u30d5\u30a1\r\n'\u306e\u5185\u5bb9\u306f\u3001\u672a\u5b9a\u7fa9\u3067\u3059\u3002\r\nPublic Const ERROR_NO_MORE_ITEMS = 259&\r\n'================================================\r\n '\u307e\u3060\u5217\u6319\u3067\u304d\u308b\u30a8\u30f3\u30c8\u30ea\u304c\u6b8b\u3063\u3066\u3044\u307e\u3059\u3002\r\nPublic Const ERROR_MORE_DATA = 234\r\n'hEnum \u30cf\u30f3\u30c9\u30eb\u304c\u7121\u52b9\u3067\u3059\u3002\r\nPublic Const ERROR_INVALID_HANDLE = 6&\r\n'ERROR_EXTENDED_ERROR\u3001ERROR_NO_NETWORK \u3082\u8fd4\u3055\u308c\u307e\u3059\u3002\r\n'================================================\r\n\r\nDeclare Function WNetOpenEnum Lib \"mpr.dll\" Alias \"WNetOpenEnumA\" ( _\r\n     ByVal dwScope As Long, _\r\n     ByVal dwType As Long, _\r\n     ByVal dwUsage As Long, _\r\n     LPNETRESOURCE As Any, _\r\n     lphEnum As Long) As Long\r\n\r\nDeclare Function WNetEnumResource Lib \"mpr.dll\" Alias \"WNetEnumResourceA\" ( _\r\n     ByVal hEnum As Long, _\r\n     lpcCount As Long, _\r\n     lpBuffer As Any, _\r\n     lpBufferSize As Long) As Long\r\n\r\nDeclare Function WNetCloseEnum Lib \"mpr.dll\" ( _\r\n     ByVal hEnum As Long) As Long\r\n\r\nDeclare Sub MoveMemory Lib \"kernel32\" Alias \"RtlMoveMemory\" ( _\r\n     Destination As Any, _\r\n     Source As Any, _\r\n     ByVal Length As Long)\r\n\r\nDeclare Function lstrcpy Lib \"kernel32\" Alias \"lstrcpyA\" ( _\r\n     ByVal lpString1 As Any, _\r\n     ByVal lpString2 As Any) As Long\r\n     \r\n     \r\n'###########################################################\r\n'\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u4e0a\u306ePC\u540d\u3092\u3001\u300c\u7570\u306a\u308b\u30ef\u30fc\u30af\u30b0\u30eb\u30fc\u30d7\u300d\u3067\u3042\u3063\u3066\u3082\r\n'\u5168\u90e8\u53d6\u5f97\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\r\n'\u305f\u3060\u3057\u3001PC\u306e\u307f\u3067\u3001\u30b9\u30de\u30db\u306a\u3069\u306f\u7121\u8996\u3055\u308c\u307e\u3059\u3002\r\n'\u307e\u305f\u3001\u30ef\u30fc\u30af\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u5909\u3048\u305f\u76f4\u5f8c\u3060\u3068\u3001\r\n'\uff08\u8a2d\u5b9a\u5909\u66f4\u306e\u53cd\u6620\u304c\u9045\u3044\u306e\u3067\uff09\u8a2d\u5b9a\u5909\u66f4\u306e\u53cd\u6620\u304c\u8ffd\u3044\u3064\u304b\u305a\u3001\r\n'\u540c\u3058PC\u540d\u304c\u51fa\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\r\n'\u4e00\u77ac\u3067\u7d42\u308f\u308a\u307e\u305b\u3093\u3002\u5c11\u3057\u6642\u9593\u304c\u304b\u304b\u308a\u307e\u3059\u3002\r\n'http:\/\/vbit.kit.co.jp\/QAndA08.htm# \u306e\r\n'\u300c\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306b\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u5168\u3066\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\uff1f\u300d\r\n'\u3092\u53c2\u8003\u306b\u3057\u3066\u4f5c\u308a\u5909\u3048\u305f\u3082\u306e\u3067\u3059\u3002\r\n'\r\n'###########################################################\r\n\r\nSub GetPCNmListInLanNetWork()\r\n\r\n    Dim nr As NETRESOURCE\r\n    Dim lpnr As LPNETRESOURCE\r\n    Dim bnr(1000) As Byte\r\n    Dim strRemoteName As String\r\n    Dim hEnum As Long\r\n    Dim BufSize As Long\r\n    Dim ret As Long\r\n    \r\n    Dim v_WG As Variant\r\n    Dim j As Integer\r\n    Dim s_PcNmList As String\r\n    \r\n    \r\n    s_PcNmList = \"\"\r\n    strRemoteName = String$(512, 0)\r\n    \r\n    \r\n    \r\n    ' NETRESOURCE\u69cb\u9020\u4f53\u3092\u8a2d\u5b9a\r\n    nr.dwScope = RESOURCE_GLOBALNET\r\n    nr.dwType = RESOURCETYPE_ANY\r\n    nr.dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN\r\n    nr.dwUsage = RESOURCEUSAGE_CONTAINER\r\n    \r\n\r\n    v_WG = GetWGNmList\r\n    \r\n    \r\n    For j = 0 To UBound(v_WG)\r\n    \r\n        nr.lpRemoteName = v_WG(j)    '\u2190\u30b3\u30b3\u3060\u3051\u66f8\u304d\u63db\u3048\u308b\uff01\u2605\u2605\u2605\r\n        nr.lpProvider = \"Microsoft Windows Network\"\r\n        \r\n        ' \u8a2d\u5b9a\u3055\u308c\u305f NETRESOURCE \u3067\u30aa\u30fc\u30d7\u30f3\r\n        ret = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, nr, hEnum)\r\n        \r\n        BufSize = 1000\r\n        ' WNetEnumResource \u3067\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u306e\u60c5\u5831\u3092\u53d6\u5f97\r\n        Do While WNetEnumResource(hEnum, 1, bnr(0), BufSize) = NO_ERROR\r\n        \r\n            '\u53d6\u5f97\u3057\u305f\u30c7\u30fc\u30bf\u3092 strRemoteName \u306b\u30b3\u30d4\u30fc\r\n            MoveMemory lpnr, bnr(0), Len(lpnr)\r\n            lstrcpy strRemoteName, lpnr.lpRemoteName\r\n        \r\n           'strRemoteName \u306e\u5f8c\u308d\u306e Chr$(0) \u3092\u30ab\u30c3\u30c8\r\n'            Debug.Print Left$(strRemoteName, InStr(strRemoteName, vbNullChar) - 1)\r\n            s_PcNmList = s_PcNmList & Left$(strRemoteName, InStr(strRemoteName, vbNullChar) - 1) & \",\"\r\n        Loop\r\n        \r\n        WNetCloseEnum hEnum\r\n        \r\n    Next j\r\n\r\n    Debug.Print s_PcNmList\r\n    \r\nEnd Sub\r\n\r\n'###########################################################\r\n'\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u4e0a\u306e\u3059\u3079\u3066\u306e\u30ef\u30fc\u30af\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u53d6\u5f97\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u3002\r\n'\r\n'###########################################################\r\n\r\nFunction GetWGNmList() As Variant\r\n\r\n    Dim nr As NETRESOURCE\r\n    Dim lpnr As LPNETRESOURCE\r\n    Dim bnr(1000) As Byte\r\n    Dim strRemoteName As String\r\n    Dim hEnum As Long\r\n    Dim BufSize As Long\r\n    Dim ret As Long\r\n    \r\n    Dim v_Tmplist() As String\r\n    Dim i As Integer\r\n    \r\n    i = 0\r\n    ReDim v_Tmplist(10)\r\n    \r\n    strRemoteName = String$(512, 0)\r\n    \r\n    ' NETRESOURCE\u69cb\u9020\u4f53\u3092\u8a2d\u5b9a\r\n    nr.dwScope = RESOURCE_GLOBALNET\r\n    nr.dwType = RESOURCETYPE_ANY\r\n    nr.dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN\r\n    nr.dwUsage = RESOURCEUSAGE_CONTAINER\r\n    nr.lpRemoteName = \"\"    '\u2190\u30b3\u30b3\u3060\u3051\u66f8\u304d\u63db\u3048\u308b\uff01\u2605\u2605\u2605\r\n    nr.lpProvider = \"Microsoft Windows Network\"\r\n    \r\n    ' \u8a2d\u5b9a\u3055\u308c\u305f NETRESOURCE \u3067\u30aa\u30fc\u30d7\u30f3\r\n    ret = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, nr, hEnum)\r\n    \r\n    BufSize = 1000\r\n    ' WNetEnumResource \u3067\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u306e\u60c5\u5831\u3092\u53d6\u5f97\r\n    Do While WNetEnumResource(hEnum, 1, bnr(0), BufSize) = NO_ERROR\r\n    \r\n        '\u53d6\u5f97\u3057\u305f\u30c7\u30fc\u30bf\u3092 strRemoteName \u306b\u30b3\u30d4\u30fc\r\n        MoveMemory lpnr, bnr(0), Len(lpnr)\r\n        lstrcpy strRemoteName, lpnr.lpRemoteName\r\n    \r\n       'strRemoteName \u306e\u5f8c\u308d\u306e Chr$(0) \u3092\u30ab\u30c3\u30c8\r\n'        Debug.Print Left$(strRemoteName, InStr(strRemoteName, vbNullChar) - 1)\r\n        v_Tmplist(i) = Left$(strRemoteName, InStr(strRemoteName, vbNullChar) - 1)\r\n'        Debug.Print v_Tmplist(i)\r\n        i = i + 1\r\n    Loop\r\n    \r\n    WNetCloseEnum hEnum\r\n    \r\n    ReDim Preserve v_Tmplist(i - 1)\r\n    \r\n    GetWGNmList = v_Tmplist()\r\n    \r\n    \r\n\r\nEnd Function\r\n\r\n\r\n\r\n\r\n\r\nFunction MultiReturnArray(a_sPath)\r\n\r\n    Dim sPath\r\n\r\n    Dim sFile\r\n\r\n    Dim i\r\n\r\n    \r\n\r\n    i = InStrRev(a_sPath, \"\\\")\r\n\r\n    \r\n\r\n    sPath = Left(a_sPath, i)\r\n\r\n    sFile = Mid(a_sPath, i + 1)\r\n\r\n    \r\n\r\n    MultiReturnArray = Array(sPath, sFile)\r\n\r\nEnd Function\r\n\r\n\r\nSub MultiReturnArrayTest()\r\n\r\n    Dim sPath\r\n\r\n    Dim v\r\n\r\n    Dim s\r\n\r\n    \r\n\r\n    sPath = \"C:\\web\\test\\abc.txt\"\r\n\r\n    \r\n\r\n    v = MultiReturnArray(sPath)\r\n\r\n    \r\n\r\n    For Each s In v\r\n\r\n        Debug.Print s\r\n\r\n    Next\r\n\r\nEnd Sub\r\n\r\n\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u2605\u57fa\u672c<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nOption Explicit\r\n\r\nType NETRESOURCE\r\n     dwScope As Long\r\n     dwType As Long\r\n     dwDisplayType As Long\r\n     dwUsage As Long\r\n     lpLocalName As String\r\n     lpRemoteName As String\r\n     lpComment As String\r\n     lpProvider As String\r\nEnd Type\r\n\r\nType LPNETRESOURCE\r\n     dwScope As Long\r\n     dwType As Long\r\n     dwDisplayType As Long\r\n     dwUsage As Long\r\n     lpLocalName As Long\r\n     lpRemoteName As Long\r\n     lpComment As Long\r\n     lpProvider As Long\r\nEnd Type\r\n\r\n'================================================\r\n 'dwScope \/\/ \u30ea\u30bd\u30fc\u30b9\u306e\u7bc4\u56f2\r\n'\u5217\u6319\u3059\u308b\u30ea\u30bd\u30fc\u30b9\u306e\u7bc4\u56f2\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6b21\u306e\u5024\u306e\u3044\u305a\u308c\u304b\u3092\u6307\u5b9a\u3057\u307e\u3059\r\n'================================================\r\n '\u73fe\u5728\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\uff08dwUsage \u30d1\u30e9\u30e1\u30fc\u30bf\r\n'\u306f\u7121\u8996\u3055\u308c\u307e\u3059\uff09\r\nPublic Const RESOURCE_CONNECTED = &H1\r\n '\u547c\u3073\u51fa\u3057\u5074\u306e\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u30b3\u30f3\u30c6\u30ad\u30b9\u30c8\u5185\uff08\uff3b\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\r\n'\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\uff3d\u306b\u8868\u793a\u3055\u308c\u308b\u7bc4\u56f2\uff09\u306e\u30ea\u30bd\u30fc\u30b9\uff08dwUsage\r\n '\u30d1\u30e9\u30e1\u30fc\u30bf\u306f\u7121\u8996\u3055\u308c\u307e\u3059\uff09\r\nPublic Const RESOURCE_CONTEXT = &H5\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u4e0a\u306e\u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCE_GLOBALNET = &H2\r\n'\u8a18\u61b6\u3055\u308c\u3066\u3044\u308b\u63a5\u7d9a\uff08dwUsage \u30d1\u30e9\u30e1\u30fc\u30bf\u306f\u7121\u8996\u3055\u308c\u307e\u3059\uff09\r\nPublic Const RESOURCE_REMEMBERED = &H3\r\n\r\n'================================================\r\n 'dwType \/\/ \u30ea\u30bd\u30fc\u30b9\u306e\u7a2e\u985e\r\n'\u5217\u6319\u3059\u308b\u30ea\u30bd\u30fc\u30b9\u306e\u7a2e\u985e\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6b21\u306e\u5024\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u6307\u5b9a\u3057\u307e\u3059\r\n'================================================\r\n '\u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\uff08RESOURCETYPE_DISK \u307e\u305f\u306f RESOURCETYPE_PRINT\r\n '\u3068\u306e\u7d44\u307f\u5408\u308f\u305b\u306f\u4e0d\u53ef\uff09\r\nPublic Const RESOURCETYPE_ANY = &H0\r\n'\u3059\u3079\u3066\u306e\u30c7\u30a3\u30b9\u30af\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCETYPE_DISK = &H1\r\n'\u3059\u3079\u3066\u306e\u5370\u5237\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCETYPE_PRINT = &H2\r\n\r\n'================================================\r\n 'dwUsage \/\/ \u30ea\u30bd\u30fc\u30b9\u306e\u7528\u9014\r\n'\u5217\u6319\u3059\u308b\u30ea\u30bd\u30fc\u30b9\u306e\u7528\u9014\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6b21\u306e\u5024\u3092\u7d44\u307f\u5408\u308f\u305b\u3066\u6307\u5b9a\u3057\u307e\u3059\u3002\r\n'================================================\r\n '0 \u3059\u3079\u3066\u306e\u30ea\u30bd\u30fc\u30b9\r\n' \u3059\u3079\u3066\u306e\u63a5\u7d9a\u53ef\u80fd\u306a\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCEUSAGE_CONNECTABLE = &H1\r\n' \u3059\u3079\u3066\u306e\u30b3\u30f3\u30c6\u30ca\u30ea\u30bd\u30fc\u30b9\r\nPublic Const RESOURCEUSAGE_CONTAINER = &H2\r\n\r\n'================================================\r\n 'dwDisplayType \/\/ \u8868\u793a\u30bf\u30a4\u30d7\r\n'\u30a8\u30af\u30b9\u30d7\u30ed\u30fc\u30e9\u306a\u3069\u3067\u8868\u793a\u3055\u308c\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30bf\u30a4\u30d7\r\n'================================================\r\n '\u4e00\u822c\r\nPublic Const RESOURCEDISPLAYTYPE_GENERIC = &H0\r\n'\u30c9\u30e1\u30a4\u30f3\r\nPublic Const RESOURCEDISPLAYTYPE_DOMAIN = &H1\r\n'\u30b5\u30fc\u30d0\r\nPublic Const RESOURCEDISPLAYTYPE_SERVER = &H2\r\n'\u5171\u6709\r\nPublic Const RESOURCEDISPLAYTYPE_SHARE = &H3\r\n\r\n'================================================\r\n 'WNetOpenEnum \u623b\u308a\u5024\r\n'================================================\r\n 'lpNetResource \u30d1\u30e9\u30e1\u30fc\u30bf\u304c\u30b3\u30f3\u30c6\u30ca\u30ea\u30bd\u30fc\u30b9\u3092\u6307\u3057\u3066\u3044\u307e\u305b\u3093\u3002\r\nPublic Const ERROR_NOT_CONTAINER = 1207&\r\n'dwScope \u30d1\u30e9\u30e1\u30fc\u30bf\u307e\u305f\u306f dwType \u30d1\u30e9\u30e1\u30fc\u30bf\u306e\u5024\u304c\u7121\u52b9\u3067\u3059\u3002\r\nPublic Const ERROR_INVALID_PARAMETER = 87 ' dderror\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u304c\u3042\u308a\u307e\u305b\u3093\u3002\r\nPublic Const ERROR_NO_NETWORK = 1222&\r\n'\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u56fa\u6709\u306e\u30a8\u30e9\u30fc\u304c\u767a\u751f\u3057\u307e\u3057\u305f\u3002\u30a8\u30e9\u30fc\u306e\u8a73\u7d30\u306f\u3001\r\n'WNetGetLastError \u95a2\u6570\u3067\u53d6\u5f97\u3067\u304d\u307e\u3059\u3002\r\nPublic Const ERROR_EXTENDED_ERROR = 1208&\r\n\r\n'================================================\r\n 'WNetEnumResource \u623b\u308a\u5024\r\n'================================================\r\n '\u5217\u6319\u304c\u6210\u529f\u3057\u3001\u8981\u6c42\u3057\u305f\u30c7\u30fc\u30bf\u304c\u30d0\u30c3\u30d5\u30a1\u306b\u683c\u7d0d\u3055\u308c\u307e\u3057\u305f\u3002\r\n'\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306f\u3001\u5f15\u304d\u7d9a\u304d\u3053\u306e\u95a2\u6570\u3092\u547c\u3073\u51fa\u3057\u3066\u3001\u5217\u6319\r\n'\u3092\u7d9a\u3051\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002\r\nPublic Const NO_ERROR = 0\r\n'\u3053\u308c\u4ee5\u4e0a\u5217\u6319\u3059\u308b\u30a8\u30f3\u30c8\u30ea\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u3053\u306e\u3068\u304d\u306e\u30d0\u30c3\u30d5\u30a1\r\n'\u306e\u5185\u5bb9\u306f\u3001\u672a\u5b9a\u7fa9\u3067\u3059\u3002\r\nPublic Const ERROR_NO_MORE_ITEMS = 259&\r\n'================================================\r\n '\u307e\u3060\u5217\u6319\u3067\u304d\u308b\u30a8\u30f3\u30c8\u30ea\u304c\u6b8b\u3063\u3066\u3044\u307e\u3059\u3002\r\nPublic Const ERROR_MORE_DATA = 234\r\n'hEnum \u30cf\u30f3\u30c9\u30eb\u304c\u7121\u52b9\u3067\u3059\u3002\r\nPublic Const ERROR_INVALID_HANDLE = 6&\r\n'ERROR_EXTENDED_ERROR\u3001ERROR_NO_NETWORK \u3082\u8fd4\u3055\u308c\u307e\u3059\u3002\r\n'================================================\r\n\r\nDeclare Function WNetOpenEnum Lib \"mpr.dll\" Alias \"WNetOpenEnumA\" ( _\r\n     ByVal dwScope As Long, _\r\n     ByVal dwType As Long, _\r\n     ByVal dwUsage As Long, _\r\n     LPNETRESOURCE As Any, _\r\n     lphEnum As Long) As Long\r\n\r\nDeclare Function WNetEnumResource Lib \"mpr.dll\" Alias \"WNetEnumResourceA\" ( _\r\n     ByVal hEnum As Long, _\r\n     lpcCount As Long, _\r\n     lpBuffer As Any, _\r\n     lpBufferSize As Long) As Long\r\n\r\nDeclare Function WNetCloseEnum Lib \"mpr.dll\" ( _\r\n     ByVal hEnum As Long) As Long\r\n\r\nDeclare Sub MoveMemory Lib \"kernel32\" Alias \"RtlMoveMemory\" ( _\r\n     Destination As Any, _\r\n     Source As Any, _\r\n     ByVal Length As Long)\r\n\r\nDeclare Function lstrcpy Lib \"kernel32\" Alias \"lstrcpyA\" ( _\r\n     ByVal lpString1 As Any, _\r\n     ByVal lpString2 As Any) As Long\r\n\r\n     \r\n'#####################################################\r\n'#####################################################\r\n     \r\nSub test()\r\n\r\nDim nr As NETRESOURCE\r\nDim lpnr As LPNETRESOURCE\r\nDim bnr(1000) As Byte\r\nDim strRemoteName As String\r\nDim hEnum As Long\r\nDim BufSize As Long\r\nDim ret As Long\r\n\r\nstrRemoteName = String$(512, 0)\r\n\r\n' NETRESOURCE\u69cb\u9020\u4f53\u3092\u8a2d\u5b9a\r\nnr.dwScope = RESOURCE_GLOBALNET\r\nnr.dwType = RESOURCETYPE_ANY\r\nnr.dwDisplayType = RESOURCEDISPLAYTYPE_DOMAIN\r\nnr.dwUsage = RESOURCEUSAGE_CONTAINER\r\nnr.lpRemoteName = \"TAKE1\"    '\u2190\u30b3\u30b3\u3060\u3051\u66f8\u304d\u63db\u3048\u308b\uff01\u2605\u2605\u2605 \"\" \u3067\u3084\u308b\u3068\u3059\u3079\u3066\u306e\u30ef\u30fc\u30af\u30b0\u30eb\u30fc\u30d7\u540d\u304c\u8868\u793a\u3055\u308c\u308b\u3002\r\n                        '\u5b58\u5728\u3057\u306a\u3044\u30ef\u30fc\u30af\u30b0\u30eb\u30fc\u30d7\u540d\u3092\u6307\u5b9a\u3059\u308b\u3068\u9577\u6642\u9593\u30d5\u30ea\u30fc\u30ba\u3053\u304f\u3068\u304d\u304c\u3042\u308b\u306e\u3067\u5e38\u306b\"\"\u306b\u3057\u3066\u304a\u304f\u3002\r\nnr.lpProvider = \"Microsoft Windows Network\"\r\n\r\n' \u8a2d\u5b9a\u3055\u308c\u305f NETRESOURCE \u3067\u30aa\u30fc\u30d7\u30f3\r\nret = WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, nr, hEnum)\r\n\r\nBufSize = 1000\r\n' WNetEnumResource \u3067\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u306e\u60c5\u5831\u3092\u53d6\u5f97\r\nDo While WNetEnumResource(hEnum, 1, bnr(0), BufSize) = NO_ERROR\r\n\r\n    '\u53d6\u5f97\u3057\u305f\u30c7\u30fc\u30bf\u3092 strRemoteName \u306b\u30b3\u30d4\u30fc\r\n    MoveMemory lpnr, bnr(0), Len(lpnr)\r\n    lstrcpy strRemoteName, lpnr.lpRemoteName\r\n\r\n   'strRemoteName \u306e\u5f8c\u308d\u306e Chr$(0) \u3092\u30ab\u30c3\u30c8\r\n    Debug.Print Left$(strRemoteName, InStr(strRemoteName, vbNullChar) - 1)\r\nLoop\r\n\r\nWNetCloseEnum hEnum\r\n\r\n\r\nEnd Sub\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><br \/>\n<SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"32bit\u7528\uff3f\u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u306b\u63a5\u7d9a\u3055\u308c\u3066\u3044\u308b\u5168\u3066\u306e\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u540d\u3092\u53d6\u5f97\u3059\u308b\u306b\u306f\uff1f \u3000\u3000 \u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002 \u3000\u3000 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[37],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1999"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1999"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1999\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1999"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1999"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}