獲取遠(yuǎn)程機器共享目錄的物理路徑的代碼
更新時間：2012年05月23日 01:03:41 作者：
依靠135端口，用wmi。像下邊的腳本是得到共享目錄ttt的物理目錄,依靠445端口，靠smb。bt5下的 nmap
第一：依靠135端口，用wmi。像下邊的腳本是得到共享目錄ttt的物理目錄。
復(fù)制代碼 代碼如下:
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
復(fù)制代碼 代碼如下:
root@bt:~# nmap --script smb-enum-shares --script-args=smbuser=administrator,smbpass=toor 192.168.1.108 -p445
Starting Nmap 5.59BETA1 ( http://nmap.org ) at 2012-02-14 15:29 CST
Nmap scan report for 192.168.1.108
Host is up (0.00013s latency).
PORT STATE SERVICE
445/tcp open microsoft-ds
MAC Address: 00:0C:29:B3:F6:79 (VMware)
Host script results:
| smb-enum-shares:
| ADMIN$
| Type: STYPE_DISKTREE_HIDDEN
| Comment: Remote Admin
| Users: 0, Max: <unlimited>
| Path: C:\WINDOWS
| Anonymous access: <none>
| Current user ('administrator') access: READ/WRITE
| C$
| Type: STYPE_DISKTREE_HIDDEN
| Comment: Default share
| Users: 0, Max: <unlimited>
| Path: C:\
| Anonymous access: <none>
| Current user ('administrator') access: READ/WRITE
| IPC$
| Type: STYPE_IPC_HIDDEN
| Comment: Remote IPC
| Users: 1, Max: <unlimited>
| Path:
| Anonymous access: READ <not a file share>
| Current user ('administrator') access: READ <not a file share>
| NETLOGON
| Type: STYPE_DISKTREE
| Comment: Logon server share
| Users: 0, Max: <unlimited>
| Path: C:\WINDOWS\SYSVOL\sysvol\haiyangtop.com\SCRIPTS
| Anonymous access: <none>
| Current user ('administrator') access: READ/WRITE
| SYSVOL
| Type: STYPE_DISKTREE
| Comment: Logon server share
| Users: 0, Max: <unlimited>
| Path: C:\WINDOWS\SYSVOL\sysvol
| Anonymous access: <none>
| Current user ('administrator') access: READ/WRITE
| ttt
| Type: STYPE_DISKTREE
| Comment:
| Users: 0, Max: <unlimited>
| Path: c:\sharettt
| Anonymous access: <none>
|_ Current user ('administrator') access: READ
Nmap done: 1 IP address (1 host up) scanned in 0.56 seconds
root@bt:~#
相關(guān)文章
VBS教程：函數(shù)-TimeValue...2006-11-11
VBS基礎(chǔ)篇 - vbscript常用函數(shù)及功能
這篇文章主要介紹了VBS基礎(chǔ)篇 - vbscript常用函數(shù),需要的朋友可以參考下2018-06-06
這篇文章主要介紹了列出機器上vbs所有能調(diào)用的組件,需要的朋友可以參考下2008-08-08
tel.xls.vbs xls專殺工具...2007-06-06
這個VBS是用來將一個本地網(wǎng)頁中的URL篩選出來并保存在新的網(wǎng)頁文件中。當(dāng)然，只要改變里面的正則表達(dá)式，就可以作其他用途了。2009-08-08
VBS教程：運算符-運算符(+)...2006-11-11
VBS教程：函數(shù)-CDate 函數(shù)...2006-11-11
Win2003里用命令行刷新硬件列表，以掃描硬件改動的實現(xiàn)代碼
在Windows Server 2003里面實現(xiàn)用命令行刷新硬件列表，以掃描硬件改動，怎么實現(xiàn)2012-05-05
這個vbs主要用于查看當(dāng)前進程的相信信息2008-06-06
vbScript中WScript.Shell對象的run和exec使用心得分享
WScript.Shell對象提供了run和exec兩個方法，最近項目中需要在vbscript腳本中用pscp從linux服務(wù)器上copy文件。本來使用了exec方法，以下代碼2009-02-02