4
Vbs Script Problem (Laufwerk Umbennen)
Hallo,
ich habe folgendes Problem. Ich habe in unserem AD folgendes Script eingebaut, was auch ohne Probleme funktioniert. Jedoch ist es so, das wenn sich ein User ohne Netzwerkverbindung anmeldet, ein Fehler kommt. Dieser zeigt sich so, dass sich der Internet Explorer öffnet, und dort dann das vbs Script im der Adresszeile steht und das die Seite nicht angezeigt werden kann.
Dieser Fehler ist auch nachvollziehbar, da wenn der User nur lokal anmeldet keine Userlaufwerk zur Verfügung hat. Kann mir bitte einer sagen wie ich diesen Fehler umgehen kann. Entweder mit einer kleinen Meldung, oder einfach ohne ein Ereignis!?
Script:
Guten Rutsch schon mal vorweg!
Gruß
bad3m3ist3r
ich habe folgendes Problem. Ich habe in unserem AD folgendes Script eingebaut, was auch ohne Probleme funktioniert. Jedoch ist es so, das wenn sich ein User ohne Netzwerkverbindung anmeldet, ein Fehler kommt. Dieser zeigt sich so, dass sich der Internet Explorer öffnet, und dort dann das vbs Script im der Adresszeile steht und das die Seite nicht angezeigt werden kann.
Dieser Fehler ist auch nachvollziehbar, da wenn der User nur lokal anmeldet keine Userlaufwerk zur Verfügung hat. Kann mir bitte einer sagen wie ich diesen Fehler umgehen kann. Entweder mit einer kleinen Meldung, oder einfach ohne ein Ereignis!?
Script:
Option Explicit
Dim objShell, strDrive
strDrive = "U:"
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDrive).Self.Name = "Home" Guten Rutsch schon mal vorweg!
Gruß
bad3m3ist3r
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Kommentar vom Moderator Biber am Dec 30, 2010 um 22:46:08 Uhr
Beitrag verschoben nach "Batch & Shell", denn mehr als ein Gebrauchsallwetterskript isses ja nun nicht.
Ich hoffe, das war im diesem Jahr das letzte "Umbennen" in einem Beitrag.
Und nein, die Variante "Guten Rutsch schon mal vorweg!" mag ich auch nicht lieber als den "Vielen Dank im Vorraus!".
Ich hoffe, das war im diesem Jahr das letzte "Umbennen" in einem Beitrag.
Und nein, die Variante "Guten Rutsch schon mal vorweg!" mag ich auch nicht lieber als den "Vielen Dank im Vorraus!".
Content-Key: 157773
Url: https://administrator.de/contentid/157773
Printed on: April 20, 2024 at 10:04 o'clock
4 Comments
Latest comment
Hallo bad3m3ist3r!
Etwa so:
Grüße
bastla
Etwa so:
Option Explicit
Dim fso, objShell, strDrive
strDrive = "U:"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(strDrive & "\") Then
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDrive).Self.Name = "Home"
End Ifbastla
Hallo bastla!
Ginge auch so
Gruß Dieter
Ginge auch so
If fso.DriveExists(strDrive) ThenGruß Dieter
Coole sache! Alles klar...das werde ich direkt mal nächste Woche Montag testen 
Vielen Dank euch beiden!
Gruß
bad3m3ist3r
Vielen Dank euch beiden!
Gruß
bad3m3ist3r
Hallo bad3m3ist3r, Hallo bastla!
Habe noch ne andere Variante:
Gruß Dieter
Habe noch ne andere Variante:
Option Explicit
Dim fso, strDrive
strDrive = "U:"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.DriveExists(strDrive) Then fso.GetDrive(strDrive).VolumeName = "Home" 
