john pfeiffer
  • Home
  • Categories
  • Tags
  • Archives

Netwdrive example.vbs

//Example of using wsh for network drives

Set WshShell = WScript.CreateObject("WScript.Shell") 
Set WshNetwork = WScript.CreateObject("WScript.Network") 
Set AllDrives = WshNetwork.EnumNetworkDrives()

DriveLetter = "N:" 'must be capitalized 
RemotePath = "\\dave\c"

AlreadyConnected = False 
For i = 0 To AllDrives.Count - 1 Step 2 
If AllDrives.Item(i) = DriveLetter Then AlreadyConnected = True 
Next

If AlreadyConnected = False then 
WShNetwork.MapNetworkDrive DriveLetter, RemotePath 
WshShell.PopUp "Drive " & DriveLetter & " connected successfully." 
Else 
WShNetwork.RemoveNetworkDrive DriveLetter 
WshShell.PopUp "Drive " & DriveLetter & " disconnected." 
End if

  • « Remote wsh
  • Lastlogontimestamp vbs »

Published

Feb 6, 2010

Category

bat-vbs-perl

~61 words

Tags

  • bat-vbs-perl 51
  • example.vbs 1
  • netwdrive 1