Netzlaufwerk umbenennen
Brauche Hilfe bei Scriptfehler
Ich hab versucht mit einer Anweisung aus einem frühren Thread meine Laufwerke umzubenennen,
damit statt "Eingang auf "Servername" (p" nur noch Eingang steht, mit folgendem Skript:
Dabei bekomme ich die Fehlermeldung Objekt erforderlich: 'NameSpace(...)'
Was ist falsch oder fehlt?
damit statt "Eingang auf "Servername" (p" nur noch Eingang steht, mit folgendem Skript:
Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName
Dim strRemotePath, strDriveLetter, strNewName
strDriveLetter = "P:"
strRemotePath = "\\Server1\Freigabe1"
strNewName = "Name_des_Laufwerks"
strRemotePath = "\\Server1\Freigabe1"
strNewName = "Name_des_Laufwerks"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
Wscript.Echo "Check : "& strDriveLetter & " for " & strNewName
WScript.Quit
Dabei bekomme ich die Fehlermeldung Objekt erforderlich: 'NameSpace(...)'
Was ist falsch oder fehlt?
Please also mark the comments that contributed to the solution of the article
Content-Key: 24358
Url: https://administrator.de/contentid/24358
Printed on: April 20, 2024 at 02:04 o'clock
2 Comments
Latest comment