get time on a remote machine

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - MsgBox within Sub I am using MsgBox within a sub, and then I begin a new sub and am using MsgBox again. When I run the script, the MsgBox always displays the heading listed in the last sub section listed. What am I doing wrong??? Tag: get time on a remote machine Tag: 169066
  - 2
    - ASP classic on Windows 2003 Web Edition Hi everyone, Here is my dilemma; We had a Windows 2000 domain server with Exchange and all that and I had a Windows 2003 Web edition server on the domain. I used ASP classic (the non-dotnet kind) to access domain objects with getobject("WinNT://"... stuff. When the domain server was upgraded (after format) to 2003, getobject now reports a permission denied. Does 2003 lock out ASP classic from the WinNT:// objects and other ADSI objects? How can I rectify this situation? Please advise. Thanks, Jim Tag: get time on a remote machine Tag: 169064
  - 3
    - Loading mulitple files Below is an example of gathering informtion from a xml file. The file is a template with stored values that will be used for comparision. Now that I have my intitial values how can I look at a directory with multiple xml files and do a verify that the template values match each xml files value. I kinda of an idea how to approach but not sure with vbscript. I think I need to add another For Each statement to grab all the files in some directory. Then open each xml file and grab the xml data the same way as below. Where I am getting confused is when I open a xml from directory and grab values is actually comparing the template data to the xml file opened. I planned on creating a error log everytime I read thorugh an xml and the versions do not match template. The directory where all the xml files are located are named ComputerName.xml. Computername is unique. Since the xml is read from first record to end, I thought maybe doing some IF statement on the version number. This is the Output of the date. Application = ADS Version 2.7 Application = State City 3.9.0 Application = RCS 9.11.0 Application = Release 3.5.009 Application = Web 5.13.0 ============================================================================ ==================== sFilePath = "C:\Production_Versions.xml" sXPath = "/Store/Application" Set oXMLDoc = CreateObject("MSXML2.DOMDocument") oXMLDoc.SetProperty "SelectionLanguage", "XPath" oXMLDoc.Async = False oXMLDoc.Load sFilePath If (oXMLDoc.parseError.errorCode <> 0) Then Set oErr = oXMLDoc.ParseError WScript.Echo "Could not load file " & sFilePath _ & " , error: " & oErr.Reason WScript.Quit End If Set objApps = oXMLDoc.DocumentElement.SelectNodes(sXPath) For Each oApp in objApps strApplication = oApp.getAttribute("Name") intVersion= oApp.getAttribute("Version") WScript.Echo "Application = " & strApplication & Space(1) & intVersion Next Tag: get time on a remote machine Tag: 169060
  - 4
    - VBScript to accept user input and write to registry Hello, I am trying to create a script that will accept input from a user (4 different values) and then write them to the registry. I have the portion of code completed to create the reg keys and strings but am having issues with asking the user for input then writing it to the location I just created. Any help would be greatly appreciated. Thank you, mint_fo@yahoo.com Tag: get time on a remote machine Tag: 169059
  - 5
    - Submit form results to access database and email form results. I'm very much a novice, but here is the scenario. I've used Frontpage XP to create a form that saves the results to an Access database. We can then access the results and edit them when needed using the Frontpage database editor. What I would like is for the confirmation page to email the results (or specific fields) from the form to our help desk so we can be notified when a new record has been added. I've just started experimenting with CDOSYS to automaticall email, but haven't been able to figure out how to pull the fields from the form into the email. I'm using a submit instead of post method with our form, is this part of the problem? Tag: get time on a remote machine Tag: 169058
  - 6
    - Lock Keyboard and Mouse Anyone knows how to lock them without any component like AutoIT? thnx -- CHIN@KD www.racingclub.com.ar Tag: get time on a remote machine Tag: 169055
  - 7
    - SENDKEYS + Batch Process Hi All!!!! as u could see in this subject, this is a little weird problem.. lol This is it: I created a .vbs file, it runs a batch process opening an Internet Explorer Window, logs in an external website , and upload a file from this comp ( where i have the vbs file ) The first problem i had : when i navigate a HTTPS URL , it ask for the certificate window and i had to click YES manually .. so i used the SENDKEYS to send 2 TABs and one ENTER to step over that window.. it worked The second problem : On the upload page, i had to browse the file to upload. HTML doesnt let u write in a FILE control Value. So i used again the SENDKEYS to send the full path of the file to upload. It worked. Now the Actual Problem : this computer has to be locked while the process runs.. so.. the sendkeys doesnt work becouse the focus it s on the windows login window. Anyone has another idea to do what i m trying ?? thnx !! and sorry for my poor english.. PS: i cant modify the upload web site -- CHIN@KD www.racingclub.com.ar Tag: get time on a remote machine Tag: 169047
  - 8
    - Can I reach in and touch entries in a Shell.Open window? Dim Shell, wsh Set wsh = Wscript.CreateObject("Wscript.Shell") Set Shell = Wscript.CreateObject("Shell.Application") Shell.Open "D:\Documents and Settings\dont\Local Settings\Temporary Internet Files" Works, wonderful! Now, is there some way in the script I can reach into that window, grab a row of information at a time, get it into a variable, and then reach back in and delete an item if it matches my criteria? Since TIF is a "virtual folder" I can't find any way that the usual file system access tools will let me see this information and be able to access the files later for deletion. Thanks Tag: get time on a remote machine Tag: 169045
  - 9
    - WMI VS. Security I need to know if I understand the thematic ( WMI vs. Security) because I've to query domain controller ... To enable that someone can get responds to WMI queries I've to enable the remoteWMI on the domain controller, right? http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/securing_a_remote_wmi_connection.asp From the machine I want to ask from, I can tune up the connection to be secure as possible: 1. Useage of default authentication and impersonation level which provides WMI to specify the manner in which the queries should be transmitted and what will do the queries ... and to help COM how much security is needet to access the process on the client machine, right? So best solution will be if I use "PktIntegrity" as AuthenticationLevel and "Impersonate" as ImpersonationLevel. ?? http://msdn.microsoft.com/library/en-us/wmisdk/wmi/setting_the_default_process_security_level_using_vbscript.asp?frame=true 2. To use Kerberos as authentication protocoll to specify the authentication method http://msdn.microsoft.com/library/en-us/wmisdk/wmi/setting_the_authentication_service_using_vbscript.asp?frame=true Please give me feedback if I've understand it - or not .... ... the only message to transport the query and response encrypted is to use PktPrivacy? Many thanks in advanced Juan Tag: get time on a remote machine Tag: 169042
  - 10
    - Intellisense and WSH objects Hi all, Anyone knows a way to "register" WSH and FileScripting Objects for Visual Studio 2003 use intellisense technology with it? Thanks. Pedro L. Tag: get time on a remote machine Tag: 169038
  - 11
    - Print File I am interesting in allowing the user to select some information from a web form ... and then based on that input perform was database queries and then print a job to a windows queue. I 'googled' on many topics to determine how best to perform the print portion of this - but had no luck. I'm contemplating taking the user's input, query the database and then create the appropriate xml to send to the queue. The queue is being monitored and can utilize the xml to print the job appropriately. If anyone has any pointers towards printing a file to a windows queue from a web site (server side) I would be most appreciative. BBB Tag: get time on a remote machine Tag: 169037
  - 12
    - Device I/O Error when adding a component? 'After doing: 'Set objExcel = CreateObject("Excel.Application") 'Set abook = objExcel.Workbooks.Open(NameFile)" earlier in the program 'The following line gives me an error at runtime: Set xlmodule = abook.VBProject.VBComponents.Add(1) Does anyone have any idea why and how that line could give me an error 57: Device I/O error ??? Tag: get time on a remote machine Tag: 169035
  - 13
    - WMI Getting Network Bandwidth for Specific NIC I'm looking to get the Bytes per/sec from a specific NIC, right now i'm pulling BytesTotalPersec from Win32_PerfFormattedData_TCPIP_NetworkInterface. This works great, but it brings back all NICs, how do i choose which NIC I want? My code is: Set ColItems = objWMIService.ExecQuery("Select BytesTotalPersec from Win32_PerfFormattedData_TCPIP_NetworkInterface") For Each objItems in colItems Wscript.Echo "Network Bandwidth: " & objItems.BytesTotalPersec Next Thanks Glenn Tag: get time on a remote machine Tag: 169032
  - 14
    - Setting Proxy server in RAS connections Hi there, We currently have a requirement to set (via a VB Script) the Proxy server name / port for dialup connections on a PC. So far, I wrote a script to find the names of the RAS connections on the PC, but am unsure where the proxy server setting is for the each connection. I've searched the registry, and it isn't in the RAS phonebook file. Can anyone shed any light on where this setting is stored? Your help is most appreciated, Simon Tag: get time on a remote machine Tag: 169027
  - 15
    - SP2 security problems Does anyone have a link to a thorough explanation of how to manage XP SP2 security for files? I sent a zip to a friend, with VBS files inside. He got a message that "some files were blocked" when he extracted the zip, and the VBS files were not extracted! It appears that I need to understand the various SP2 settings in order to dependably send files to others. And now I'm also wondering about downloaded zips with VBS inside. Is SP2 also hiding those from the user by default? _____________________________ mayayXXana1a@mindYYspring.com For return email remove XX and YY. _____________________________ Tag: get time on a remote machine Tag: 169025
  - 16
    - How do I get Author and Last saved By file props with vbscript HI All, I need to be able to determine the Author and Last Saved By Properties of a file from within VBScript. I already can get the name, path, filesize, etc that I need, but the remaining 2 I can't seem to find a reference for. Anyone have any ideas? Thanks Brian Tag: get time on a remote machine Tag: 169023
  - 17
    - What happened to microsoft.public.scripting.wsh ? To MS news server guy. I can't read msg in microsoft.public.scripting.wsh group. Other groups in news.microsoft.com is ok. I'm using Outlook experess 6 Tag: get time on a remote machine Tag: 169015
  - 18
    - VBS does not run in Schediled Task if user is not logged in runas I have a Win 2003 Server runnig the same script I was using On win 2000 Server. This script is set to run as a local admin and will only execute if the local admin is logged in. I have made a small script just to test this and it exibits the same issues. spin.vbs For i = 1 to 100000 next ST command line = c:\windows\system32\cscript.exe c:\temp\spin.vbs when this executes and the local admin is logged in the SCH Task GUI status indicates running while the script is spinning and the result = 0x0. BUT when another admin is logged in and teh ST executes Status stayes blank and result = 0x1. Conduting the same test with notepad both cases show Status running then result 0x0. I am lost any thoughts, is there a Cscript switch i am missing. -- thanks CranDev :) Tag: get time on a remote machine Tag: 169011
  - 19
    - Loading your settings failed Error message Right now I am receiving an the error: "Loading your settings failed (access is denied)" when trying to run a .vbs file. I have looked at other suggestions that stated to look at the HKLM\SOFTWARE\MICROSOFT\WINDOWS SCRIPT HOST permissions and all of the permissions are correct, meaning I am an administrator on this machine and administrators have full access to the registry key. Are there any other suggestions? Any help is greatly appreciated. Thanks, MC Tag: get time on a remote machine Tag: 169010
  - 20
    - access to stylesheet Hi, Does anyone know why I can't access the stylesheet in a document downloaded from the internet or if there's a workaround? Thnks, Elana for instance, <html> <head> <base href="http://www.some.com"> <style> body{background-color:lime} </style> </head> <body>  <script language=vbs> sub window_onload() 'produces access is denied error msgbox document.stylesheets(0).cssText end sub </script> </body> Tag: get time on a remote machine Tag: 169002
  - 21
    - *IMPORTANT* Message for Google Group, Usenet and AOL users! Good News! Do you know how simple it is to go to Heaven after this life has ended? Some people believe that belonging to a local church, temple, mosque or synagogue will get them to Heaven. Others believe that water baptism, obeying the ten commandments or just being a good person will get them to Heaven. There are many other beliefs as well, but the good news about God's way to Heaven is found in the Holy Bible. The good news is that God came from Heaven to earth in the person of Jesus Christ over 2000 years ago and died for our sins(misdeeds). He was born in the land of Israel supernaturally to a virgin Jewish woman named Mary. He lived a sinless life for thirty-three years and then sacrificed His sinless blood and died on a cross to pay the death penalty for our sins. After Jesus was placed in a tomb He rose from the dead three days later as He said He would. The Holy Bible also tells us that Jesus Christ ascended into Heaven and that all who accept Him as their Lord and Saviour will live forever with Him in Heaven where there is no more death, sorrow, sickness and pain. The Bible says, "For the wages of sin is death, but the gift of God is eternal life through Christ Jesus our Lord." (Romans 6:23) This verse in the Bible says, "For ALL HAVE SINNED, and come short of the glory of God." (Romans 3:23) This verse says, "But God demonstrates his own love for us in this: While we were still sinners, Christ died for us." (Romans 5:8) In this passage the Bible clearly explains how simple it is to be saved and on your way to Heaven, "For if you confess with your mouth, "Jesus is Lord," and believe in your heart that God raised him from the dead, you WILL BE SAVED." (Romans 10:9) You can be saved right now and on your way to Heaven if you will open your heart to Jesus and pray the following prayer: Dear Jesus Christ, I want to be saved so that I can have a home in Heaven when I die. I agree with You that I am a sinner. I believe You love me and want to save me. I believe that You bled and died on the cross to pay the penalty for my sins. I believe that You rose from the dead. Please forgive my sins and come into my heart and be my Lord and Saviour. Thank You Lord Jesus Christ for forgiving me and saving me through Your merciful grace. Amen. You are now a Christian if you said the prayer and allowed God to save you. Welcome to the family of God. Salvation is not a reward but a gift. The Bible says it this way, "For it is by GRACE you have been SAVED, through FAITH and this not from yourselves, it is the GIFT of God." (Ephesians 2:8) Nothing in the world is more important than your eternal destiny. The Bible says, "In Him(Jesus) we have redemption through His blood, the forgiveness of sins..." (Ephesians 1:7) If you have not yet made a decision to be saved, please do so now before it is too late. The reason why it is so important to be saved now is because you do not know exactly when you will die. You may die prematurely in a traffic accident, terrorist attack or some other way before you get another chance to be saved. The Bible tells us that we will spend eternity in Heaven or a place of eternal torment called Hell. It would be terrible to die and go to Hell when all you have to do is accept Jesus Christ as your personal Lord and Saviour. Some people that have already made Jesus Christ their Lord and Saviour worry about losing their salvation. The Bible teaches Christians that we can never lose our salvation no matter what happens. The Bible says it this way, "My dear children, I write this to you so that you will not sin. But if anybody does sin, we have one who speaks to the Father in our defense Jesus Christ, the Righteous One." Yes my friend, Jesus Christ is able to save you and keep you saved. Please tell your family and friends, thanks! Have a great day! Internet Evangelist R.L. Grossi 1. http://www.biblegateway.com << Free Online Bible 2. http://www.free-hoster.com/goodnews << Passion of the Christ 3. http://www.carm.org/cults/cultlist.htm << Beware Of Cults 4. http://www.equip.org/free/DH198.htm << About Hell 5. http://www.powertochange.com/questions/qna2.html << Is Jesus God? Tag: get time on a remote machine Tag: 169001
  - 22
    - VBA to VBScript - Sorting Hi, I recorded a macro in Excel and now I want to use it in VBScript. I am having a heck of a time to find any information on how to do a sort in Excel using VBScript... Range("A1:H227").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range ("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal Tag: get time on a remote machine Tag: 168998
  - 23
    - LDAP Getobject call Works in vbs file but not in an ASP file (IIS I have the following code in both a vbs file and in an asp file (switch Wscript.Echo with Response.Write). It works in the vbs file just fine. Spits out a nice little output to the screen and all is well with the world. Put this code in an ASP page on II6 (SAME SERVER) and I get a mysterious error code that I have found no information about. I'm stuck. Need help. Thanks in advance!!!! asp file <% ADSIPath = "LDAP://CN=Users,DC=Domain,DC=com" GetSN Sub GetSN() 'On Error Resume Next Response.write("<p>" & ADSIPath & "</p>") Set objAD = GetObject(ADSIPath) Response.write("<p>Err.Number:" & Err.Number) Response.Write("<p>Err.Source:" & Err.Source) Response.Write("<p>Err.Description:" & Err.Description) Response.Write("<p>DN:" & objAD.DistinguishedName) Set objAD = Nothing End Sub %> vbs file ADSIPath = "LDAP://CN=Users,DC=Domain,DC=com" GetSN Sub GetSN() 'On Error Resume Next Wscript.Echo("<p>" & ADSIPath & "</p>") Set objAD = GetObject(ADSIPath) Wscript.Echo("<p>Err.Number:" & Err.Number) Wscript.Echo("<p>Err.Source:" & Err.Source) Wscript.Echo("<p>Err.Description:" & Err.Description) Wscript.Echo("<p>DN:" & objAD.DistinguishedName) Set objAD = Nothing End Sub Tag: get time on a remote machine Tag: 168997
  - 24
    - know user windows Sorry about my english. How to know the "logged" user in w2000? My client wan to use the same windows'user and password in the page(intranet) If its possible i want to ask windows some like that: uid="myuserwindos" psw="mypasswordwindows" if idontknowwhatapifunctionwindows(uid,pasw) = true then Is possible?? Thank's -- -------------------------------------------------------------- Rene Moreno Monterrey, Nuevo Leon, Mexico "Estudio en la duda, Accion en la Fe" -------------------------------------------------------------- Tag: get time on a remote machine Tag: 168995
  - 25
    - Base64 Type Mismatch error Hello I'm trying to Base64 encode a buffer that I have in memory. So this means that I don't want to use the MS Stream object to read a file from disk. Originally I tried to do this same task in JavaScript but failed... I assumed it was because the oB64Node.nodeTypedValue takes a VT_Array. The following throws a type mismatch.. the CreateVBArray routine returns a VB Array of bytes. oB64Node.nodeTypedValue = CreateVBArray( buffer ) Any help would be greatly appreciated. If possible I would luv to be able to accomplish this same task in javascript. <SCRIPT LANGUAGE="VBScript"> doEncode( "Hi how are you" ) Function CreateVBArray( buffer ) Dim i, j, imax, chr Dim a imax = len(buffer) redim a (imax) i = 0 For j = 0 To imax chr = mid(buffer, j+1, 1) if( chr <> "" ) then a(i) = CByte(Asc(chr)) i=i+1 end if Next 'Shrink it... ReDim Preserve a(i-1) CreateVBArray = a End Function Function doEncode( buffer ) Dim oXML Dim oB64Node Set oXML = CreateObject( "Msxml2.DOMDocument.4.0" ) oXML.loadXML( "<?xml version='1.0' ?> <root/>") call oXML.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes") Set oB64Node = oXML.createElement("F") oB64Node.dataType = "bin.base64" ' This throws a type mismatch oB64Node.nodeTypedValue = CreateVBArray( buffer ) Set doEncode = oB64Node End Function </SCRIPT> Tag: get time on a remote machine Tag: 168990
- Next
  - 1
    - Can you debug scripts with VB.net 2003 Thanks Tag: get time on a remote machine Tag: 168983
  - 2
    - how do i set up.... a script that hyperlinks from an IP address to a cmd prompt that automatically pings it from an excel file i have an excel file with a list of IP addresses i want to create a hyperlink that: a. goes to a cmd prompt b. then pings the IP address that I clicked on anybody knows a good .bat file or a VB script that can do such a thing? -- Phil Network Admin Tag: get time on a remote machine Tag: 168980
  - 3
    - XML file I have created a template xml file, but unsure exactly how to read the values using vbscript. I want to read the Application Name and Version number and store in a varible to do a comparision. I was looking at xml language. I was thinking I needed to select the nodes Application name and enumerate thorugh all Application names. Then get the attributes for each Application Name. I just need some direction. <Versioning> <Application Name="IBDI Version" Version="2.7" ENVName="IBDIADSVERSION"/> <Application Name="State City" Version="3.9.0" ENVName="STATECITYVERSION"/> <Application Name="ICS" Version="9.11.0" ENVName="RCSVERSION"/> <Application Name="Release" Version="3.5.009" ENVName="RELEASEVERSION"/> <Application Name="Web" Version="5.13.0" ENVName="WEBVERSION"/> </Versioning> Tag: get time on a remote machine Tag: 168978
  - 4
    - Disconnect Printer If it exists Hi, I'm trying to do a login vbs script that deletes a printer if it exists on the machine. I can delete the printer if it exists OK, so that the first time a user logs on, all is well. However, the next time the script runs, I get an error stating: "This network connection does not exist" What I want to do is put an if exists statement around the deletion, so that if it isn't there, the script doesn't try to delete it. The script so far looks like: strPrinter="\\DC2\Development" Set WshNetwork = CreateObject("WScript.Network") Set WshShell = CreateObject("WScript.Shell") WshNetwork.AddWindowsPrinterConnection strPrinter WshNetwork.SetDefaultPrinter strPrinter MsgBox strPrinter & " Printer connected and set as the default printer" Set WshNetwork = WScript.CreateObject("WScript.Network") PrinterPath = "\\DC2\Engineering" if Exists (PrinterPath) Then WshNetwork.RemovePrinterConnection PrinterPath, true, true MsgBox PrinterPath & " Printer Removed" MsgBOx "Default printer is now " & strPrinter End If This errors with a Type Mismatch: 'Exists' What am I missing her? Can anyone help? Thanks John Tag: get time on a remote machine Tag: 168975
  - 5
    - TypeText "---" TypeParagraph doesnt draw line Hi Im using VBScript to work with MS Word with Word.Application. It opens Word, writes some stuff, and saves the file. In Word, if you type --- and the press enter, it turns it into a line that goes right across the screen. How can I do this through automation? If I do.. oSel.TypeText "---" oSel.TypeParagraph ..all i get is "---". If i try and record a macro to see how it works, it doesnt do the line thing either! How can I draw this line across the page? Cheers Dan Tag: get time on a remote machine Tag: 168971
  - 6
    - Stepping through profiles Hi there, What im trying to do, is find a way to vbscript a change to internet explorer - but this is done for each user instead of local machine. The key I need to change appears twice in the registry.... (1) HKEY_USERS\S-1-5-21-653134347-1111155483-262303683-1232\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride (2) HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride I know that if I change this in HKEY_CURRENT_USER, it changes the HKEY_USERS entry for the account being used, but how can I make the change for ALL accounts that logon to the domain through a given PC? Any help would be massively appreciated, Simon Tag: get time on a remote machine Tag: 168966
  - 7
    - convert .vbs to .exe I searched around for some program to convert .vbs to .exe files. Is it possible? Tag: get time on a remote machine Tag: 168964
  - 8
    - how to check NULL data As no data on a MDB record, I want to show "No data!". Then how to check the NULL in the reading, for example; With RS data1 = RS.Fields("rec_data") ' Sometimes NULL there! If NULL=data1 Then data1="No data!" End If ----- ----- End With I have tried above, however the code doesn't work!! ---------------------- System YNT mmiura@sysynt.com ---------------------- Tag: get time on a remote machine Tag: 168962
  - 9
    - vbscript binary tree - help needed I tried converting the Binsry Tree sample VBA from http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvbadev/html/implementingbinarytree.asp to vbscript and am stumped. Does anyone have time to find what I did wrong? I get "runtime error: Object required" immediatly on "If ti Is Nothing Then" in the AddNode function. thanks LJB '----------------------------------------- Class TreeItem Public Value Public LeftChild Public RightChild End Class Class Tree Private tiHead 'done to reduce program stack space Private mfAddDups Private mvarItemToAdd Private Sub Class_Initialize() Set tiHead = New TreeItem End Sub Public Sub Add(varNewItem) mfAddDups = True mvarItemToAdd = varNewItem AddNode tiHead End Sub Public Function AddNode(ti) If ti Is Nothing Then Set ti = New TreeItem ti.Value = mvarItemToAdd Else If mvarItemToAdd < ti.Value Then Set ti.LeftChild = AddNode(ti.LeftChild) ElseIf mvarItemToAdd > ti.Value Then Set ti.LeftChild = AddNode(ti.RightChild) Else If mfAddDups Then Set ti.RightChild = AddNode(ti.RightChild) End If End If End If Set AddNode = ti End Function Public Sub WalkPostOrder() PostOrder tiHead End Sub Private Sub PostOrder(ti) If Not ti Is Nothing Then InOrder ti.LeftChild InOrder ti.RightChild wscript.echo ti.Value End If End Sub End Class Dim MyTree Set MyTree = New Tree With MyTree .Add 11 .Add 12 .Add 14 .Add 15 .Add 13 .WalkPostOrder End With Tag: get time on a remote machine Tag: 168961
  - 10
    - CDOsys and Addattachment CDOsys and addattachment works fine with word doc or excel. When i attach an pdf , it changes the file extension to dat. When de receiver changes the extension to pdf its an fine pdf. Can cdosys send pdf without changing it to a dat file . Tag: get time on a remote machine Tag: 168957
  - 11
    - GPO / local script conflicting results. Hi all - I have a problem that has me foxed. I want to run a script that will display all the software installed on a PC (software installed using Windows installer). When I run the same script as a GPO policy on a PC, and then run an almost identical version on the PC itself, I get slightly different results. The GPO version doesn't show that AcrobatReader50 is installed. Here is the script that I ran locally and using a GPO. I only changed the path of the text file that is created. -------------------------------------------- Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("d:\log\gpo.txt", True) strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSoftware = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Product") objTextFile.WriteLine "---" & "Name" & " " & "Install State" For Each objSoftware in colSoftware objTextFile.WriteLine objSoftware.Name & "---" & objSoftware.InstallState & "---" Next objTextFile.Close ------------------------------------------------ Results from the script run on a local PC. (software.txt) ---Name Install State AcrobatReader50---5--- LotusNotes506a---5--- Adobe Reader 6.0.1---5--- Microsoft Office 2000 SR-1 Premium---5--- Microsoft Office 2000 Professional---5--- WebFldrs---5--- OracleSQLNet816---5--- ------------------------------------------------ Results from the script run as a GPO (gpo.txt) ---Name Install State LotusNotes506a---5--- Adobe Reader 6.0.1---5--- Microsoft Office 2000 SR-1 Premium---5--- Microsoft Office 2000 Professional---5--- WebFldrs---5--- OracleSQLNet816---5--- Thanks ! Tag: get time on a remote machine Tag: 168949
  - 12
    - Server.Transfer Vs. Response.Redirect... to... \\209.11.22.33\MyDir Ok, I give up... why do 1-4 work fine... but 5-6 give "can't find" errors? 1. Client-side VBscript code: call navigate("\\209.11.22.33\MyDir") 2. Client-side VBscript code: location.href ="\\209.11.22.33\MyDir" 3. Typing "\\209.11.22.33\MyDir" into my ie6 browser. 4. Typing "\\209.11.22.33\MyDir" into my Windows Explorer. 5. Server-side ASP: server.transfer "\\209.11.22.33\MyDir" 6. Server-side ASP: response.redirect \\209.11.22.33\MyDir" How do I make it redirect? Thanks. Tag: get time on a remote machine Tag: 168944
  - 13
    - Map drive letter to WebDAV We have a Novell cluster that is Web Dav enabled that we want to map a drive letter to the Web Dav location for the user either as they log in, or an icon on their desktop. I searched high and low, and did see a good way to do this. I thought about using a VBS script to map the drive letter. Even if I have to prompt them for their password and use the username they log in with by pulling it, that would be fine as well. Does anyone know of a way to do this? Thank you, Matthew Tag: get time on a remote machine Tag: 168938
  - 14
    - vbscript create dsn - Default Login Name Hi, I'm successfully creating a new DSN using vbscript, but I can't get it to set the default Login name. The default login can be found in the odbc administrator under the advanced tab. I don't want to have to enter that in manually on users computers/ Here's a section of my code: [code] 'WshShell.RegWrite RegEdPath & "Database" , DatabaseName WshShell.RegWrite RegEdPath & "Description" , Description WshShell.RegWrite RegEdPath & "Driver" , DriverPath WshShell.RegWrite RegEdPath & "LastUser" , "UID" 'WshShell.RegWrite RegEdPath & "Server" , Server WshShell.RegWrite "HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\" & DataSourceName , DriverName [/code] The user I'm trying to use as the default login is - UID Thanks for your help Tag: get time on a remote machine Tag: 168937
  - 15
    - Setting focus I am having problems with setting focus on a PGP decryption dialog box. My code below works fine interactively on the client PC. However, it does not set the focus when I schedule the VBScript on the server. I would greatly appreciate any suggestion. Thank you. 'Process PGP decryption of GM/Fidelity enrollment file Wscript.Sleep 9000 'Pause 9 seconds PGP = WshShell.Run ("M:\ohw06027.elg.pgp") 'Send keystrokes to PGP active window WScript.Sleep 6000 'Pause 6 seconds WshShell.SendKeys "999999" 'Send passphrase keystrokes Tag: get time on a remote machine Tag: 168935
  - 16
    - match machine name to user name I have a script that reads a mdb file to determine what machines are logged into it. I would like to return the user name instead of the machine name. What is the easiest way to do this? I only have 9 machines that can log in so can I make a table inside the script or do I have to create an external table or file for reference? Thanks Paul D Tag: get time on a remote machine Tag: 168934
  - 17
    - Changing TCP/IP Settings Is there any way using vbscript/WSH to access and modify Windows 2K/XP TCP/IP Properties? I need to make a little program that, when the user runs the program and selects one of two options (radio button:?), they set the TCP/IP properties to either "Obtain IP address automatically via DHCP" or set a specific IP/Gateway/DNS/WINS, ect. I'm still reading all the beginner parts of the win2K scripting guide so still a hardcore newbie. I'm hoping someone can point me in the right direction. Thanks. Jim Tag: get time on a remote machine Tag: 168933
  - 18
    - LDAP Attributes Active Directory Users Hello, I'm using a script to find users with various attributes. I would like to find all users with a script name in there profile. I know how to access other attributes (i.e. sAMAccountName,cn,userPrincipalName etc.) but I can not find any information on the other LDAP attributes contained in the user scheme. I would like to find the complete scheme for an AD user. Can some one point me in the right direction? Thanks and Best Regards Tag: get time on a remote machine Tag: 168932
  - 19
    - launch exe for local subnet only How would I write a vbs file that would launch an executable file (VirusScan updates) for people on my local subnet only (10.103.1.x)? -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: get time on a remote machine Tag: 168927
  - 20
    - write registry Hi all, any know script for write in registry windows? Tag: get time on a remote machine Tag: 168925
  - 21
    - clearing Id in Vbscript ???? hi, i have a following html id in the body part of asp <DIV id=details1></DIV> initally when the page loads, this id is empty and when i click a button on my asp page, it assigns a value to it using "details1.innerHTML = my_val" through vbscript and its value is visable on webpage. i press the button again and at that point i want to clear this id value. i have used the following code for clearing details1.innerHTML ="" but... the problem is that if <DIV id=details1></DIV> is between 2 lines then i get a space of id after clearing it. this space is not there when page initally loads. my question is, how to clear this ID properly. Thanks Tag: get time on a remote machine Tag: 168924
  - 22
    - Archive.pst files | Splitting programatically I'd like to programatically take a large .pst (archive) and split it into muliple files. The scope would be to split a huge archive into a seperate archives based on date and create one archive for each year. I'd like to do this in VB so it could be scripted since I'd like to do this for about 1500 users! Any advise would be greatly appreciated! R.J. Tag: get time on a remote machine Tag: 168923
  - 23
    - Help with usr.get routine I am trying to write a script that outputs the samaccountname,firstname,lastname - I can get sam account same by using the snippet below but when I try to get the first or last name it reports back a blank/null value.... any advice on getting the first and last name values? Win2k3 AD. Dim strTargetOU ParseCommandLine() ReportOnUsers() 'Report on the users in the selected container Subroutine Sub ReportOnUsers() wscript.echo Date & " " & Time & " Reporting on: " & strTargetOU WScript.echo "SamAccountName} homeDirectory} Size in megs of homeDirectory" WScript.echo " " Set oTargetOU = GetObject("LDAP://" & strTargetOU) oTargetOU.Filter = Array("user") For each usr in oTargetOU On Error Resume Next if instr(usr.SamAccountName, "$") = 0 then vSAM = usr.get("SamAccountName") Tag: get time on a remote machine Tag: 168921
  - 24
    - downloading a hotfix directly from this page via script http://www.microsoft.com/Downloads/details.aspx?displaylang=en&FamilyID=E8E33441-B6F4-4EE3-AFF6-7CFC19B3354E I'm not sure how to get this done, since the actual location in the page that contains the exe doesn't have a name element defined. Basically, I want to be able to send a user to execute a script from a share and it will download the hotfix automatically from MS (optimistically, this would have the ability to be changed for newer hotfixes down the road). Any ideas? You don't have to supply me the entire script really...just something to get me going in the right direction. Am I missing something totally? Thanks guys & gals - Tag: get time on a remote machine Tag: 168917
  - 25
    - URLEncode when I try to use "<% dim qs qs = Server.URLEncode(Request.Querystring) Response.Redirect "newpage.asp?" + Server.HTMLEncode(qs) %> " to pass the URL and query strings, I got some extra string attached at the end "auto%3Dtrue" I have no idea there did it come from can any one tell me what's wrong? thanks Tag: get time on a remote machine Tag: 168916

Probably dumb question, but how do I get the time on a remote machine
using vbscript?

Re: get time on a remote machine by shah_boy

shah_boy
Wed Jan 26 22:38:26 CST 2005

shell out to NET TIME \\ComputerName. You can either caputure the
standard output or if you running it non-interactivly redirected it to
a temp file and then read in the temp file. Hope that helps

richpo

Top

Re: get time on a remote machine by Wensi

Wensi
Wed Jan 26 23:18:13 CST 2005

WMI:
win32_OperatingSystem.LocalDateTime

Wensi
<emebohw@netscape.net> wrote in message
news:1106781281.020110.168450@c13g2000cwb.googlegroups.com...
> Probably dumb question, but how do I get the time on a remote machine
> using vbscript?
>

Top