Hi,

I am new to VBS and i am trying to open IE once in my script. the purpose of my script is to map network drives and as of right now i have IE opening each time a drive is being mapped and i would like to eliminate that. here is part of my code.

Code:
Option Explicit
	const pcstrPath = ";G:\SYSINFO;F:\Public"
        const pcstrC3Server = "\\Z02DBCVSC01\"
	dim OIE,Time_out,Title,Button
	set oIE = CreateObject("InternetExplorer.Application") 
	Modeless oIE, "VSC Logon Script is running, please wait..." 

    Dim pstrUserName,pstrGroups,pstrFailed,pstrSpecialVolChar
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p> getting User Name"
    pstrUserName = fstrGetUserProperty("samAccountName")
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p> getting group membership"
    pstrGroups = ucase(fstrGetUserProperty("MemberOf"))
    if InStr(pstrGroups, "VSC C3 SERVICE ACCOUNTS") then
	pstrSpecialVolChar = "Z"
    end if
    If fblnMapDriveAndFolder("I:", "\\Z02APPVSC01\User Share", "\" & pstrUserName) = False Then
        pstrFailed = pstrFailed & "</p>" & "I:" & "\\Z02APPVSC01\User Share\" & pstrUserName & "\  Has NOT been mapped"
    End If
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\"
    If fblnMapDriveAndFolder("G:", pcstrC3Server & pstrSpecialVolChar & "RAFACSII$", "") = False Then
        pstrFailed = pstrFailed & "</p>" & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\  Has NOT been mapped"
    End If
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "H:" & pcstrC3Server & pstrSpecialVolChar & "RAFACS$\"
    If fblnMapDriveAndFolder("H:", pcstrC3Server & pstrSpecialVolChar & "RAFACS$", "") = False Then
        pstrFailed = pstrFailed & "</p>" & "H:" & pcstrC3Server & pstrSpecialVolChar & "RAFACS$\  Has NOT been mapped"
    End If
	if InStr(pstrGroups, "VSC USERS - CIS") then
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "J:\\Z02RSCVSC04\NOVAShare\MIS\LOCAL"
	If fblnMapDriveAndFolder("J:", "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL", "") = False Then
       	pstrFailed = pstrFailed & "</p>" & "J:" & "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL  Has NOT been mapped"
       End If
    end if	
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "K:\\Z02APPVSC01\PUBARC\"
    If fblnMapDriveAndFolder("K:", "\\Z02APPVSC01\PUBARC", "") = False Then
        pstrFailed = pstrFailed & "</p>" & "K:" & "\\Z02APPVSC01\PUBARC\  Has NOT been mapped"
    End If
	if InStr(pstrGroups, "VSC USERS - CIS") then
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
	If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
       	pstrFailed = pstrFailed & "</p>" & "L:" & "\\Z02RSCVSC04\APPLShare\  Has NOT been mapped"
       End If
    end if
'	if InStr(pstrGroups, "VSC C3 Service Accounts") then
'	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
'	If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
'      	pstrFailed = pstrFailed & "</p>" & "L:" & "\\Z02RSCVSC04\APPLShare\  Has NOT been mapped"
'       End If
'    end if	
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "M:" & pcstrC3Server & pstrSpecialVolChar & "IMROOT$\"
    If fblnMapDriveAndFolder("M:", pcstrC3Server & pstrSpecialVolChar & "IMROOT$", "") = False Then
        pstrFailed = pstrFailed & "</p>" & "M:" & pcstrC3Server & pstrSpecialVolChar & "IMROOT$\  Has NOT been mapped"
    End If
'
'Sets up mappings for Supervisory share - \\Z02RSCVSC04\MGMTShare - Added by Rene 12/19/2006
'
    if InStr(pstrGroups, "VSC _ADJUDICATIONS_MGMT_ZEN - CIS") then
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
	If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
       	pstrFailed = pstrFailed & "</p>" & "N:" & "\\Z02RSCVSC04\SUPVShare\  Has NOT been mapped"
       End If
    end if
    if InStr(pstrGroups, "VSC _SIIO_ZEN - CIS") then
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
	If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
       	pstrFailed = pstrFailed & "</p>" & "N:" & "\\Z02RSCVSC04\SUPVShare\  Has NOT been mapped"
       End If
    end if	
    if InStr(pstrGroups, "VSC _N_DRIVE - CIS") then
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
	If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
       	pstrFailed = pstrFailed & "</p>" & "N:" & "\\Z02RSCVSC04\SUPVShare\  Has NOT been mapped"
       End If
    end if	
'
'End of Supervisory share mappings
'
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping " & "Checking to see if using Citrix"
    if fblnCitrix = false then
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Mapping P:\\Z02C4CVSC01\DocProd"
	If fblnMapDriveAndFolder("P:", "\\Z02C4CVSC01\DocProd", "") = False Then
	pstrFailed = pstrFailed & "</p>" &  "P:\\Z02C4CVSC01\DocProd Has NOT been mapped"
	End If
    end if
	Modeless oIE, "VSC Logon Script is running, please wait...</p></p>Setting the PATH variable"
    if fblnSetUserEnvVar("PATH",pcstrPath,True) = false then
	pstrFailed = pstrFailed & "</p>" & "Could not set the Path environment variable to: " & "</p>" & pcstrPath
    end if
  
if pstrFailed <> "" then
	Modeless oIE, " The following Errors Occured:" & pstrFailed
	call pause(10) 'pause for 5 seconds
end if


'Close the Splash Screen
oIE.quit