トップ回答者
ネットワーク間のドライブ情報取得。

質問
回答
-
うーん、共有からだとちょっと難しいかもしれないですね。ネットワーク共有しているホスト側にも管理者権限のあるアカウントを使っている場合(Active DirectoryのDomain Adminとか)、WMIを使えば共有とディレクトリのマッピングが取得できますので、それではだめでしょうか?
http://msdn.microsoft.com/en-us/library/aa394436(VS.85).aspxstrComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colShares = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Share") For Each objShare in colShares Set colAssociations = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Share.Name='" & objShare.Name & "'} " _ & " WHERE AssocClass=Win32_ShareToDirectory") For Each objFolder in colAssociations Wscript.Echo objShare.Name & vbTab & objFolder.Name Next Next
出典:http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_pkgn.mspx?mfr=true
Thanks, K.Kamegawa (http://d.hatena.ne.jp/kkamegawa/)- 回答としてマーク sk7474 2009年5月11日 9:35
すべての返信
-
うーん、共有からだとちょっと難しいかもしれないですね。ネットワーク共有しているホスト側にも管理者権限のあるアカウントを使っている場合(Active DirectoryのDomain Adminとか)、WMIを使えば共有とディレクトリのマッピングが取得できますので、それではだめでしょうか?
http://msdn.microsoft.com/en-us/library/aa394436(VS.85).aspxstrComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colShares = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Share") For Each objShare in colShares Set colAssociations = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Share.Name='" & objShare.Name & "'} " _ & " WHERE AssocClass=Win32_ShareToDirectory") For Each objFolder in colAssociations Wscript.Echo objShare.Name & vbTab & objFolder.Name Next Next
出典:http://www.microsoft.com/technet/scriptcenter/guide/sas_fil_pkgn.mspx?mfr=true
Thanks, K.Kamegawa (http://d.hatena.ne.jp/kkamegawa/)- 回答としてマーク sk7474 2009年5月11日 9:35