Alukardd
Gold Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
Dim WSHShell, WSHNetwork, oShell, user, CommonWay
Set WSHNetwork = WScript.CreateObject( "WScript.Network")
Set wshShell = WScript.CreateObject("WScript.Shell")
Set oShell = CreateObject("Shell.Application")
Do While WSHNetwork.username = ""
WScript.Sleep 250
Loop
user = wshNetwork.username
CommonWay = "\\192.168.0.6\OldDocuments"
WSHNetwork.MapNetWorkDrive "I:", CommonWay
oShell.NameSpace("I:").Self.Name = "ШАРА"
WScript.Quit |
