How to determine which process has a lock on Application Event log?

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
    - TIFF image size I need to find the width and height (in pixels) of TIFF images, using VBScript and Windows shell scripting. These are _not_ multipage images. I've looked all over the web and the groups, and although there are ways to do this, I need a way that I can put on non-tech people's WinXP machines without installing any other software. If it involves retrieving info from Picture Manager, that's okay, since that's a standard utility. Though I'm very fuzzy on how I would do that...I'm no expert at VBScript or WSH. I should clarify that I'm not just getting these dimensions and stopping there -- zillions of tools, including Picture Manager, could do that and I would just have my users use them out of the box. But I have to do some calculations based on the retrieved values and present them in an browser-based dialogue. So far the tool I'm building does fine with bmp, jpeg, and gif; tiff is the only other format that I really need. TIA --- Tag: How to determine which process has a lock on Application Event log? Tag: 191308
  - 2
    - reverse xcopy Hi, I'm looking for a batch/script to schedule that compares multiple matching source and destination folders (plus subfolders and wildcards) and deletes any files/folders from the destination that do not exist in source. Tag: How to determine which process has a lock on Application Event log? Tag: 191301
  - 3
    - Creating AD subnets I am trying to write a script to create subnets that are associated with AD sites. The example below has just one being created, but I'll add reading from a text file once this one works. "This simply returns an invalid dn syntax has been specified." Thanks in advance for any suggestions. strSubnetRDN = "CN=172.16.43.96/26" strSiteObjectRDN = "CN=CHFS-ColdHarbor" strDescription = "CHFS Subnet" strLocation = "CHFS-ColdHarbor" '************************************************************************************************************************ ' 'Set objRootDSE = GetObject("LDAP:RootDSE") ' 'strConfigurationNC = objRootDSE.Get("configurationNamingContext") 'wscript.echo(strConfigurationNC) ' '************************************************************************************************************************ ' Determine the Site Object Distinguished Name '************************************************************************************************************************ 'Note: I think the problem is with this line: 'strSiteObjectDN = strSiteObjectRDN & ",CN=Subnets,CN=Sites,CN=Configuration,DC=ds,DC=ky,DC=gov," '& strConfigurationNC ' ' 1) First one is that the CHFS-ColdHarbor is not in Subnet, but directly under Sites. so remove CN=Subnets ' 2) There is a comma after gov in the string. remove it too. You now should have the following line: '************************************************************************************************************************ strSiteObjectDN = strSiteObjectRDN & ",CN=Sites,CN=Configuration,DC=DS,DC=KY,DC=GOV" '& strConfigurationNC wscript.echo(strConfigurationDN) '************************************************************************************************************************ '************************************************************************************************************************ ' Determine the Subnet Container '************************************************************************************************************************ strSubnetsContainer = "LDAP://CN=Subnets,CN=Sites,CN=Configuration,DC=DS,DC=KY,DC=GOV" '& strConfigurationNC wscript.echo(strSubnetsContainer) Set objSubnetsContainer = GetObject(strSubnetsContainer) '************************************************************************************************************************ '************************************************************************************************************************ 'Create and set the object properties. '************************************************************************************************************************ Set objSubnet = objSubnetsContainer.Create("subnet", strSubnetRDN) objSubnet.Put "siteObject", strSiteObjectDN 'objSubnet.Put "description", strDescription 'objSubnet.Put "location", strLocation wscript.echo ("Subnet RDN = " & strSubnetRDN) wscript.echo ("Site Obj RDN = " & strSiteObjectRDN) wscript.echo ("Site Obj DN = " & strSiteObjectDN) wscript.echo ("Subnet Container = " & strSubnetsContainer) wscript.echo ("Desc = " & strDescription) objSubnet.SetInfo Tag: How to determine which process has a lock on Application Event log? Tag: 191300
  - 4
    - Find Newest File I am trying to write a script to email the newest / latest NTBackup backup log in a directory. We backup the system state twice a day and would like the log to emailed via the same vbscript. I know how to send the email, I need help with finding the newest file in the given directory. Since we do two backups a day (07:00 and 21:00), and ntbackup increments the log file by one each time, how do I set the latest filename and path to be a varible to be used later? Thanks -- Thank You, Keith Templin Tag: How to determine which process has a lock on Application Event log? Tag: 191298
  - 5
    - where can I download wzzip.exe which can be used with winzip 8.0 version Hi all, I am having winzip 8.0 evaluated version.I want to use wzzip ,wzunzip commands.where can I get the download of wzcline.exe which can be used with winzip 8.0 version. wzcline.exe proivided in http://www.winzip.com/getsite.cgi?wzcline.exe can be used with winzip 10.0 version only. Thanks in advance. Tag: How to determine which process has a lock on Application Event log? Tag: 191296
  - 6
    - Switch code off using checkbox Hi, I have a piece of code above the head section of my asp page that sends a text message when the page is submitted. What I need is a checkbox that can switch off the code when no text message is to be sent. Any ideas anyone please? Code below. Thanks in advance Simon ' Sending SMS 'Dim sUrl ' Dim sAPI_ID, sPassword, sUsername, sMobileNo, sText ' Dim oXMLHTTP, sPostData, sResult ' ' sUrl = "http://xxxxxxxxxx" ' sAPI_ID = "xxxxxxx" ' sPassword = "xxxxxx" ' sUsername = "xxxxxxxxx" ' sMobileNo = "" & rsBooking.Fields("MOBILE_NO").Value ' sText = "Message: " & rsBooking.Fields("Message").Value & vbcrlf & "Driver Name: " & rsBooking.Fields("DRIVER_NAME").Value & vbcrlf & _ ' "Driver Mobile No: " & rsBooking.Fields("DRIVER_MOBILE").Value & vbcrlf & "Vehicle: " & rsBooking.Fields("DRIVER_VEHICLE").Value & vbcrlf & _ ' "Registration: " & rsBooking.Fields("VEHICLE_REG").Value ' sPostData = "api_id=" & sAPI_ID ' sPostData = sPostData & "&user=" & sUsername ' sPostData = sPostData & "&password=" & sPassword ' sPostData = sPostData & "&to=" & sMobileNo ' sPostData = sPostData & "&text=" & sText ' Set oXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP") ' ' oXMLHTTP.Open "POST", sUrl, false ' oXMLHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" ' oXMLHTTP.Send sPostData ' ' sResult = oXMLHTTP.responseText ' Set oXMLHTTP = NOTHING ' Response.Write("result=" & sResult & "&") Tag: How to determine which process has a lock on Application Event log? Tag: 191294
  - 7
    - How to check client printer status Hi I need to create a web page that checks the client printer status. Also I need to print text messages through the printer without showing the page setup window. Is this possible? Any code examples? What security options do I have to enable to make this work? Tag: How to determine which process has a lock on Application Event log? Tag: 191288
  - 8
    - Get First Node.text in Array I have an .xml file and can enumerate all the values I need, however I only need to return the first Value. strValue returns the correct string value but also all the other values in the Array, how do I just get the first value rather than all values? Below is my code: '**************************** ' Retrieve array of Node's Set xmlRoot = xmlDoc.documentElement Set nodelistID = xmlDoc.SelectNodes("SecScan/Check/Advice") for each node in nodelistID strTest = trim(node.text) wscript.echo strTest next '******************************* Thanks! Tag: How to determine which process has a lock on Application Event log? Tag: 191286
  - 9
    - Closing a variable I have heard a lot of conflicting reports/advice and was wondering if someone could finally put a question to rest for me. I am programming .asp (vbscript) pages with IIS 6.0. My question is if I declare a variable within a .asp page, how or when is it destoryed (cleared from memory)? Does IIS 6.0 automatically destory it when the page closes out? Do I need to manually close/destory it (Set somevariable=Nothing)? I have heard that if you do not manually close out each variable you declare, then you can create a memory leak within IIS 6.0...which would be bad. Though on the flip side I have heard that when you simply browse away from a page, IIS 6.0 will automatically close the variables for you? If in fact you do need to manually close out each variable you declare, is there a debugging tool available that I could use to check my programming to make I didn't forget to close out any variables? I have searched around the net and have found nothing for .asp (vbscript) pages. Thank you in advance you for advice!! Tag: How to determine which process has a lock on Application Event log? Tag: 191283
  - 10
    - Any Help to get me started would be appreciated..... Hi; I have virtually no Web or HTML programming experience though I am capable of VB, Basic and and a few other programming languages. What I was trying to get some help on would be a simple program or script that I could run that would allow me to retrieve info from a site that when I have multiple queries. For example I am at site GoJoe.com (example only) and if I want to get the detail data on recipe xyz i have to put in a field xyz and when the page refreshes I then select "get detail recipe" link which then asks me if I want to save the text file to my pc. Which I respond yes to and then it saves. This is great but the problem is if I have 20 or 30 reciepies I have to go through this loop for every one. I there a simple script that I could get to read a txt file that would have the recipes already loaded in like (xyz, abc, mno, etc....) that would read the recipe, then go to the address that I would have gone to when I click "get detail recipe", have it pull the detail information and save it automatically to my PC. Complete this until the txt file runs to it's end. Sounds relatively simple it's just I don't have the Web develop skills for the code. Can anyone offer some starter help with this? I'm sure I could debug things once I got started. Thanks in advance for any help. Dave Tag: How to determine which process has a lock on Application Event log? Tag: 191278
  - 11
    - convert number to character I am fairly new to vbscript. What is the function to convert a numberic field to a character field in a query? Thanks in advance. Tag: How to determine which process has a lock on Application Event log? Tag: 191277
  - 12
    - Printer Port Name Does anyone one know how I can create a VB script that will check for a printer port name (IP_IP address) and if the printer port name exists it will exit the script? Thanks, Tag: How to determine which process has a lock on Application Event log? Tag: 191272
  - 13
    - XML extraction My question is probably fairly easy to answer, but I've searched the groups and haven't found anything that is close to what I'm looking for. It's probably because I don't know what to search on which isn't unusual. Here is an extract of data from an XML file that I'm working with. <vocabulary> <term id="K442490" parentid="K352208"> <synonyms language="EN-GB"> <synonym string="St Marks Church-in-the-Bowery" preferred="YES"/> <synonym string="church-in-the-bowery"/> <synonym string="church-on-the-bowery"/> <synonym string="saint mark;s church in the bowery"/> <synonym string="saint mark;s on the bowery"/> <synonym string="st marks"/> <synonym string="st marks church on the bowery"/> <synonym string="st marks-on-the-bowery"/> <synonym string="st. marks-on-the-bowery"/> </synonyms> <synonyms language="EN-US"> <synonym string="St Marks Church-in-the-Bowery" preferred="YES"/> <synonym string="church-in-the-bowery"/> <synonym string="church-on-the-bowery"/> <synonym string="saint marks church in the bowery"/> <synonym string="saint marks on the bowery"/> <synonym string="st marks"/> <synonym string="st marks church on the bowery"/> <synonym string="st marks-on-the-bowery"/> <synonym string="st. marks-on-the-bowery"/> </synonyms> </term> </vocabulary> What I'm trying to do is search another recordset for the K#### and replace it with the "preferred" EN-US string. I can get the first recordset broken out the way I need it, but what I can't figure out is how to pull the two pieces of info from this XML file and have them searchable. There are about 80k terms that will need to be broken out. Any help would be greatly appreciated. Tag: How to determine which process has a lock on Application Event log? Tag: 191269
  - 14
    - saving a web image to the hard drive Hi everyone, I hope I am in the right place, I do not know anything about VB or scripting but I think this is the answer? I need to be able to grab a web image and save it to my local computer in a specific folder. The image will change periodicaly and I need it to save a new version every minute or so, overwriting the previous file but keeping the same name. Any help or a push in the right direction would be greatly appreciated! Thank you Dan Tag: How to determine which process has a lock on Application Event log? Tag: 191268
  - 15
    - SendKeys "{Move 107,672}" ??? In the documentation for Dragon NaturallySpeaking Professional, there is this example for SendKeys. SendKeys "{Move 107,672}" I simply cannot get the Move command to work. Is there any way to neatly move the cursor using SendKeys? I have a workaround using UpLeft since the user interface isn't bothered by a mouse button up, but I'm really curious about the apparently dysfunctional but included Move command. Thank you. Tag: How to determine which process has a lock on Application Event log? Tag: 191265
  - 16
    - vb script to change pagefile to system managed I found plenty of scripts to change page file sizes but none to change to system managed. Tag: How to determine which process has a lock on Application Event log? Tag: 191264
  - 17
    - Missing home dir when account created by vbscript When I create an account using vbscript I also create the home dir for the user and populate the homeDir properties of the account. There are no errors creating the directory and there are no errors populating the homeDir property of the account. Using Active Directory Users and Computer (ADUC) I can see that the account was created and that the home dir was set properly. Checking the drive for the dir reveals it is created and the rights are assigned correctly. The problem is at login. When you login with one of these accounts the user does not get a mapping to their home dir. Yet if they use the run cmd they can open the dir and utilize it. We suspect it has something to do with what gets input to the homeDir property but I'm unable to determine that there is anything wrong with it. Interestingly if I modify the home dir property in ADUC (so the apply button becomes active) and then switch it back to what was there then click apply, when the user logs in their home dir appears correctly for them. Any ideas? Tag: How to determine which process has a lock on Application Event log? Tag: 191260
  - 18
    - Filtering via OU Hi folks, Quick question. I wish to do a search on a whole domain, but I wish to exclude specific domains. My current search is this: ' Retrieve lastLogon attribute for each user on each Domain Controller. For k = 0 To Ubound(arrstrDCs) strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">" strFilter = "(&(objectCategory=person)(objectClass=user))" strAttributes = "distinguishedName,lastLogon,description" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree (thanks to Richard Mueller for large bits of the script) Basically, I wish to exclude say two OUs called OU=disabled users,DC=domain,DC=com & OU=resource accounts,OU=users,DC=domain,DC=com - how is this done? I can get a filter using "memberof", but that is member of a group rather than a member of a OU sadly. Thanks in advance! Rich Tag: How to determine which process has a lock on Application Event log? Tag: 191256
  - 19
    - Methods to use with the registry Hi, I've used this line before: If objFSO.FileExists("C:\Program Files\Microsoft Office\Office10\Winword.exe") Then Is there a method similar to this to check if a registry value exists? Thanks in Advance, JeffH Tag: How to determine which process has a lock on Application Event log? Tag: 191248
  - 20
    - Import a third party root certificate Hello, can I generally import a x509 certificate into ca. 350 Windows -Client using a script ? Thanks Peter Tag: How to determine which process has a lock on Application Event log? Tag: 191247
  - 21
    - Editing txt file. Hi! Here's what I need to do: I have a text file of 141 lines which contains data considering web-application. In line 5 of the txt-file, the username is introduced. Now I would need a script, which would ask me the username, and then the script would modify the Username section, in the line 5 of the text-file. So basicly I would need a "Username" -variable. The value of "Username" would be entered by a user, and then the script should input the value to the text file. Do you have any ideas which would be an easy way to accomplish this? It seems that FileSystemObject cannot modify text-files, is that right? Thanks in advance, Henri Tag: How to determine which process has a lock on Application Event log? Tag: 191245
  - 22
    - sorry but i have an exchange 5.5 question :( i need to write a script that would be simple for exchange 2000 or 2003, but i have to run it against a 5.5 org. the script only has to list all mailboxes on a particular server, and the current size of the mailbox. ill make it write to a spreadsheet, but does anyone know how i can get the info from 5.5 with vbscript? thank you very much Tag: How to determine which process has a lock on Application Event log? Tag: 191242
  - 23
    - variable construction from ASP form values Hi all-- I am trying to handle a series of indexed values passed via "post" from a form on an ASP page. Could someone explain why the following code separates variables with "<br>" but seems to fail with ", "? When I change the line indicated by "<===****" I only get the first value. Interestingly, changing "<br>" to "<, >" gives me "[value]<, >[value]<, >[value]<, >". Result (separating with "<br>"): "Value list: 3 5 7" Result (separating with ", "): "Value list: 3" And how I can construct a variable in the format "[value], [value], [value], "? Thanks! steve ===== code from ASP file ==== <%option explicit%> <html> <body> <% dim lngTotal, strSelected, i lngTotal = Request.form("SelCat").Count strSelected="Value list: " For i = 1 To lngTotal strSelected=strSelected & Request.form("SelCat")(i) & "<br>" <===**** Next Response.Write("<br>") response.write(strSelected) %> </body> </html> Tag: How to determine which process has a lock on Application Event log? Tag: 191241
  - 24
    - Retrieve Parameter from location bar Hi Everybody I have an Access database that passes a Parameter to a web page something like this. http://localhost/index.htm?paramName=1234-54321 I want to be able to retrieve the parameter (In this example 1234-54321) and pass it to a hidden text box on a form. Something like the one below...where it says <IN HERE> <form action="https://www.sandbox.paypal.com/cgi-bin/webscr" method="post"> <input type="hidden" name="item_number" value="<IN HERE> Upgrade from Free Version to Standard Version"> </form> I am a VBscript Virgin so please be gentle with me. Any help gratefully received Bob Tag: How to determine which process has a lock on Application Event log? Tag: 191239
  - 25
    - Extracting Name Value Pairs Hi I have a long line of text that I want to parse for name/value pairs see example below ( note: - it is a one long line so please remove linebreaks, and - I have replaced tabs with the pipe for clarity) I am trying to regex to extract the name/value pairs; perhaps I could just use a split function (this just occured to me as I pasted the example below. Nevertheless, can i use RegEx to extract name value pairs? the pattern i am came up with (whch I bet could be improved) is Patrn1 = "" Patrn1 = Patrn1 & "\t*([\w]+)\t([\w \/\x22]+)\t*" ' first value pair Patrn1 = Patrn1 & "\{\t*(Alignment)\t([\w \x22]+)" 'second value pair to account for the bracket; I suppose I could replace it with nothing Patrn1 = Patrn1 & "(\t*([\w]+)\t([\w \x22]+))+" 'third value pair, which should repeat but does not... thanks in advance for your assistance. Regards Habib ------------------------------ ||||ReportCalculatedField|"328"||||||||{|||||Alignment|"right"|||||BackColor|"Transparent"|||||CalculatedField|"Apply Bucket 1"|||||DisplayOptions|"HideWhenEmpty"|||||DisplayType|"Data"|||||Font|"Helvetica (generic)"|||||FontBold|"false"|||||FontColor|"Black"|||||FontItalic|"false"|||||FontSize|"7"|||||FontUnderline|"false"|||||Format|""|||||FormatField|"'Func/Rept Index'"|||||Pattern|"(none)"|||||PatternColor|"White"|||||PositionLeft|"365"|||||PositionTop|"256"|||||ReadingOrder|"LeftToRight"|||||SizeHeight|"8"|||||SizeWidth|"72"|||||ZOrder|"116"||||} ------------------------------ -- www.DynExtra.com A resource for the Microsoft Dynamics Community Featuring FAQs, File Exchange and more Current member count: 21 -------------------------------------------- Share your knowledge. Add your favorite questions and answers Help add questions to this site! We want Your input. Tag: How to determine which process has a lock on Application Event log? Tag: 191235
- Next
  - 1
    - Newbie scripting. Modifying the registry. I have been assigning nic speeds for a couple years on all new boxes that we build in our datacenters manually. I finally got fed up and picked up some vbscript books which have been a great help managing some redunant tasks i must do, but this one stumps me. Key Name: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318} Under each subkey there is a string value of "SpeedDuplex" with a value ranging from 0+ 100/full is 4 auto/auto is 0 If the device is not a physical hardware nic, it will not have the SpeedDuplex Key, which is a plus for finding real devices vs virtual/software ones. What I am trying to do is run through each subkey and its strings and change any that have a string of "SpeedDuplex" with a value of 0 to 4. Im not sure about how to loop through all the keys to do this. Any help would be appreciated. Thx C Tag: How to determine which process has a lock on Application Event log? Tag: 191234
  - 2
    - cannot pass LDAP query with "/" Hi there, i just need some help with an LDAP Query. I am writing a VB Script that prints out all the members of a Distribution list/Security group, and also prints out their details such as name, email, title, etc for security purposes. I am experiencing a problem when trying to print out the members on a DL called: "All Managers/Directors" The problem seems to be with the "/" in the DL's name, as all other groups without the "/" work fine. The full Distingushied name of the object is: CN=All Managers/Directors,OU=Contacts DL,OU=Distribution Lists, DC=xxx,DC=xxx,DC=xxx,DC=xxx the LDAP Query wont find the object..The ldap query is as: 'use ASCII char "47" to replace "/" in DN strGrp = "CN=All Managers" & chr(47) & "Directors,OU=Contacts DL,OU=Distribution Lists,DC=xxx,DC=xxx,DC=xxx,DC=xxx" Set objGroup = GetObject _ ("LDAP://" & strGrp) objGroup.GetInfo when i run this i get the following error: C:\prntSecGrp.vbs(22, 1) (null): 0x80005000 I have run this with the ASCII char and without, both with no luck. Any help would be greatly appreciated! Regards K. Tag: How to determine which process has a lock on Application Event log? Tag: 191233
  - 3
    - XCopy using If and Then Statements New to this, and I don't quite comprehend something. I need a batch file that copies SPECIFIC files from a Network Directory to C:\123_Software\ folder. @ECHO OFF Rem Copy \\ServerName\123_Software to Clients \123_Software folder. XCOPY \\servername\123_Software\ABCD.EXE C:\123_Software\ /S /E XCOPY \\servername\123_Software\1234.EXE C:\123_Software\ /S /E XCOPY \\servername\123_Software\XYZ.EXE C:\123_Software\ /S /E The difficulty is this: I am tying this to a GPO which works just fine, but I want to ensure I am not sending these files to each client everytime they log into the etwork. As these files are 13.5 MB, 9.5 MB, and 1.5MB. What I need is something that looks to see if File on Client Machine has the same date and time as file on Network, then go to next file. Either a Batch file, or a VBS script will work perfectly. Tag: How to determine which process has a lock on Application Event log? Tag: 191232
  - 4
    - Finding out who modified a file Is there any way of finding out *who* modified a particular file using VBS? It's in a W2K domain, but it's on a PC that's not running W2K Server, just plain W2K. Tag: How to determine which process has a lock on Application Event log? Tag: 191231
  - 5
    - schtasks - how to? I am trying to run the following: schtasks /CREATE /Tn "Startup Tasks" /Tr "cmd /V:on /C \"C:\startup\StartupTasks.cmd \" AUTO" /SC ONLOGON However I need the start in folder to be 'startup' not 'cmd' as it seems to always be set to. I know you can change it with the gui, but I really would much prefer to do at the command prompt. Is it possible? btw the reason I am using the cmd is so I can set /V:on - I don't want to have to do this in the registery. Cheers, Tag: How to determine which process has a lock on Application Event log? Tag: 191229
  - 6
    - Open Handle Hi Is it possible as in computer management to view open handles in vbscript ? Tag: How to determine which process has a lock on Application Event log? Tag: 191224
  - 7
    - Running Remote Processes (2000 PC to XP PC) Hi, I am trying to run this script from MSDN to start a remote notepad on an XP workstation. I am running the script from a Win2K Server. It fails with error 3 "Insuffiicient privilege" It runs fine from XP to 2000. Here is the code. Const SW_NORMAL = 1 strComputer = "remoteWstn" strCommand = "Notepad.exe" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate & authenticationLevel=Pkt}!\\" _ & strComputer & "\root\cimv2") ' Configure the Notepad process to show a window Set objStartup = objWMIService.Get("Win32_ProcessStartup") Set objConfig = objStartup.SpawnInstance_ objConfig.ShowWindow = SW_NORMAL ' Create Notepad process Set objProcess = objWMIService.Get("Win32_Process") intReturn = objProcess.Create _ (strCommand, Null, objConfig, intProcessID) If intReturn <> 0 Then Wscript.Echo "Process could not be created." & _ vbNewLine & "Command line: " & strCommand & _ vbNewLine & "Return value: " & intReturn Else Wscript.Echo "Process created." & _ vbNewLine & "Command line: " & strCommand & _ vbNewLine & "Process ID: " & intProcessID End If This is taken from the following link http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/create_method_in_class_win32_process.asp Tag: How to determine which process has a lock on Application Event log? Tag: 191220
  - 8
    - csv/excel file Hello there, I know this is a wrong place. I have an csv file of sAMAccountNames of 50 users. They are all scattered in different OUs in a domain. I would like to retrive homeMDB attribute of these users. Does anybody have a sample script or atleast direct me to right place? Second question: How do I executive another vbscript from withing a vbscript? for example, I want to write a vbscript that executives c:\test.vbs >> test.txt Thanks in advance Tag: How to determine which process has a lock on Application Event log? Tag: 191219
  - 9
    - DHCP The snippet below is directly from the Portable Script Center. Works great locally and as a login script (removing the echo's of course). My question is what is the point of the strComputer = "." line? Or rather the "." on that line. I know the "." indicates the local PC, but I've been under the impression that you could enter a remote machines name (on the same network) instead of the period, and the script would apply to that remote machine. However, it doesn't work that way. I've tried other scripts like the reboot script that don't work either. If all the script apply to the local machine anyway, why do we need the strComputer = "." line? Can anyone update me as I appear to be misinformed? --------- strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter In colNetAdapters errEnable = objNetAdapter.EnableDHCP() Next -------------- Thanks for any help or suggestions! -Steve Tag: How to determine which process has a lock on Application Event log? Tag: 191216
  - 10
    - Shinbaum or Anyone... Hi Shinbaum or Anyone... Can you help to create a function to destroy connection as Shinbaum sad?? http://groups.google.com.br/group/microsoft.public.scripting.vbscript... Please look this topic... Tag: How to determine which process has a lock on Application Event log? Tag: 191212
  - 11
    - SCHTASKS help I'm trying to schedule a task with SCHTASKS. I'm having trouble creating it. Here's how I attempt to create it. schtasks /Create /SC DAILY /ST 10:29:00 /TN "myTaskName" /TR "C:\myBatchFile" After executing that, I am prompted to "Please enter the run as password for USER:" I don't know what that is, so I just make one up. I am warned that it may not run correctly, and it doesn't run correctly. Is there a way to skip the password thing? This is a public computer, so I don't want to bog things down with passwords. Thanks! Tag: How to determine which process has a lock on Application Event log? Tag: 191208
  - 12
    - Enable Active X Controls Hi All, I need a script that will enable active x controls for all sites in IE. I'm having trouble finding such a script..anyone have any idea? I have had a look around and i have seen this document but i am unable to find anything else. http://www.codecomments.com/message241814.html Cheers, -- HoinK ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: How to determine which process has a lock on Application Event log? Tag: 191207
  - 13
    - Enable Active X Controls Hi Guys, I have a need for a script to enable active x controls for all trusted sites in IE. I have searched the forum and i've come up with this: http://www.codecomments.com/message241814.html I'm totaly new to VB and i was hoping someone would have the sort of script that i need. Thanks HoinK -- HoinK ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: How to determine which process has a lock on Application Event log? Tag: 191206
  - 14
    - How to create a Kernel Service ? Hi, I try to create a kernel service with WMI I use this function: Sub CreateService(sName, sDisplayName, sPath, sTypeSrv, sType, strInteractif, strUser, strPassword) Const OWN_PROCESS = 16 Const NORMAL_ERROR_CONTROL = 0 Const KERNEL = 1 Const FILSYSTDRV = 2 Const SHAREDPROC = 32 Const INTERACT = 255 Dim TypeSrv, User, Password, Interactif, Result, t Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objService = objWMIService.Get("Win32_BaseService") IF strUser = "" THEN User = "NT AUTHORITY\LocalService" Password = "" ELSE Password = strPassword END IF IF Ucase(strInteractif) = "YES" THEN Interactif = TRUE ELSE Interactif = FALSE END IF Select Case Ucase(sTypeSrv) Case "KERNEL" TypeSrv = KERNEL Case "FILE SYSTEM DRIVER" TypeSrv = FILSYSTDRV Case "SHARED" TypeSrv = SHAREDPROC Case "INTERACTIF" TypeSrv = INTERACT Case Else TypeSrv = OWN_PROCESS End Select Result = objService.Create (sName,sDisplayName,sPath,TypeSrv,NORMAL_ERROR_CONTROL,sType,Interactif,User, Password) end sub I call this function by this way: CreateService "test","test222","C:\Winnt\hardlock.sys","KERNEL","Boot","YES","","" But I have Error 21 which means "Invalid parameters" I try to create not a kernel service, and it works successfully. Do you have any ideas for my issue ? Thanks for replies Tag: How to determine which process has a lock on Application Event log? Tag: 191205
  - 15
    - resolution + vbscript I'm trying to change resolution settings with presentation direstor using vbscript. is there any way to apply the new scheme immmediately as its created, through a script The first 3 statments create the scheme and add them to presentation director , but it will not aplly them , even though the apply immediately box is ticked . Can anyone help please Thanks Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oShell oShell = CreateObject("WScript.Shell") oShell.run("regedit /s c:\resolution\npdirectdd.reg") oShell.run("regedit /s c:\resolution\dualdisplay.reg") oShell.AppActivate("NPDTRAY.exe") oShell.SendKeys("{ENTER}") Tag: How to determine which process has a lock on Application Event log? Tag: 191201
  - 16
    - Set printer profile Hi all, I'm trying to set a profile (E5-color) as default profile in a printer called "DALI". Can this be done with vbscript ? Probabely it's a registry key to set, but which one ? Greetz, Woef. Tag: How to determine which process has a lock on Application Event log? Tag: 191192
  - 17
    - Setlocal equivalent Hello world, is there a VBScript equivalent to setting environment variables locally in a batchfile? I wnat do to something like setlocal set path=<...> set <xxx>=<yyy> run_my_app endlocal but I'd like to use VBScript (.vbs) rather than a batchfile. Jens Tag: How to determine which process has a lock on Application Event log? Tag: 191190
  - 18
    - Simple HTA question I couldn't find any HTA-specific newsgroups so please forgive me if this post isn't relevant to this newsgroup. I have a an HTA with embedded vbs and wsh. The HTA has 2 textboxes and a submit button and I'd like the focus to be on the first textbox when the HTA is launched (so the user doesn't have to click or tab to get there). Anyone know how to do this? Here's the code for the first textbox: <input type="text" name="login" size="30" tabindex="1"> If there's a more appropriate newsgroup for this question please let me know. Thanks... Tag: How to determine which process has a lock on Application Event log? Tag: 191180
  - 19
    - Renaming files in a folder I have a folder with files named 20060408AL.txt, 20060409AL.txt, 20060410AL.txt, etc. The files use the date and add an "AL" to the end. Can someone help me with a script that renames each file within a folder and "strips" the "AL" part at the end? The end result would convert 20060417AL.txt to 20060417.txt. Tag: How to determine which process has a lock on Application Event log? Tag: 191179
  - 20
    - How can i use connection pooling with hta (vbs)? I heard about connection pooling in serverside vbscript (asp) but is it possible to use it with hta? Any example codes? Thank you P.S. exactly my problem is can not able to connect the same data base (access) from different machines at the same time on my intranet... Tag: How to determine which process has a lock on Application Event log? Tag: 191178
  - 21
    - Cannot run vb script as domain user Hi all: I was wondering if anyone can help me figure out why I am getting a "Permission denied: 'Get Object' " error message when I try to run a logon script created using vb. Below is a copy of the script. It seems that I'm getting this error at the very end. Can anyone tell me exactly where the permissions need to be set and what permissions are needed? I have the Windows 2003 default permissions and it is still not working. Option Explicit ' Force explicit declarations ' ' Variables ' Dim RCKNetwork Dim FSO Dim strUserName ' Current user Dim strUserDomain ' Current User's domain name Dim strDFS ' Path to the DFS root Dim strDepartment ' Current User's Department Dim strLDrv ' Current user's L: Drive location Dim strSDrv ' Current user's S: Drive location Dim ObjGroupDict ' Dictionary of groups to which the user belongs Dim AllDrives ' A listing of all drives that already exist Dim MapLDrive ' Used to determine is user will have a L: Drive Dim i Set RCKNetwork = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") Set AllDrives = RCKNetwork.EnumNetworkDrives() strUserName = RCKNetwork.UserName strUserDomain = RCKNetwork.UserDomain strDFS = "\\RCKDOMAIN\Shares\" strLDrv = "\\192.168.20.15\" & strUserName ' Read the user's account "Member Of" tab info across the network ' once into a dictionary object. ' Test for L:, Q:, S:, U:, & Z: then delete them if they exist For i = 0 To AllDrives.Count - 1 Step 2 If AllDrives.Item(i) = "L:" Then RCKNetwork.RemoveNetworkDrive "L:", True, True If AllDrives.Item(i) = "P:" Then RCKNetwork.RemoveNetworkDrive "P:", True, True If AllDrives.Item(i) = "Q:" Then RCKNetwork.RemoveNetworkDrive "Q:", True, True If AllDrives.Item(i) = "S:" Then RCKNetwork.RemoveNetworkDrive "S:", True, True If AllDrives.Item(i) = "U:" Then RCKNetwork.RemoveNetworkDrive "U:", True, True Next Set ObjGroupDict = CreateMemberOfObject(strUserDomain, strUserName) MapLDrive = TRUE strDepartment = "" ' Admins, do not have an L: drive If MemberOf(ObjGroupDict, "Domain Admins") Then MapLDrive = FALSE If MemberOf(ObjGroupDict, "Help Desk Admins") Then MapLDrive = FALSE ' Find Current User's Department If MemberOf(ObjGroupDict, "Accounting Group") Then strDepartment = "Accounting" If MemberOf(ObjGroupDict, "Marketing Group") Then strDepartment = "Marketing" If MemberOf(ObjGroupDict, "Finance Group") Then strDepartment = "Finance" If MemberOf(ObjGroupDict, "Research Group") Then strDepartment = "Research" ' Map the S: Drive strSDrv = strDFS & "Departments\" & strDepartment If strDepartment <> "" Then RCKNetwork.MapNetworkDrive "S:", strSDr ' Now we will map all Custom Drives If MemberOf(ObjGroupDict, "Domain Admins") Then RCKNetwork.MapNetworkDrive "P:", strDFS & "Software\APPS" If MemberOf(ObjGroupDict, "Help Desk Admins") Then RCKNetwork.MapNetworkDrive "P:", strDFS & "Software\APPS" If MemberOf(ObjGroupDict, "Audit Group") Then RCKNetwork.MapNetworkDrive "Q:", strDFS & "Departments\Accounting\Audit" If MemberOf(ObjGroupDict, "Sales Group") Then RCKNetwork.MapNetworkDrive "Q:", strDFS & "Departments\Marketing\Sales" If MemberOf(ObjGroupDict, "Proposal Group") Then RCKNetwork.MapNetworkDrive "T:", strDFS & "Departments\Finance\Proposals" If MemberOf(ObjGroupDict, "Development Group") Then RCKNetwork.MapNetworkDrive "U:", strDFS & "Departments\Research\Develop" ' Map L: Drive If MapLDrive = TRUE Then RCKNetwork.MapNetworkDrive "L:", strLDrv Function MemberOf(ObjDict, strKey) ' Given a Dictionary object containing groups to which the user ' is a member of and a group name, then returns True if the group ' is in the Dictionary else return False. ' ' Inputs: ' strDict - Input, Name of a Dictionary object ' strKey - Input, Value being searched for in ' the Dictionary object ' Sample Usage: ' ' If MemberOf(ObjGroupDict, "DOMAIN ADMINS") Then ' wscript.echo "Is a member of Domain Admins." ' End If ' ' MemberOf = CBool(ObjGroupDict.Exists(strKey)) End Function Function CreateMemberOfObject(strUserDomain, strUserName) ' Given a domain name and username, returns a Dictionary ' object of groups to which the user is a member of. ' ' Inputs: ' ' strDomain - Input, NT Domain name ' strUserName - Input, NT username ' Dim objUser, objGroup Set CreateMemberOfObject = CreateObject("Scripting.Dictionary") CreateMemberOfObject.CompareMode = vbTextCompare Set objUser = GetObject("WinNT://" _ & strDomain & "/" _ & strUserName & ",user") For Each objGroup In objUser.Groups CreateMemberOfObject.Add objGroup.Name, "-" Next Set objUser = Nothing I have verified that both authenticated users group and domain users group the default permissions to include the read and apply policy permission. Is there something I'm overlooking? Please assit thank you Jerrald Noland jnoland767@hotmail.com End Function Tag: How to determine which process has a lock on Application Event log? Tag: 191174
  - 22
    - Receiving error when adding IP printer. A little background: I support about 20 retail locations that all are set up with IP printing. One of the biggest pains in providing support is having to go into each machine and manually enter a port and load the printer drivers. So, I decided I wanted to play around with a script to automate the process. I found the script online to do this.. or so I thought. The script works great when I am adding a printer that has the necessary drivers loaded to it... it's only when I try to tell it to load a driver, that it fails with: Error: Generic Failure Code: 80041001 Source: SWbemObjectEx The error points to a line in the script that actually adds the printer... but I have a feeling the driver is not loading properly. Here's part of the code: --------------------------------------------------------------------------------------------------------------------------------- '*** INSTALL DRIVER **************************************************** Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True Set objDriver = objWMIService.Get("Win32_PrinterDriver") objDriver.Name = driver_name objDriver.SupportedPlatform = "Windows NT x86" objDriver.Version = "3" 'objDriverPath = dll_path objInfname = inf_path intResult = objDriver.AddPrinterDriver(objDriver) wscript.echo intResult '*** ADD PRINTER ***************************************** Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ objPrinter.DriverName = driver_name objPrinter.PortName = "IP_" & port_ip objPrinter.DeviceID = printer_name objPrinter.Network = True objPrinter.Shared = False objPrinter.Put_ If print_default = "Y" then objPrinter.SetDefaultPrinter() End if -------------------------------------------------------------------------------------------------------------------------------------- I've checked the paths to the .inf and .dll a hundred times. I've searche on the internet and found several people with the same problem but no real solutions. Anyone have any ideas? Tag: How to determine which process has a lock on Application Event log? Tag: 191173
  - 23
    - Accessing Crypto API via vbscript Hi, I am trying to find out a way of accessing Windows Crypto API within vbscript so that I can compute a hash of a string and encrypt\decrypt some information. I am hoping to accomplish this without using any wrappers around Crypto API, so I don't want to use third party dll's or controls. Is this possible? Thank you Tag: How to determine which process has a lock on Application Event log? Tag: 191171
  - 24
    - invoke a VBscript from within a word macro hi, all I'm trying to invoke a vbscipt from within a word macro. I'm using RetVal = Shell("C:\docs\binfile.vbs", 0) however, this gives me an error: " Run-time error '5': Invalid procedure call or argument" Does anyone know how to do this.. if I replace the path of vbscript with an EXE file, it works fine.. and if I call the vbscript frm the command line. it also works fine. thanks.. Tag: How to determine which process has a lock on Application Event log? Tag: 191167
  - 25
    - SQL commands from VBScript? Hi all, can I connect to a database (e. g. Oracle) and pass SQL commands from my VBScript code? Where can I find information about this issue? Jens Tag: How to determine which process has a lock on Application Event log? Tag: 191164

Windows3k Enterprise server

Cannot access Application event log getting message
"unable to read the contents of this event log" and refreshing App Evt
log will also give same error message.

When this happens, I also get "Cannot open application: Error while
opening key" message
when trying to access
"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application"
key

What could be the cause of this situation? How to determine which
process has a lock on Application Event log? Thank you.

Top