|
I've been working on a script that will collect information from the computers on our network.
First I generated a list of computer names by getting the information from Active Directory and put it into a text file
Second I've got a script that will go through the list of computer names and gather the information and put it into a .csv file.
So far everything is working just fine except for when I need to read information from the registry.
I get all the correct information for the WMI stuff for each computer but for the registry information, what I get is the information from the computer running the script rather than the remote computer.
What I need help with is modifying the code so I can access the registry on the remote computers.
Next
' Now get all the Monitor Info
objOutputFile.Write ", ," & GetMonitorInfo() & vbNewLine
Else
'WScript.Echo strComputer & " not found..."
objOutputFile.Write "*** " & strComputer & " *** NOT Found" & vbCrLf
Err.Clear
End If
Next
End If
End If
End Sub
'DISPLAY_REGKEY sets the regkey where displays are found. Don't change except for debugging
'I only change it when I am looking at a .REG file that someone sent me saying that the
'code doesn't work.
Const DISPLAY_REGKEY="HKLM\SYSTEM\CurrentControlSet\Enum\DISPLAY\"
'sets the debug outfile (use format like c:\debug.txt)
Const DEBUGFILE="NUL"
'if set to 1 then output debug info to DEBUGFILE (also writes debug to screen if running under cscript.exe)
Const DEBUGMODE=0
'The ForceCscript subroutine forces execution under CSCRIPT.EXE/Prevents execution
'under WSCRIPT.EXE -- useful when debugging
'ForceCScript
DebugOut "Execution Started " & cstr(now)
'wscript.echo GetMonitorInfo() 'just write the output to screen
DebugOut "Execution Completed " & cstr(now)
'This is the main function. It calls everything else
'in the correct order.
Function GetMonitorInfo()
debugout "Getting all display devices"
arrAllDisplays=GetAllDisplayDevicesInReg()
debugout "Filtering display devices to monitors"
arrAllMonitors=GetAllMonitorsFromAllDisplays(arrAllDisplays)
debugout "Filtering monitors to active monitors"
arrActiveMonitors=GetActiveMonitorsFromAllMonitors(arrAllMonitors)
if ubound(arrActiveMonitors)=0 and arrActiveMonitors(0)="{ERROR}" Then
debugout "No active monitors found"
strFormattedMonitorInfo="[Monitor_1]" & vbcrlf & "Monitor=Not Found" & vbcrlf & vbcrlf
else
debugout "Found active monitors"
debugout "Retrieving EDID for all active monitors"
arrActiveEDID=GetEDIDFromActiveMonitors(arrActiveMonitors)
debugout "Parsing EDID/Windows data"
arrParsedMonitorInfo=GetParsedMonitorInfo(arrActiveEDID,arrActiveMonitors)
debugout "Formatting parsed data"
strFormattedMonitorInfo=GetFormattedMonitorInfo(arrParsedMonitorInfo)
end If
Here is a link to the full code:
http://pastebin.com/n3JRYdUP[^]
|
|
|
|
|
The the relevant code here. Noone is going to download the entire project and look at it, especially from a "tiny" URL.
|
|
|
|
|
That would require the appropriate rights for both WMI and registry-access. I think that you might be missing the last one.
I are Troll 
|
|
|
|
|
Hi, I am need to something similar to this for 2000 machines in my office in Dublin Ireland, Did you get around the permission or access issue for the Registry information for the Monitor information? I would very much like to know how you achieved this. I am not a coder more of an analyst, I have a VB script that grabs all the info via I need via WMI the only part I am missing is the monitor information.
Kind Regards,
Damien.
|
|
|
|
|
How to broadcast data over LAN network using UDP protocol through the winsock control in VB6.0.
I found connect() method as-
winsockClient.connect(0,5050)
where 0 is indicating broadcasting and 5050 is local port no.
But it is not working.
Is there any way to broadcast data using UDP protocol.
Thanks in adv......
modified on Monday, September 20, 2010 9:43 AM
|
|
|
|
|
|
Thanks for ur reply and suggestion. But I have so limitation thats why I have to work on tje VB6.Now come on the topic..
The link U have given has very good example.But I have to broadcast the data over LAN network.
So which remotehost I have to use or is there any method to broadcast over network?
Thanks in adv..
|
|
|
|
|
What?
The RemoteHost IP Address is the endpoint of the communication, it doesn't matter if it is an internal or external IP. the traffic will be routed round the internal network until it reaches the gateway with the external bridge and then continue to its destination on the external network.
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
Suppose I use Rmote host as "127.0.9.8" which is in network.But whgn I send the data over the network then system connected in the network do'nt find it and do'nt respond it.
and When I use Remote host as "255.255.255.255" then all the systems detect the data as "255.255.255.255" is the broadcast address.
That was the question I was finding.
|
|
|
|
|
See this, (there are bound to be other definitions on the net if you go looking;
BroadCast Adddress[^]
Basically, 255.255.255.255 is a broadcast address and will only broadcast to end points within the same network subnet/segment.
And a little refresher on UDP[^]
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
Hi,
I wrote a program that print mutiple pages. al with different information ofcourse.
Can I with 1 printdocument split it into multiple tasks into the printer.
If yes point me to the write direction please
Also Is there a way to "see" of the printroutine prints to a printpreview or realy to the printer?
Jan
|
|
|
|
|
Is this VB6?
A print document, is exactly that, a single 'job' with multiple pages as required. I do not see how or why you would want to split this into multiple tasks.
If you do, you would want to create printdocuments for each task e.g. for routing to different printers with different letterheads etc.
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
It's not VB6, it's vb.net2010 (no printpreview in vb6)
I want to split it becaurse several 100 pages at ones is a long time to wait for some collegaes. ( we need to login into the printer and the jobs wait ontil we do) So if I split it into 8 times 100 instead of 800 al at ones I can wait and let someone pass trhu
So on this problem I need to rewrite some code
Jan
|
|
|
|
|
Split your data into 8 groups and pass them to the report one at a time... eg: Records 1 to 100, then 101 to 200 etc...
|
|
|
|
|
That was also my Idee if there was no other solution. I will look into this next week.this is why I asked "can I see where the routine prints to. preview or printer."
|
|
|
|
|
VB.Net and MS Access Databases.
I have a form containing a database that reference students SchoolA.
I have another database SchoolB with the exact same tables and fields.
On the student form using a combobox, I wish to change from one database to another using the same controls. I do not want to code a second form to hold the other database.
Is this possible?
Thanking you in anticipation.
... timark2000
|
|
|
|
|
Yes.
If you are using a BindingSource and all your controls are bound to it.
Have two DataSets one for StudentA and one for StudentB.
Then when you want to change simply:
myStudentBindingSource.DataSource = studentADataSet
OR
myStudentBindingSource.DataSource = studentBDataSet
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Thanks Henry that makes sense.
|
|
|
|
|
Here's an oddball question and somewhat hard to describe. I'd like to know how to recreate the lack of cell formatting that occurs when you open a new sheet. I notice that Excel applies a light-gray grid that isn't (apparently) part of the properties for the cells. If I change the border properties to, say, a rectangle around a cell and then want to remove that, I need to know how to reset the border property to reflect the pristine, no-property look of a brand-new sheet. If I reset the cells to the default property, say, LineStyle=xlNone, I get a range of pure white. If I specify xlThin, then I get a black grid, also not the pristine, "new" look of a new sheet. Obviously, I'm missing something here.
|
|
|
|
|
Have you tried the ClearFormats method? (Don't know if this exists in 2003 (i only have 2007))
e.g.;
Dim x As Worksheet
Set x = ThisWorkbook.ActiveSheet
x.Cells.Range("A1:F10").ClearFormats
Dave
Find Me On: Web| Facebook| Twitter| LinkedIn
CPRepWatcher now available as Packaged Chrome Extension, visit my articles for link.
|
|
|
|
|
I am new to vb.net and am having a problem getting data into a database
On a form I have a main database with dataset/bindingsouce/dataview with all of the students appearing correctly
Now ive created a new dataset/bindingsource/dataview which needs to be populated with other classtime information once a student is selected from the main database. Currently the code directs to the GetClassTime once a student is selected from the bindingsource.
HERE IS MY CODE
private sub GetClassTime()
Dim sQuery As String = ""
sQuery = "SELECT [Description],[Lesson], [Location], [StudentID], [CourseCode] From [ClassTime] Where ((([StudentID]) = " & Val(txtStudentID.Text) & ")) And (([CourseCode]) = " & Val(txtCourseCode.Text) & ") ORDER BY [Description];"
bindingsource_Classtime.DataSource = sQuery
Me.DataGridView_Classroom.DataSource = Me.BindingSource_Classtime
end sub
I dont get any errors but the datagridview_classroom is empty.
Can anybody please help?
Thanks in anticipation.
timark2000
|
|
|
|
|
You will need to execute your query. One way to do this is to use an SqlCommand instance. MSDN Page[^]
Then you can use the reader to load the data into a dataset. Example[^].
The resulting DataSet can then be used by your program like this.
bindingsource_Classtime.DataSource = myNewDataSet
For your future reference You should enclose your code between <pre lang="vb"> Your code goes here </pre>.
It makes it much easier to read.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Thanks Henry...much appreciated
You have replied bindingsource_classtime.datasource = mynewdataset
I have no clue on how to apply mynewdataset
Ive researched without success.
Hoping you can help
|
|
|
|
|
myNewDataSet is a made up name intended to represent the DataSet that you would have created in the step before if you followed the suggestions I made.
If you did follow the examples then the line would be
bindingsource_classtime.datasource = whateverYouCalledTheDataSetInTheStepBefore
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
why do you insist on providing only the last statement of the solution?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
