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:

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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Kommentar vom Moderator Biber am 30.12.2010 um 23: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!".

Content-ID: 157773

Url: https://administrator.de/contentid/157773

Ausgedruckt am: 22.11.2024 um 13:11 Uhr

4 Kommentare

Neuester Kommentar

Hallo bad3m3ist3r!

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 If

Grüße
bastla

Hallo bastla!

Ginge auch so

If fso.DriveExists(strDrive) Then

Gruß Dieter

Coole sache! Alles klar...das werde ich direkt mal nächste Woche Montag testen

Vielen Dank euch beiden!

Gruß

bad3m3ist3r

Hallo bad3m3ist3r, Hallo bastla!

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"

Gruß Dieter