Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'==========================================================================
'
' NAME: MapDriveList.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL : [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE : 2/8/2006
'
' COMMENT: <comment>
'
'==========================================================================
Set WSHNetwork = CreateObject("WScript.Network")
dPrompt = "******************************************" & VbCrLf
dPrompt = dPrompt & "What program do you wish to test?" & vbCrLf & "Enter Number or Q to Quit" & vbCrLf
dPrompt = dPrompt & "1 Application1" & vbCrLf
dPrompt = dPrompt & "2 Application2" & vbCrLf
dPrompt = dPrompt & "3 Application3" & vbCrLf
dPrompt = dPrompt & "******************************************" & VbCrLf
dSelection = mname
WScript.Echo(dSelection)
WScript.quit
Function mname
dSelection = InputBox(dPrompt,"Map Drives?")
Select Case ucase(dSelection)
Case "1"
WSHNetwork.RemoveNetworkDrive "X:", True, True
WSHNetwork.MapNetworkDrive "X:", "\\server\executables",True
Case "2"
WSHNetwork.RemoveNetworkDrive "X:", True, True
WSHNetwork.MapNetworkDrive "X:", "\\server\executables2",True
Case "3"
WSHNetwork.RemoveNetworkDrive "X:", True, True
WSHNetwork.MapNetworkDrive "X:", "\\server\executables3",True
Case "" 'Same as Cancel
WScript.Quit
Case "Q"
WScript.Quit
Case Else
mname
End Select
mname = dSelection
End Function
What did I provide, chopped liver?I think I'll write a litte VB app for this.