• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 456
  • Last Modified:

VB Script mapping network drives

hello,

i have a vb script that uninstalls an older version of a software product and then installs a new version of the software product. however, after installation i need to call a batch file that resides on a network drive. i cannot figure out how to map the drive call the file and then delete the mapping. any insight would be appreciated. attached a my script. thanks in advance.

chaz.
'Create command shell
Set WshShell = CreateObject("WScript.Shell")
 
'Uninstall previous versions of FileSite
WshShell.Run "msiexec /x {ABD11761-F3F5-421D-8726-5CCEEE333AA8} /q",1,true
WshShell.Run "msiexec /x {67F84002-C577-41C7-8F02-682A7797EE16} /q",1,true
 
'Install new version of FileSite
WshShell.Run "msiexec.exe /i ""\\archive\archive\software\Interwoven\FileSite 8.2 SP1 P3a\Full_Installer\Interwoven FileSite 8.2 SP1.msi"" /qn SERIALNUMBER=""xxx-xxx"" ", 1, true

Open in new window

0
chaz21
Asked:
chaz21
1 Solution
 
lecafCommented:

why use VBS?

go for a plain batch

and you can the use the pushd and popd commands
PUSHD will create a temporary drive letter that points to that specified network resource and then change the current drive and directory, using the newly defined drive letter

you could also use em with shell run but Iit would be bizzare.

m  a  r  c .
0
 
MatthiasVanceCommented:
I provided some example code.

Kind regards,

Matthias Vance
Dim oNet
Set oNet = CreateObject("WScript.Network")
oNet.MapNetworkDrive "H:", "\\server\path"
' Your code here
oNet.RemoveNetworkDrive "H:"

Open in new window

0
 
RobSampsonCommented:
Hi, you should be able to run your batch file directly from the UNC path without having to map a network drive....

Try this.

Regards,

Rob.
'Create command shell
Set WshShell = CreateObject("WScript.Shell")
 
'Uninstall previous versions of FileSite
WshShell.Run "msiexec /x {ABD11761-F3F5-421D-8726-5CCEEE333AA8} /q",1,true
WshShell.Run "msiexec /x {67F84002-C577-41C7-8F02-682A7797EE16} /q",1,true
 
'Install new version of FileSite
WshShell.Run "msiexec.exe /i ""\\archive\archive\software\Interwoven\FileSite 8.2 SP1 P3a\Full_Installer\Interwoven FileSite 8.2 SP1.msi"" /qn SERIALNUMBER=""xxx-xxx"" ", 1, True
 
'Run the batch file
strBatch = "\\server\share\MyBatch.bat"
WshShell.Run strBatch, 1, True

Open in new window

0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
chaz21Author Commented:
thanks for responding so quickly  !! ill give these suggestions a try and report back asap.
0
 
chaz21Author Commented:
attached is my script that is working just the way i intended !!   it runs perfectly when i initiate it on the local machine as admin.  now my next step is to get my sms package to run this on all the clients on our network. i created an sms package that calls the same script and it fails. anyone have any sms experience ?
 
'Create command shell
Set WshShell = CreateObject("WScript.Shell")
 
'Uninstall previous versions of FileSite
WshShell.Run "msiexec /x {ABD11761-F3F5-421D-8726-5CCEEE333AA8} /q",1,true
WshShell.Run "msiexec /x {67F84002-C577-41C7-8F02-682A7797EE16} /q",1,true
 
'Install new version of FileSite
WshShell.Run "msiexec.exe /i ""\\archive\archive\software\Interwoven\FileSite 8.2 SP1 P3a\Full_Installer\Interwoven FileSite 8.2 SP1.msi"" /qn SERIALNUMBER=""xxxx-xxxx"" ", 1, true
 
' Map a network drive to a UNC Path and then call reg.bat which imports registry setting to collapse filesite tree when opening 
Dim oNet
Set oNet = CreateObject("WScript.Network")
oNet.MapNetworkDrive "Z:", "\\server\share"
wscript.sleep 3000
WshShell.Run ("z:\reg.bat")
wscript.sleep 5000
oNet.RemoveNetworkDrive "Z:"

Open in new window

0
 
chaz21Author Commented:
this worked very well .  i did have to add a few wscript.sleep statements to allow the program to execute before the mapping was disconnected. thanks again for everyones input !
0

Featured Post

VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now