Retriving Data from my Array is blank

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Retriving Data from my Array is blank

Logged in as: Guest

arrSession:exec spGetSession 2,2,58993

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

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Retriving Data from my Array is blank
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Retriving Data from my Array is blank - 4/10/2008 6:34:33 AM

blazted

Posts: 18
Score: 0
Joined: 2/6/2006
Status: offline

For some reason I am having a hard time retriving the data from my array. I created an array that lists some reg files. I am going to later delete those files with a seperate functions. However in testing I am not retrieving anything from the array and my test Wscript.echo comes up with nothing.
Here is the code.

On Error Resume Next

const HKEY_USERS = &H80000003

string strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & _
   strComputer & "\root\default:StdRegProv")

strKeyUsersPath = CreateUsersArray()

For Each strKeyUsers in strKeyUsersPath
   'DeleteSubkeys HKEY_USERS, strKeyUsers
   Wscript.echo strKeyUsers
Next

Function CreateUsersArray
   strKeyUsersArray(3)
   strKeyUsersArray(0) = "S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGMAPIFolder"
   strKeyUsersArray(1) = "S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGAddressLists"
   strKeyUsersArray(2) = "S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGMAPITable"
   strKeyUsersArray(3) = "S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGMAPIUtils"
   
   Wscript.echo strKeyUsersArray(0)
   CreateUsersArray = strKeyUsersArray
End Function

Function DeleteSubkeys(HKEY_USERS, strKey) 
   objRegistry.EnumKey HKEY_USERS, strKey, arrSubkeys

If IsArray(arrSubkeys) Then 
       For Each strSubkey In arrSubkeys 
           DeleteSubkeys HKEY_USERS, strKey & "\" & strSubkey 
       Next 
   End If 
   
   objRegistry.DeleteKey HKEY_USERS, strKey 
End Function

Post #: 1

RE: Retriving Data from my Array is blank - 4/10/2008 6:40:39 AM

ebgreen

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

You have some fairly basic syntactical mistakes. Remove evil global On Error Resume Next and all will be revealed.

_____________________________

"... 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 blazted)

Post #: 2

RE: Retriving Data from my Array is blank - 4/10/2008 7:36:05 AM

blazted

Posts: 18
Score: 0
Joined: 2/6/2006
Status: offline

Thanks - bonehead move.

Question for VBscript Arrays
Can I declare a single array in VB like so

Dim strArray( "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA",
"BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB",
"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCC")

Thanks

(in reply to ebgreen)

Post #: 3

RE: Retriving Data from my Array is blank - 4/10/2008 8:08:08 AM

ebgreen

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

Sort of. The correct syntax is this:

Dim strKeyUsersArray
strKeyUsersArray = Array("S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGMAPIFolder", _
                           "S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGAddressLists", _
                           "S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGMAPITable", _
                           "S-1-5-21-746137067-1979792683-839522115-1003\Software\Classes\HelperDll.SGMAPIUtils")

_____________________________

"... 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 blazted)

Post #: 4

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Retriving Data from my Array is blank

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts