Von |
VC Script Anfänger |
Am |
20. November 2008 um 12:02:59 |
Frage |
Hi,
ich habe ein kleines Problem, bei dem ich nicht fündig werde und zwar geht es um folgendes:
Bisher habe ich meine Netzlaufwerke per Batch-Datei verbunden (mit Abfrage), jedoch habe ich das Problem, dass mir die Batch-Datei noch vor den üblichen Programmen startet und dann ist das ganze starten von Windows total zeitverzögert. Mit Bacht kann man leider "nicht sooo viel" machen. Daher habe ich mir überlegt, meine Netzlaufwerke mit per VB Script verbinden zu lassen.
Jetzt habe ich folgenden Code gefunden:On Error Resume Next Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For Each objComputer In colItems UN = objComputer.UserName Next Msgbox "Hello " & UN , vbOKOnly, "Welcome" Set objshell = Wscript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") objshell.Run("net use k: /d"),0 'delete exsisting map objshell.Run("net use k: \\servername\share"),0 Nur müssten hier zwei Dinge anders sein:
1. Es müsste eine Abfrage kommen, ob der Benutzer verbinden möchte (ja, nein) oder (ok, abbrechen) und 2. Wenn der Benutzer ja klickt, sollte das Programm z. B. 20 Sekunden warten bevor es anfängt zu verbinden
Leider bekomme ich das nicht hin.
Über Hilfe würde ich mich freuen!
Grüße |
|