Search results for query: *

actually i decided to use the returned IP address to connect to the remtoe host via IP and return the hostname from taht IP via WMI. no external file and no parsing. like it a lot better without the nbtstat. now if i can just figure out the Wake on LAN via WMI portion, my script will be complete.

Documents" does not actually exist as a location on the hard drive unless you made it yourself (I am assuming you are using Windows 7 based on "users" and "documents"). Try doing a hard path c:\users\username\desktop\

Sub test() strIP = "127.0.0.1" 'This will not work. Change this to your actual IP strCmd = "\windows\sysnative\nbtstat -a " strFile = " > C:\Users\c895423\desktop\NBTStat.txt" strCommand = (strCmd & strIP & strFile) dblStatus = Shell(strCommand, vbNormalFocus) End Sub...

I know there are threads about this in other places. But I have thus far been unable to locate anything on this that is helpful for me. It is a simple sounding task I have: Column A of an Excel Spreadsheet is a list of host names. I need to ping them (done!), grab the returned ip (done!) and...

Well, from the sounds of it, you need to update Visio. Look online and download the Visio compatibility patches. I do not know for sure that this will resolve your problem, but it may.

Then right click a shape, select format, then click on behavior. Click the middle tab(double-click) from the menu that appears. The bottom option will say 'Go To Page' Select the page you wish it to jump to when the shape is dbl clicked. Hit Apply. You are good to go.

Excel gets hung? I have an object in my visio diagram. From the objects menu (under insert) the microsoft office worksheet object. I use this to store a lot of information that I use for generating certain images. Now when my script reads data from the spreadsheet, Excel is opened in the...

Solved this one on my own. Thanks for reading though.

I am now doing this using a microsoft word object instead of wordpad. Ok..I have it working..sort of.. ActivePage.Shapes("TESTER").Object.Range(B, E) Where B is the first character you would like to retrieve and E is the last character you would like to retrieve But how do I tell it to...

If it would be easier to use a Microsoft Word file instead, that is fine also. It makes no difference to me as long as it works.

Ok. This may not be the BEST way of doing this, but it is what I thought of... I want to embed several help files and other such information into a visio diagram in the form of an object - wordpad document. And at specific times, the coding will grab the data from that object, and place it...

Yea...but where is the fun in avoiding code? ;)

Well this macro only runs on the current page. So you have to click on the page tab at the bottom of the screen that you wish to check. Also, if it returns a message box that claims nothing was changed, then basically, there were no shapes on the page that had text that matched another shapes...

I already submitted this to Microsoft. They are hoping to have a hotfix for it very soon.

And of course, as always when running fresh code, save your document to another location using a different name. Run the code and be sure it works. This way, you do not hose your work.

Sub ReLabel() Dim ticker As Integer Dim theshapes As Shapes Dim counter As Integer Dim reportback As String Set theshapes = ActivePage.Shapes Dim thisshape As Shape Dim shapenames As String Dim ReText(999999) For Each thisshape In theshapes ticker = ticker + 1...

I never did get this on figured out. :(

I can probably help you with this, but I really need you to be MUCH more specific. Your question is to vague. Can you please provide more details?

I am developing a visio document for my clients. The document is fully automated. There are actually very few drawings that exist on the pages. One particular page, generated a view of the network Rack they click on. When this page is generated and loaded everything seems to be fine. However...

Actually, this code here seems to work fine. On Error GoTo 10 Dim UndoScopeID1 As Long UndoScopeID1 = Application.BeginUndoScope("Page Setup") Application.ActivePage.Background = False Application.ActivePage.PageSheet.CellsSRC(visSectionObject, visRowPrintProperties...