获取远程机器共享目录的物理路径的代码

来源：本站原创|时间：2020-01-10|栏目：vb|点击：次

第一：依靠135端口，用wmi。像下边的脚本是得到共享目录ttt的物理目录。

复制代码代码如下:

 
strPath ="\\192.168.1.55\ttt" 
strPath = Replace(strPath, "\\", "") 
arrPath = Split(strPath, "\") 
strComputer = arrPath(0) 
strShare = arrPath(1) 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") 
Set objWMIService =objSWbemLocator.ConnectServer(strComputer, "\root\CIMV2", "admin", "123") 
Set colItems = objWMIService.ExecQuery _ 
("Select * From Win32_Share Where Name = '" & strShare & "'") 
For Each objItem in colItems 
Wscript.Echo objItem.Path 
Next 
/*********************************微软的脚本有问题，只能得到本机***********************************************/ 
strPath = "\\atl-fs-01\public" 
strPath = Replace(strPath, "\\", "") 
arrPath = Split(strPath, "\") 
strComputer = arrPath(0) 
strShare = arrPath(1) 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery _ 
("Select * From Win32_Share Where Name = '" & strShare & "'") 
For Each objItem in colItems 
Wscript.Echo objItem.Path 
Next 
/*********************************微软的脚本有问题，只能得到本机***********************************************/ 

第二、依靠445端口，靠smb。bt5下的 nmap

复制代码代码如下:

 
root@bt:~# nmap --script smb-enum-shares --script-args=smbuser=administrator,smbpass=toor 192.168.1.108 -p445 

上一篇：VBS实现工作表按指定表头自动分表

栏目：vb

下一篇：VBS 硬盘读写统计(分区读写统计)

本文标题：获取远程机器共享目录的物理路径的代码

本文地址：https://www.xiuzhanwang.com/a1/vb/7376.html

更多vb

vb

获取远程机器共享目录的物理路径的代码

您可能感兴趣的文章

阅读排行

本栏相关

随机阅读