Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB.NET 2008 Express - Wartezeit u. Netzlaufwerk umbenennen

Frage Entwicklung Visual Studio

Mitglied: SamTrex

SamTrex (Level 1) - Jetzt verbinden

06.07.2008, aktualisiert 20:42 Uhr, 9037 Aufrufe, 1 Kommentar

Hallo zusammen,
ich programmiere mal wieder in VB.NET, diesmal in der 2008'er Express Version.
Dabei habe ich z.Z. 2 Probleme, mit denen ich nicht zurande komme...
1.
Ich benötige eine Wartezeit, um dem AW die Daten anzuzeigen, sonst geht das nämlich zu schnell...
Folgendes habe ich bereits probiert:
Microsoft.VisualBasic.Shell("wartezeit.vbs" & " 3000", AppWinStyle.Hide, True)
Hier bekomme ich eine Meldung, ob ich die Datei auch ausführen möchte. - Aber es klappt, die frm bleibt vollständig stehen...

Microsoft.VisualBasic.Shell("ping.exe" & " localhost -n 3 -w 1000", AppWinStyle.Hide, True)
Wartezeit klappt, aber die in der frm per timer im 0,1 Sek. Takt angepasten Labels verschwinden!

Ich habe es statt mit Microsoft. ... auch mit objSHELL probiert, kommt aufs gleiche raus!

System.Threading.Thread.Sleep(3000)
Wartezeit klappt, aber die in der frm per timer im 0,1 Sek. Takt angepasten Labels verschwinden!

Ich benötige eine Wartezeit bei der ich keine Meldung bekomme und die Labels in der frm stehen bleiben!
Oder liegt das an dem Timer?! Nur warum dann???

2.
Ich mappe verschiedene Netzlaufwerke.
Hierfür habe ich mir eine Function geschrieben, sie trennt bei bedarf das benötigte Laufwerk, mappt das neue und benennt es um.

Function mapLW(ByVal letter As String, ByVal path As String, Optional ByVal name As String = "")
Dim arrPath As Array
arrPath = Split(path, "\")
If name = "" Then name = UBound(arrPath)
If System.IO.Directory.Exists(path) = True Then
If System.IO.Directory.Exists(letter) = True Then
objNET.removenetworkdrive(letter)
End If
objNET.mapnetworkdrive(letter, path)
If System.IO.Directory.Exists(letter) = True Then
objAPP.namespace(letter).self.name = name <- FEHLER
mapLW = path & " mapped to " & letter & " as " & name
Else
mapLW = "Mapping faild!" & vbTab & path & " to " & letter & " as " & name
End If
Else
mapLW = "Server not found!"
End If
End Function

FEHLER: Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt.
Diese Fehlermeldung bekomme ich IMMER!
Die Function habe ich mir aus einem meiner alten Logonscripts (VBS) entliehen und angepasst. Unter VB.NET kann ich ja auch mit objAPP (shell.application) arbeiten...
Ich verstehe nicht wo der Fehler liegen soll.
Das objAPP wird global erstellt...
Vorher benötige ich das Umbenennen bereits vorhandener Laufwerke mit exakt dem gleichen Code:

If System.IO.Directory.Exists("M:") Then
arrLWM = Split(My.Settings.MyLW_M, ";")
For Each i In arrLWM
arrSETTING = Split(i, ",")
If UCase(arrSETTING(0)) = UCase(System.Environment.UserName) Then
objAPP.namespace("M:").self.name = arrSETTING(1)
LOGit.WriteLine(" M: " & arrSETTING(1))
End If
Next
Else
LOGit.WriteLine(" L: Laufwerk nicht vorhanden!")
End If

Hier klappt alles reibungslos.

Für Hilfe und Ideen bin ich euch sehr dankbar!

MfG Dirk

PS: Ich denke ich gehe jetzt auch erst mal ins Bett...
Mitglied: SamTrex
06.07.2008 um 20:42 Uhr
Also,
zu 1)
Ich habe einen 2. Thread erstellt und führe das gesamte Hauptprogramm darin aus. Im Hauptthread läuft nur noch ein Timer der die Form aktualisiert.

zu 2)
Ich verstehe es ehrlich gesagt nicht:
Ich kürze 'letter' (z.B: "B:") auf "B" und speicher dies in letter2
in 'objAPP.namespace füge ich statt letter dann folgendes ein: 'letter2 & ":"'

Das ist doch exakt das gleiche wie das was ich vorher schon hatte!!! Oder nicht???
Über Aufklärung würde ich mich sehr freuen!

Danke

MfG Dirk




Function mapLW(ByVal letter As String, ByVal path As String, Optional ByVal name As String = "")
Dim arrPath As Array
Dim letter2 As String = Mid(letter, 1, 1)

status2 = "Verbinde Netzlaufwerk " & letter & " ..."
arrPath = Split(path, "\")
If name = "" Then name = UBound(arrPath)
If System.IO.Directory.Exists(path) = True Then
If System.IO.Directory.Exists(letter) = True Then
objNET.removenetworkdrive(letter)
End If
objNET.mapnetworkdrive(letter, path)
If System.IO.Directory.Exists(letter) = True Then
objAPP.namespace(letter2 & ":").self.name = name
mapLW = path & " mapped to " & letter & " as " & name
Else
mapLW = "Mapping faild!" & vbTab & path & " to " & letter & " as " & name
End If
Else
mapLW = "Server not found!"
End If
End Function
Bitte warten ..
Ähnliche Inhalte
Windows Server
DC umbenennen Windows 2008 R2
gelöst Frage von mike7050Windows Server3 Kommentare

Hallo, ich muss einen Domänencontroller auf einem Windows 2008 R2 Server umbenennen. Der Name den ich gewählt hatte ist ...

Windows Server
Server 2008 Ras u Routing
Frage von opc123Windows Server4 Kommentare

Hallo, Brauche mal hilfe bezüglich des Routing. Habe zwar paar anleitungen gefunden. Aber keine die mir weiter hilft. Mein ...

Drucker und Scanner
Lange Wartezeit beim Drucken
Frage von Tyga911Drucker und Scanner6 Kommentare

Hallo zusammen, Wir haben eine RDS-Farm mit 4 TS und 1 print server. Windows Server 2012 r2 An einem ...

Windows Server
SBS 2011 Wartezeit bis zur Anmeldung
Frage von matze91Windows Server2 Kommentare

Hallo Community! Habe einen neuen SBS 2011 aufgesetzt. Lief alles gut soweit. Ein Windows 7 Client braucht plötzlich (Problem ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 1 TagInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement16 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...