Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

Ständige Verbindung eines Netzlaufwerkes sicherstellen

Frage Entwicklung VB for Applications

Mitglied: 27186

27186 (Level 1)

11.01.2008, aktualisiert 16:01 Uhr, 3744 Aufrufe, 2 Kommentare

Hallo!

Habe ein Problem, und zwar würde ich gerne permanent sicherstellen dass ein bestimmtes Netzlaufwerk ständig verbunden ist, da eine bestimmte Software mit einem einerseits im Explorer existenten aber nicht verbundenem Netzlaufwerk nichts anfangen kann.

Dazu habe ich folgendes VB-Skript angelegt. Um das Problem direkt nach dem Hochfahren des Rechners zu lösen, lösche ich zu Beginn des Skriptes das entsprechende Netzlaufwerk, welches kurz darauf wieder angelegt wird, und somit verbunden ist.

Das Problem ist aber, wenn der Server kurzzeitig ausfällt. Das Netzlaufwerk existiert zwar weiter, aber eben unverbunden… Und das Laufwerk in einer Schleife ständig zu löschen und neu zu mappen kommt auch nicht in Frage... Was wenn dann gerade ein Zugriff stattfindet?!

01.
Set WshNetwork = Wscript.CreateObject("Wscript.Network") 
02.
 
03.
Dim objNetwork, objShell, objApplication 
04.
Dim strDriveName, strDriveLetter, strRemotePath 
05.
Set objNetwork = CreateObject("WScript.Network") 
06.
Set objShell = CreateObject("Shell.Application") 
07.
strDriveLetter = "W:" 
08.
 
09.
On Error resume next 
10.
objNetwork.RemoveNetworkDrive strDriveLetter, True, True 
11.
 
12.
Public Function mapDrives(strDriveName, strDriveLetter, strRemotePath, strUsername, strPassword) 
13.
  objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, FALSE, strUsername, strPassword  
14.
  objShell.NameSpace(strDriveLetter).Self.Name = strDriveName  
15.
  mapDrives = "" 
16.
End Function 
17.
 
18.
Public Function map(DriveLetter, RemotePath) 
19.
  On Error resume next 
20.
  mapDrives "Data", DriveLetter, RemotePath, "admin", "admin" 
21.
  if err.Number <> 0 then 
22.
    if err.Number <> -2147024811 then 'err.Number means: 'Networkdrive is already mapped' 
23.
      msgBox vbcrlf & err.description & vbcrlf & " Check availability -> " & DriveLetter & RemotePath 
24.
    end if 
25.
    err.clear 
26.
  end if 
27.
end Function 
28.
 
29.
do 
30.
31.
  '-------------------- map drive 
32.
33.
  'map "Y:", "\\server\share" 
34.
   
35.
  WScript.sleep 10000 
36.
loop
Mitglied: Majestro
11.01.2008 um 15:56 Uhr
Hallo,
sag uns mal bitte um welche Infrastruktur ( OS usw... ) es sich handelt !

Gruß
Björn
Bitte warten ..
Mitglied: 27186
11.01.2008 um 16:01 Uhr
WIN XP PRO in einer Arbeitsgruppe...
Bitte warten ..
Ähnliche Inhalte
Windows 10
Ständige SSD Aktivität bei bestehender Skype-Verbindung (1)

Frage von Bluffy zum Thema Windows 10 ...

LAN, WAN, Wireless
Externe Erreichbarkeit sicherstellen (9)

Frage von Mr.Error zum Thema LAN, WAN, Wireless ...

Windows Server
gelöst Netzlaufwerke mit einer VPN Verbindung verbinden lassen (16)

Frage von M.Marz zum Thema Windows Server ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Windows 10
Windows 10 Fall Creators Update Fehler (14)

Frage von ZeroCool23 zum Thema Windows 10 ...

Windows Installation
Windows 10 neu installieren (9)

Frage von imebro zum Thema Windows Installation ...