VBS script med kontrol af eksisterende drev
Hej !Jeg har en maskine hvorpå der med 10 min. mellemrum køres en filflytningsprocess. Jeg har flere gange opdaget at processen kører, men at det mappede drev (S) der skal kopieres til på en anden maskine ikke var tilgængeligt.
Jeg vil nu gerne lave et script der gør følgende:
Kontrollerer om S drevet findes
- Hvis S drevet findes, kald programmet
- Disconnect forbindelsen til S drevet
Såfremt dreve ikke findes skal det mappes, filerne kopieres og derefter disconnectes.
Jeg har forsøgt mig med nedenstående, men uden held. Jeg har på fornemmelsen at når der ikke er nogle mappede drev på maskinen er min collection tom og scriptet derfor fejler.
Set objNetwork = WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
If colDrives.Item(i) = "S:" Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "e:\orbit\filemove.exe", 2, true
objNetwork.RemoveNetworkDrive "S:"
Else
Set ObjNetwork = Wscript.CreateObject ("Wscript.Network")
objNetwork.MapNetworkDrive "S:", "\\server\share"
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "e:\orbit\filemove.exe", 2, true
objNetwork.RemoveNetworkDrive "S:"
End If
Next
Gode idér modtages gerne ;-)