Modify a script

I would like to modify this script so that it maps to the share, strDrive, instead of the users home directory. Thanks for any help

Expand|Select|Wrap|Line Numbers

 
</head>

<title>Map Network Drive</title>

<HTA:APPLICATION 

     APPLICATIONNAME="Map Drive"

     BORDER="thin"

     SCROLL="no"

     SINGLEINSTANCE="yes"

     WINDOWSTATE="normal"

>

</head>
 
<script language="VBScript">

Dim strDrive
 
Sub Window_onLoad

    strDrive = "\\10.92.36.249\data\"

    If Right(strDrive, 1) <> "\" Then strDrive = strDrive & "\"

    intWidth = 800

    intHeight = 600

    Me.ResizeTo intWidth, intHeight

    Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))

    txt_drivepath.Value = strDrive

End Sub
 
Sub Default_Buttons

    If Window.Event.KeyCode = 13 Then

        btn_mapdrive.Click

    End If

End Sub
 
Sub Update_Path

    txt_drivepath.Value = strDrive & txt_username.Value

End Sub
 
Sub MapDrive

    If Trim(txt_username.Value) = "" Then

        MsgBox "Please enter a username."

        txt_username.Focus

    ElseIf Trim(txt_password.Value) = "" Then

        MsgBox "Please enter a password."

        txt_password.Focus

    Else

        Set objNetwork = CreateObject("WScript.Network") 

        uName = txt_username.Value

        pWord = txt_password.Value

        homeDrive = txt_drivepath.value

        On Error Resume Next

        objNetwork.MapNetworkDrive "J:", homeDrive, True, uName, pWord

        If Err.Number = 0 Then

            Err.Clear

            On Error GoTo 0

            MsgBox "Drive mapping complete."

        Else

            Err.Clear

            On Error GoTo 0

            MsgBox "Failed to map network drive."

        End If

    End If

End Sub
 
</script>
 
<body STYLE="font:14 pt arial; color:white;filter:progid:DXImageTransform.Microsoft.Gradient

(GradientType=1, StartColorStr='#000033', EndColorStr='#0000FF')" onkeypress='vbs:Default_Buttons'>

    <table width='90%' height = '100%' align='center' border='0'>

        <tr>

            <td align='center'>

                <h2>Map a Drive</h2>

            </td>

        </tr>

        <tr>

            <td>

                User Name:<br>

                <input type="text" maxlength="30" size="40" id="txt_username" name="txt_username" onchange="vbs:Update_Path"><br><br>

            </td>

        </tr>

        <tr>

            <td>

                Pasword:<br>

                <input type="password" maxlength="30" size="40" id="txt_password" name="txt_password"><br><br>

            </td>

        </tr>

        <tr>

            <td>

                Drive Path:<br>

                <input type="text" maxlength="30" size="40" id="txt_drivepath" name="txt_drivepath" readonly><br><br>

            </td>

        </tr>

        <tr>

            <td align='center'>

                <input type="button" value="Map Drive" name="btn_mapdrive"  onClick="vbs:MapDrive"><br><br>

            </td>

        </tr>

    </table>
 
</body>

May 3 '10 #1

Subscribe Post Reply

821

by: Don | last post by:

I want the server-side php script to return a browser page that is essentially a copy of the original client page that contained the <form> which referenced the php script in the first place....

PHP

script for menu

by: natty | last post by:

I have been trying to edit a script for a drop down type menu. the script is working as the sub menus flash up when i hover over the title links, but they are appearing in the top left hand corner...

Javascript

Help to Modify Script

by: scorpion53061 | last post by:

I really like this javascript for an image slideshow. The only thing I woudl like to do differently is have a cell above the image and navigation that would allow text content to be placed. Does...

Javascript

How to modify this script to allow negative numbers??

by: tlyczko | last post by:

Hello Rob B posted this wonderful code in another thread, http://groups.google.com/group/comp.lang.javascript/browse_thread/thread/c84d8538025980dd/6ead9d5e61be85f0#6ead9d5e61be85f0 I could not...

Javascript

modify a long-running python script while it is running?

by: Benjamin Rutt | last post by:

I often execute a long-running python script which is a "driver" for my application; it may run for several hours on a large input. Under CPython, is it safe for me to modify the Python script...

Python

asp.net 2.0 script callbacks

by: kelly | last post by:

Hi I have an app where I have 2 dropdown lists (state and city) and a Save button. When a user selects a value from the state dropdown list, I use script callback to populate the data for the...

ASP.NET

Modify Script to change background color based on Array Index

by: DavidB | last post by:

Greetings I don't know if this is possible, but this group should be able to tell me. I have a webpage with a changing message board (I understand the problems with having changing text, but...

Javascript

Script to move files older than x days old

by: jaeden99 | last post by:

I was wandering if nyone has a script to move files older than x days old? i've seen several to delete, but I don't want to delete. I would like to create a backup of the files first verify with...

Visual Basic 4 / 5 / 6

Modify script

by: kidders | last post by:

Below is a script i need to modify to work and its driving me nuts. Essentially it fades the content of an array. The original script specified the object name, I tried to modify it to allow an...

Javascript

Image uploading code, help me modify it

by: Zarich | last post by:

This is a part of a code that i use to upload a video and a picture,but i want to modify the img part to upload the file in a diferent folder and i don't want it to create an unique folder for each...

PHP

How to turn on java script in a villaon keypad mobile phone

by: Charles Arthur | last post by:

How do i turn on java script on a villaon, callus and itel keypad mobile phone

Java

Merging data from multiple Excel files

by: ryjfgjl | last post by:

In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...

Data Management

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

What is ONU?

by: marktang | last post by:

ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...

General

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Similar topics