Opening an Application!

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Opening an Application!

Logged in as: Guest

arrSession:exec spGetSession 2,2,49229

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Opening an Application!
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Opening an Application! - 7/9/2007 11:12:50 PM

mtber

Posts: 35
Score: 0
Joined: 7/9/2007
Status: offline

Hi,

I am very new to VBS. i am creating a script that maps network drives but i do not like the original way it turned out because each time the script goes to map a drive it calls IE each time and this causes a new window to be open. i am trying to make the script so that it will open up IE only once in the beggining and then run the script to map the drives. can anyone help please.

Post #: 1

RE: Opening an Application! - 7/9/2007 11:20:41 PM

LANlazy

Posts: 82
Score: 0
Joined: 4/11/2007
Status: offline

Can you post the script so I can see what you are working with?

(in reply to mtber)

Post #: 2

RE: Opening an Application! - 7/9/2007 11:33:32 PM

mtber

Posts: 35
Score: 0
Joined: 7/9/2007
Status: offline

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... getting User Name"
  pstrUserName = fstrGetUserProperty("samAccountName")
Modeless oIE, "VSC Logon Script is running, please wait... 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 & "" & "I:" & "\\Z02APPVSC01\User Share\" & pstrUserName & "\  Has NOT been mapped"
  End If
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\"
  If fblnMapDriveAndFolder("G:", pcstrC3Server & pstrSpecialVolChar & "RAFACSII$", "") = False Then
      pstrFailed = pstrFailed & "" & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\  Has NOT been mapped"
  End If
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "H:" & pcstrC3Server & pstrSpecialVolChar & "RAFACS$\"
  If fblnMapDriveAndFolder("H:", pcstrC3Server & pstrSpecialVolChar & "RAFACS$", "") = False Then
      pstrFailed = pstrFailed & "" & "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...Mapping " & "J:\\Z02RSCVSC04\NOVAShare\MIS\LOCAL"
If fblnMapDriveAndFolder("J:", "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL", "") = False Then
      pstrFailed = pstrFailed & "" & "J:" & "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL  Has NOT been mapped"
     End If
  end if 
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "K:\\Z02APPVSC01\PUBARC\"
  If fblnMapDriveAndFolder("K:", "\\Z02APPVSC01\PUBARC", "") = False Then
      pstrFailed = pstrFailed & "" & "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...Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
      pstrFailed = pstrFailed & "" & "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...Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
' If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
'       pstrFailed = pstrFailed & "" & "L:" & "\\Z02RSCVSC04\APPLShare\  Has NOT been mapped"
'       End If
'    end if 
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "M:" & pcstrC3Server & pstrSpecialVolChar & "IMROOT$\"
  If fblnMapDriveAndFolder("M:", pcstrC3Server & pstrSpecialVolChar & "IMROOT$", "") = False Then
      pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
      pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
      pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
      pstrFailed = pstrFailed & "" & "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...Mapping " & "Checking to see if using Citrix"
  if fblnCitrix = false then
Modeless oIE, "VSC Logon Script is running, please wait...Mapping P:\\Z02C4CVSC01\DocProd"
If fblnMapDriveAndFolder("P:", "\\Z02C4CVSC01\DocProd", "") = False Then
pstrFailed = pstrFailed & "" &  "P:\\Z02C4CVSC01\DocProd Has NOT been mapped"
End If
  end if
Modeless oIE, "VSC Logon Script is running, please wait...Setting the PATH variable"
  if fblnSetUserEnvVar("PATH",pcstrPath,True) = false then
pstrFailed = pstrFailed & "" & "Could not set the Path environment variable to: " & "" & 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 
'Determines whether is the drive is already mapped
'   If it is mapped to the wrong location this function will map it to
'       the correct one
'   else if drive doesn't exist then
'       map it
' Yuppers Get 'R Done
Function fblnMapDriveAndFolder(strDriveLetter,strServerName, strPath)
  On Error resume next
  fblnMapDriveAndFolder = True
  Dim pobjFsys
  Set pobjFsys = CreateObject("Scripting.FileSystemObject")
  'correction for wrong slash
  strServerName = Replace(strServerName, "/", "\")
  strPath = Replace(strPath, "/", "\")
  'Below will put a "\\" on the front of the server name if it doesn't exist
  If Left(strServerName, 2) <> "\\" Then
      strServerName = "\\" & strServerName
  End If
  'Below will put take the "\" off of the end of the server name if it exists
  If Right(strServerName, 1) = "\" Then
      strServerName = Left(strServerName, Len(strServerName) - 1)
  End If
  'Below will put a "\" on the front of the path name if it doesn't exist
  If Left(strPath, 1) <> "\" And strPath <> "" Then
      strPath = "\" & strPath
  End If
  'Below will put a ":" on the end of the strDriveLetter if it doesn't exist
  If Right(strDriveLetter, 1) <> ":" Then
      strDriveLetter = Left(strDriveLetter, 1) & ":"
  End If
  If pobjFsys.FolderExists(strServerName & strPath) = False Then
      'Create the folder because it doesn't exist
      pobjFsys.CreateFolder strServerName & strPath & "\"
  End If
  'Check to see if the drive is already mapped
  If pobjFsys.DriveExists(strDriveLetter) = True Then
      'Check to see if the drive letter is mapped to the correct folder
      
      If pobjFsys.FolderExists(strDriveLetter & strPath) = False Or strPath = "" Then 'The drive is mapped to the wrong location
          'Map over the existing drive with the correct path
          If fblnMapDrive(strDriveLetter, strServerName, strPath, True) = False Then
             fblnMapDriveAndFolder = false
          End If
      End If
  Else 'The drive doesn't exist
      'Map the drive
      If fblnMapDrive(strDriveLetter, strServerName, strPath, False) = False Then
          fblnMapDriveAndFolder = false
      End If
  End If
  
  Set pobjFsys = Nothing
  If Err.Number <> 0 Then
err.clear
      fblnMapDriveAndFolder = False
  End If
End Function
Function fblnMapDrive(strDriveLetter, strServer, strFolderPath, blnRemoveFirst)' As Boolean
  On Error resume next
  fblnMapDrive = True
  Dim objNetwork
' Purpose of script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method. 
  Set objNetwork = CreateObject("WScript.Network")
  If blnRemoveFirst = True Then
      objNetwork.RemoveNetworkDrive strDriveLetter, True, True
  End If
      objNetwork.MapNetworkDrive strDriveLetter, strServer & strFolderPath, True
  If Err.Number <> 0 Then
      fblnMapDrive = False
  End If
End Function
function fblnSetUserEnvVar(strVariable, strValue, blnConcat)
on  Error resume next
 dim wshShell, pobjEnv
 fblnSetUserEnvVar = true
 set WshShell = CreateObject("WScript.Shell")
 Set pobjEnv = WshShell.Environment("User")
 if blnConcat = true then
pobjEnv(strVariable) = pobjEnv(strVariable) &  strValue
 else
pobjEnv(strVariable) = strValue
 end if
 if err.number <> 0 then
fblnSetUserEnvVar = false
err.clear
 end if
end function
Function fblnCitrix()
  Dim strComputer
  Dim objWMIService
  Dim clSettings
  Dim objRecord
  fblnCitrix   = true
on error resume next
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" _
      & strComputer & "\root\cimv2")
  Set clSettings = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  fblnCitrix   = false
  For Each objRecord In clSettings
if objRecord.WindowsDirectory <> "" then
if left(objRecord.WindowsDirectory,2) = "P:" then
 fblnCitrix  = true
 exit for
end if
end if
          
  Next
if err.number <> 0 then
msgbox err.description, "fblnCitrix",vbcritical
end if    
  Set objWMIService = Nothing
  Set clSettings = Nothing
End Function
'This function will return the specified property
Function fstrGetUserProperty(strProperty)
  On Error resume next
  Dim pstrConnect, pstrVal
  Dim pobjUser 'As ActiveDs.IADsUser
  pstrConnect = fstrADSpath
  Set pobjUser = GetObject(pstrConnect)
  pstrVal = pobjUser.Get(strProperty)
  if isArray(pstrVal) = true then
fstrGetUserProperty = join(pstrVal)
  else
fstrGetUserProperty = pstrVal
  end if
  If Err.Number <> 0 Then
      MsgBox Err.Description, vbCritical
  End If
  Set pobjUser = Nothing
End Function
'Gets the local Active Directory information
' Used to obtain the string to connect the user's AD object
Function fstrADSpath() 'As String
  Dim pobjAdSysInfo 'As ActiveDs.ADSystemInfo
  'Set pobjAdSysInfo = New ActiveDs.ADSystemInfo
  Set pobjAdSysInfo = CreateObject("AdSystemInfo")
  fstrADSpath = "LDAP://" & pobjAdSysInfo.UserName
  Set pobjAdSysInfo = Nothing
End Function
function fblnSetUserEnvVar(strVariable, strValue, blnConcat)
on  Error resume next
 dim wshShell, pobjEnv
 fblnSetUserEnvVar = true
 set WshShell = CreateObject("WScript.Shell")
 Set pobjEnv = WshShell.Environment("User")
 if blnConcat = true then
if instr(1,ucase(pobjEnv(strVariable)),ucase(strValue)) <= 0 then
pobjEnv(strVariable) = pobjEnv(strVariable) &  strValue
end if
 else
pobjEnv(strVariable) = strValue
 end if
 if err.number <> 0 then
fblnSetUserEnvVar = false
err.clear
 end if
end function
'******************************************************************************
'   This will pause the number of seconds passed to it
'******************************************************************************
Sub pause(seconds)
  Dim strTime 
  strTime = (second(Time) + seconds)
  If (strTime >= 60) Then
      strTime = (strTime - 60)
  End If
  Do Until (strTime = (second(Time)))
  
  Loop
End Sub
'Routine for Splash Screen
Sub Modeless(oIE, sprompt)
with oIE 
.fullscreen = True : .navigate "about:blank" 
While .readystate <> 4 : wscript.sleep 100 : Wend 
with .document 
  .write "<table bgcolor=lightblue border=3 width=100% bordercolor=black cellspacing=6 cellpadding=6" & _ 
  "height=100%><tr valign=middle><td align=center> " & _
  "<caption align=center> Mapping Network Drives.... </caption> " & _
  "<tr> " & _
  "<th>Network Drive:</th> " & _
  "<th>Connected:</th> " & _
  "<tr> " & _
  "<td align=left>(G:) Rafacsii$ on 'Z02dbcvsc01'</td> " & _
         "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(H:) Rafacs$ on ' Z02dbcvsc01'</td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(I:) User on 'Z02rscvsc07\User Share' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(J:) Local on 'Z02rscvsc07\NOVAShare\Mis' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(K:) Pubarc on 'Z02rscvsc07' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(L:) APPLShare on 'Z02rscvsc07' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(M:) Imroot$ on 'Z02dbcvsc01' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(O:) itsopshre on 'Z02rscvsc07' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=Left>(P:) DocProd on 'Z02c4cvsc01' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=Left>(Q:) PrintShare on 'Z02TBCVSC02(Z02tbcvsc02)' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "</td></tr></table>" 
  .title = "MESSAGE: _________________________________" 
   'With .ParentWindow 
  '  .resizeto 350,100 1
  '  .moveto (.screen.width - 400)\2, (.screen.height - 100)\2 
  'End With 
  With .body.style
    .borderStyle = "outset" 
    .borderWidth = "4px" 
  End With 
  .bgcolor = "white"
  .body.scroll = "NO" 
End With 
.visible = true 
End with 
End Sub

This is the code so far. i am trying to make a table to display what drives are being mapped at that time and that is why i want to have IE open only once and then have the code for the table and the drives run inside of IE.

< Message edited by ebgreen -- 7/10/2007 4:15:26 AM >

(in reply to mtber)

Post #: 3

RE: Opening an Application! - 7/9/2007 11:40:48 PM

mtber

Posts: 35
Score: 0
Joined: 7/9/2007
Status: offline

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... getting User Name" 
 pstrUserName = fstrGetUserProperty("samAccountName") 
Modeless oIE, "VSC Logon Script is running, please wait... 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 & "" & "I:" & "\\Z02APPVSC01\User Share\" & pstrUserName & "\  Has NOT been mapped" 
 End If 
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\" 
 If fblnMapDriveAndFolder("G:", pcstrC3Server & pstrSpecialVolChar & "RAFACSII$", "") = False Then 
     pstrFailed = pstrFailed & "" & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\  Has NOT been mapped" 
 End If 
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "H:" & pcstrC3Server & pstrSpecialVolChar & "RAFACS$\" 
 If fblnMapDriveAndFolder("H:", pcstrC3Server & pstrSpecialVolChar & "RAFACS$", "") = False Then 
     pstrFailed = pstrFailed & "" & "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...Mapping " & "J:\\Z02RSCVSC04\NOVAShare\MIS\LOCAL" 
If fblnMapDriveAndFolder("J:", "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL", "") = False Then 
     pstrFailed = pstrFailed & "" & "J:" & "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL  Has NOT been mapped" 
    End If 
 end if  
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "K:\\Z02APPVSC01\PUBARC\" 
 If fblnMapDriveAndFolder("K:", "\\Z02APPVSC01\PUBARC", "") = False Then 
     pstrFailed = pstrFailed & "" & "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...Mapping " & "L:\\Z02RSCVSC04\APPLShare\" 
If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then 
     pstrFailed = pstrFailed & "" & "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...Mapping " & "L:\\Z02RSCVSC04\APPLShare\" 
' If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then 
'       pstrFailed = pstrFailed & "" & "L:" & "\\Z02RSCVSC04\APPLShare\  Has NOT been mapped" 
'       End If 
'    end if  
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "M:" & pcstrC3Server & pstrSpecialVolChar & "IMROOT$\" 
 If fblnMapDriveAndFolder("M:", pcstrC3Server & pstrSpecialVolChar & "IMROOT$", "") = False Then 
     pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\" 
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then 
     pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\" 
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then 
     pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\" 
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then 
     pstrFailed = pstrFailed & "" & "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...Mapping " & "Checking to see if using Citrix" 
 if fblnCitrix = false then 
Modeless oIE, "VSC Logon Script is running, please wait...Mapping P:\\Z02C4CVSC01\DocProd" 
If fblnMapDriveAndFolder("P:", "\\Z02C4CVSC01\DocProd", "") = False Then 
pstrFailed = pstrFailed & "" &  "P:\\Z02C4CVSC01\DocProd Has NOT been mapped" 
End If 
 end if 
Modeless oIE, "VSC Logon Script is running, please wait...Setting the PATH variable" 
 if fblnSetUserEnvVar("PATH",pcstrPath,True) = false then 
pstrFailed = pstrFailed & "" & "Could not set the Path environment variable to: " & "" & 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 
'Determines whether is the drive is already mapped 
'   If it is mapped to the wrong location this function will map it to 
'       the correct one 
'   else if drive doesn't exist then 
'       map it 
' Yuppers Get 'R Done 
Function fblnMapDriveAndFolder(strDriveLetter,strServerName, strPath) 
 On Error resume next 
 fblnMapDriveAndFolder = True 
 Dim pobjFsys 
 Set pobjFsys = CreateObject("Scripting.FileSystemObject") 
 'correction for wrong slash 
 strServerName = Replace(strServerName, "/", "\") 
 strPath = Replace(strPath, "/", "\") 
 'Below will put a "\\" on the front of the server name if it doesn't exist 
 If Left(strServerName, 2) <> "\\" Then 
     strServerName = "\\" & strServerName 
 End If 
 'Below will put take the "\" off of the end of the server name if it exists 
 If Right(strServerName, 1) = "\" Then 
     strServerName = Left(strServerName, Len(strServerName) - 1) 
 End If 
 'Below will put a "\" on the front of the path name if it doesn't exist 
 If Left(strPath, 1) <> "\" And strPath <> "" Then 
     strPath = "\" & strPath 
 End If 
 'Below will put a ":" on the end of the strDriveLetter if it doesn't exist 
 If Right(strDriveLetter, 1) <> ":" Then 
     strDriveLetter = Left(strDriveLetter, 1) & ":" 
 End If 
 If pobjFsys.FolderExists(strServerName & strPath) = False Then 
     'Create the folder because it doesn't exist 
     pobjFsys.CreateFolder strServerName & strPath & "\" 
 End If 
 'Check to see if the drive is already mapped 
 If pobjFsys.DriveExists(strDriveLetter) = True Then 
     'Check to see if the drive letter is mapped to the correct folder 
     
     If pobjFsys.FolderExists(strDriveLetter & strPath) = False Or strPath = "" Then 'The drive is mapped to the wrong location 
         'Map over the existing drive with the correct path 
         If fblnMapDrive(strDriveLetter, strServerName, strPath, True) = False Then 
            fblnMapDriveAndFolder = false 
         End If 
     End If 
 Else 'The drive doesn't exist 
     'Map the drive 
     If fblnMapDrive(strDriveLetter, strServerName, strPath, False) = False Then 
         fblnMapDriveAndFolder = false 
     End If 
 End If 
 
 Set pobjFsys = Nothing 
 If Err.Number <> 0 Then 
err.clear 
     fblnMapDriveAndFolder = False 
 End If 
End Function 
Function fblnMapDrive(strDriveLetter, strServer, strFolderPath, blnRemoveFirst)' As Boolean 
 On Error resume next 
 fblnMapDrive = True 
 Dim objNetwork 
' Purpose of script to create a network object. (objNetwork) 
' Then to apply the MapNetworkDrive method. 
 Set objNetwork = CreateObject("WScript.Network") 
 If blnRemoveFirst = True Then 
     objNetwork.RemoveNetworkDrive strDriveLetter, True, True 
 End If 
     objNetwork.MapNetworkDrive strDriveLetter, strServer & strFolderPath, True 
 If Err.Number <> 0 Then 
     fblnMapDrive = False 
 End If 
End Function 
function fblnSetUserEnvVar(strVariable, strValue, blnConcat) 
on  Error resume next 
dim wshShell, pobjEnv 
fblnSetUserEnvVar = true 
set WshShell = CreateObject("WScript.Shell") 
Set pobjEnv = WshShell.Environment("User") 
if blnConcat = true then 
pobjEnv(strVariable) = pobjEnv(strVariable) &  strValue 
else 
pobjEnv(strVariable) = strValue 
end if 
if err.number <> 0 then 
fblnSetUserEnvVar = false 
err.clear 
end if 
end function 
Function fblnCitrix() 
 Dim strComputer 
 Dim objWMIService 
 Dim clSettings 
 Dim objRecord 
 fblnCitrix   = true 
on error resume next 
 strComputer = "." 
 Set objWMIService = GetObject("winmgmts:" _ 
     & "{impersonationLevel=impersonate}!\\" _ 
     & strComputer & "\root\cimv2") 
 Set clSettings = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") 
 fblnCitrix   = false 
 For Each objRecord In clSettings 
if objRecord.WindowsDirectory <> "" then 
if left(objRecord.WindowsDirectory,2) = "P:" then 
fblnCitrix  = true 
exit for 
end if 
end if 
         
 Next 
if err.number <> 0 then 
msgbox err.description, "fblnCitrix",vbcritical 
end if    
 Set objWMIService = Nothing 
 Set clSettings = Nothing 
End Function 
'This function will return the specified property 
Function fstrGetUserProperty(strProperty) 
 On Error resume next 
 Dim pstrConnect, pstrVal 
 Dim pobjUser 'As ActiveDs.IADsUser 
 pstrConnect = fstrADSpath 
 Set pobjUser = GetObject(pstrConnect) 
 pstrVal = pobjUser.Get(strProperty) 
 if isArray(pstrVal) = true then 
fstrGetUserProperty = join(pstrVal) 
 else 
fstrGetUserProperty = pstrVal 
 end if 
 If Err.Number <> 0 Then 
     MsgBox Err.Description, vbCritical 
 End If 
 Set pobjUser = Nothing 
End Function 
'Gets the local Active Directory information 
' Used to obtain the string to connect the user's AD object 
Function fstrADSpath() 'As String 
 Dim pobjAdSysInfo 'As ActiveDs.ADSystemInfo 
 'Set pobjAdSysInfo = New ActiveDs.ADSystemInfo 
 Set pobjAdSysInfo = CreateObject("AdSystemInfo") 
 fstrADSpath = "LDAP://" & pobjAdSysInfo.UserName 
 Set pobjAdSysInfo = Nothing 
End Function 
function fblnSetUserEnvVar(strVariable, strValue, blnConcat) 
on  Error resume next 
dim wshShell, pobjEnv 
fblnSetUserEnvVar = true 
set WshShell = CreateObject("WScript.Shell") 
Set pobjEnv = WshShell.Environment("User") 
if blnConcat = true then 
if instr(1,ucase(pobjEnv(strVariable)),ucase(strValue)) <= 0 then 
pobjEnv(strVariable) = pobjEnv(strVariable) &  strValue 
end if 
else 
pobjEnv(strVariable) = strValue 
end if 
if err.number <> 0 then 
fblnSetUserEnvVar = false 
err.clear 
end if 
end function 
'****************************************************************************** 
'   This will pause the number of seconds passed to it 
'****************************************************************************** 
Sub pause(seconds) 
 Dim strTime 
 strTime = (second(Time) + seconds) 
 If (strTime >= 60) Then 
     strTime = (strTime - 60) 
 End If 
 Do Until (strTime = (second(Time))) 
 
 Loop 
End Sub 
'Routine for Splash Screen 
Sub Modeless(oIE, sprompt) 
with oIE 
.fullscreen = True : .navigate "about:blank" 
While .readystate <> 4 : wscript.sleep 100 : Wend 
with .document 
 .write "<table bgcolor=lightblue border=3 width=100% bordercolor=black cellspacing=6 cellpadding=6" & _ 
 "height=100%><tr valign=middle><td align=center> " & _ 
 "<caption align=center> Mapping Network Drives.... </caption> " & _ 
 "<tr> " & _ 
 "<th>Network Drive:</th> " & _ 
 "<th>Connected:</th> " & _ 
 "<tr> " & _ 
 "<td align=left>(G:) Rafacsii$ on 'Z02dbcvsc01'</td> " & _ 
        "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=left>(H:) Rafacs$ on ' Z02dbcvsc01'</td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=left>(I:) User on 'Z02rscvsc07\User Share' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=left>(J:) Local on 'Z02rscvsc07\NOVAShare\Mis' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=left>(K:) Pubarc on 'Z02rscvsc07' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=left>(L:) APPLShare on 'Z02rscvsc07' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=left>(M:) Imroot$ on 'Z02dbcvsc01' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=left>(O:) itsopshre on 'Z02rscvsc07' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=Left>(P:) DocProd on 'Z02c4cvsc01' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "<td align=Left>(Q:) PrintShare on 'Z02TBCVSC02(Z02tbcvsc02)' </td> " & _ 
 "<td align=center></td> " & _ 
 "<tr> " & _ 
 "</td></tr></table>" 
 .title = "MESSAGE: _________________________________" 
  'With .ParentWindow 
 '  .resizeto 350,100 1 
 '  .moveto (.screen.width - 400)\2, (.screen.height - 100)\2 
 'End With 
 With .body.style 
   .borderStyle = "outset" 
   .borderWidth = "4px" 
 End With 
 .bgcolor = "white" 
 .body.scroll = "NO" 
End With 
.visible = true 
End with 
End Sub

(in reply to mtber)

Post #: 4

RE: Opening an Application! - 7/10/2007 12:58:55 AM

RobertParker

Posts: 24
Score: 2
Joined: 6/8/2007
Status: offline

wow that is a lot of code. Is Modeless opening up a new IE window each time? It seems like you overcomplicated everything in your code. Here is how I wrote an IE window into my drive mapping script.

At the beginning of the script, this piece of code creates a new window:

Set objExplorer = CreateObject("InternetExplorer.Application")
Do While (objExplorer.Busy)
' If explorer is busy, sleep for 0.1 seconds and check again, loop until explorer isn't busy
WScript.sleep 100
Loop
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Visible = 1
html = "<center><img src='companyLogo.gif''></center><ul>"
objExplorer.Document.Title = "Logon script in progress"
objExplorer.Document.Body.scroll="no"
objExplorer.Document.Body.InnerHTML = html

Then I have this subroutine to add more text to the window:

Sub addText(data)
html = html & "<li>" & data & "</li>"
objExplorer.Document.Body.InnerHTML = html
End Sub

It adds the text as bullets to the IE window, and updates the window each time.

addText "Logon script starting up"
addText "Mapping G: Drive"
addText "Mapping printers"
addText "Script finished"

would look like

logon script starting up
Mapping G: Drive
Mapping Printers
Script Finished

But you could change the html to do whatever your current script is trying to do.

< Message edited by RobertParker -- 7/10/2007 1:01:28 AM >

(in reply to mtber)

Post #: 5

RE: Opening an Application! - 7/10/2007 1:31:38 AM

mtber

Posts: 35
Score: 0
Joined: 7/9/2007
Status: offline

This is what i tried but i am getting an expected statement error and i have no idea how to fix it.

Option Explicit
'const pcstrPath = ";G:\SYSINFO;F:\Public"
      'const pcstrC3Server = "\\Z02DBCVSC01\"
dim objExplorer,Time_out,Title,Button
'set oIE = CreateObject("InternetExplorer.Application") 
'Modeless oIE, "VSC Logon Script is running, please wait..."
Set objExplorer = CreateObject("InternetExplorer.Application") 
Do While (objExplorer.Busy) 
' If explorer is busy, sleep for 0.1 seconds and check again, loop until explorer isn't busy 
WScript.sleep 100 
Loop 
objExplorer.Navigate "about:blank"   
objExplorer.ToolBar = 0 
objExplorer.StatusBar = 0 
objExplorer.Visible = 1 
'html = "<center><img src='companyLogo.gif''></center><ul>" 
'objExplorer.Document.Title = "Logon script in progress" 
'objExplorer.Document.Body.scroll="no" 
'objExplorer.Document.Body.InnerHTML = html

Dim pstrUserName,pstrGroups,pstrFailed,pstrSpecialVolChar
"VSC Logon Script is running, please wait... getting User Name"
  pstrUserName = fstrGetUserProperty("samAccountName")
"VSC Logon Script is running, please wait... 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 & "" & "I:" & "\\Z02APPVSC01\User Share\" & pstrUserName & "\  Has NOT been mapped"
  End If
"VSC Logon Script is running, please wait...Mapping " & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\"
  If fblnMapDriveAndFolder("G:", pcstrC3Server & pstrSpecialVolChar & "RAFACSII$", "") = False Then
      pstrFailed = pstrFailed & "" & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\  Has NOT been mapped"
  End If
"VSC Logon Script is running, please wait...Mapping " & "H:" & pcstrC3Server & pstrSpecialVolChar & "RAFACS$\"
  If fblnMapDriveAndFolder("H:", pcstrC3Server & pstrSpecialVolChar & "RAFACS$", "") = False Then
      pstrFailed = pstrFailed & "" & "H:" & pcstrC3Server & pstrSpecialVolChar & "RAFACS$\  Has NOT been mapped"
  End If
if InStr(pstrGroups, "VSC USERS - CIS") then
"VSC Logon Script is running, please wait...Mapping " & "J:\\Z02RSCVSC04\NOVAShare\MIS\LOCAL"
If fblnMapDriveAndFolder("J:", "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL", "") = False Then
      pstrFailed = pstrFailed & "" & "J:" & "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL  Has NOT been mapped"
     End If
  end if 
"VSC Logon Script is running, please wait...Mapping " & "K:\\Z02APPVSC01\PUBARC\"
  If fblnMapDriveAndFolder("K:", "\\Z02APPVSC01\PUBARC", "") = False Then
      pstrFailed = pstrFailed & "" & "K:" & "\\Z02APPVSC01\PUBARC\  Has NOT been mapped"
  End If
if InStr(pstrGroups, "VSC USERS - CIS") then
"VSC Logon Script is running, please wait...Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
      pstrFailed = pstrFailed & "" & "L:" & "\\Z02RSCVSC04\APPLShare\  Has NOT been mapped"
     End If
  end if
' if InStr(pstrGroups, "VSC C3 Service Accounts") then
'  "VSC Logon Script is running, please wait...Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
' If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
'       pstrFailed = pstrFailed & "" & "L:" & "\\Z02RSCVSC04\APPLShare\  Has NOT been mapped"
'       End If
'    end if 
"VSC Logon Script is running, please wait...Mapping " & "M:" & pcstrC3Server & pstrSpecialVolChar & "IMROOT$\"
  If fblnMapDriveAndFolder("M:", pcstrC3Server & pstrSpecialVolChar & "IMROOT$", "") = False Then
      pstrFailed = pstrFailed & "" & "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
"VSC Logon Script is running, please wait...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
      pstrFailed = pstrFailed & "" & "N:" & "\\Z02RSCVSC04\SUPVShare\  Has NOT been mapped"
     End If
  end if
  if InStr(pstrGroups, "VSC _SIIO_ZEN - CIS") then
"VSC Logon Script is running, please wait...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
      pstrFailed = pstrFailed & "" & "N:" & "\\Z02RSCVSC04\SUPVShare\  Has NOT been mapped"
     End If
  end if 
  if InStr(pstrGroups, "VSC _N_DRIVE - CIS") then
"VSC Logon Script is running, please wait...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
      pstrFailed = pstrFailed & "" & "N:" & "\\Z02RSCVSC04\SUPVShare\  Has NOT been mapped"
     End If
  end if 
'
'End of Supervisory share mappings
'
"VSC Logon Script is running, please wait...Mapping " & "Checking to see if using Citrix"
  if fblnCitrix = false then
"VSC Logon Script is running, please wait...Mapping P:\\Z02C4CVSC01\DocProd"
If fblnMapDriveAndFolder("P:", "\\Z02C4CVSC01\DocProd", "") = False Then
pstrFailed = pstrFailed & "" &  "P:\\Z02C4CVSC01\DocProd Has NOT been mapped"
End If
  end if
"VSC Logon Script is running, please wait...Setting the PATH variable"
  if fblnSetUserEnvVar("PATH",pcstrPath,True) = false then
pstrFailed = pstrFailed & "" & "Could not set the Path environment variable to: " & "" & pcstrPath
  end if

if pstrFailed <> "" then
" The following Errors Occured:" & pstrFailed
call pause(10) 'pause for 5 seconds
end if

'Close the Splash Screen
oIE.quit 
'Determines whether is the drive is already mapped
'   If it is mapped to the wrong location this function will map it to
'       the correct one
'   else if drive doesn't exist then
'       map it
' Yuppers Get 'R Done
Function fblnMapDriveAndFolder(strDriveLetter,strServerName, strPath)
  On Error resume next
  fblnMapDriveAndFolder = True
  Dim pobjFsys
  Set pobjFsys = CreateObject("Scripting.FileSystemObject")
  'correction for wrong slash
  strServerName = Replace(strServerName, "/", "\")
  strPath = Replace(strPath, "/", "\")
  'Below will put a "\\" on the front of the server name if it doesn't exist
  If Left(strServerName, 2) <> "\\" Then
      strServerName = "\\" & strServerName
  End If
  'Below will put take the "\" off of the end of the server name if it exists
  If Right(strServerName, 1) = "\" Then
      strServerName = Left(strServerName, Len(strServerName) - 1)
  End If
  'Below will put a "\" on the front of the path name if it doesn't exist
  If Left(strPath, 1) <> "\" And strPath <> "" Then
      strPath = "\" & strPath
  End If
  'Below will put a ":" on the end of the strDriveLetter if it doesn't exist
  If Right(strDriveLetter, 1) <> ":" Then
      strDriveLetter = Left(strDriveLetter, 1) & ":"
  End If
  If pobjFsys.FolderExists(strServerName & strPath) = False Then
      'Create the folder because it doesn't exist
      pobjFsys.CreateFolder strServerName & strPath & "\"
  End If
  'Check to see if the drive is already mapped
  If pobjFsys.DriveExists(strDriveLetter) = True Then
      'Check to see if the drive letter is mapped to the correct folder
      
      If pobjFsys.FolderExists(strDriveLetter & strPath) = False Or strPath = "" Then 'The drive is mapped to the wrong location
          'Map over the existing drive with the correct path
          If fblnMapDrive(strDriveLetter, strServerName, strPath, True) = False Then
             fblnMapDriveAndFolder = false
          End If
      End If
  Else 'The drive doesn't exist
      'Map the drive
      If fblnMapDrive(strDriveLetter, strServerName, strPath, False) = False Then
          fblnMapDriveAndFolder = false
      End If
  End If
  
  Set pobjFsys = Nothing
  If Err.Number <> 0 Then
err.clear
      fblnMapDriveAndFolder = False
  End If
End Function
Function fblnMapDrive(strDriveLetter, strServer, strFolderPath, blnRemoveFirst)' As Boolean
  On Error resume next
  fblnMapDrive = True
  Dim objNetwork
' Purpose of script to create a network object. (objNetwork)
' Then to apply the MapNetworkDrive method. 
  Set objNetwork = CreateObject("WScript.Network")
  If blnRemoveFirst = True Then
      objNetwork.RemoveNetworkDrive strDriveLetter, True, True
  End If
      objNetwork.MapNetworkDrive strDriveLetter, strServer & strFolderPath, True
  If Err.Number <> 0 Then
      fblnMapDrive = False
  End If
End Function
function fblnSetUserEnvVar(strVariable, strValue, blnConcat)
on  Error resume next
 dim wshShell, pobjEnv
 fblnSetUserEnvVar = true
 set WshShell = CreateObject("WScript.Shell")
 Set pobjEnv = WshShell.Environment("User")
 if blnConcat = true then
pobjEnv(strVariable) = pobjEnv(strVariable) &  strValue
 else
pobjEnv(strVariable) = strValue
 end if
 if err.number <> 0 then
fblnSetUserEnvVar = false
err.clear
 end if
end function
Function fblnCitrix()
  Dim strComputer
  Dim objWMIService
  Dim clSettings
  Dim objRecord
  fblnCitrix   = true
on error resume next
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" _
      & strComputer & "\root\cimv2")
  Set clSettings = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  fblnCitrix   = false
  For Each objRecord In clSettings
if objRecord.WindowsDirectory <> "" then
if left(objRecord.WindowsDirectory,2) = "P:" then
 fblnCitrix  = true
 exit for
end if
end if
          
  Next
if err.number <> 0 then
msgbox err.description, "fblnCitrix",vbcritical
end if    
  Set objWMIService = Nothing
  Set clSettings = Nothing
End Function
'This function will return the specified property
Function fstrGetUserProperty(strProperty)
  On Error resume next
  Dim pstrConnect, pstrVal
  Dim pobjUser 'As ActiveDs.IADsUser
  pstrConnect = fstrADSpath
  Set pobjUser = GetObject(pstrConnect)
  pstrVal = pobjUser.Get(strProperty)
  if isArray(pstrVal) = true then
fstrGetUserProperty = join(pstrVal)
  else
fstrGetUserProperty = pstrVal
  end if
  If Err.Number <> 0 Then
      MsgBox Err.Description, vbCritical
  End If
  Set pobjUser = Nothing
End Function
'Gets the local Active Directory information
' Used to obtain the string to connect the user's AD object
Function fstrADSpath() 'As String
  Dim pobjAdSysInfo 'As ActiveDs.ADSystemInfo
  'Set pobjAdSysInfo = New ActiveDs.ADSystemInfo
  Set pobjAdSysInfo = CreateObject("AdSystemInfo")
  fstrADSpath = "LDAP://" & pobjAdSysInfo.UserName
  Set pobjAdSysInfo = Nothing
End Function
function fblnSetUserEnvVar(strVariable, strValue, blnConcat)
on  Error resume next
 dim wshShell, pobjEnv
 fblnSetUserEnvVar = true
 set WshShell = CreateObject("WScript.Shell")
 Set pobjEnv = WshShell.Environment("User")
 if blnConcat = true then
if instr(1,ucase(pobjEnv(strVariable)),ucase(strValue)) <= 0 then
pobjEnv(strVariable) = pobjEnv(strVariable) &  strValue
end if
 else
pobjEnv(strVariable) = strValue
 end if
 if err.number <> 0 then
fblnSetUserEnvVar = false
err.clear
 end if
end function
'******************************************************************************
'   This will pause the number of seconds passed to it
'******************************************************************************
'Sub pause(seconds)
  'Dim strTime 
  'strTime = (second(Time) + seconds)
  'If (strTime >= 60) Then
   '   strTime = (strTime - 60)
  'End If
  'Do Until (strTime = (second(Time)))
  
  'Loop
'End Sub
'Routine for Splash Screen
Sub modeless(oIE, sprompt)
'with oIE 
'.fullscreen = True : .navigate "about:blank" 
'While .readystate <> 4 : wscript.sleep 100 : Wend 
'with .document 
  .write "<table bgcolor=lightblue border=3 width=100% bordercolor=black cellspacing=6 cellpadding=6" & _ 
  "height=100%><tr valign=middle><td align=center> " & _
  "<caption align=center> Mapping Network Drives.... </caption> " & _
  "<tr> " & _
  "<th>Network Drive:</th> " & _
  "<th>Connected:</th> " & _
  "<tr> " & _
  "<td align=left>(G:) Rafacsii$ on 'Z02dbcvsc01'</td> " & _
         "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(H:) Rafacs$ on ' Z02dbcvsc01'</td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(I:) User on 'Z02rscvsc07\User Share' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(J:) Local on 'Z02rscvsc07\NOVAShare\Mis' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(K:) Pubarc on 'Z02rscvsc07' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(L:) APPLShare on 'Z02rscvsc07' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(M:) Imroot$ on 'Z02dbcvsc01' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=left>(O:) itsopshre on 'Z02rscvsc07' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=Left>(P:) DocProd on 'Z02c4cvsc01' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "<td align=Left>(Q:) PrintShare on 'Z02TBCVSC02(Z02tbcvsc02)' </td> " & _
  "<td align=center></td> " & _
  "<tr> " & _
  "</td></tr></table>" 
  '.title = "MESSAGE: _________________________________" 
   'With .ParentWindow 
  '  .resizeto 350,100 1
  '  .moveto (.screen.width - 400)\2, (.screen.height - 100)\2 
  'End With 
  'With .body.style
   ' .borderStyle = "outset" 
    '.borderWidth = "4px" 
  'End With 
  '.bgcolor = "white"
  '.body.scroll = "NO" 
'End With 
'.visible = true 
'End with 
End Sub

< Message edited by ebgreen -- 7/10/2007 4:16:30 AM >

(in reply to RobertParker)

Post #: 6

RE: Opening an Application! - 7/10/2007 4:17:26 AM

ebgreen

Posts: 5250
Score: 31
Joined: 7/12/2005
Status: offline

For the love of all that is good and decent in the world and to prevent me from having to replace my mouse wheel, please use code tags.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mtber)

Post #: 7

RE: Opening an Application! - 7/10/2007 11:17:42 PM

mtber

Posts: 35
Score: 0
Joined: 7/9/2007
Status: offline

This is the part of the code that is opening IE and you can see where it opens it each time a drive is being mapped.

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... getting User Name"
   pstrUserName = fstrGetUserProperty("samAccountName")
Modeless oIE, "VSC Logon Script is running, please wait... 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 & "" & "I:" & "\\Z02APPVSC01\User Share\" & pstrUserName & "\  Has NOT been mapped"
   End If
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\"
   If fblnMapDriveAndFolder("G:", pcstrC3Server & pstrSpecialVolChar & "RAFACSII$", "") = False Then
       pstrFailed = pstrFailed & "" & "G:" & pcstrC3Server & pstrSpecialVolChar & "RAFACSII$\  Has NOT been mapped"
   End If
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "H:" & pcstrC3Server & pstrSpecialVolChar & "RAFACS$\"
   If fblnMapDriveAndFolder("H:", pcstrC3Server & pstrSpecialVolChar & "RAFACS$", "") = False Then
       pstrFailed = pstrFailed & "" & "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...Mapping " & "J:\\Z02RSCVSC04\NOVAShare\MIS\LOCAL"
If fblnMapDriveAndFolder("J:", "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL", "") = False Then
       pstrFailed = pstrFailed & "" & "J:" & "\\Z02RSCVSC04\NOVAShare\MIS\LOCAL  Has NOT been mapped"
      End If
   end if 
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "K:\\Z02APPVSC01\PUBARC\"
   If fblnMapDriveAndFolder("K:", "\\Z02APPVSC01\PUBARC", "") = False Then
       pstrFailed = pstrFailed & "" & "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...Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
       pstrFailed = pstrFailed & "" & "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...Mapping " & "L:\\Z02RSCVSC04\APPLShare\"
' If fblnMapDriveAndFolder("L:", "\\Z02RSCVSC04\APPLShare\", "") = False Then
'       pstrFailed = pstrFailed & "" & "L:" & "\\Z02RSCVSC04\APPLShare\  Has NOT been mapped"
'       End If
'    end if 
Modeless oIE, "VSC Logon Script is running, please wait...Mapping " & "M:" & pcstrC3Server & pstrSpecialVolChar & "IMROOT$\"
   If fblnMapDriveAndFolder("M:", pcstrC3Server & pstrSpecialVolChar & "IMROOT$", "") = False Then
       pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
       pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
       pstrFailed = pstrFailed & "" & "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...Mapping " & "N:\\Z02RSCVSC04\SUPVShare\"
If fblnMapDriveAndFolder("N:", "\\Z02RSCVSC04\SUPVShare", "") = False Then
       pstrFailed = pstrFailed & "" & "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...Mapping " & "Checking to see if using Citrix"
   if fblnCitrix = false then
Modeless oIE, "VSC Logon Script is running, please wait...Mapping P:\\Z02C4CVSC01\DocProd"
If fblnMapDriveAndFolder("P:", "\\Z02C4CVSC01\DocProd", "") = False Then
pstrFailed = pstrFailed & "" &  "P:\\Z02C4CVSC01\DocProd Has NOT been mapped"
End If
   end if
Modeless oIE, "VSC Logon Script is running, please wait...Setting the PATH variable"
   if fblnSetUserEnvVar("PATH",pcstrPath,True) = false then
pstrFailed = pstrFailed & "" & "Could not set the Path environment variable to: " & "" & pcstrPath
   end if
 
if pstrFailed <> "" then
Modeless oIE, " The following Errors Occured:" & pstrFailed
call pause(10) 'pause for 5 seconds
end if

(in reply to ebgreen)

Post #: 8

RE: Opening an Application! - 7/10/2007 11:45:51 PM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

RobertParker I like the sub and included it into my script.

Before I had a bunch of
objExplorer.Document.Body.InnerHTML = "<h4> Mapping Network Drives...</h4>"

So I just changed your Sub [html] to do the same

Sub addText(data)
html = html & "<h4>" & data & "</h4>&qu