Что нового

[Сеть, интернет] Названия сетевых дисков

vcomp71

Осваивающий
Сообщения
431
Репутация
25
Код:
delnet()
mount_disk()
sleep(2000)
label_disk()

func mount_disk()
	DriveMapAdd("V:", "\\192.168.3.246\public")
	DriveMapAdd("S:", "\\192.168.3.246\public\scan")
	DriveMapAdd("Т:", "\\192.168.3.246\Документы типографии")
	DriveMapAdd("P:", "\\192.168.3.246\Документы\ЛИЧНЫЕ ПАПКИ СОТРУДНИКОВ")
	DriveMapAdd("B:", "\\192.168.3.246\База")
	DriveMapAdd("Z:", "\\192.168.3.246\База")
	DriveMapAdd("F:", "\\192.168.3.246\public\ftp")
EndFunc



func label_disk()
	DriveSetLabel("V:" & "\", "Общая_папка")
	DriveSetLabel("S:" & "\", "Сканирование")
	DriveSetLabel("T:" & "\", "Документы_типографии")
	DriveSetLabel("P:" & "\", "Личные папки")
	DriveSetLabel("B:" & "\", "Base1s")
	DriveSetLabel("Z:" & "\", "База")
	DriveSetLabel("F:" & "\", "FTP")
EndFunc

Func delnet()

DriveMapDel("V:")
DriveMapDel("S:")
DriveMapDel("Т:")
DriveMapDel("P:")
DriveMapDel("B:")
DriveMapDel("Z:")
DriveMapDel("F:")


EndFunc


При выполнении кода, почему-то, для вновь созданных дисков не переименовывает, лейблы.
Для простого диска С - работает нормально, а потом начинаются чудеса...
В чем тут может быть дело? Может у сетевых дисков как-то надо по другому переименовывать?
 

Houshi

Новичок
Сообщения
10
Репутация
0
В vbs это выглядит так:

Код:
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace("O:").Self.Name = "Диск О"
objShell.NameSpace("P:").Self.Name = "Диск Р"

возможно поможет :smile:
 
Автор
vcomp71

vcomp71

Осваивающий
Сообщения
431
Репутация
25
:laugh:
Тоже добрался до ru-board
http://forum.ru-board.com/topic.cgi?forum=62&topic=1687

Код:
Func renamedisk($mDrive,$name)

Local $oShell = ObjCreate("shell.application") ; Get the Windows Shell Object
$oShell.NameSpace($mDrive).Self.Name = $name

EndFunc
 
Верх