running object table

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
    - Script to know default printer Hi all, I need to know who print conection is the deafult in use ?? how can know this??? anybody can help me?? thanks in advance Daniel Tag: running object table Tag: 192154
  - 2
    - Need help filtering /querying specific text from large text /log file Hi everyone I need a script to pull only a small part of text from each line in my log file with 2000 plus lines. each line contains various web trending data, ip address, url etc. i need to pull specific part of each line from the text file/log and put it in its own output.txt file. each line has a url with various pdf file name at the end need to pull only the text after the url section example ( www.blahblah.com/salestools/bysn-6lydea_ro_en.pdf) I need only the info after salestools/ and before .pdf put into its own output file. Because there are over a hundred pdf names i need this to be a wildcard. if possible i need to group them as well, (put similar /same text names in their own colum or group in the output file.) any ideas? Tag: running object table Tag: 192147
  - 3
    - How can I follow a trail of 302 redirects with MSXML2.XMLHTTP? Hi all ... I have an interesting one here. I have some code that I've been using for years to pull down HTTP content as needed. However, I've just run into a situation that I've never seen before, and can't quite figure a way around ... Background: If a URL fed to MSXML2.XMLHTTP via VBScript returns a 302 "redirect" when loaded - VBScript will crap out on the page load due to security settings in IE, if the redirected URL is in another domain. You won't get any content back as a part of the response, and the HTTP status code actually comes back as "0". However ... if you enable the "Access data sources across domains" option in the security settings for IE - the MSXML2.XMLHTTP control will follow the 302 path and eventually get the final result page and return the contents to you. (/RANT-ON ... I shouldn't have to change settings in IE to control how my VBScript program will work! Ugh! /RANT-OFF) However, I would like to detect this 302 activity and track it from the starting page to the ending page. For instance, here's WGET tracking a two-layer redirect from a Feedburner link that demonstrates the situation: 1. WGET http://feeds.geffen.com/artist/robzombie/content?m=145 HTTP request sent, awaiting response... 302 Moved Temporarily Location: http://feeds.feedburner.com/~r/artist/robzombie/content/~0/145 [following] 2. WGET http://feeds.feedburner.com/~r/artist/robzombie/content/~0/145 HTTP request sent, awaiting response... 302 Moved Temporarily Location: http://www.geffen.com/artist/news/default.aspx/nid/8031/aid/414/?utm_s ource=rss&utm_campaign=rss&utm_medium=News&utm_content=nid_8031 [following] 3. WGET http://www.geffen.com/artist/news/default.aspx/nid/8031/aid/414/?u tm_source=rss&utm_campaign=rss&utm_medium=News&utm_content=nid_8031 Resolving www.geffen.com... 192.251.67.164 Connecting to www.geffen.com|192.251.67.164|:80... connected. HTTP request sent, awaiting response... 200 OK Length: 8,294 (8.1K) [text/html] Here's some code I put together, to try to loop through each redirect until a final non-302 result is returned ... and state what the final link was. But I can't seem to find any way to get this concept to work based on what MSXML2.XMLHTTP provides me, given its interaction with Internet Explorer. Basically, if I enable the "Access data sources across domains" the control will simply follow the 302's and not tell me about it, and return the final page but with a link that (technically) doesn't match. If I disable the option, the GET performed by XMLHTTP craps out, returns a 0 result code. Any thoughts on a way to accomplish this? Is it even possible, or am I trying to do something that is completely outside of the control provided by MS? Thanks in advance ... Const READYSTATE_UNINITIALIZED = 0, _ READYSTATE_INITIALIZED = 1, _ READYSTATE_LOADED = 2, _ READYSTATE_INTERACTIVE = 3, _ READYSTATE_COMPLETE = 4 MaxLoadTime = 20 MaxLoops = 10 url = "http://feeds.geffen.com/artist/robzombie/content?m=145" StatusResult = 302 LoopCount = 0 wscript.echo "START: " & url Do while loopcount < maxloops and statusresult = 302 loopcount = loopcount + 1 CheckPageLoadTime = 0 PageLoadStartTime = now() Set objHTTP = CreateObject("MSXML2.XMLHTTP.3.0") Call objHTTP.Open("GET", url, TRUE) objHTTP.Send Do Until objHTTP.ReadyState = READYSTATE_COMPLETE or CheckPageLoadTime > MaxLoadTime wscript.sleep 100 PageLoadEndTime = now() CheckPageLoadTime = DateDiff("s", PageLoadStartTime, PageLoadEndTime) Loop HTTPGET = objHTTP.ResponseText StatusResult = objHTTP.Status HTTPRedirectLocation = objHTTP.GetResponseHeader("Location") If CheckPageLoadTime > MaxLoadTime then wscript.echo "TIMEOUT" end if IF StatusResult = 302 then wscript.echo "REDIRECT: " & HTTPRedirectLocation url = HTTPRedirectionLocation end if loop wscript.echo "END: " & url wscript.echo wscript.echo "HTTP Status: " & StatusResult wscript.echo "Redirects: " & loopcount Here's my results with the security option set to disabled: START: http://feeds.geffen.com/artist/robzombie/content?m=145 END: http://feeds.geffen.com/artist/robzombie/content?m=145 HTTP Status: 0 Redirects: 10 And here's my result with the security option set to enabled: START: http://feeds.geffen.com/artist/robzombie/content?m=145 END: http://feeds.geffen.com/artist/robzombie/content?m=145 HTTP Status: 200 Redirects: 1 So, to me, it seems as though it is possible to trace the string of 302's through the MSXML2.XMLHTTP control?? Thanks in advance.... Tag: running object table Tag: 192146
  - 4
    - Passing parameters from command line Hopefully this is pretty simple and I'm just not seeing it in my book. I have a vbs script that calls Excel and runs a macro. I would like to generalize it so that I can pass in the path to any spreadsheet, the name of the spreadsheet and the macro to run. I can write a sub to do it and then call the sub, but because of another language involved in this process, for it to work I need to be able to call the script via command line and pass the parameters that way. Any help would be greatly appreciated. Thanks Tag: running object table Tag: 192144
  - 5
    - export startup and shutdown times to file Hello, I'm very new to scripting and am looking for help, as general or specific as you care to provide. I want a script that would be run at computer startup and computer shutdown to record the computer name and time of the event to text/database/excel/e-mail (I don't care which right now) file. This wouldn't be the same as reading the event log, as getting updates from the event log would require the computer to be on. The general point is that we have users that often spend months away from the office, and we have no idea who they are or when this occurs. If their computers are not on, the WSUS server and HFNETCHECK cannot update them. If I have a way of seeing which machines are off for extended times, we can turn them on and manually update them. We would place these scripts in the startup/shutdown area of Group Policy. Thanks for any ideas. Tag: running object table Tag: 192141
  - 6
    - Trouble conting.. script out of range I'm not sure why, but it seems pretty random. I am getting script out of range here and there. Here is the part im having trouble with now. Const ARY_ROWS = 2 Const CDC_FIELD= 0 Dim iRow For iRow = 0 to Ubound(aryImf,ARY_ROWS) echo iRow If aryImf(iRow,CDC_FIELD) = strField Then My output looks like this: (and I don't know why 0 shows 3 times before the 1). 0001 Microsoft VBScript runtime error '800a0009' Subscript out of range: 'iRow' Tag: running object table Tag: 192140
  - 7
    - input type = "File" in an HTA Hi, I have written a script to do an inventory of servers in my domain. I have been asked to revise the script so that it will take a list of servers from a text file and process them one at a time. I tried to use the following input in my HTA; <p align="center"><font size="4"> Enter Server Text File Here: <input type="File" name="Stxt" Size="40"></p> The problem is that it only pulls the file name and NOT the full path, so I get a file not found error when I run my script. Is ther a way to get the full path and file name to return from this method? <-------------------------Code snip ------------------------------------> If Trim(Stxt.value) <> " " Then cList = Trim(Stxt.value) statval.value = statval.value & " " & cList Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("cList", ForReading) Do Until objTextFile.AtEndOfStream <----------------------------End Snip -------------------------------------> OldDog Tag: running object table Tag: 192137
  - 8
    - TRANSFORM/pivot table in VBS code: '----------------------------------------------- Set objConnection = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & str_BaseGetPath & ";" & _ "Extended Properties=""text;HDR=NO;FMT=Delimited""" '"TRANSFORM Count(tlnk_Fact.Field2) SELECT tlnk_Fact.Field1 AS District, Count(tlnk_Fact.Field2) AS [Total Count] FROM " & file_Names & " GROUP BY tlnk_Fact.Field1 PIVOT tlnk_Fact.Field4;" str_SQL = "TRANSFORM Count(tlnkFact(1)) SELECT tlnkFact(0) AS District, Count(tlnkFact(1)) AS [Total Count] FROM " & _ file_Names & " as tlnkFact GROUP BY tlnkFact(0) PIVOT tlnkFact(3);" rs.Open str_SQL, objConnection, adOpenStatic, adLockOptimistic, adCmdText '----------------------------------------------- returns a "undefined function [tlnkFact]" error. What am I doing wrong? the following works str_SQL = "Select * from " & file_Names Tag: running object table Tag: 192130
  - 9
    - VB MACRO for Publishing the files Hi, Im new to scripting For a project implementation i need VB MACRO to do the following task. The core idea is to Publish the pdf files from one drive to an another dirve to respective user folder for the following scenerio. Lets start ... A database table "User" have three columns REPORT --> it has the pdf file names USER ---> it has the user name & STATUS --> it has status whether the file has been published succssfully We have the folder in drive H: ( this contains pdf files as in modulewise, say three modules) a) ACR b) ACR-ALL c) ACR-Netdebit Each folder contains various pdf's files On the other hand drive G: ( it contains user names in folder wise) i have to create various folder on user names(like john, smith, ..) these folders should be created by refering that "User" table . Now the core task is to take the pdf from H: to publish in G: on respective user folder that even inside date folder. ( let say today's date is june 6, 2006) the folder struture should be like this 2006-->june-->06 Also for every month folder we need create date folder(say 1st june to 30th june). Also we need to update the status on the table sucess or failure. I need the Macro vbscript (code) to acheive this. Pls help me in this regard. Im eagerly waiting for your response.. this will help me lot.. Thanks in advance. Thanks & Regards, _______________ Moulee Tag: running object table Tag: 192122
  - 10
    - Copying a file in a series of directories Hi all, Situation : * Windows 2000 Domain * All home directories are gathered in \\DomainServer\Home_Directories (approx 200 dir) What I need to do is to copy one configuration file into each home directories contained in "\\DomainServer\Home_Directories". What is the easiest way to achieve this? I am an utter noob in wsh/vbs/bat scripting....so thank you in advance for helping. Regards Tag: running object table Tag: 192121
  - 11
    - Desktop VB Script Does anyone know how I can get a classic desktop and arrange the icons for all users via a vb script? -- «««««««««««««««««««««««««««««««« Todd Gregory Citrix Certified Administrator Professional Teledata 175 Canal Street Manchester, NH 03101 phone 800.344.9944 fax 603.625.5078 t.gregory@proteledata.com Visit our web site www.proteledata.com »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» Tag: running object table Tag: 192120
  - 12
    - query computer name I'm a freshman to vbscript, i write a script to query computer name by ip address as list: strcomputer = "192.168.0.1" Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv" ) ' obtain computer name strKeyPath = "SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\" strEntryName = "ComputerName" objReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & SubKey ,strEntryName,strHostName Wscript.Echo strHostName it always return the error of type mismatch, can somebody help me check what's wrong with this script? thanks in advance! -- fale ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: running object table Tag: 192114
  - 13
    - how to run a vbscript from windows service in the ws i have a client which on start starts an appln exe which in turn calls a vbscript to establish the connection.. when the appln exe is made to run separate the vbscript runs fine.. when it is made to start from the client as the appl exe depends on this client it says cannot create object to establish connection..but i am sure i have access rights.. the vb script has set obj=createobject("servicename","ipaddress") Tag: running object table Tag: 192113
  - 14
    - Reg Password Complexity for a local account Hi, Could anyone plz let me know how to obtain the password complexity for a local user. My code is as follows: Set objDomain = GetObject("WINNT://INGBTCPIC5dt440/localUser) intPwdProperties = objDomain.Get("PwdProperties") // There is no such property. WScript.echo "pwdProperties = " & intPwdProperties For Each Key In objHash.Keys If objHash(Key) And intPwdProperties Then WScript.Echo Key & " is enabled" Else WScript.Echo Key & " is disabled" End If Next This code will not work as the proprerty "PwdProperties" is not found for local user.Is there any other way to obtain the password complexity? Thanks & Regards. Sharan Tag: running object table Tag: 192110
  - 15
    - How to Use ActiveX for Client PC using ASP Hi Friends, I have created one ActiveX DLL in VB that has one public function ("GetClientCPUID") which will return a string of the CPUID. I want to use this to get the clients CPUID and retuern to webserver. I am new to using activeX in client side. In Asp how can I send this ActiveX to client browser? (I will instruct my users to allow this activeX). Is there a way I will execute this activeX in clients PC and get the return value and return to the server for my processing? Please suggest the ways that I can do this. Also suggest what are the situations that I should know before I proceed. I think there will might a issue when I upgrade the activeX and the client those are using the current one may face problem so I think I will need a way to uninstall the register the new one. I am not sure of this. Please suggest. Thanks Prabhat Tag: running object table Tag: 192108
  - 16
    - Browsing for Files I'm looking for a handy way for a vbscript to display a file browse dialog box. One method I've seen discussed is to use the Shell.Application BrowseForFolder method with a flag that tells it to also browse for files. E.g. Const BIF_browseincludefiles = &H4000 Set ShellApp = CreateObject("Shell.Application") Set Ret = ShellApp.BrowseForFolder(0, "Choose file.", BIF_browseincludefiles) In practice, however, this code generates the error "The system cannot find the file specified" on my XP and 2003 systems. Is there some kind of workaround to prevent this error? Thanks, -- Joseph Morales [To reply directly, remove "deletethispart." from my E-mail address ] Tag: running object table Tag: 192095
  - 17
    - how to get file version To know if an hotfix is installed I need to get the "complete" file version of some files. For "complete" file version I mean this: 5.1.2600.2726 (xpsp_sp2_gdr.050725-1528) filever.exe available in the support tools use the following definitions: ProductVersion: 5.1.2600.2726 FileVersion: 5.1.2600.2726 (xpsp_sp2_gdr.050725-1528) In a VBscript with or without WMI how can I get this kind of informations? I've already tryed to use the GetFileVersion method of the FileSystemObject but unfortunately it returns only the "short" file version (5.1.2600.2726). An alternate way to know if an hotfix is installed is welcome anyway. Thanks in advance. Tag: running object table Tag: 192094
  - 18
    - Run vbscript as post build event in VS 2005 I am trying to run a vbscript as a post build event command. I'm running VS 2005 and creating a C# dll. Oddly enough, VS will run other post build commands I test. But as soon as I change it to the vbscript it doesnt work... no errors or messages, just doesnt run. I even tried running a cmd file, which in turn runs the script, as a post build event... with the same result. Also, I've tested the script and that works fine too. Any ideas? Thanks, Larry Tag: running object table Tag: 192091
  - 19
    - HELP ME! Script to rename multiple files and file extension to .txt files I am working on a particular batch file to do many things, here is the jist of it. we have a series of log files which get updated daily, they have bizarre long file names (they are sent to us from a 3rd party company) the files come to me looking like this file below. www_22851.esw3c_s.200606010000-2400-1.gz the www_22851. remains constant in all the files (although this could change evenutally) the part after that changes up to the .gz i have a utility to unzip the files (gzip) but due to the fact that they are unix originated once they are unzipped they use the example ( .20606010000 * etc. ) for the file type. this utility works fine in a batch file enviroment. In order for my unix2dos converter utility to work they need to be in a .txt format. I need a vbscript that is able to change all the files to a random file name with .txt extension. for example Log1.txt Log2.txt , Log3.txt and so on but when it creates these they cannot write over any older ones. so the file name cannot start at log1 everytime it runs. it needs to start at whatever the last log file was (if the last one was log3.txt then next time it runs it needs to start at log4.txt) Any help on this is greatly appreciated Tag: running object table Tag: 192089
  - 20
    - HELP ME! Script to rename multiple files and file extension to .txt files I am working on a particular batch file to do many things, here is the jist of it. we have a series of log files which get updated daily, they have bizarre long file names (they are sent to us from a 3rd party company) the files come to me looking like this file below. www_22851.esw3c_s.200606010000-2400-1.gz the www_22851. remains constant in all the files (although this could change evenutally) the part after that changes up to the .gz i have a utility to unzip the files (gzip) but due to the fact that they are unix originated once they are unzipped they use the example ( .20606010000 * etc. ) for the file type. this utility works fine in a batch file enviroment. In order for my unix2dos converter utility to work they need to be in a .txt format. I need a vbscript that is able to change all the files to a random file name with .txt extension. for example Log1.txt Log2.txt , Log3.txt and so on but when it creates these they cannot write over any older ones. so the file name cannot start at log1 everytime it runs. it needs to start at whatever the last log file was (if the last one was log3.txt then next time it runs it needs to start at log4.txt) Any help on this is greatly appreciated Tag: running object table Tag: 192088
  - 21
    - killing a system process hello all i got a vbs that can kill process but that script doesnt able to kill SYSTEM process as a administrator. in task manager, i can simply kill any system process how can i do it with scripts ? i dont mind using 3rd commandline tools thanks strServerName = "." strProcessID = "calc.exe" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strServerName & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = '" & strProcessID & "'") For Each objProcess in colProcessList objProcess.Terminate() Next Tag: running object table Tag: 192081
  - 22
    - !VBscript install from UNC Path example needed To All: I am working on a Visual Basic script where it will install a MSI file from a UNC path. The problems I've encountered have to do with accessing the .MSI from a UNC path. If both the myapp.vbs file and the myapp.msi file (both are similarly named) are in the same folder in the UNC path, then how or what is the recommended way to acces the .MSI through vbscript? I would prefer not to map a drive as the windows server share has many folders underneath it so it would not be easy to search through the whole directory/tree structure to find the correct .MSI file. Can anyone provide an example of copying an .MSI down to the local file system where I can access it through vbscript as a local file system object? I also need to know how to search through the process table for certain process names and where found, kill them. Thanks for any help you can offer! Mark Withers Tag: running object table Tag: 192078
  - 23
    - vbscript BEFORE logoff is it possible to run a vbscript before log off which will execute a batch/ dos command? if so how do i do it? cheers, Tag: running object table Tag: 192077
  - 24
    - Need some help with script to read, backup remote Event logs Hey All, To start I am not a script write, in fact this is my 1st one. I am trying to write a script to backup and clear the events on remote Windows servers., the script should then write an event in to the app log on each server that it is done, and backup the events to a remote share that has a folder for each system. So I have tried to write the script to pull the remote systems name from a text file. Which is what I think I have done? Next I want use that â??strComputerâ?? to append to the backup name string, also to use that â??strComputerâ?? as the location of the folder on the share server. As well as making sure that the app event log on the â??strComputerâ?? has been update. All I seam to get to work is step one, pulling the name. Any help or thoughts would be great. The script is below the tag line. Thanks everyone. Dave -- "If you want to know the truth, you must have the courage to accept it." - Bear (.hack//sign) Si Vis Pacem, Para Bellum - Script: ' ***************************************************************** ' ' This VB Script will export the , Windows Servers ' Event logs to location set below. (Bkloca) ' ' It will then clear the logs in the event viewer and ' post a evt telling you which evt was cleared and when. ' ' '****************************************************************** dtmThisDay = Day(Date) dtmThisMonth = Month(Date) dtmThisYear = Year(Date) '*** Const INPUT_FILE_NAME = "C:\comps.txt" Const FOR_READING = 1 '*** Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING) strComputers = objFile.ReadAll objFile.Close arrComputers = Split(strComputers, vbCrLf) '*** strBackupName = strComputers & "_" & dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay '*** strBklog = "\\RemoteShareServer\evtlogs$\strComputers" '*** Const EVENT_SUCCESS = 0 For Each strComputer In arrComputers Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='Directory Service'") For Each objLogfile in colLogFiles objLogFile.BackupEventLog(strBklog & strBackupName & "_Directory Service.evt") objLogFile.ClearEventLog() Next Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.LogEvent EVENT_SUCCESS, "The Directory Service Event Log was Backup and Cleared. The backup is stored here:â?? & â??strBklogâ??, â??strComputerâ?? '*** Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='DNS Server'") For Each objLogfile in colLogFiles objLogFile.BackupEventLog(strBklog & strBackupName & "_DNS Server.evt") objLogFile.ClearEventLog() Next Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.LogEvent EVENT_SUCCESS, "The DNS Server Event Log was Backup and Cleared. The backup is stored here:â?? & â??strBklogâ??, â??strComputerâ?? '*** Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='File Replication Service'") For Each objLogfile in colLogFiles objLogFile.BackupEventLog(strBklog & strBackupName & "_File Replication Service.evt") objLogFile.ClearEventLog() Next Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.LogEvent EVENT_SUCCESS, "The File Replication Service Event Log was Backup and Cleared. The backup is stored here:â?? & â??strBklogâ??, â??strComputerâ?? '*** Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='Application'") For Each objLogfile in colLogFiles objLogFile.BackupEventLog(strBklog & strBackupName & "_application.evt") objLogFile.ClearEventLog() Next Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.LogEvent EVENT_SUCCESS, "The Application Event Log was Backup and Cleared. The backup is stored here:â?? & â??strBklogâ??, â??strComputerâ?? '*** Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup, Security)}!\\" & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='Security'") For Each objLogfile in colLogFiles objLogFile.BackupEventLog(strBklog & strBackupName & "_Security.evt") objLogFile.ClearEventLog() Next Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.LogEvent EVENT_SUCCESS, "The Security Event Log was Backup and Cleared. The backup is stored here:â?? & â??strBklogâ??, â??strComputerâ?? '*** Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Backup)}!\\" & strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery ("Select * from Win32_NTEventLogFile where LogFileName='System'") For Each objLogfile in colLogFiles objLogFile.BackupEventLog(strBklog & strBackupName & "_System.evt") objLogFile.ClearEventLog() Next Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.LogEvent EVENT_SUCCESS, "The System Event Log was Backup and Cleared. The backup is stored here:â?? & â??strBklogâ??, â??strComputerâ?? next Tag: running object table Tag: 192073
  - 25
    - ActiveX Control to get CPU ID of Client PC Hi All, How can I create a program / activeX Control that I will send to Client's PC, when user visit the webpage, So that it will ask for Activex control installation (like Microsoft windows validation control). want to create this to get the clients CPU ID. Please help me to do this as I am new to this concept. - I need a program / vbscript / activeX that will collect the CPU ID and send back to webserver. - ASP Page that can send the above conttrol / script to client - This page will ask for clients confirmation and the user will select YES in my case. I will instruct the users. - Get the CPU ID to use as security purpose. Please help me to do this. Thanks Prabhat Tag: running object table Tag: 192072
- Next
  - 1
    - Just can't get the hang of arrays in vbscript Dim aryFields : ReDim aryFields(0) ' why I can't just put the (0) in the original dim is besides me. Response.Write varType(aryFields) Response.Write isEmpty(aryFields) Response.Write isNull(aryFields) Response.Write Ubound(aryFields) From my output it tells me. 8204, so its a varient array False, so it's not empty False, so it's not null Script out of range 'Ubound' Seriously, if it's an array which is not null or empty, then why can't i do ubound? I feel like it's never safe to use ubound anywhere, but I have to anyway. My code is getting extremely bugging because of this. What am I supposed to be doing? This just seems silly Tag: running object table Tag: 192071
  - 2
    - Event handling in Script Control The code below should open an instance of ie, add it to a ScriptControl, navigate to about:blank, and catch ie's DownloadComplete event within the ScriptControl. It's all working except for last part. Q1. How can I get the vbscript below (.vbs file) to work (ie. call the event handler)? This is meant to be adapted into a script control invoked via another scripting language (PHP) so I won't have the WScript object at my disposal. Thanks for any tips, Csaba Gabor from Vienna Set ie=CreateObject("InternetExplorer.Application") Set sc=CreateObject("MSScriptControl.ScriptControl") sc.Language = "VBScript" sc.AddCode "Sub Test()" & vbcrlf & _ "scie.Visible = true" & vbcrlf & _ "scie.Navigate2 (""about:blank"")" & vbcrlf & _ "End Sub" sc.AddObject "scie", ie sc.State=1 sc.AddCode "Sub scie_DownloadComplete()" & vbcrlf & _ "MsgBox ""DownloadComplete""" & vbcrlf & _ "End Sub" sc.CodeObject.Test While typename(ie)="IWebBrowser2": WScript.Sleep 50: Wend If (sc.Error.Number<>0) Then MsgBox "Error: " & sc.Error.Number Per the comments at http://groups.google.com/group/microsoft.public.scripting.scriptlets/browse_frm/thread/45eac3a76f9b6117/ I have tried all six permutations of the 3 statements before the sc.CodeObject.Test line Also, I got the same results whether using sc.CodeObject.Test, sc.Run "Test", sc.Eval "Test", or sc.ExecuteStatement "Test" Q2. All the examples on the web show sc.State=connected. What is the proper way to reference that constant (since in my .vbs file it is undefined)? Unfortunately, I couldn't figure out the answer from the following web site: http://bratbaecker.de/vee/activ/msscript_ocx.htm PS. I'm including the second group since Alex Angelopoulos (as a followup to his April 10 posting) may wish to know that at the bottom of the second page of the following 2003 thread there is an unelaborated comment saying that the script control can't be passed around. http://www.powerbasic.com/support/forums/Forum6/HTML/002834.html http://groups.google.com/group/microsoft.public.windows.server.scripting/browse_frm/thread/2c6bcef4194c7a9f/ Tag: running object table Tag: 192070
  - 3
    - using external commands in a vbs file I am a beginner. I need to pull users' distinguished names and manager fields from active directory for an entire ou (our admin OU) and store it in a delimited file, both pieces of info in a single line. I a adept with DSquery.exe, dsget.exe, etc and see no need to reinvent the wheel. Can I use these external commands in a vbscript? Or do I need to continue to dig to find the native command to pull the info using vb script? I'd kinda like to hear that it is possible to use external commands in a vbs file AND see code to o it natively in VBS. Also it seems terribly difficult to find a single resource showing 100% of the vbscript classes and functions? Right now I'd give $500 to find a web resource with all that. (offer subject to withdrawal without prior notice - LOL) Thanks Dale Tag: running object table Tag: 192069
  - 4
    - Logon Path Script Does anyone know where a script is that will set th logon path for all users in AD to something like \\servername\sharename\%USERNAME%? I thought of using a GPO but I only have like 60 accounts. Thanks in advance. Mike Tag: running object table Tag: 192068
  - 5
    - excel in browser I am opening a excel file in browser by using window.open method. I am saying 'menubar=yes, toolbar=yes' in open method and I am seeing the menubar and toolbar. But the 'refresh' button in the toolbar is not working. So if I make changes to the excel and click on 'refresh' here, it is not getting refreshed. Also, the 'View' menu is disabled whereas 'File' menu is enabled. Can anyone suggest me a workaround to implement this 'refresh' functionality? Please note that I'm using IE 5.5. Tag: running object table Tag: 192067
  - 6
    - DNS Record deletion To All, can anyone give me an example of deleting a DNS record? from AD integrated DNS? Regards Honda900 Tag: running object table Tag: 192061
  - 7
    - Shotcut to a printer I would like to generate a Desktop-Shortcut to a printer. The normal "WsH.CreateShortCut" seems not to be able to to the job. Any suggestions would be great. Thanks. Karl. Tag: running object table Tag: 192056
  - 8
    - CASE Syntax Hi , Below code checks for the OS and based on that info, executes different tasks, now I suppose due to different Regional settings o9n the workstations the code always goes to CASE ELSE !!! I also tried it without quotes in the CASE statements without success, I sthere a better way doing this or what am I doing wrong ? thx DIM strOS, strcmd, strcmd1, strCN, strDN Set WshShell = WScript.CreateObject( "WScript.Shell" ) Set WshNW = WScript.CreateObject( "WScript.Network" ) strCN = WshNW.Computername ' retuns a null value if the network is if strCN = "" then ' unsettled, the expandenv is to catch this strCN=WSHShell.ExpandEnvironmentStrings("%COMPUTERNAME%") end if For Each os in GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem") strOS = os.Version next 'wsh.echo strOS Select Case Left(strOS,3) Case "4" 'OS=NT4 'wscript.echo Left(strOS,3) Case "5" 'OS= W2K 'WshShell.run(" ") 'wscript.echo "OS= W2K" strCN = WshNW.Computername ' retuns a null value if the network is if strCN = "" then ' unsettled, the expandenv is to catch this strCN=WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") end if On Error resume next strcmd = "cmd /c dsmod group " & """cn=WXPgpWORKSTATIONS,OU=GROUPS,OU=xxx GENERAL,DC=xxx,DC=CSPB,DC=COM -addmbr" & """cn=" & strCN & """,OU=Non-Restricted WORKSTATIONS,OU=IT-I,OU=xxxxIT,DC=xx,DC=CSPB,DC=COM""""" strcmd1 = "cmd /c dsmove " & """cn=" & strCN & ",CN=Computers,DC=xxx,DC=xx,DC=COM""" & " -newparent " & """OU=Restricted WORKSTATIONS,OU=CSPB GENERAL,DC=xxx,DC=xxx,DC=COM""" strDN = WshShell.run (strcmd, 1,TRUE) Wscript.Sleep 1000 strDN = WshShell.run (strcmd1, 1,TRUE) Case "5.1" 'OS= XP 'wscript.echo "OS= XP" strCN = WshNW.Computername ' retuns a null value if the network is if strCN = "" then ' unsettled, the expandenv is to catch this strCN=WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") end if On Error resume next strcmd = "cmd /c dsmod group " & """cn=WXPgpWORKSTATIONS,OU=GROUPS,OU=xxx GENERAL,DC=xx,DC=xx,DC=COM""" & " -addmbr " & """cn=" & strCN & ",CN=Computers,DC=xxx,DC=xxx,DC=COM""" strcmd1 = "cmd /c dsmove " & """cn=" & strCN & ",CN=Computers,DC=xxxx,DC=xxxx,DC=COM""" & " -newparent " & """OU=Restricted WORKSTATIONS XP,OU=xxxx GENERAL,DC=xxx,DC=CSPB,DC=COM""" 'wscript.echo strcmd1 strDN = WshShell.run (strcmd, 1,TRUE) Wscript.Sleep 1000 strDN = WshShell.run (strcmd1, 1,TRUE) Case Else wscript.echo "Unknown OS, pls call 999" & " " & strOS wscript.quit End Select -- Rom Tag: running object table Tag: 192055
  - 9
    - regwrite buffer overflow Hi, Trying to use regwrite to write 4294967295 (0xffffffff) to a dword value and am getting a buffer overflow error. I assume this means I cannot use regwrite to write that value and must resort to some other method, like a reg file, to write that value. Any and all suggestions welcome. Thanks, Lang Tag: running object table Tag: 192053
  - 10
    - Folder operations fail - how to release lock on folder? I have some VBA code in Access 2003 that trys to move and delete folders from My Documents. Seems like Access or the Scripting Runtime isn't letting go of the folder. The code is pretty straight-forward: Dim fso As Scripting.FileSystemObject Set fso = New FileSystemObject fso.MoveFolder strSource, strDestinationFolder ****Error Number 70: Permission denied <<===*** strSource is a folder in MyDocuments, and strDestinationFolder is a subdirectory in MyDocuments. If I reverse the source and destination - that is, copy from the subdirectory to MyDocuments - it works fine. Is there some way to force everything to let go of a directory - like a force release before deleting or something? I've tried this as a work around: Set fldr = fso.GetFolder(strSource) If fldr.SubFolders.Count = 0 Then strDestinationFolder = strLDF & "\" & strNewFolderName fso.CreateFolder strDestinationFolder For Each varFile In fldr.Files strSourceFile = CStr(varFile) strDestinationFile = strDestinationFolder & "\" & _ fso.GetFileName(strSourceFile) If bytDocOpt = 1 Then 'move fso.MoveFile strSourceFile, strDestinationFile ElseIf bytDocOpt = 2 Then 'copy fso.CopyFile strSourceFile, strDestinationFile End If Next DoEvents Set fldr = Nothing If bytDocOpt = 1 Then fso.DeleteFolder strSource, True '**==>> THIS FAILS <<==*** End If '**==>> error: "Cannot delete 'foldername': It is being used by another person or program..." End If I'm wondering if I'm running into the same thing with MoveFolder - what could could be keeping a file handle on the folder? Thanks in advance. Tag: running object table Tag: 192044
  - 11
    - Return a value to a calling program I'm no programmer, so please forgive if this is a 101 level question... I have a .vbs script that reads a value from the registry and assigns it to a variable. I want to call that script from a program (a t-sql script in sybase to be exact) and have it return the registry value it read to the calling program. Will it do that? Or can I only send the value to a text file or echo it to the screen? Thank you contributors so very much. I've borrowed bits from this forum for a couple years and this is the first time I've had to post. I'm ashamed it's such a basic question. -Bum -- bumluc ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: running object table Tag: 192039
  - 12
    - Casting to an array? I just found the source of a lot of my troubles. I have a function that grabs records from the database and returns them as a 2 dimensional array. In my function if recordset was BOF or EOF my function returns False. Later in my code i found i was getting errors because Im trying to treat a bool (False) as an array. I'm just going to change this to either send a custom error, or return an empty 2D array. But for future reference does any one know how to cast something to an Array? That page i found shows how to cast to everything but an array. http://www.manastungare.com/publications/asp/tutorial/chapter8.php Tag: running object table Tag: 192034
  - 13
    - Greate ASP Reference Guide I just found a great (and free) reference guide for ASP. You can browse it online, or download in pdf format! http://www.manastungare.com/publications/asp/ It's not everything but it covers a lot of good stuff. Tag: running object table Tag: 192033
  - 14
    - VBscript newbie - #include? Is there anyway to load shared or common code among several different scripts (i.e. like a function library but all in script)? Thanks in advance! Tag: running object table Tag: 192030
  - 15
    - WeekDayname and localized Languages Does anybody out there know if it is possible to have the WeekDayName return a localized version of the WeekDayName function? i.e. if they have a German OS I would like to have WeekDayName return the proper name in German and so on with Spanish, French etc.. Is this a reasonable request and is it available with the built-in functions? Thanks, Willie Tag: running object table Tag: 192028
  - 16
    - Enumerate Domain Controllers in Forest I've been trying to enumerate all domain controllers in a 20 domain forest by using IADsTools, specifically DsGetDCList. It works pretty well, however, some of my 20 domains will not return any results 25% of the time when queried. My DNS & WINS entries look perfect for all domains, I'm not sure why this is happening. Is there an issue with using domain.com for both the servername and domainname? Below is a sample of my script: Group01="CN=Domain Admins,CN=Users,DC=domain1,DC=com" Set DLL=CreateObject("IADsTools.DCFunctions") z = 0 Result01=DLL.DsGetDCList("domain1.com", "domain1.com") for a=1 to Result01 z = z + 1 wscript.echo "domain1.com,,"&DLL.DCListEntryNetBiosName(a) Next Due to issues with the above script, I was thinking about querying each domain controller group vs. the above method, but I've been unsuccessful in this method even getting off the ground. Below is a sample of said script: Group01="CN=Domain Admins,CN=Users,DC=domain1,DC=com" Set objGroup = GetObject ("LDAP://"&Group01) For each objMember in objGroup.Members wscript.echo "domain1.com,,"&objMember.sAMAccountName Next wscript.quit Can anyone shed some light on why the 1st script would fail 'sometimes' and the 2nd script to not work at all (wrong attribute, perhaps)? Thanks. -- Tim Tag: running object table Tag: 192024
  - 17
    - Windows Classic Desktop Does anyone know how I can get a classic desktop and arrange the icons for all users via a vb script? -- «««««««««««««««««««««««««««««««« Todd Gregory Citrix Certified Administrator Professional Teledata 175 Canal Street Manchester, NH 03101 phone 800.344.9944 fax 603.625.5078 t.gregory@proteledata.com Visit our web site www.proteledata.com »»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» Tag: running object table Tag: 192022
  - 18
    - write at beginning of text file Hi Is it possible to use vbscript to add a line of text to the beginning of a file, rather than the end? Alternatively is it possible to read from the end to the beginning of a file rather than from beginning to end? Cheers Alan Tag: running object table Tag: 192021
  - 19
    - Vb Script to obtain the password policy Hi, Could anyone please let me know if there is any method of obtaining the local password policy of a machine. The machine is not under any particular domain and is a standalone system. So the ADSI cannot be used. Thanks & Regards, Shara - shara ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: running object table Tag: 192020
  - 20
    - changing the subnet mask only I need to change the subent mask for a bunch of server from /16 to /24. All IP's will remain the same. I found this script that will change the IP, subnet and gateway. How can I modify it to just change the subnet to 255.255.255.0? I have been playing with it. As I am not a scripting guy I have run into lots of errors. Thanks ******************************************************** strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") strIPAddress = Array("192.168.1.141") strSubnetMask = Array("255.255.255.0") strGateway = Array("192.168.1.100") strGatewayMetric = Array(1) For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask) errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric) If errEnable = 0 Then WScript.Echo "The IP address has been changed." Else WScript.Echo "The IP address could not be changed." End If Next Tag: running object table Tag: 192019
  - 21
    - Dim / Redim oddity I have weird array here defining an array size. Originally I defined "aryDiffFields" without a size. I started getting type mismatches so I changed it so it does Dim aryDiffFields(0). In the code I have a loop which does a REDIM PRESERVE ary..(i). I know that the counter is working because I can see it increasing in my debug output. However when I Ubound the array at the end, the size is always equal to what ever I put in the original Dim. ie: Dim aryDiffFields(3) i get 4 results back, even if there should be more. It is as if my redim is not doing anything. Below is a snip of a function a made that compares values of an array between two classes which act in a similar way to a scripting.dictionary. What the code is supposed to do, is compare the two arrays. If a field does not match in the array, it adds that field name to a temporary array called aryDiffFields to be returned to wherever it was called from. Dim i Dim strFieldName Dim strTableType Dim aryDiffFields(3) strTableType = Ucase(cdcOne.TableType) For i = 0 To cdcOne.Count strFieldName = cdcOne.GetFieldName(i) Select Case strTableType Case "IMF" If NOT cdcOne.imfGet(strFieldName) = cdcTwo.imfGet(strFieldName) Then addDebug("CDC -> (" & i & ") Values for '" & strFieldName & "' differ.") ReDim PRESERVE aryDiffFields(i) aryDiffFields(i) = strFieldName Else addDebug("compCDC -> (" & i +1 & ") Values for '" & strFieldName & "' match.") End If End Select Next addDebug("compCDC -> Returning " & Ubound(aryDiffFields) + 1 & " fieldnames.") compCDC = aryDiffFields Exit Function Tag: running object table Tag: 192018
  - 22
    - HTTP Post Request VB Code -> VBS without Dim ... i get only GET Requests and no POST Dim URL As String Dim Flags As Long Dim TargetFrame As String Dim PostData() As Byte Dim Headers As String URL = "http://xyz.de" Flags = 0 TargetFrame = "" strPOST = "USER=meier&PASSWORD=geheim" PostData = strPOST PostData = StrConv(PostData, vbFromUnicode) Headers = "Content-Type: application/x-www-form-urlencoded" & vbCrLf WebBrowser1.Navigate URL, Flags, TargetFrame, PostData, Headers Tag: running object table Tag: 192015
  - 23
    - Releasing Field References Early I am using field reference variables with the ADO recordset. I want to throw away the recordset early and do something more. So should i set the field reference variables to nothing before releasing the recordset or releasing the recordset will already release the fields correctly? I am a little bit confused that if this condition is similar to Eric Lipperts Explanation #4 of the "When Are You Required To Set Objects To Nothing?" article (http://blogs.msdn.com/ericlippert/archive/2004/04/28/122259.aspx). if field reference variables are not required to set to nothing, how recordset object manages to remove the field objects from memory although there are references to it? Thanks Sub Something() Dim rs Set rs = con.Execute(..) Set fld1 = rs("field1") Set fld2 = rs("field2") ' ' Do stuff ' ' Should i set fld1, fld2 to Nothing ' or the fields will be released when the recordset released? rs.Close Set rs = Nothing ' ' Do more stuff ' End Sub Tag: running object table Tag: 192013
  - 24
    - Scripting Help Hi Guys!!!! I am a newbie in scripting.I am having a folder in C drive in which the eventlog files should be saved. So i need a script which is clearing all the log files and before clearing, it should save those files into that particular folder which i am specyfying and also it should not overwrite the previous days file.It should create the filenames differently and also i should have the option of giving the range of names in the script before i am executing it.Pls help me!!!! I posted this Question 4 days back.But i didnt get reply.Pls reply me -- MuraliKrishnan Entry level Network Engineer Tag: running object table Tag: 192011
  - 25
    - Replace nulls with space in a binary file I want to remove all nulls - char(0) in a binary file with space - char(32) in a binary file How can I do that. I tried using replace and its not working. Please find the code bellow--- Const ForReading = 1,ForWriting = 2 Dim fso, retstring, nFile, BinaryStream, FileName Const adTypeBinary = 1 FileName = "C:\Temp\Split2\IP" OPFilename = "C:\Temp\Split2\OP" Set BinaryStream = CreateObject("ADODB.Stream") BinaryStream.Type = adTypeBinary BinaryStream.Open BinaryStream.LoadFromFile FileName 'BinaryStream.Replace ("0", "X") 'BinaryStream = Replace(BinaryStream, chr(0), chr(32), 0, 0, 0) BinaryStream.savetofile OPFilename, 2 I am new to VBScripting. Please help Tag: running object table Tag: 192006

I want to create an application launch button within a running application
but want to launch a new instance only if an existing instance of the program
is not running. Both applications are Web apps so just understanding if I.E.
is running is not enough. Any suggestions/samples would be appreciated.

Top