cmd to open event viewer

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
    - Enabling the Admin$ Share using VBS and Domain Policy I have recently tried my very shaky hand at scripting.... And this is how it all began.. We currently have a problem with Admin$ Shares. On some of the computers the Admin$ share no longer exists. Affects 2000 pro and Windows XP. The registry location for this is as follows: "HKLM\System\CurrentControlSet\Services\lanmanserver\parameters\" ValueName = "AutoShareWks" REG_DWORD = 1 (Admin$ is active) REG_DWORD = 0 (Admin$ is not available) So The problem that I have, is that I have created the following script: _______________________________________________________________________ Set oShell = CreateObject("WScript.Shell") sRegKey = _ "HKLM\System\CurrentControlSet\Services\lanmanserver\parameters\" sRegValueName = "AutoShareWks" ' enable AutoShareWks to 1 oShell.RegWrite sRegKey & sRegValueName, 1, "REG_DWORD" _________________________________________________________________________ This script has been implemented using group policies as a startup script. The script runs on windows XP but not on Windows 2000. How do I trouble shoot this or find a workaround that works on 2000 and XP. Thanks. Tag: cmd to open event viewer Tag: 193635
  - 2
    - Find/Replace in Excel Hello, I have a couple of files that do a web query. I need to add a function to do a find and replace before the .SaveAs I want to find all the "unch" and replace it with the number 0. I have added the working code and the new attempt. There could be multiple instances of the unch but I don't know how to setup the loop. Any help would be greatly appreciated. thanks, Rogue *********************WORKING CODE************************* Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\base\high.xls") Set objWorksheet = objWorkbook.Worksheets(1) objWorkbook.Sheets("sheet1").QueryTables(1).Refresh WScript.Sleep 10000 Dim strNOW strNOW = Now Dim strYMD strYMD = Right(100+DatePart("m",strNOW),2) &"-" strYMD = strYMD & Right(100+DatePart("d",strNOW),2) & "-" strYMD = strYMD & DatePart("yyyy",strNOW) objWorkbook.SaveAs("C:\data\high" & strYMD & ".xls") Set objWorkbook = objExcel.Workbooks.Open("C:\base\low.xls") Set objWorksheet = objWorkbook.Worksheets(1) objWorkbook.Sheets("sheet1").QueryTables(1).Refresh WScript.Sleep 10000 objWorkbook.SaveAs("C:\data\low" & strYMD & ".xls") objExcel.Quit *********************END WORKING CODE************************ *********************TEMPORARY CODE************************* Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True dim txt txt = "unch" Set objWorkbook = objExcel.Workbooks.Open("C:\base\high.xls") Set objWorksheet = objWorkbook.Worksheets(1) objWorkbook.Sheets("sheet1").QueryTables(1).Refresh WScript.Sleep 10000 Dim strNOW strNOW = Now Dim strYMD strYMD = Right(100+DatePart("m",strNOW),2) &"-" strYMD = strYMD & Right(100+DatePart("d",strNOW),2) & "-" strYMD = strYMD & DatePart("yyyy",strNOW) objWorksheet.write(Replace(txt, "unch", "0")) objWorkbook.SaveAs("C:\data\high" & strYMD & ".xls") Set objWorkbook = objExcel.Workbooks.Open("C:\base\low.xls") Set objWorksheet = objWorkbook.Worksheets(1) objWorkbook.Sheets("sheet1").QueryTables(1).Refresh WScript.Sleep 10000 objWorksheet.write(Replace(txt, "unch", "0")) objWorkbook.SaveAs("C:\data\low" & strYMD & ".xls") objExcel.Quit *********************END TEMPORARY CODE********************* Tag: cmd to open event viewer Tag: 193632
  - 3
    - DEP Disabled but still intercepting script files referenced on sha Hello All, Am hoping that someone here will be able to provide some insight on this problem: VBS scripts that run locally without issue (after DEP disabled) will not run when referenced from their remote (file server share, \\server\share\whatever.vbs) location. The DEP type message box pops up even though DEP is disabled globally on the server via the boot.ini file. When run within a scheduled job, the scripts just die silently and fail to complain in any log file. On non SP1 2003 machines without DEP the scripts function normally when referenced from their remote location as indicated above. Platform: Windows 2003 SP1, Intel XEON processors - Hardware DEP support, DEP turned off with /AlwaysOff switch in boot.INI. Verified on server by running wmic OS Get DataExecutionPrevention_SupportPolicy. Anyone have any insight as to what I am missing here? -- FourEyes www.fixitcrew.com Tag: cmd to open event viewer Tag: 193631
  - 4
    - set wallpaper image from URL I want set Windows desktop Wallpaper picture via vbscript. Here is two scripts, but both take image from local drive; instead, I want upload image from URL. How to implement this? '--------------------8<---------------------- Set oShell = CreateObject("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") sWinDir = oFSO.GetSpecialFolder(0) sWallPaper = sWinDir & "\Coffee Bean.bmp" ' update in registry oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper ' let the system know about the change oShell.Run _ "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", _ 1, True '--------------------8<---------------------- '---------------------8<------------------------ Dim WshShell Set WshShell = WScript.CreateObject("Wscript.Shell") WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", mybitmap.bmp WshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll, UpdatePerUserSystemParameters", 1, False Set WshShell = Nothing '--------------------8<---------------------- mistral Tag: cmd to open event viewer Tag: 193629
  - 5
    - Need suggestion how to hide ugly black command prompt window There are some scripts we use for transfering data, and they look something like this: ... Function CMDResults(cmdline) Set oShell = CreateObject("WScript.Shell") Set oExCmd = oShell.Exec(cmdline) Set oExCmdStdOut = oExCmd.StdOut Do: WScript.Sleep 10 Do Until oExCmdStdOut.AtEndOfStream CmdResults = CmdResults & oExCmdStdOut.ReadAll Loop Wscript.Sleep 1000 Loop Until (oExCmd.Status <> 0 and oExCmdStdOut.AtEndOfStream) Logiraj cmdline Logiraj CMDResults End Function ...main program starts here... Do While Not (txtStream.atEndOfStream) Linija = txtStream.ReadLine sExec = "cmd /c copy X:\transfer\tra\out\" & Linija & " c:\tran\S" & p_sifra & "\PRIHVAT /Y" & Chr(13) & Chr(10) sResult = CMDResults(sExec) If InStr(1,LCase(sresult),"1 file(s) copied") > 0 Then ...what to do if copying a file succeded... End If Loop Set oFSO = Nothing ... What this script does it copy file via plain "cmd /c copy" and retrieve result, so if result incorporates "1 file(s) copied" then copying a file if considered success, otherwise not. The problem is with this ugly black command prompt that pops up. Is there a way i can hide the command prompt window or could I have done this some other way? Thank you, Drazen Tag: cmd to open event viewer Tag: 193626
  - 6
    - Dial with a serial modem via vbScript? How can I dial a certain number with a modem that is connected to COM1 (serial port)? Is there a way to do this with vbScript? ... or do you know of a free command line tool that can accomplish this? Thank you in advance! Tag: cmd to open event viewer Tag: 193625
  - 7
    - Read httpPOST response in .hta form I was hoping someone could help me figure out how to get the response from an http POST request when using a form-based submit in an HTML application (hta). This may not even be the right approach... what I really need is to use an hta to obtain a cookie from a website, and then use that cookie as authentication on another website where I will submit data via another POST request with XML content. Both sites are in the same domain. This is my first complex hta and first time coding http requests, so I am slightly confused: How can I securely collect the logon credentials from the user, and submit that to the first site, parse the response without opening a new window or overwriting the current hta window, 'store' the cookie included with the response, and then use that cookie to POST to the second site? If I collect the user/password info using text boxes in a form, and use a submit button, what object or property do I reference to obtain the response and the cookie? Won't the submit action from a form cause the hta window body to be overwritten with the response? ANd I have looked into using the XMLHTTP object, but can not seem to find the reference API for the one INCLUDED with IE (I cant depend on the latest version of MSXML being installed). Plus, if I go that route, I am confused how I parse the login and password fields into the XMLHTTP.Send method. Any help to me going in the right direction on this would be highly appreciated. TIA. Keith Jakobs Tag: cmd to open event viewer Tag: 193623
  - 8
    - Weird error in MID / LEFT functions Hi everybody I want to use transactions in my asp pages. In order to assess whether it is a successful transaction or not, i check for the ASP Error Object, if there are errors, changes are rolled back. a common approach (and the only one i know of..) Now this is my problem: When I try to read form data I get an error, the transaction is rolled back. This is the code i am using: stockFieldname = "stock_" & itemArrSize(i) & "_" & itemArrShop(j) numOfUnits = Request.Form(stockFieldname) The issue is with the second line. I tried everything I could think of, even extracting the value from the whole Request.Form string, but i failed: the MID function raised an error. I am at the end of my imagination of how to resolve this. Any help is very much appreciated!! Thanks Claude Scagliola Tag: cmd to open event viewer Tag: 193617
  - 9
    - 60 plus accounts but I am not a network admin Hi there gurus May be some one can help me In my company I am responsible for lots of non user accounts, which are being used for various purposes. I don't have access to AD or any thinglike that. each time we are suppose to change the password, I will go a machine, hit CTRL, ALT DEL and select chnage password. Since I know the existing password, I will plug in old password and then twice the new password for all these accounts. Is there a way I can automate this, I am not a network admin and don't know the OU for these accounts, all I know is the password. Can some one give me some hints Tag: cmd to open event viewer Tag: 193616
  - 10
    - create text file from script I was under the impression that creating a text file from script was "prohibited," yet the following code [embedded in a web page] allows me to do so. The code was taken from the following page: http://www.microsoft.com/technet/scriptcenter/scripts/misc/web/mswbvb43.mspx?mfr=true Sub RunScript Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CreateTextFile("test.htm") Set objFile = objFSO.OpenTextFile("test.htm", 2) objFile.WriteLine DataArea.InnerHTML objFile.Close End Sub Is the above code breaking any rules of any kind in application development? I would like to employ something like this in my hta if it's not deemed inappropriate application development. Thanks for sharing your thoughts on this. Tag: cmd to open event viewer Tag: 193614
  - 11
    - Useing result from GetAbsolutePathName as source for FileCopy?? I am attempting to write a script to automate a file copy step in an installation process. Specifically to copy a .dll file from the installation folder to the System32 folder. The problem is that I cannot be certain of the path of the source file. My thought was to use GetAbsolutePathName to return the path of the file then use the result as the source for FileCopy. Unfortunately, that didn't work. Can anyone assist? Thanks Debra Tag: cmd to open event viewer Tag: 193612
  - 12
    - Disconnected Recordsets I'm working on a script that is grabbing the UNC path, the date last modified, and the creator owner for all folders and files in a specific directory and feeding this data into a disconnected recordset. Pretty much using the code as given in the Windows 2000 scripting guide to populate the recordset and do a sort. The goal is to sort by creator/owner and then feed each unique user ID into an array to be used later in the script. Since a creator owner can appear in the Owner column for each file they own, I need to have a way to have that ID only appear in the array once. SQL has a "distinct" clause which would do the trick, but I have no idea how to do this in a disconnected recordset. Any samples I've seen in the MSDN are for VB and I'm not sure how to translate those into script. My guess is that SQL command would look something like "SELECT DISTINCT [column] FROM [table]". However, I don't know which method/property to use to create the SQL command, and a disconnected recordset doesn't seem to have a table name... Tag: cmd to open event viewer Tag: 193607
  - 13
    - Get Hostname from FQDN from DNS Hi, I am using sysprep to install Windows XP on computers in computer laboratory at my school. My problem is that each box have same computer name or randomly generated one by sysprep. I would like to have specific hostname on each box based on it's FQDN from DNS server. I figured out that I should use WMI for that and rename method from W32_ComputerSystem Class. But I don't know how I can resolve hostname from IP/FQDN. Could anyone show me the way to resolve the problem? P.S. Sorry for my poor english -- Maciej Nadolski Tag: cmd to open event viewer Tag: 193603
  - 14
    - Dismissing annoying popup alert by script Ok, so I have this Microsoft wizard which i can configure to execute in unattend fashion. However, in true MS style, the unattend wizard throws up a dialogue box requiring user intervention once it completes. This causes my script to never continue executing and complete. I would like to find a way to dismiss this dialogue box through script. I've been reading up on SendKey method, and this sounds like it would do what i want. The problem though, is that I'm not sure how best to get this to execute. I've copied my code below. I'm calling the wizard through the 'Run' Method with the WaitOnReturn value set to 'false', so as soon as i kick it off, the script continues to execute and i can call the SendKeys method. Now the wizard that i've just invoked performs a lot of file copying, and as such the time this takes could vary from server to server. I've invoked a DO While loop immediattely after invoking the wizard, but not sure how best to set a condition for the loop to, well loop. :) I've thought about using the return code from the Run method, but I'm not sure if this is ever updated, once i've invoked the wizard. Anyway, i'm babbling now. Any chance someone can look at the below for me : Function fnCompRisetup(strScriptDir) Dim ObjRunSh, ObjSendKey, strAppName, strSendKey1, strRunCmd, intRetCode, intCount set ObjRunSh = CreateObject("Wscript.Shell") Set objSendkey = CreateObject("Wscript.Shell") strAppName = "Authorizing DHCP" strSendKey1 = " " strRunCmd = "risetup.exe /AUTO " & strScriptDir & "\rissetup.inf" intRetCode =0 fnWriteLog("Executing " & strConfiguration) intRetCode = ObjRunSh.Run(strConfiguration, 1,false) fnwritelog("Return Code :" & intRetCode) fnwritelog("Starting Loop until condition equals ") Do While intRetCode=0 '1 or Do While intCount < 100000 fnwritelog(strRetCode & " Returned.") fnwriteLog("Switching to Application" & strAppName) ObjSendKey.AppActivate(strAppName) fnwritelog("Sleeping...") sleep 100 fnwritelog("Sending SendKey 1" & strSendKey1) ObjSendKey.SendKeys(strSendKey1) fnwritelog("Complete SendKeys - Exiting") intCount = intCount+1 Loop Set ObjSendKey = Nothing End Function Tag: cmd to open event viewer Tag: 193602
  - 15
    - edit local security or audit policies I have a script which configures a lot local settings when we build a new Windows (2k3) server. About the only thing I haven't been able to configure with the script is the local security and audit policies that our SOP requires. I've been searching the net for a week and haven't found anything yet. How can I script to edit local security or audit policies for WinSvr 2k3? Thanks for any help or suggestions! -Steve Tag: cmd to open event viewer Tag: 193600
  - 16
    - Single logon script per user, multiple computers Hi, I have a network which consists of desktop PC's, Workstations, a Server and some Laptops. Each platform has Win XP Pro SP2 deployed on it. The Server contains the data and files for all users and each user has a roaming profile. If a user logs onto the network at a desktop they need to have their data uploaded from the Server. When they logoff the Server is updated. Same story for Workstations and Laptops. However, the startup and startmenu needs to be different and depends on the platform that the user is logging onto. For instance, when a user logs onto a Laptop the software for the Mobile Office Card (3G) needs to initialise. When the user logs onto a Workstation they need to have the software compilers in the Applications Menu and no MOC initialisation as the workstations have no MOC. When they are on a Desktop they need the entertainment software and not the compilers and MOC and so on. How do I create a logon script that recognises the platform that the user is logging onto and then puts the right applications at their disposal? Tag: cmd to open event viewer Tag: 193595
  - 17
    - VBScript Writting to the Event log Is there a way to write to the event log but be able to specify the "Computer" field? Using the Shell.LogEvent we only have type and description available to us to use and the eventcreate command line utility does not have this field either. This problem comes in when you write an event to a remote computer, The "Computer" field will show up as the souce computer and not the remote computer. Tag: cmd to open event viewer Tag: 193594
  - 18
    - Getting window handles... Hi... I have a script that opens an IE window using: Set objIE = CreateObject("InternetExplorer.Application") And then I'm doing: intHWND = objIE.HWND To get the window handle. Then, in another part of the script, I want to check that the window hasn't been closed before trying to modify its properties. Is there some sort of dream function that works something like: boolIEWindowOpen = GetWindowHandle(intHWND) ...that'll return true or false if a window with the supplied handle is open or closed? Here's hoping! //Plankmeister Tag: cmd to open event viewer Tag: 193581
  - 19
    - setting home director using vb script Hi, I am a newbie to scripting. Im try to set homedirectory for particular users in a group using script.(using wsh) Can anyone provide me the solution for it. cheers, Nuti Tag: cmd to open event viewer Tag: 193577
  - 20
    - Patches Looking for a script verify patches install on a server or multiple servers. thx Tag: cmd to open event viewer Tag: 193576
  - 21
    - wScript.Shell Problems I am in the process of building a script to FTP files to another location. What i am curious to know is how can i dump what is being sent displayed in the comand window to a text file. Here is my code. And you will see that i am not getting anywhere. The two variables being sent to the Function just contain FTP Commands and the OutputFileName such as strCMD = "PUT test.txt rmdirectory/test.txt" & vbCrLf oFile = "C:\output.txt" Function FTP( strCMD, oFile ) Dim objFSO Dim strFile, objTempFldr, objFile, objRegExp Dim objShell, WSX, ReturnCode, Output, strLog, strErrorLog Set objFSO = CreateObject("Scripting.FileSystemObject") Set oFileFSO = objFSO.OpenTextFile(oFile,2,True) set objTempFldr = objFSO.GetSpecialFolder( 2 ) strFile = objFSO.GetTempName strFile = objTempFldr & "\" & left(strFile,Len(strFile)-4) & ".ftp" if not objFSO.FileExists( strFile ) then objFSO.CreateTextFile( strFile ) Set objFile = objFSO.OpenTextFile( strFile, 2, True ) objFile.WriteLine( strUser ) objFile.WriteLine( strPass ) objFile.WriteLine( Mode ) objFile.WriteLine( strCMD ) objFile.WriteLine( "bye" ) objFile.Close() Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "cmd /c " & COMMAND_FTP & strFile & " " & strHost,1,TRUE set objFSO = nothing End If Tag: cmd to open event viewer Tag: 193569
  - 22
    - MS Visual C++ Debug Library Serveral workstations in my network receive a 'debug assertion failed' alert, when browsing the web and / or using word, outlook etc, how ever you respond to this 'alert' it simply closes whatever your working on, web page, word document etc and your work is lost!! but then you can go back to the same web page and every thing will work fine? 'debug assertion failed' Program: C:\Program Files\Internet Explorer\iexplorer.exe File: dbgdel.cpp Line: 47 Expression: _Block_Type_Is_Valid(pHead->nBlockUse) For information on how your program can cause an assertion failure, see the Visual C++ documentation on asserts. Can you help!! is it some thing left over fron a spyware/anti spam program now uninstalled? Tag: cmd to open event viewer Tag: 193568
  - 23
    - list templates in MS Word files with VBScript Hello All, I am trying to write a script that scans a drive, and searches for all *.doc files, and then prints out the file name of the DOC file along with it's attached template (as we are currently having problems with non-existing templates on the network). This is what i have so far, but it is not giving me the desired result. Any help would be greatly appreciated!! SCRIPT: '=================================================================== Dim file, template Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add() objWord.FileSearch.FileName = "*.doc" objWord.FileSearch.LookIn = "C:" 'objWord.FileSearch.SearchSubfolders = True objWord.FileSearch.Execute For Each objFile in objWord.FileSearch.FoundFiles file = objFile 'Send filename to Sub FindTemplate file Next Sub FindTemplate(byVal Template) wscript.echo "File: " & template Set objDoc1 = objWord.Documents.Open(Template) For Each objTemplate in objWord.Templates Wscript.Echo "Template:", objTemplate Next End Sub '================================================================== Tag: cmd to open event viewer Tag: 193566
  - 24
    - Error handling bug on GetObject? Hi, I seem to have hit a bug in the error handling of VBScript. I ran into the problem when trying to assign a user to a group, but the group doesnâ??t exist. If Error Handling is not turned on, then the script crashes on the GetObject statement as expected. However, I want to catch and log the error, and continue on with the script. So, I used the normal code: Set objGroup = GetObject(â??LDAP://cn=Sales,cn=Users,dc=fabrikam,dc=comâ??) If Err.Number <> 0 Then WScript.Echo â??Error â?? unable to bind to groupâ?? Else WScript.Echo â??Group boundâ?? End If In a main routine, this code behaves exactly as expected. However, if I put this code into a Function, like so: On Error Resume Next If SetGroup() Then WScript.Echo "Set Group Fine" Else WScript.Echo "Set Group Failed" End If Function SetGroup() SetGroup = FALSE set objGroup = GetObject("LDAP://cn=Sales,cn=Users,dc=fabrikam,dc=com") WScript.Echo "Did we get to this line?" If Err.Number <> 0 Then WScript.Echo "Error" SetGroup = FALSE Else WScript.Echo "Fine" SetGroup = TRUE End If End Function ' Set Group The Error Handling code no longer runs. Instead the Script drops out of the function back to the main routine. The WScript.Echo directly after the GetObject was added to verify that the problem was on the GetObject line, not with the Error Handling afterwards. In this simplified sample program, the program does not crash at the GetObject (though it will, as expected, without the On Error Resume Next), instead it simply drops back to the main routine. In this particular case, reporting â??Set Group Fineâ??. The full script where I ran into this problem is much more complicated, and the GetObject is in nested routines. The main routine calls a subroutine, which calls another subroutine, which calls the function that contains the GetObject statement. In this complex program, the script drops all the way back to the main routine, not just out of the Function. So far, I have not found any code examples for testing for the existence of a Group the way I can test for the existence of a file. With the GetObjectâ??s incorrect behavior when an error occurs Iâ??m not even sure how such a test can be written and incorporated into real-world scripts, as such error handling belongs in a Function or Subroutine. In most complex scripts you probably wouldnâ??t even know the data you are looking for until you were into a subroutine or function. Any help would be greatly appreciated. Jim Winner Program Manager The Catholic University of America Tag: cmd to open event viewer Tag: 193562
  - 25
    - VBS Output for Multiple Video Cards I am currently working with a systems inventory script & database. I am running into a problems where computers have multiple video cards (for dual displays) an I am unable to place them in an access table correctly. Any help would be greatly appreciated, thank you in advance. The current section of my script that deals with video is: Set colVid = objCallWMI.ExecQuery ("SELECT * FROM Win32_VideoController") For Each objVid In colVid recADO.Fields("VideoCard1").Value = objVid.Name (The following line is not in my code but a sample of what I am trying to do) recADO.Fields("VideoCard2").Value = objVid.Name recADO.Fields("VideoRAM").Value = Int(objVid.AdapterRAM/1048576) & "MB" recADO.Fields("VideoDAC").Value = objVid.AdapterDACType Next Tag: cmd to open event viewer Tag: 193557
- Next
  - 1
    - Change Shortcut icon via Vbs Hi , I need change the icon of a ShortCut via Vbs on login Scripts. Ex: This is the Script than i use to create the ShortCuts Set objShortcut = objShell.CreateShortcut(DesktopPath & "\" & CompanyName & " New Corporate Website.url") objShortcut.TargetPath = "ht*p://xxxxxx/" objShortcut.Save Tag: cmd to open event viewer Tag: 193555
  - 2
    - Edit a remote registry help Hello, I'm looking for a code sample to edit some registry values on remote Win2k / win2k3 servers. I'll need to connect to the remote machines using different credentials than those running the script. Got any samples for me? Thanks, Troy Tag: cmd to open event viewer Tag: 193554
  - 3
    - Change drivers ACPI to Standard PC Hello I've got a need to change a driver and was hoping I could do it via a vbscript instead of going through the Windows Hardware Update Wizard. In device manager, my computer is set up as a ACPI Pc and I need to change that to a standard pc. Anyone know how to accomplish that. Thanks Tag: cmd to open event viewer Tag: 193552
  - 4
    - changing COM+ application settings Is there a way to use VBS to change the Identity information on the properties of an application in component services? We have to change the password of the account that is in use for this identity, and it's locally set on my clients. I'm looking for a way to change this setting without having to visit each client. Thanks! Tag: cmd to open event viewer Tag: 193544
  - 5
    - RE: http://cwashington.netreach.net/ What happened to W32scriping ... http://cwashington.netreach.net/main/default.asp?topic=library did the sight move or did something else happened to it? it was a great resource for scripting. Marcus Tag: cmd to open event viewer Tag: 193535
  - 6
    - need to post form data via vbs (not asp) lets say i have a webpage with the following very simplified form: <form action="somepage.asp"> <input name="username"> <input name="password"> </form> so when this form is submitted the values in the 2 input fields get sent to the asp page. i want to do this without using a browser by simply clicking a vbs file on the desktop. can i do it simply? Tag: cmd to open event viewer Tag: 193525
  - 7
    - Error compacting access database I'm trying to compact an access database from a vbs script with the following code: Set objAccess = CreateObject("Access.Application.11") objAccess.DbEngine.CompactDatabase strDB, strTempDB Set objScript= CreateObject("Scripting.FileSystemObject") objScript.CopyFile strTempDB, strDB, True objScript.DeleteFile strTempDB It worked great while I executed it in my Windows XP, but from the moment it's running on a Windows 2003 Server, I get a 424 error (Object required) most of the times (not always)... What could be the cause?? Thank you in advance !! Bernardo Achirica Rodriguez IBERIA L.A.E. - Dirección de Sistemas Subdirec. Producción / U. Producción Red Tfno. +34 91 587 56 72 bachirica [at] iberia [dot] es Tag: cmd to open event viewer Tag: 193519
  - 8
    - script for getting os version hi, how can we ge the version of os installed using script. Tag: cmd to open event viewer Tag: 193517
  - 9
    - Prepend a list of filenames with a string Hi, I'm trying to automate some repetative tasks using a set of simple scripts. I have a handful of file lists for files that are in a directory structure and in order to upload the files via ftp, i need to prepend the filelist with some text i.e. 'put directory\' for each line in the text file. Not being used to using vbscript I need to know how *exactly* to accomplish this in vbscript (since I can't get any where close using DOS commands). Thanks J Tag: cmd to open event viewer Tag: 193516
  - 10
    - Excel object... AEONS! Hi, I have a script where I'm doing this: objExcel.Workbooks.Open strFile objExcel.Cells(EXCEL_DATA_ROW_START, EXCEL_DATA_COLUMN).Select Which works (almost) perfectly... It just takes FoReVeR!!! I'm opening the file from a UNC share, and I've timed it about 15 times, and the average came out at 17 seconds for the first line, and 11 seconds for the second! And all the second line does is select a cell! am I using something incorrectly? Should it really take almost 30 seconds to open an Excel file and get the contents of a cell? (And this is running on a P4, 3,0GHz, 2GB, XP SP2, so it can't be because it's a slow machine!) If I open the file manually, it takes an average of 4 seconds to open, and then as quick as I can be with a mouse to select a cell and copy its contents. Any advice greatly appreciated! :) Plankmeister Tag: cmd to open event viewer Tag: 193515
  - 11
    - Handling User Intervention whilst MoveFolder Object execution HI all I would like to know what is the method or idea to handle a renaming of folder that requires user intervention. When i performed a manual rename of a folder, i find that there is a manual input required to proceed with renaming: "Renaming, deleting "Program" could make the program may cause the program not to work... It prompts for OK or Cancel... How do i handle this case in VB Script..? Thanks Karthik Tag: cmd to open event viewer Tag: 193514
  - 12
    - Attempting to Run a script with Admin privileges Hey, We have an admin wrapper here that runs using local admin rights. It uses the run as command to kick off a script with privileges but when we put it into AD login scripts it runs ok but as soon as something takes focus away from the command prompt window it stops the password from being passed and it sits there prompting the user for a password. Here is the script we are using is there anything we can do to get around having to bring up the command prompt to pass the password or is there a decent third party ap that could do it for us. Any help would be appreciated. Script: Note user names and password changed for obvious reasons Function RunUpdates appl="runas /user:Adminuser " & """wscript update.vbs""" WshShell.run appl,2,bwaitonreturn Do Until WshShell.Appactivate("runas.exe") wscript.sleep(200) Loop WshShell.sendkeys "password" & "{ENTER}" End Function Tag: cmd to open event viewer Tag: 193512
  - 13
    - Read in text to array help The text file I'm trying to read in looks like this: -u www.test1.com (0,0) -i 192.154.3.25 (0,1) -e 2 (0,2) -s 1 (0,3) -n 1 (0,4) -u www.test2.com (1,0) -i 195.142.5.84 (1,1) -e 1 (1,2) -s 2 (1,3) -n 2 (1,4) What I'm trying to do is to make a two dimensional array with the data stored as shown above. I'm aslo trying to add an IF statement that goes like this If read -u then increase one to rows place. (as shown in example above) If anyone could help me with a little example of something like this that'd be awsome. This is what I have so far, but I don't know if I'm even going in the right direction. It looks a little messy and confusing to me. Again thanks for the help in advance. Set objTextFile = objFSO.OpenTextFile("c:\scripts\servers and services.txt", ForReading) Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline arrSplitChar = Split(strNextLine , " ") If (arrSplitChar(0) = "-u") Then Redim arrHoldStuff = arrWebSiteInfo(i, j) Redim arrWebSiteInfo(i + 1, 0) For i = 0 To Next ElseIf ((arrSplitChar(0) = "-i") || (arrSplitChar(0) = "-e") || (arrSplitChar(0) = "-s") || (arrSplitChar(0) = "-n")) Then ReDim arrWebSiteInfo( i, arrSplitChar(1)) Else Loop Tag: cmd to open event viewer Tag: 193481
  - 14
    - Separating characters from username Hi, I am trying to write a script which will help map a users network drive on logon. It requires me to separate the username into 3 parts. For example:- if the username is abc123 The network drive address would be \\serveraddress\users\a\b\abc123 I am using vbs to write this script and have gotten this far - Run "net use u: \\serveraddress\users\" & oNetwork.UserName & " /persistent:no" Does anyone know how I can get about doing this? Thanks. Dikshant Tag: cmd to open event viewer Tag: 193470
  - 15
    - Update Database (mdb) script How do you update all of the records in an Access (.mdb) table where the checkboxes are not checked? -- Cadstillo Tag: cmd to open event viewer Tag: 193467
  - 16
    - string to array How to convert string to Array in VB/VBScript I have a string and I need to parse each chars to check if that chars is the one I am looking for...looks simple ut not striking me at this moment.... I was planning to iterating the array to its length and find out the chars by ASC function.... Tag: cmd to open event viewer Tag: 193466
  - 17
    - Rescursive file search DateLastModified Hi, I'm relative new to vbscript, so i need a little help. I'd like to make a script that recursively searches for files with a DateLastModified within an hour or two from the current date and time. It's from a root folder and all it's subfolders. Thanks in advance, Robertico Tag: cmd to open event viewer Tag: 193465
  - 18
    - Controlling VPN via VBScript Hi, I have a VPN connection using Microsoft's VPN client that is brought up initially when the computer is started up. I need a VBScript that can monitor this connection, make note when it gets disconnected, and then schedule it to reconnect 30 or so seconds later. Is there a way to do something like this? Unfortunately, the redial feature is not an option. Thanks, Chris Tag: cmd to open event viewer Tag: 193461
  - 19
    - deleting folders created more than 3 days old I am writing a script that deletes any empty folders created more than 3 days ago. It won't however go more than 4 days. I am not sure I understand why. It is a case statement that checks for the current date and 3 days prior and ends with: Case Else objFSO.DeleteFolder(strFolder) 'uncomment this to delete the folders Any ideas why it would stop after 4 days? I mean it should be that if it isn't one of the 3 days given it would default to deleting it, right? Or am I totally off base here? Tag: cmd to open event viewer Tag: 193460
  - 20
    - Copy file Hello! I'm writing a script, that will copy 3 files. I need to do this in order (not in the same time). How can i check, that copy of first file ended? Leszek Tag: cmd to open event viewer Tag: 193453
  - 21
    - Copy files up to 1Mbyte I use this command xcopy c:\source m:\dest\local /m/e/e/v/h/y which works quite well. Now I need to copy only files below 1 MByte because files greater than 1 MByte are rare but can fill the destination too quickly. (Sorry for my English) I think, the answer will be in VBS. Thanks for all Bernd Tag: cmd to open event viewer Tag: 193450
  - 22
    - rename a folder full of jpgs with the size of the file Is it possible to use vbscript to rename a folder full of jpgs, giving each one a new name with its size in kilobytes? So "sample.jpg" would become "29.jpg" indicating that the file size of 29.jpg is 20 kb. Tag: cmd to open event viewer Tag: 193449
  - 23
    - READONLY Form fields So, I want to have a form that gets submitted to itself adn then I set the fields to readonly, but I want to have an "Edit" button so that people have one last chance to fix everything without sending them to an all new page before submitting. Does anybody out there know of away within VBscript to change this setting within each form field w/o having to re-submit the whole page again? For instance: <input type="text" name="church_phone" value="" size="16" maxlength="20" class="dfinput" ID="Text10" <% IF request("formstatus")="locked" THEN %>READONLY<% END IF %>> So, when I first submit the form I set a variable formstatus to "locked", but when I click the edit button I want it to change to "editable". Thanks! Willie Tag: cmd to open event viewer Tag: 193446
  - 24
    - Accessing Nodelistvalues from mssoap client with vbs Hi I should write a script with vbs which calls a webservice with the mssoap client. If I call a service which returns only one value there is no problem. But if I try to call a webservice which returns an array of objects i get some problems. The following code works without problems in vba but not in vbs. I found out that i get the error if I try to access a value from a nodelist like items(i).length. Is there an other solutions to access values from a object array? Does someone have an idea how I could solve this problem? thank's michel Public Function TestSoap2() Dim objSoap Dim strReturn() Dim strWsdl Dim strError Dim strEmbDate Dim items Dim item Dim i Dim z ' ' EXAMPLE calling a google web service strWsdl = "http://www.omnisolutions.ch/SLXService/service.asmx?WSDL" Set objSoap = CreateObject("MSSOAP.SoapClient") objSoap.mssoapinit (strWsdl) items = objSoap.GetDocuments2("Name") For i = 0 To UBound(items) Step 1 For z = 0 To items(i).length - 1 MsgBox items(i).item(z).Text Next 'item = items(i).item(0) 'MsgBox items.length Next ' msgbox items Set objSoap = Nothing End Function Tag: cmd to open event viewer Tag: 193445
  - 25
    - Error Handling Hello friends, I have written a script that goes through folder looking for a sub-folder named "Cookies". If it filnds Cookies then it will enumarate all files in that folder and delete te files which are older than 7 days. I want to implemnet error handling where it reports what is wrong if it cannot perform the above mentioned functions and contunie with the loop. It displays the error message if there is a directory permmission related issue and exits the script rather than going through it. Can youplease point out the error? As you see I have implemented On Error Resume Next ststement pretty much in every loop just for troubleshooting but I really cannot pinpoint where it is not working __________________________________________________________________________ Dim objShell, objFSO, sUserProfile, objUserProfile, sAppDataFolder, sUserDir, SFolders Dim sAppData, objDocsAndSettings, objUser, IDate, oCookies, oFile, File, oFilesCollection, tCookies, col Set objShell = CreateObject("Shell.Application") Set objFSO = CreateObject("Scripting.FileSystemObject") set sUserDir = objFSO.GetFolder("D:\TEST") ' Get user profile folder ShowSubFolders objFSO.GetFolder(sUserDir) ' Get Sub Folders 'On Error Resume Next Sub ShowSubFolders(Col) On Error Resume Next For Each SubFolder In Col.SubFolders If SubFolder.name = "Cookies" Then Wscript.echo "Deleteing Files From" & Space(2) & SubFolder.Path Set oFilesCollection = SubFolder.Files 'On Error GoTo 0 'On Error Resume Next For Each oFile IN oFilesCollection IF DateDiff("d",oFile.DateLastModified,Now)>7 Then oFile.Delete(True) If Err.Number <> 0 Then WScript.Echo "Can't Delte the file" & Space(2) & oFile.Path WScript.Echo "(" & Err.Number & ") " & Err.Description 'WScript.Echo "" WScript.Quit Err.Number End if 'Wscript.echo oFile.name Err.clear End If next 'On Error GoTo 0 End If 'On Error GoTo 0 ShowSubFolders SubFolder 'Err.clear Next 'Err.clear End Sub Thanks cha Tag: cmd to open event viewer Tag: 193443

Anyone know of a cmd I could put into a VBscript that will open the event
viewer showing the system log?

Thanks

Re: cmd to open event viewer by D

D
Thu Jul 13 16:15:11 CDT 2006

In WinXP SP2 this works from a cmd dos box:

eventvwr.msc

But shows all logs. Does anyone know how to open just the System log, or
start eventvwr with the system log already selected?

"Jason" <someone@microsoft.com> wrote in message
news:eio$6VppGHA.2292@TK2MSFTNGP05.phx.gbl...
> Anyone know of a cmd I could put into a VBscript that will open the event
> viewer showing the system log?
>
> Thanks
>

Top

Re: cmd to open event viewer by joseomjr

joseomjr
Fri Jul 14 00:47:20 CDT 2006

are you looking for something in particular in the system log. you
could view the content of it by using WMI and the Win32_NTLogEvent
class.

Jason wrote:
> Anyone know of a cmd I could put into a VBscript that will open the event
> viewer showing the system log?
>
> Thanks

Top

Re: cmd to open event viewer by Dave

Dave
Sat Jul 15 08:59:45 CDT 2006

You might give this a go.

http://www.sysinternals.com/Utilities/PsLogList.html

--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Jason" wrote:
| Anyone know of a cmd I could put into a VBscript that will open the event
| viewer showing the system log?
|
| Thanks
|
|

Top

Re: cmd to open event viewer by brianjester

brianjester
Mon Jul 17 00:19:11 CDT 2006

Jason,

You could launch the eventviewer then send it the down arrow three
times like this:

'Launch Event Viewer, hit "Down" three times to System log - Brian
Jester
Dim WshShl
Set WshShl = WScript.CreateObject("WScript.Shell")
WshShl.Run "%systemroot%\system32\eventvwr.exe"
WScript.Sleep 1000
WshShl.SendKeys "{DOWN}"
WshShl.SendKeys "{DOWN}"
WshShl.SendKeys "{DOWN}"

It worked for me, although it's brute force...

Brian Jester

Top