|
I found the solution. This code suppose to work
VB.NET / Framework 2.0
This code is not my mental extract but it works. Only same little modifications I made
If the code doesn't work please let me know.
Public Class FillTreeView
Public Sub initilizeFillTreeView()
Dim i As Integer
Dim arrNames(8) As String
Dim node As TreeNode
arrNames(0) = "C:\Musik\Phil Collins\Live"
arrNames(1) = "C:\Musik\Phil Collins\Live\Lamp Lies down"
arrNames(2) = "C:\Dokumentation\Musik\Phil Collins"
arrNames(3) = "C:\Phil Collins\Dokumentation\Musik"
node = Form1.TreeView1.Nodes.Add(0, "Root")
For i = 0 To 3
addNode(node, arrNames(i))
Next
End Sub
Public Sub addNode(ByVal node As TreeNode, ByVal name As String)
Dim curNode As TreeNode
Dim subString() As String = name.Split("\")
Dim curName As String = subString(0)
Dim nextName As String = ""
Dim i As Integer
subString.Length > 1 Then
For i = 1 To subString.Length - 1
nextName &= subString(i) & "\"
Next
nextName = nextName.TrimEnd("\")
End If
Dim exsist As TreeNode = New TreeNode("")
For Each curNode In node.Nodes
If curNode.Text = curName Then
exsist = curNode
End If
Next
If exsist.Text <> "" Then
addNode(exsist, nextName)
Else
Dim newNode As TreeNode = New TreeNode(curName)
node.Nodes.Add(newNode)
If nextName <> Nothing Then
addNode(newNode, nextName)
End If
End If
End Sub
End Class
|
|
|
|
|
I have a script that is suppose to add Multiple computers in Active Directory by pointing to a .txt file. My script runs without any problems, but in never actually adds the computer objects. Any ideas or does anyone know of a better way of doing this?
addpcstoOU.vbs
' The script will take a text file with names and create computer accounts in your OU.
' To run the script open a command line and type cscript addpctoOU.vbs < workstations.txt
' where workstations.txt hold the names of the computer accounts you wish to add.
' This text file must contain one computer account name per line.
' In order to get the computer account in the correct OU you must edit the line
' Set objContainer = GetObject("LDAP://OU=workstations,OU=AIT,OU=ASET,OU=ITS,OU=UP,OU=PSUOUs," & _
' to reflect
' Set objContainer = GetObject("LDAP://OU=yourworkstationOU,OU=yourOU,OU=UP,OU=PSUOUs," & _
' To delegate the ability to add the machine to the network you must edit the line
' strComputerUser = "access\admin_mcc171"
' for questions send email to windiscuss@psu.edu
dim objFile, arrInfo, p
set objFile = WScript.StdIn
Do While Not objFile.AtEndofStream
call addpctoou(objFile.ReadLine())
Loop
set objFile=nothing
sub addpctoou(strComputer)
On Error Resume Next
' Edit this line to delegate the ability to install the machine into the OU
strComputerUser = "access\dlt_techs"
Const ADS_UF_PASSWD_NOTREQD = &h0020
Const ADS_UF_WORKSTATION_TRUST_ACCOUNT = &h1000
Const ADS_ACETYPE_ACCESS_ALLOWED = &h0
Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = &h5
Const ADS_FLAG_OBJECT_TYPE_PRESENT = &h1
Const ADS_RIGHT_GENERIC_READ = &h80000000
Const ADS_RIGHT_DS_SELF = &h8
Const ADS_RIGHT_DS_WRITE_PROP = &h20
Const ADS_RIGHT_DS_CONTROL_ACCESS = &h100
Const ALLOWED_TO_AUTHENTICATE = _
"{68B1D179-0D15-4d4f-AB71-46152E79A7BC}"
Const RECEIVE_AS = "{AB721A56-1E2f-11D0-9819-00AA0040529B}"
Const SEND_AS = "{AB721A54-1E2f-11D0-9819-00AA0040529B}"
Const USER_CHANGE_PASSWORD = _
"{AB721A53-1E2f-11D0-9819-00AA0040529b}"
Const USER_FORCE_CHANGE_PASSWORD = _
"{00299570-246D-11D0-A768-00AA006E0529}"
Const USER_ACCOUNT_RESTRICTIONS = _
"{4C164200-20C0-11D0-A768-00AA006E0529}"
Const VALIDATED_DNS_HOST_NAME = _
"{72E39547-7B18-11D1-ADEF-00C04FD8D5CD}"
Const VALIDATED_SPN = "{F3A64788-5306-11D1-A9C5-0000F80367C1}"
Set objRootDSE = GetObject("LDAP://rootDSE")
' Edit this line to reflect your OU in the ACCESS Domain
Set objContainer = GetObject("LDAP://OU=Altoona,OU=Campuses,OU=DLT Public,DC=dlt,dc=access,dc=psu,dc=edu")
Set objComputer = objContainer.Create _
("Computer", "cn=" & strComputer)
objComputer.Put "sAMAccountName", strComputer & "$"
objComputer.Put "userAccountControl", _
ADS_UF_PASSWD_NOTREQD Or ADS_UF_WORKSTATION_TRUST_ACCOUNT
objComputer.SetInfo
Set objSecurityDescriptor = objComputer.Get("ntSecurityDescriptor")
Set objDACL = objSecurityDescriptor.DiscretionaryAcl
Set objACE1 = CreateObject("AccessControlEntry")
objACE1.Trustee = strComputerUser
objACE1.AccessMask = ADS_RIGHT_GENERIC_READ
objACE1.AceFlags = 0
objACE1.AceType = ADS_ACETYPE_ACCESS_ALLOWED
Set objACE2 = CreateObject("AccessControlEntry")
objACE2.Trustee = strComputerUser
objACE2.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE2.AceFlags = 0
objACE2.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE2.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE2.ObjectType = ALLOWED_TO_AUTHENTICATE
Set objACE3 = CreateObject("AccessControlEntry")
objACE3.Trustee = strComputerUser
objACE3.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE3.AceFlags = 0
objACE3.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE3.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE3.ObjectType = RECEIVE_AS
Set objACE4 = CreateObject("AccessControlEntry")
objACE4.Trustee = strComputerUser
objACE4.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE4.AceFlags = 0
objACE4.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE4.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE4.ObjectType = SEND_AS
Set objACE5 = CreateObject("AccessControlEntry")
objACE5.Trustee = strComputerUser
objACE5.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE5.AceFlags = 0
objACE5.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE5.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE5.ObjectType = USER_CHANGE_PASSWORD
Set objACE6 = CreateObject("AccessControlEntry")
objACE6.Trustee = strComputerUser
objACE6.AccessMask = ADS_RIGHT_DS_CONTROL_ACCESS
objACE6.AceFlags = 0
objACE6.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE6.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE6.ObjectType = USER_FORCE_CHANGE_PASSWORD
Set objACE7 = CreateObject("AccessControlEntry")
objACE7.Trustee = strComputerUser
objACE7.AccessMask = ADS_RIGHT_DS_WRITE_PROP
objACE7.AceFlags = 0
objACE7.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE7.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE7.ObjectType = USER_ACCOUNT_RESTRICTIONS
Set objACE8 = CreateObject("AccessControlEntry")
objACE8.Trustee = strComputerUser
objACE8.AccessMask = ADS_RIGHT_DS_SELF
objACE8.AceFlags = 0
objACE8.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE8.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE8.ObjectType = VALIDATED_DNS_HOST_NAME
Set objACE9 = CreateObject("AccessControlEntry")
objACE9.Trustee = strComputerUser
objACE9.AccessMask = ADS_RIGHT_DS_SELF
objACE9.AceFlags = 0
objACE9.AceType = ADS_ACETYPE_ACCESS_ALLOWED_OBJECT
objACE9.Flags = ADS_FLAG_OBJECT_TYPE_PRESENT
objACE9.ObjectType = VALIDATED_SPN
objDACL.AddAce objACE1
objDACL.AddAce objACE2
objDACL.AddAce objACE3
objDACL.AddAce objACE4
objDACL.AddAce objACE5
objDACL.AddAce objACE6
objDACL.AddAce objACE7
objDACL.AddAce objACE8
objDACL.AddAce objACE9
objSecurityDescriptor.DiscretionaryAcl = objDACL
objComputer.Put "ntSecurityDescriptor", objSecurityDescriptor
objComputer.SetInfo
end sub
|
|
|
|
|
I have vb scripts to install printers, printer drivers and printer ports and everything works great with that, but I haven't figured out any options to configure the printer after it is installed. Some of the options I'm referring to are installing a duplexing options, installing extra trays and finishers as needed, and configuring paper types. Any ideas?
|
|
|
|
|
hi there
i am trying to create a app so i can give a computerised quote.
i designed two windows forms that calculate the total etc.
however i got two options in my menu.
next quote, and recall quote.
the help i need is what code can i use or what do i do so that when i click the next quote number the quote number changes automatically and saves the previous quote automaically.and when i press recall quote it recalls a previous quote by number.any ideas>>>????please help
love to all.harm to none.
|
|
|
|
|
Howzit
I am looking for a way of deleting a selected range of page from a word document.
Any ideas or code snip bits would be appreciated.
Thanks in advance
R
Blou bulle is baas!
|
|
|
|
|
|
I am using the print preview control on a form and want to provide feedback on the mouse position in actual document relative position e.g. in the mouse move I have:
Private Sub PrintPreviewControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PrintPreviewControl1.MouseMove<br />
<br />
Me.Panel_CursorLocation.Text = PreviewControlPositionToDocumentPostion(New Point(e.X, e.Y)).ToString<br />
<br />
End Sub
and currently the function "PreviewControlPositionToDocumentPostion" does nothing e.g.:-
Private Function PreviewControlPositionToDocumentPostion(ByVal WindowPosition As Point) As Point<br />
<br />
Return WindowPosition<br />
<br />
End Function
How would I do the transform to x,y position on the document taking in to account the zoom factor or the preview control?
'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd
|
|
|
|
|
Consider that we get the data in a dataset which is displayed to the user in the datagrid. When the user makes some changes or updates this data, I directly update the database and reload the data into the dataset and datagrid. Is it possible to update all the changes to the dataset and directly post the changes in the dataset to the database? If this is possible, does it take less time to process than the normal process of updating the database?
With Best Regards,
Mayur
|
|
|
|
|
Hii
You can use Update method of the DataAdapter and AcceptChanges method of DataSet to update the data source.
|
|
|
|
|
i have 2 tables A and B
is it possible in sql to get from B the last occurence (based on date) for each record in A?
ex
A
cust1
cust2
B
cust1 01012006 10.00
cust1 01022006 20.00
cust2 01022006 30.00
cust2 01032006 40.00
output
cust1 01022006 20.00
cust2 01032006 40.00
tnx in advance
maytel
|
|
|
|
|
Please check is it work or not:
Select custID, Max(date field) from B
group by custID
Where custID in (Select Distinct custID from A)
Mahbub8957
|
|
|
|
|
i forgot one detail
let me rephrase
is it possible in sql to get data from B (based on date SPECIFIED by the user) for each record in A?
date specified by user 01012006
A
cust1
cust2
B
cust1 01/01/2006 10.00
cust1 01/02/2006 20.00
cust2 12/31/2005 30.00
cust2 01/03/2006 40.00
output
cust1 01/01/2006 10.00
cust2 12/31/2005 30.00
|
|
|
|
|
Your question is not very clear, but I think you want somthing like this:
select b.* from b, a where a.user = b.user and b.date = '01/01/05';
Matthew Hazlett
|
|
|
|
|
Join in the B table and filter out the dates after the specified date. Group by the fields in the A table and use max() to get the latest date from the B table.
---
b { font-weight: normal; }
|
|
|
|
|
I have some problem with smart tags. In my Smart tag action I am loading an XmlDocument with more than 100 KB of data. When the event is fires the system is not responding. Is there any limit for the Response packet? I am using Visio/Word as my Host application. It works fine when the size is below 50 K.
Any idea?
Thanks in advance.
Gokulan Venat
|
|
|
|
|
Pls help, how to customize datagrid..... thanks...
|
|
|
|
|
Do you want to specify HOW you want to customize the DataGrid, or are we just supposed to guess at the couple hundred things you could do to it? Not to mention, you didn't say WHICH DataGrid - Windows Forms DataGrid, Web Forms DataGrid? VB.NET 2002, 2003, or 2005?
At this point, the only thing we can do is direct you to a search for "Customize DataGrid[^]".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
I'm experimenting with VB.NET 2005 Express. I want to write a VB.NET front end to repeatedly call a console application.
My question is: How can you pass command line parameters to and execute a console Application from VB.NET? Specifically, how to pass the command line parameters, execute the cosole application and then test to see when it has completed?
I found this sample code in the VB.NET help. It calls the console app but I need some help with how to pass command line parameters and test to see if the cosole application is done.
' (2) Call a Visual Basic run-time function (Shell), discard the return value.
Call Shell("C:\WINNT\system32\calc.exe", AppWinStyle.NormalFocus)
Anyone? Thanks.
-- modified at 21:14 Tuesday 24th January, 2006
|
|
|
|
|
The Process[^] class has everything you need. Note the events that the class exposes too.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks RageInTheMachine953,
This works quite nice. How can you test to see when the process is completed?
|
|
|
|
|
You don't test. The Process class has an Exited event. ALl you do is create the event handler, wire it up with AddHandler, then set EnableRaisingEvents on the Process object that you're using to launch this tool of yours. Then you call .Start on that object.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
Here's a tricky one - I have a standard datagrid class derived from the DataGrid object. I'm then using that in a user control and placing that user control on one of my forms 4 times to give 4 datagrids. Of the 4 datagrids only one is editable and so I want to handle the editing event in the form rather than in the user control or my custom datagrid class as I need to use data current in the form.
Specifcally what I want to handle is the CurrentCellChanged event so I can validate what the user typed in the text box columns in the editable datagrid. So, how can I add a handler in the form that corresponds to the CurrentCellChanged event in the custom datagrid which is inside my user control?
I guess maybe I need to bubble the event up or something but I'm not sure how to do this - any pointers would be very helpful.
TIA...
Mike
|
|
|
|
|
If it was just a class that inherited the datagrid you could do it easly (the same way you normally would).
But being a usercontrol the datagrid is a part of the control and you cant access the events ferrom it directly.But you cpould do a cheesy workaround, In the user control you can define a public event and pass it trhe information that the CurrentCellChanged event gets.
At the top of the program...
Public Event CurrentCellChanged(sender as object, ........)
Then create an event sub in your usercontrol and in it put this line:
Raise Event CurrentCellChanged(sender, .........)
Now you can add this event to the main form...
Matthew Hazlett
|
|
|
|
|
Thanks Matthew - I'll give that a go!
Mike
|
|
|
|
|
Hello,
I have a TCP connection in which the following is sent to me:
typedef struct<br />
{<br />
int msgLength;<br />
int msgType;<br />
int seqNumber;<br />
int version;<br />
char data[1024];<br />
} XXXXXXXXXXXXXX;
The msg length: the toal msg length, i.e, sizeof (msgLength)+ sizeof(msgType)+sizeof(seqNumber)+sizeof(version)+realDataLength(276).
msgType: 1
seqNumber: squentially increased from 1.
version: 0
data: store the real content.
All the above variables except data[1024] are Big Endian. My problem is that I need to convert the big endian vars to little endian so that the windows service I have (written in VB.NET) can use them.
Here is a sample of what I thought would work:
.....
i = stream.Read(bytes, 0, bytes.Length)
Try
data = System.Text.Encoding.BigEndianUnicode.GetString(bytes, 0, 15)
........
I thought this would convert the first 16 bytes (the four integer vars from the C structure) to little endian..but nope. Then I tried the first four bytes, etc. No luck. Does anyone know how this can be accomplished in VB.NET?
Thanks.
"Half this game is ninety percent mental."
- Yogi Berra
If you can read thank a teacher, if you can read in English, thank a Marine.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
