[VB/Access] Sharenamen + Mappen ophalen van Servers

[Verwijderd]

Heren, Dames en Goeroe's

Voor een inventarisatie ben ik bezig om in VB een scriptje te maken om aan de hand van een lijst (novell)servers de shares te achterhalen en de mappen die als 'root' in de beschikbare shares staan.

Dit alles wordt in een Access9Db gezet in de manier:
ID | Server | Share | Map
1 | server01 | sys | queue
2 | server01 | sys | control
3 | server01 | vol1 | users

Duidelijk? Mooi!

Nu mijn input:
- Ik weet alle Servernamen, deze heb ik in een eigen Tabel gezet (230 records)
- Ik weet alle Sharenamen, deze heb ik in een eigen Tabel gezet (5 records)
- Het volgende scriptje bedacht (i'm VB newbie, so don't shoot me yet!)

Visual Basic .NET:

Function LeesFolders()
    Dim db As Database
    Dim servers As Recordset
    Dim shares As Recordset
    Dim mappen As Recordset
    Dim oFSo, oFolder, oSubFolders
       
    Set db = CurrentDb
    Set servers = db.OpenRecordset("servers")
    Set shares = db.OpenRecordset("shares")
    Set mappen = db.OpenRecordset("mappen")
  
    servers.MoveFirst
    Do While Not servers.EOF
        Set oFSo = CreateObject("Scripting.FileSystemObject")
        Set oFolder = oFSo.GetFolder("\\" & servers!servers & "\" & shares!shares & "")
        Set oSubFolders = oFolder.SubFolders
        For Each oFolder In oSubFolders
        mappen.AddNew
        mappen!servers = servers!servers
        mappen!shares = shares!shares
        mappen!submappen = oFolder.Name
        mappen.Update
        Next
        servers.MoveNext
    Loop
End Function

Het Probleem

1) Hij bekijkt voor zover ik kan zien alleen de sys share (1ste record tabel shares)
2) Op een share die leeg is of een aparte server waar ik geen rechten heb, knalt ie vast!
(kan pad niet vinden, zie help, bekijk help, snap die vage ms uitleg toch nooit, search google, search fora, search got, stress out na 1 dag zoeken, post new topic op got)

Beetje geprobeerd met if statements te klooien maar hij gaat geen object verder, geeft alleen maar meer fouten.

Mijn vraag

Weet iemand:
- Hoe krijg ik het script zover dat ie, ipv vastloopt bij een share die niet voor mij toegankelijk is,
een entry 'Geen toegang' in de db zet.
- Hoe het script ook de andere Sharenamen mee neemt in de 'scan'

Het moet echt in een access db met vb module aangezien dat de 'company standard' is zeg maar... Andere talen zijn dus niet de oplossing!

[Daos]

Weet iemand:
- Hoe krijg ik het script zover dat ie, ipv vastloopt bij een share die niet voor mij toegankelijk is,
een entry 'Geen toegang' in de db zet.

Bovenaan sub/function

Visual Basic:

On Error GoTo labeltje

Ergens in die sub/function

Visual Basic:

labeltje:
'wat code

Zie Access-help voor meer info...

Weet iemand:
- Hoe het script ook de andere Sharenamen mee neemt in de 'scan'

Bij de servers ga ze allemaal af met een do-loop. Bij de shares pak je er maar een.
Oplossing: zet er ook een loop omheen