VBScript - Скрип предназначен для отображения UNC сетевого диска

Programming
1

Запускаем, смотрим имя диска и реальный сетевой путь.


'============================================ 
'Язык - VBScript
'Автор - sysadmin aka xck http://sys-admin.kz
'Дата - 05.12.2012
'Скрип предназначен для отображения UNC сетевого диска
'============================================ 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDrives = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DriveType = 4")

For Each objDrive in colDrives
    Wscript.Echo "Drive letter: " & objDrive.DeviceID
    Wscript.Echo "Network path: " & objDrive.ProviderName
Next