[Resolvido] Acessar mapeamento de rede

[soulforjah 0]

Meu amigos,

Tenho que acessar duas unidades mapeadas no servidor, mas não consigo... a resposta a rotina abaixo é:

Unidade: G

Disco esta pronto? False

Unidade: H

Disco esta pronto? False

 

Dim listadrives
Set listadrives = objFSO.Drives

For Each objDrives in listadrives

If objDrives.DriveType = 3 Then

Response.Write "Unidade: "& objDrives.DriveLetter &"<br>"
Response.Write "Disco esta pronto? "& objDrives.isReady &"<br>"

End If
Next

[soulforjah 0]

Consegui o que desejava por meio de "gatilho".

Como queria acessar outro servidor para mover backups de arquivos para servidor web...

 

pra quem se interessar:

 

 

Set oScript  = Server.CreateObject("WSCRIPT.SHELL") 
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextFile = FSO.CreateTextFile("C:\script\movearq.bat")

objTextFile.WriteLine("NET USE y: \\192.168.5.80\F$ senha /USER:usuario")
objTextFile.WriteLine("move y:\pasta1\p11\*.* c:\pasta1\p11\")
objTextFile.WriteLine("NET USE y: /DELETE")

Set objTextFile = Nothing
 
Call oScript.Run ("C:\script\movearq.bat", 0, True)

FSO.DeleteFile "C:\script\movearq.bat"
Set objTextFile = Nothing

 Set FSO = Nothing
 Set oScript = Nothing