Script Error Local Device already in use

[OLDMO]

I know I need to dissconnect drive w before I run this script..what is the syntax to do this...I've tried and can't figure it out since I'm new to vbscript. Here is my script this far.


ONST ForAppending = 8
reason = InputBox("Why are you accessing the server? Please give a reason. note: A blank response will be questioned by OMNB management!","Authorized Personnel Only!!!!")


Set fso = CreateObject("Scripting.FileSystemObject")
Set WSHNetwork = CreateObject("Wscript.Network")
WSHNetwork.MapNetworkDrive "w:", "\\*******\********",True
report = WSHNetwork.Username & " accessed the server at "& Now & " for the following reason:" & vbCrLf
report = report & reason & vbCrLf

If Not fso.FileExists("w:\sunshineserverlogin.txt") Then
fso.CreateTextFile ("w:\serverlogin.txt")
End If
Set ts = fspenTextFile ("w:\sunshineserverlogin.txt", ForAppending)
ts.write report

 

[PHV]

Have you tried this ?
WSHNetwork.RemoveNetworkDrive "w:"

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[mrmovie]

sorry why do you need to connect a drive in the first place? if all you are doing is reading, writing, creating, files/folders etc on a computer then you dont need to map a drive at all......

 

[OLDMO]

This is a server and I want it to create the file in a folder on our main server where the other logs will be placed.

 

[mrmovie]

again, i still dont think you need to map a drive.
cany you just use the url \\sername\sharename\filename etc

 

[PHV]

I agree with mrmovie, the fso can handle UNC.

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[mrmovie]

sorry got my lav mixed up with my pisser