Sjekke om et område er mappet opp

Jeg må også kunne sjekke om en bokstav er brukt.. F.eks. sjekke om Z: er brukt...

Hey stinesondre !
Her er et lille eksempel, der vil undersøge om kataloget er mappet.
Hvis det er mappet fortælles det i en msgbox
Hvis det ikke er, vil det mappe det som drev v. Hvis det er optaget, mappes det som drev x.

strComputer = "."
Set network = wscript.createobject("wscript.network")
Set fso = CreateObject("scripting.filesystemobject")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection",,48)
For Each objItem in colItems
strtrue = InStr(LCase(objitem.name), "\\192.168.1.200\downloads")
If strtrue > 0 Then
MsgBox "drevet eksisterer og har bogstav " & objItem.LocalName
wscript.quit
End If
Next
If not fso.driveexists ("v:") Then   
Network.MapNetworkDrive "v:", ("\\192.168.1.200\downloads")
Else
Network.MapNetworkDrive "x:", ("\\192.168.1.200\downloads")
End If

/Killer

Hov !
Her kommer lige en revideret udgave med remotename i stedet for name.
Den er lidt mere sikker.

strComputer = "."
Set network = wscript.createobject("wscript.network")
Set fso = CreateObject("scripting.filesystemobject")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection",,48)
For Each objItem in colItems
strtrue = InStr(LCase(objitem.remotename), "\\server\folder1")
If strtrue > 0 Then
MsgBox "drevet eksisterer og har bogstav " & objItem.LocalName
wscript.quit
End If
Next
If not fso.driveexists ("v:") Then 
Network.MapNetworkDrive "v:", ("\\server\folder1")
Else
Network.MapNetworkDrive "x:", ("\\server\folder1")
End If

/Killer

MEGET BRA !! Akkurat hva jeg var ute etter !! TUSEN TAKK !!

Det var så lidt :o)