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
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Mjo..., men jeg vil nu meget gerne have at den chekker på drevet, da det jo er det der skal være der. Jeg kan godt forstå hvor du vil hen, men jeg syntes ikke det virker rigtigt. Der er jo altid den nemme løsning, nemlig at mappe drevet hver gang og så ellers køre on error resume next, men jeg vil gene have lavet en *rigtig* løsning. Da kopieringen i lang tid har været noget hø vil jeg gerne løse det engang for alle.
"Da kopieringen i lang tid har været noget hø vil jeg gerne løse det engang for alle."> Vælg en løsning der virker :-)
Ellers vent.. det kan være at der er en eller anden, der ved noget mere om det..
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.