Dictionary or array

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Dictionary or array

Logged in as: Guest

arrSession:exec spGetSession 2,2,52820

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

Printable Version

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

Page: [1]

Message

<< Older Topic Newer Topic >>

Dictionary or array - 10/18/2007 7:20:32 PM

gdewrance

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

How can I make this neater either by use of dictionary or array

Dim objShortcut
Dim strNetHood, strMyDocuments

Set WshShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
   strNetHood = WshShell.SpecialFolders("Nethood")

strDescription = "server1 C"
   strUNCPath = "\\server1\c$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription & ".lnk") 
   objShortcut.TargetPath=strUNCPath
   objShortcut.Description=strDescription 
   objShortcut.Save()
   
       strDescription1 = "server1 D"
   strUNCPath1 = "\\server1\d$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription1 & ".lnk") 
   objShortcut.TargetPath=strUNCPath1
   objShortcut.Description=strDescription1 
   objShortcut.Save()
   
       strDescription2 = "server1 F"
   strUNCPath2 = "\\server1\f$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription2 & ".lnk") 
   objShortcut.TargetPath=strUNCPath2
   objShortcut.Description=strDescription2 
   objShortcut.Save()
   
       strDescription3 = "server1 H"
   strUNCPath3 = "\\server1\h$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription3 & ".lnk") 
   objShortcut.TargetPath=strUNCPath3
   objShortcut.Description=strDescription3 
   objShortcut.Save()
   
   strDescription4 = "server1 I"
   strUNCPath4 = "\\server1\I$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription4 & ".lnk") 
   objShortcut.TargetPath=strUNCPath4
   objShortcut.Description=strDescription4 
   objShortcut.Save()
   
       strDescription5 = "server04 C"
   strUNCPath5 = "\\server04\c$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription5 & ".lnk") 
   objShortcut.TargetPath=strUNCPath5
   objShortcut.Description=strDescription5 
   objShortcut.Save()
   
   strDescription6 = "server04 D"
   strUNCPath6 = "\\server04\d$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription6 & ".lnk") 
   objShortcut.TargetPath=strUNCPath6
   objShortcut.Description=strDescription6 
   objShortcut.Save()
       
   strDescription7 = "server04 F"
   strUNCPath7 = "\\server04\f$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription7 & ".lnk") 
   objShortcut.TargetPath=strUNCPath7
   objShortcut.Description=strDescription7 
   objShortcut.Save()
   
       strDescription8 = "server02 C"
   strUNCPath8 = "\\server02\c$"
Set objShortcut = WshShell.CreateShortcut(strNetHood & "\" & strDescription8 & ".lnk") 
   objShortcut.TargetPath=strUNCPath8
   objShortcut.Description=strDescription8 
   objShortcut.Save()
End Select

Post #: 1

RE: Dictionary or array - 10/18/2007 7:49:54 PM

gdewrance

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

So I was thinking along these lines
so it will be somthing like this, but how will I add a ubound statement to make this work

(in reply to gdewrance)

Post #: 2

RE: Dictionary or array - 10/18/2007 9:56:38 PM

ehvbs

Posts: 2223
Score: 50
Joined: 6/22/2005
From: Germany
Status: offline

Hi gdewrance,

The most important line of the code:

Dim NethoodArray( 6, 1 )
 NethoodArray( 0, 0 ) = "server1 C"
 NethoodArray( 0, 1 ) = "\\server1\c$"
 NethoodArray( 1, 0 ) = "server1 D"
 NethoodArray( 1, 1 ) = "\\server1\d$"
 NethoodArray( 2, 0 ) = "server1 F"
 NethoodArray( 2, 1 ) = "\\server1\f$"
 NethoodArray( 3, 0 ) = "server1 H"
 NethoodArray( 3, 1 ) = "\\server1\h$"
 NethoodArray( 4, 0 ) = "server1 I"
 NethoodArray( 4, 1 ) = "\\server1\I$"
 NethoodArray( 5, 0 ) = "server04 C"
 NethoodArray( 5, 1 ) = "\\server04\c$"
 NethoodArray( 6, 0 ) = "server04 D"
 NethoodArray( 6, 1 ) = "\\server04\d$"
 Dim strDescription, strUNCPath, nIdx
 For nIdx = 0 To UBound( NethoodArray, 1 )
     strDescription = NethoodArray( nIdx, 0 )
     strUNCPath     = NethoodArray( nIdx, 1 )
     WScript.Echo strDescription, strUNCPath
 Next
-----------  output -----------
=== NetHoodArr: gdewrance NetHoodArray ===
server1 C \\server1\c$
server1 D \\server1\d$
server1 F \\server1\f$
server1 H \\server1\h$
server1 I \\server1\I$
server04 C \\server04\c$
server04 D \\server04\d$
=== NetHoodArr: 0 done (00:00:00) ========

is

For nIdx = 0 To UBound( NethoodArray, 1 )

Good luck!

ehvbs

(in reply to gdewrance)

Post #: 3

RE: Dictionary or array - 10/18/2007 10:16:10 PM

gdewrance

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

Thanks ehvbs. Works perfectly

(in reply to ehvbs)

Post #: 4

RE: Dictionary or array - 10/18/2007 11:33:44 PM

DiGiTAL.SkReAM

Posts: 1194
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

My OCD wouldn't allow me to pass this up. Why have two entries for each server/drive letter combo?

And I used a dictionary so that future additions/subtractions to/from the list of servers/drive letters would be as easy as adding or removing a single line. That could even be done even smoother with an external file.

< Message edited by DiGiTAL.SkReAM -- 10/18/2007 11:38:47 PM >

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to gdewrance)

Post #: 5

RE: Dictionary or array - 10/18/2007 11:51:40 PM

gdewrance

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

would your dictionary still be able to add a general share e.g \\server\shareName$

(in reply to DiGiTAL.SkReAM)

Post #: 6

RE: Dictionary or array - 10/19/2007 8:12:38 AM

DiGiTAL.SkReAM

Posts: 1194
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

Sure.

oDic.Add oDic.Count,"server04 sharename"

You just separate the server and share name with a space, however, this could easily be expanded to require a special character of some sort.

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to gdewrance)