dsullinger
MIS
I'm trying to update a web page with the drive space available on a server on our LAN. When I run this, I get an error with the "Set d=fs.GetDrive(drvPath)" command. If I run the same script against the web server the script is on, it works fine.
Any ideas?
<%
ws = "idmssql1"
drive = "c$"
drvPath = "\\" & ws & "\" & drive
Response.Write drvPath
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive(drvPath)
DiskSpace = FormatNumber((d.AvailableSpace / 1000) / 1000,0)
Response.Write "<td>" & DiskSpace & "MB</td>
%>
Any ideas?
<%
ws = "idmssql1"
drive = "c$"
drvPath = "\\" & ws & "\" & drive
Response.Write drvPath
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set d=fs.GetDrive(drvPath)
DiskSpace = FormatNumber((d.AvailableSpace / 1000) / 1000,0)
Response.Write "<td>" & DiskSpace & "MB</td>
%>