Przejdź do treści

NET USE – mapowanie dysków sieciowych (*.bat oraz VBScript)

    Utwórz na pulpicie plik tekstowy o nazwie netlogon i zmień jego rozszeżenie na *.bat (Jeśli nie wiesz jak kliknij zakładkę WIDOK następnie zaznacz ROZSZERZENIA NAZW PLIKÓW i wtedy masz możliwość zmiany naciskając F2.

    W pliku dodaj następujący tekst:

    @echo off
net use * /delete /yes
net use x: \\192.168.1.50\Public
EXIT

    Pamiętaj aby zmienić IP wg włanej sieci.

    W nowszsych systemach możesz dodać także skrypt VBScript.vbs gdzie jest możliwość nadania własnych nazw udziałó sieciowych:

    @echo off
net use * /delete /yes
:: Set the label in the registry
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##192.168.1.50#Public /v _LabelFromReg /t REG_SZ /f /d "Publiczne"
:: Map the drive
net use x: \\192.168.1.50\Public
EXIT

    Oraz trochę bardziej rozszerzona wersja powyższego:

    ' NameDrive.vbs
' VBScript to map a network drive.
' ----------------------------------------'
'
Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName
'
strDriveLetter = "W:"
strRemotePath = "\\192.168.1.50\Public\udział"
strNewName = "Własna etykieta udziału"

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

Wscript.Echo "Check : "& strDriveLetter & " for " & strNewName
WScript.Quit

' End of Example VBScript.