VBS login script with a msg box

Option Explicit
 
Const conBarSpeed=80
Const conForcedTimeOut=10000
 
Dim objIE
Dim objProgressBar 
Dim objTextLine1
Dim objTextLine2 
Dim objQuitFlag
Dim WSHNetwork
 
Set WSHNetwork = WScript.CreateObject("WScript.Network")
 
Sample
 
Public Sub Sample()
	Dim intCount 
	StartIE "Mapping Drives"	
	SetLine1 "Mapping your network drives, please stand by..."
	
	'Login section
		'Map drive H:
			If IsQuit()=True Then
				CloseIE
				wscript.quit
			End If
			SetLine2 "Mapping drive H:"
			WSHNetwork.RemoveNetworkDrive "H:", 1, 1
			WSHNetwork.MapNetworkDrive "H:", "\\server1\share", 0
			
		'Map drive I:
			If IsQuit()=True Then
				CloseIE
				wscript.quit
			End If
			SetLine2 "Mapping drive I:"
			WSHNetwork.RemoveNetworkDrive "I:", 1, 1
			WSHNetwork.MapNetworkDrive "I:", "\\server2\share", 0	
	'End of login section
	
	'Close IE box
	CloseIE
End Sub
 
 
Private Sub StartIE(strTitel)
	Dim objDocument
	Dim objWshShell
	Set objIE = CreateObject("InternetExplorer.Application")
	objIE.height = 230
	objIE.width = 400
	objIE.menubar = False
	objIE.toolbar = false
	objIE.statusbar = false
	objIE.addressbar = false
	objIE.resizable = False
	objIE.navigate ("about:blank")
	' wait till ie is loaded
	While (objIE.busy)
	wend
	set objDocument = objIE.document 
	' setup the dialog box	
	WriteHtmlToDialog objDocument, strTitel
	' with ie/html loaded, define assorted objects...
	set objTextLine1 = objIE.document.all("txtMilestone")
	set objTextLine2 = objIE.document.all("txtRemarks")
	Set objProgressBar = objIE.document.all("pbText")
	set objQuitFlag = objIE.document.Secret.pubFlag
	objTextLine1.innerTEXT = ""
	objTextLine2.innerTEXT = ""
	' objIE.document.body.innerHTML = "Building Document..." + "<br>load time= " + n
	objIE.visible = True
	' set focus to ie 
	Set objWSHShell = WScript.CreateObject("WScript.Shell")
	'objWshShell.AppActivate("Microsoft Internet Explorer")
	objWshShell.AppActivate("Windows Internet Explorer")
End Sub
 
Private Function CloseIE()
	On Error Resume Next
	objIE.quit
End Function 
 
Private sub SetLine1(sNewText)
	On Error Resume Next
	objTextLine1.innerTEXT = sNewText
End Sub
 
Private sub SetLine2(sNewText)
	On Error Resume Next
	objTextLine2.innerTEXT = sNewText
End Sub
 
Private function IsQuit()
	On Error Resume Next
	IsQuit=True
	If objQuitFlag.Value<>"quit" Then
		IsQuit=False
	End If
End function
 
Private Sub WriteHtmlToDialog(objDocument, strTitel)
	objDocument.Open
	objDocument.Writeln "<title>" & strTitel & "</title> "
	objDocument.Writeln "<style>"
	objDocument.Writeln " BODY {background: Silver} BODY { overflow:hidden }"
	objDocument.Writeln " P.txtStyle {color: Navy; font-family: Verdana; font-size: 10pt; font-weight: bold; margin-left: 10px } "
	objDocument.Writeln " input.pbStyle {color: Navy; font-family: Wingdings; font-size: 10pt; background: Silver; height: 20px; width: 340px } " 
	objDocument.Writeln "</style>"
	objDocument.Writeln "<div id=""objProgress"" class=""Outer""></div>"
	' write out text lines... 
	 objDocument.Writeln "<P id=txtMilestone class='txtStyle' style='margin-left: 10px'> </P>"
	objDocument.Writeln "<P id=txtRemarks class='txtStyle' style='margin-left: 10px' ></P>"
	objDocument.Writeln "<CENTER>"
	' write progbar
	objDocument.Writeln "<input type='text' id='pbText' class='pbStyle' value='' >" 
	objDocument.Writeln "<br><br>" ' space down a little
	' write cancel button...
	objDocument.Writeln "<input type='button' value='Cancel' onclick='SetReturnFlag(""quit"")' >"
	objDocument.Writeln "</CENTER>" 
	' write hidden object...
	objDocument.Writeln "<form name='secret' ><input type='hidden' name='pubFlag' value='run' ></form>" 
	objDocument.Writeln "<SCRIPT LANGUAGE='VBScript' >" 
	' write "local script" to handle cmdCancel_Click event...
	objDocument.Writeln "Sub SetReturnFlag(sFlag)"
	objDocument.Writeln " secret.pubFlag.Value = sFlag"
	objDocument.Writeln " txtMileStone.style.color = ""Red"" "
	objDocument.Writeln " txtRemarks.style.color = ""Red"" "
	objDocument.Writeln "End Sub" 
	' progress bar
	objDocument.Writeln "Function PctComplete(nPct)"
	objDocument.Writeln "pbText.Value = String(nPct,"" "") & String(4,""n"")"
	objDocument.Writeln "End Function"
	' calc progress bar and direction
	objDocument.Writeln "Sub UpdateProgress()"
	objDocument.Writeln "Dim intStep"
	objDocument.Writeln "Dim intDirection"
	objDocument.Writeln "If (IsNull(objProgress.getAttribute(""Step"")) = True) Then"
	objDocument.Writeln "intStep = 0"
	objDocument.Writeln "Else"
	objDocument.Writeln "intStep = objProgress.Step"
	objDocument.Writeln "End If"
	objDocument.Writeln "if (IsNull(objProgress.GetAttribute(""Direction""))=True) Then"
	objDocument.Writeln "intDirection = 0"
	objDocument.Writeln "Else"
	objDocument.Writeln "intDirection = objProgress.Direction"
	objDocument.Writeln "End If"
	objDocument.Writeln "if intDirection=0 then"
	objDocument.Writeln "intStep = intStep + 1"
	objDocument.Writeln "else"
	objDocument.Writeln "intStep = intStep - 1"
	objDocument.Writeln "end if"
	objDocument.Writeln "Call PctComplete(intStep)"
	objDocument.Writeln "if intStep>=23 then"
	objDocument.Writeln "intDirection=1"
	objDocument.Writeln "end if"
	objDocument.Writeln "if intStep<=0 then"
	objDocument.Writeln "intDirection=0"
	objDocument.Writeln "end if"
	objDocument.Writeln "objProgress.SetAttribute ""Step"", intStep"
	objDocument.Writeln "objProgress.SetAttribute ""Direction"", intDirection"
	objDocument.Writeln "Window.setTimeout GetRef(""UpdateProgress""), " & conBarSpeed
	objDocument.Writeln "End Sub"
	' timeout function
	objDocument.Writeln "Sub DialogHardTimeout()"
	objDocument.Writeln "SetReturnFlag(""quit"")"
	objDocument.Writeln "End sub"
	objDocument.Writeln "Sub Window_OnLoad()"
	objDocument.Writeln "theleft = (screen.availWidth - document.body.clientWidth) / 2"
	objDocument.Writeln "thetop = (screen.availHeight - document.body.clientHeight) / 2"
	objDocument.Writeln "window.moveTo theleft,thetop"
	objDocument.Writeln "Window.setTimeout GetRef(""UpdateProgress""), " & conBarSpeed
	objDocument.Writeln "Window.setTimeout GetRef(""DialogHardTimeout""), " & conForcedTimeOut
	objDocument.Writeln "End Sub"
	objDocument.Writeln "</SCRIPT>"
	objDocument.Close 
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178: