Recycler

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
    - Problem using WMI,VBScript to get PATH variable on Win98 The following short VBscript retrieves the value of the PATH environment variable and displays is (for testing). (This code comes right out of the several examples in WMI help files). ' Retrieve and display the PATH environment variable theValue = "" strComputer = "." Set oCIM = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") For each oItem in oCIM.ExecQuery("SELECT * FROM Win32_Environment WHERE Name = 'PATH'",,48) theValue = oItem.VariableValue Next WScript.Echo theValue The problem I have is that this works fine on a Windows 2000 (Win2K) installation. However, on a Win98 machine (with WMI installed), it returns a short (maybe 8 bytes) of junk. Other environment variables on the Win98 machine are retrieved by simple code changes, JUST FINE. For example, COMSPEC is returned accurately. ' Retrieve and display the COMSPEC environment variable ... For each oItem in oCIM.ExecQuery("SELECT * FROM Win32_Environment WHERE Name = 'COMSPEC'",,48) theValue = oItem.VariableValue Next WScript.Echo theValue (Shows C:\COMMAND.COM, correct for my machine...) AFAIKT, all other environment variables are retrieved correctly. Why is it a problem to get the PATH variable correctly on Win98? I know that several classes of WMI are not implementable on Win98, but if it can get all the other Environment Variables, why not the PATH too? Any help would be appreciated. D.F. Tag: Recycler Tag: 179509
  - 2
    - FTP upload component? Hi, I am writing an ASP script to create a file on the server and then upload it to an FTP site. (I am creating a shopping engine file and then have to put it up on the shopping engine's ftp site.) How can I upload the file to the ftp site? I don't think that a regular upload/download component/method that is used for uploading files from via a webbrowser to the server is going to work. I looked all over online and there are a few different free scripts that people are using. One of which is from Jeff Mastry - FTP.WSC with Shell.WSC. When I register those two components on my machine and try to do the FTPExecute, I am getting Permission Denied - I have no idea on which part of the process that the script does its getting that. Does anyone have any ideas? Here is my sample script: 'Dim oFTP 'Set oFTP = CreateObject ("FTP.WSC") 'With oFTP ' .Host = "ftp.abc.com" ' .Username = "username" ' default it anonymous ' .Password = "password" ' default is also anon (e-mail address) ' ' .FtpExecute "put c:/data.txt" 'End With 'Set oFTP = Nothing If anyone has any ideas, it would be greatly appreciated. Thanks, Bayla Tag: Recycler Tag: 179507
  - 3
    - Windows script to toggle Registry settings for Robotype Does anyone know if the settings for Robotype AutoSearch and Manual Search modes are in the Registry and what their Registry address is? I want to set up a .vbs file with a script that toggles between the two settings so that I can switch instantly from one setting to the other via a Winkey combo rather than manually clicking on the Robotype icon in the tray. Larry Tag: Recycler Tag: 179505
  - 4
    - Can Someone Write a Short Script for Me? Hi; I have had a continuous problem with webserver log files for quite some time and I've spent a ton of time trying different methods to solve the issue - with zero success. What I need is a short script that; FTP's into my site and downloads my log file Writes it to a directory on my hard drive with Today's Date Then opens a web browser to an address of my choosing. And finally - closes off. I believe I can use the native FTP built-into Windows 2000 and automate the script's execution with Task Scheduler. I'm just completely useless with programming. Can anyone help? Thanks; Marvin Miller Tag: Recycler Tag: 179499
  - 5
    - Getting the properties and methods available with an object I'm unable to instantiate TLI.TLIApplication from TlbInf32.dll !PLEASE HELP! The answer for how to determine the properties / methods / events available to an object or within a .dll was/is? to use windows\system\TlbInf32.dll by starting off like so: Set oTLI = CreateObject("TLI.TLIApplication") If I do this from my VBScript file, I get the error: Could not locate automation class named "TLI.TLIApplication". Code: 80020009 Source: WScript.CreateObject At the same time, if I go into my VB5CCE and set Project/References to find Typelib Information (which is located for me in c:\windows\system32\TlbInf32.dll on my WinXP Pro, SP 2 system) and then do: Dim foo As TLI.TypeLibInfo Set foo = New TLI.TypeLibInfo MsgBox TypeName(foo) Then VB is happy with that and the MsgBox shows: TypeLibInfo Now, I have neither VB 5 nor the VB 6 development environment installed. All there is, is me and my trusty VB5CCE, and version 5.6 of WScript. Just in case, I closed down VB5CCE to do the test, and I also did Regsvr32 c:\windows\system32\tlbinf32.dll. After that I plied it with /u several times, then a last time without /u, and regsvr32 was continually happy. The tblinf32.dll file itself is dated 1/16/1997 at 132608 bytes and version 1.1.37.15 I hope someone has an idea on this cause I am stumped, Thanks, Csaba Gabor from Vienna Tag: Recycler Tag: 179491
  - 6
    - Reading the first 9 lines of a text file and outputing to a network printer? How would it be possible to read just the first 9 lines of a text file and then output them to a network-based printer (either by IP or \\server\printer would be fine)? This is printing NTBackup logs, though that shouldn't make a difference. Thanks! Trevor Tag: Recycler Tag: 179488
  - 7
    - Code for Batch files. Hi Group I need very urgent help from this group. I have written a VB script code like this, ---------------------------------------------------------------------------------------------------- dim wshshell Set WshShell = Wscript.CreateObject("WScript.Shell") WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ForceClassicControlPanel", "00000001", "REG_DWORD" Dim cmd Dim I I=1 cmd = "control.exe" while I<1 I=I+1 wend WshShell.Run cmd,,True WshShell.AppActivate "Control Panel" WshShell.SendKeys "%F" WshShell.SendKeys "%F" WshShell.SendKeys "C" WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ForceClassicControlPanel" --------------------------------------------------------------------------------------- This code is working fine. Now I need the same function execution through batch files. I dont know how to write the same function in batch file. Can anyone help me for this.I know this is not a Group for answering batch file question, then also if anyone give me the solution, i will be highly thankful to them. steps are * Adding the registry key. * opening the conntrol panel window * closing the control panel window * delete the same key Thanks and Best Regards Katheryne Tag: Recycler Tag: 179485
  - 8
    - byval and object instance Here is an ASP code sample in VBScript: <% Dim x Set x = server.CreateObject("ADODB.RECORDSET") x.CursorType = 1 x.CursorLocation = 3 x.Fields.Append "custtype", adVarNumeric, 80, adFldMayBeNull x.Open x.addnew "custtype", 34 x.Update call dothis(x) Response.Write(x.RecordCount) Set x = nothing Function dothis(byval x) x.addnew "custtype", 34 Response.Write(x.RecordCount & "<BR>") x.addnew "custtype", 34 Response.Write(x.RecordCount & "<BR>") set x = nothing End Function %> This should run if you put it into an asp page and pull it from IIS. It is just a disconnected recordset filled with a record and then a response.write, etc. Question: I'm using "byval" in the dothis() function, but SHOULD I set x = nothing within the function? Obviously when using, "byref", setting x = nothing will delete the instance of the object, but with "byval" will I leave something in memory if I don't set x = nothing? I think this is another "age old" question but I've got some pages acting funky on a hosted server in Canada and I think this issue may have something to do with it. Tag: Recycler Tag: 179477
  - 9
    - script to check services Hi, does anyone has a script to check all services that are required to startup automatically are started up after restarted? thanks Tag: Recycler Tag: 179474
  - 10
    - Server object error 'ASP 0177 : 8007000e' Hi, I have an ASP page in which I am trying to create an instance of an ActiveX control. If I access the page using IIS 6.0, I get the following error: Server object error 'ASP 0177 : 8007000e' Server.CreateObject Failed The ASp works properly if I configure IIS 6 to run in IIS 5.0 isolation mode. Does anyone have any idea why this is happening? Thanks, NB Tag: Recycler Tag: 179470
  - 11
    - I don't want my file to be shared by two scripts... Hy there, i 've written a web based application in ASP / vbscript that uses XML files. with each action of my scripts, i reactualize the xml list (that contains all status of all scripts running on the server). my problem happens when two scripts want to modify the xml file at the same time. So would you tell me how i could keep the thecond script waiting until the first one has finished ? can i lock the xml file while the action of the first script is running ? How ? bye Nico Tag: Recycler Tag: 179469
  - 12
    - Date - Time Format I am using ASP to access a database and pull out the date in the database that is in this format: 7/5/2005 9:20:22 AM I want to make it display on the page in this format which is a standard miltary DTG(Date/Time/Group) format and in Zulu (GMT - Grenwich Mean Time). For example this would be how I would display the above date and time: 050920Z JUL 05 DDHHMMZ MMM CC Any clue as to how to get this done? I did find this webpage, but copied and pasted over to an asp page on the server, and I get an error...the page is from 2003, so maybe the code has changed a bit? Any help is appreciated. Thanks, Doug Tag: Recycler Tag: 179459
  - 13
    - Window.returnvalue not working Hi, I am using a window.showmodaldialog to open a page and passing a string on window close.When I am trying to capture the returned value using the window.returnvalue I am getting an empty string. My code is as in opened window is window.returnValue = "yes" window.Close and the code in parent window is strResponse = window.showModalDialog(strFile,"resizable=yes, height=500, width=500, scrollbars=yes") msgbox strResponse Thanks Tag: Recycler Tag: 179451
  - 14
    - Get clipboard contents for sorting can vbscript retrieve the clipboard contents ? I would like to sort it and paste it to back into an active document Tag: Recycler Tag: 179450
  - 15
    - ASP/VBScript: Retrieving ID of last inserted record in Access In SQL server one can use @@Identity to retrieve the id of the last inserted record (although there are situations when it is not appropriate). What is the best way to retrieve the id of the last inserted record in Access? I'd appreciate any pointers. Thanks, J.S. -- Tag: Recycler Tag: 179449
  - 16
    - Script to create a directory and put permissions to it We currently use MD and CACLS to do this but the problem is that you have to Y after every CALCS line of code. Is there a way using vbscript to create a directory on a remote machine and set the permission to that directory? This would be in a Windows 2003 SP1 environment. Thanks, Eric Sabo Tag: Recycler Tag: 179443
  - 17
    - ShDocVw.ShellWindows vs. CreateObject("Shell.Application").Windows About two years back, Notre Poubelle was looking for a way to get ahold of ShDocVw.ShellWindows via script. Now ignoring the fact that it is essentially identical to CreateObject("Shell.Application").Windows, this is an interesting problem because the class id was known, but that was all. There was a clever idea by Alexander Mueller, which was tested out, that maybe it was possible to use IE for this, but it failed because of the security blanket that IE surrounded the object with. However, here's a working solution, which extends the original idea. The key idea is that after having IE create the object, we take it away from IE so the security restrictions will no longer exist. Even if it wasn't clear to IE that our app could freely muck with it, it should be clear to everybody that our VB app/script is free to go about it's own business on its own time. Dim ie, Tname, oWins, win, text Set ie=CreateObject("InternetExplorer.Application") ie.Navigate2("about:blank") ie.Document.open ie.Document.write "<object id=sw classid='clsid:" & _ "9BA05972-F6A8-11CF-A442-00A0C90A8F39'></object>" ie.Document.close Set oWins = ie.document.parentWindow.sw 'transfer object ie.Document.parentWindow.execScript "window.sw=null" 'paranoia ie.quit 'more of same msgbox "oWins: " & typename(oWins) 'This loop prints out something on each instance of IE / Explorer For each win in oWins Tname = typename(win.document) if mid(Tname,1,12)="HTMLDocument" Then text = win.document.title if text<>"" then text = "Title: " & text & vbCrLF MsgBox text & "url: " & win.document.location Else MsgBox "Folder: " & win.locationURL End If Next This code was adapted from: http://groups.google.com/group/microsoft.public.scripting.jscript/browse_frm/thread/cb42d8b604de28eb/ The reason I said ShDocVw.ShellWindows was essentially the same as CreateObject("Shell.Application").Windows was because of hooking event handlers up. For example, in a VB project, if I do Dim WithEvents ogSW As SHDocVw.ShellWindows Set ogSW = New SHDocVw.ShellWindows then I can receive events of IE/Explorer creations/destruction via: Private Sub ogSW_WindowRegistered(ByVal lCookie As Long) and Private Sub ogSW_WindowRevoked(ByVal lCookie As Long) but this approach does not work with the other. Enjoy, Csaba Gabor from Vienna Tag: Recycler Tag: 179432
  - 18
    - Passing & retrieving values between 2 vbs files? is it possible? Passing & retrieving values between 2 vbs files? is it possible? I would like to get a main VBS file to detect the local language and accordingly sends a request to another VBS file that would contain various messages in different languages. Would it be possible to have the main VBS file retrieve the answer given by users to the messages - Yes/No - from the (other) message.vbs file at all? If user clicks yes the main file continues if they click No it aborts? TIA Joseph Tag: Recycler Tag: 179431
  - 19
    - Batch file Call, quiet mode?? I know this is the vbscript group, but I couldn't find a batch group and I figured most of you in here know batch scripting, so here goes. Does anyone kow of a way to CALL 1 bacth file from another but not have the 2nd one show a window. Basically using a quiet mode. Is here such a thing as call file.bat /q or another method? Tag: Recycler Tag: 179430
  - 20
    - FTP without script file I use the following to FTP a file. However it temporarily creates a text file on the Desktop that contains the users password. I'm concerned about the vbs failing sometime and leaving the file for all to see. Is there a way I could just write it to a string, pass the string to FTP and never create the text file anywhere? thanks LJB '----------------------------------------------------------- Set oFSO = CreateObject("Scripting.FileSystemObject") Set oShell = CreateObject("WScript.Shell") Path = oShell.SpecialFolders("Desktop") Order = InputBox("Order Number") Set oScript = oFSO.CreateTextFile(Path & "\get.txt", True) With oScript .WriteLine "open vaxf" .WriteLine InputBox("UserID") .WriteLine InputBox("Password") .WriteLine "cd RPT$DISK:[RPT.RPT_UNT]" .WriteLine "type ascii" .WriteLine "get " & Order & "unt.lis """ & Path & "\" & Order & ".txt""" .WriteLine "bye" End With oShell.Run "ftp -s:""" & Path & "\get.txt""", 0, True oScript.Close oFSO.DeleteFile Path & "\get.txt", True Set oScript = Nothing Set oFSO = Nothing Set oShell = Nothing Tag: Recycler Tag: 179429
  - 21
    - mail-enabled a global security group Is there a way to mail-enabled a global security group in a vb script? We are running windows 2003 for our AD and Exchange 2003 SP1. Thank you, Eric Sabo Tag: Recycler Tag: 179428
  - 22
    - Starting external Programm with VBScript Hallo NG, is it possible to start an external programm with vbscript. For exampal: Run "C:\MyProgramm.EXE /e" Thanks, Ahmed Tag: Recycler Tag: 179423
  - 23
    - Applying Windows patches via VB I have been trying to find a suitable script to deploy the Hotfix KB899588 across my domain, via group policy As yet i haven't found a script that works. Any body have such a script or know a good site for help??!! Tag: Recycler Tag: 179421
  - 24
    - wscript.exec in hidden window? With wscript.run there is an argument that lets you run the command invisibly but there does not appear to be the same argument available with wscript.exec. I need to run a command and capture its stderr (although I don't need the stdin and stdout) and wscript.exec lets me do that except for the annoying flashing of the command window which is doubly annoying in my application since I have to perform wscript.exec on several commands in succession and the screen just goes crazy. I would prefer to keep my application self contained (its currently one .hta file) and would prefer not to have to use temporary files if I don't have to. Is there a way to handle this? Tag: Recycler Tag: 179413
  - 25
    - Copying Folder Contents Hi I haven't the slightest idea about scripts, I have been trying to write a batch file to do the job, with no success and I have been informed that a script is what I need. Here is my predicament: This action needs to work in an NT and XP environment I need to move files at the end of ever month stored in 2 different folders, to a backup location. For example this is where the files are located: p:\cmanger\{Workstation_name}\Dailydoc p:\cmanger\{Workstation_name}\DailyImg I would like all the files within the 2 folders all moved to p:\cmanger\backup\DailyDoc & p:\cmanger\backup\DailyImg Which should then leave the original file locations empty. However each workstation I need to perform the action on has a different folder name in the middle. It's always the workstation name, if this helps? Is it possible to write a script to automatically perform this action at the end of each month. If so, would it also be possible to move them to a folder of the time period i.e. named "yyyymmdd" each time the script runs. Your expert help on this would be most appreciated. Regards, Bradley Tag: Recycler Tag: 179405
- Next
  - 1
    - Opening Ports and allowing exceptions Hello all, I am new to scripting. So any detailed information would be greatly appreciated, From the script, WinFire-com.vbs from Microsoft, arrNewPorts(0,0) = "FPS" 'Name arrNewPorts(0,1) = 137 'Port arrNewPorts(0,2) = NET_FW_IP_PROTOCOL_TCP 'Protocol arrNewPorts(0,3) = NET_FW_SCOPE_ALL 'Scope - default is NET_FW_SCOPE_ALL arrNewPorts(0,4) = True 'Enabled - default is True Regarding the scope, how can I change this so that the port is open for a range of addresses, say: 10.91.12.56,10.7.14.9/255.255.255.0,10.116.45.0/255.255.255.0 Further, from the same script, Const NET_FW_IP_PROTOCOL_TCP = 6 Const NET_FW_IP_PROTOCOL_UDP = 17 How do we know that TCP is 6 and UDP, 17. Where do these numbers come from? The two number, 6 and 17, reappear in each script I've seen. I want to know how we know that 6 corresponds to TCP and 17 corresponds to UDP. If you could refer me to documentation that I can read, that would be great! One more question, how can I say the port is open for all protocols (TCP and UDP)? Do have to to do two port openings? One for TCP and another for UDP? I appreciate your help! Thank you in advance! Tag: Recycler Tag: 179402
  - 2
    - launch app and pass file name to open I need some help trying to launch an application and pass a file name to it for viewing when opened the "cmd" is correctly capturing the arguments and application path, but does not open the application ------ code ----- <SCRIPT Language="VBScript"> Dim Args, FileName,vApp,cmd Set WshShell = CreateObject("WScript.Shell") Args = Split(objHTAGetTools.commandLine, chr(34)) FileName = Trim(Args(1)) vApp="C:\Progra~1\Micros~1\v0.6.812\WebMatrix.exe" cmd = "cmd /c " & " """ & vApp & """ " & " """ & FileName & """ " 'msgbox cmd Call WshShell.Run (cmd , 1, TRUE) ... Tag: Recycler Tag: 179398
  - 3
    - AD Group Access Rights Hi All, Is there a way to determine with scripting, the access rights that various groups in AD have? If so, can someone point me in the right direction. Thanks, Bob Tag: Recycler Tag: 179395
  - 4
    - Checking for Empty Folders Hi, i would like to be able to run through a folder on my network looking for empty folders and output this information to a txt file, really new to scripting what i have is a shared dir on my network called clients, this contains subfolders a-z and these contain subfolders A100.....A500 - Z100...Z500 under each client folder A100 etc i there are other folders, i would like to be able to check these to see what folders are empty for each client i do not need to be able to run through the whole drive at once, even doing it letter by letter would be fine i would appreciate it if someone could point me in the right direction or a good web site for info thanks Tag: Recycler Tag: 179392
  - 5
    - Elevate user during logon process I would like to know if anyone has had success elevating a user during the logon process and if so what they used to elevate that user? I would like to be able to elevate a user to admin rights, install one or several programs and then remove the admin rights. Anyone have any ideas as to which direction would be best? Thanks Tom Tag: Recycler Tag: 179391
  - 6
    - wireless I need some guidance in deploying preferred networks using vbscript . I have a script that add a ssid and the other settings to the registry, but i cannot see it in "prefered networks". This script should activate the checkbox "Let windows manage...". This is what i have: Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") 'Get the id of the wireless NetworkCard strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\13" strValueName = "ServiceName" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue Wscript.Echo "networkcard id Value: " & strValue 'Create key with the id strKeyPath = "SOFTWARE\Microsoft\EAPOL\Parameters\Interfaces\" & strvalue oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath 'Add a binaryvalue with the settings of the wireless conection BinaryValueName="1" iValues=Array(&H05,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H40,&H0d,&H00,&H00,&H00,&H04,&H00,&H00,&H00,&H65,&H2d,&H55,&H4d,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H0d,&H00,&H00,&H00,&H28,&H00,&H00,&H00,&H00,&H00,&H00,&H00,&H28,&H00,&H00,&H00,&H05,&H00,&H00,&H00) oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,_ BinaryValueName,iValues If someone can point me in the right direction I would appreciate it. Tag: Recycler Tag: 179390
  - 7
    - HOWTO: Raise C# event and handle in VBScript The event SomeEvent() is raised and handled in VB6 fine. Using this exact same code and using VBScript with the CreateObject call causes an error in the c# code. When using VBScript, I get a 'Object reference not set to an instance of an object.' on the line SomeEvent(). I am positive the m_nSomeProperty = nValue; line executes. How can I get this working from VBScript? Here's the code: using System; using System.Runtime.InteropServices; namespace ComInterop { public delegate void SomeEventHandler(); [ Guid("F8E81A5A-BB37-49CC-9681-7D4FE52936B3"), InterfaceType(ComInterfaceType.InterfaceIsIDispatch) ] public interface ICComInteropEvents { [DispId(1)] void SomeEvent(); } [ Guid("97C8501B-35DE-48CA-BECC-B980D08226F4"), InterfaceType(ComInterfaceType.InterfaceIsDual) ] public interface ICComInterop { [DispId(2)] void SomeMethod( int nValue ); [DispId(3)] int SomeProperty{ get; set; } } [ Guid("10EBC493-D2FD-4723-9F8B-F593586ED9B7"), ProgId("ComInterop.CComInterop"), ClassInterface(ClassInterfaceType.None), ComSourceInterfaces(typeof(ICComInteropEvents)) ] public class CComInterop : ICComInterop { public CComInterop() : base() { } private int m_nSomeProperty = 0; public event SomeEventHandler SomeEvent; public void SomeMethod( int nValue ) { m_nSomeProperty = nValue; /////////////////////////////////////////////////////////////////////////////////////////// // // object reference not set to an object error occurs here // ////////////////////////////////////////////////////////////////////////////////////////// SomeEvent(); } public int SomeProperty { get{ return m_nSomeProperty; } set{ m_nSomeProperty = value; } } } } And the VBScript code: Option Explicit ' ========================================================================== ' Implementation ' ' ========================================================================== Dim objReceive Dim bDone On error Resume Next bDone = false WScript.Echo "CreateObject" Set objReceive = CreateObject("ComInterop.CComInterop") if Err.Number <> 0 then WScript.Echo "Error: CreateObject: " & Err.Description else objReceive.SomeMethod(7) if Err.Number <> 0 then WScript.Echo "Error: Setting SomeMethod: " & Err.Description else WScript.Sleep 3000 end if end if objReceive = nothing WScript.Echo "Program Over" ' ========================================================================== Sub objReceive_SomeEvent() WScript.Echo "Message: " & objReceive.SomeProperty bDone = true End Sub -- Dan Sikorsky, MSCS BSCE BAB Tag: Recycler Tag: 179389
  - 8
    - reading through a text file checking the first character on each line Hi I'm trying to read through a text file but I need to check if the first character on each line is a full stop (.) Any ideas? Thanks. Tag: Recycler Tag: 179384
  - 9
    - testpage Hello, I added a new IP network printer to my OU with a logon script and i set it up as the defaut printer. I would like to be able to create a script to able to print a test page to the printer from the logon. -- The only easy day was Yesterday Tag: Recycler Tag: 179383
  - 10
    - vbs script is blocked by anti-virus software After all of you helped me a lot with my last question (thanks again, everything worked great!), I'm again without any idea! Now I have my complete .vbs script that tests the installed Windows version and the installed Adobe Reader Version. I've burned it to a CD with a Autorun.inf that looks like this: [autorun] shellexecute = cscript.exe VersionCheck.vbs My problem: On almost every computer the script is blocked as a 'dangerous virus' by the anti-virus software. What can I do? I thought of maybe converting it to exe and as I googled that seems to be good solution if you have VB what I don't have! Is there an other way to make the script run? It won't be send by email it will just be on a CD! Any hint? Thanky you very much! Tag: Recycler Tag: 179381
  - 11
    - onFileDateChange handler from a COM object? Is there any COM way, besides polling, that will let me know when a specific file's date has changed (I know that winternals is supposed to have a filemon app, but if possible I'd like to do this using already available objects/code)? Motivation. I'm developing an application which stays in the background and does its thing. If I rewrite (that is to say, edit) my app, I'd like to have the current running instance exit and a new instance start up (actually, the order will be reversed, to ensure the revised app is at least breathing). That's it. One save from me should be enough to cause a reload. Isn't there a nice event driven way for the running app to be notified when its own file has changed? - maybe some file system object has an event whenever any file in its directory changes? Thanks for any tips, Csaba Gabor from Vienna Tag: Recycler Tag: 179379
  - 12
    - how to rename a active directory user Hello, I search for a way to rename the "name" field or the "cn" of a user object in active directory using a VBS. Is there any way to do so? Regards Stefan Tag: Recycler Tag: 179378
  - 13
    - Execute code before closing script Hello I have a script that runs 24/24 7/7 on a server in an constant loop gathering information into a DB. What i would like (and don't know how) is to execute code to 'compact & repair' the database every time the server shutsdown/reboots. So, the question is, is there any way to do this with scripts, that is, to bypass the endless loop, executes final code and shuts itself down without being forced? Suggestions/links are welkome. Greets Davor Tag: Recycler Tag: 179375
  - 14
    - Can't read a registry key I've created a template script to read IP addresses from a list, then carry out simple tasks such as read RAM, Host name, etc. which works absolutely fine for whatever info I'm trying to gather and send to an output file. Basically I'm just cut and pasting the main body of a script into my template. I've now tried to adapt the script to read a registry key, but the script returns no value for the registry key. The script is as follows - On Error Resume Next Const INPUT_FILE_NAME = "Addresses.txt" Const FOR_READING = 1 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING) Do While objfile.AtEndofStream <> True strComputers = objFile.Readline Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputers & "\root\cimv2") Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") Set cPingResults = objWMIService.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" + strComputers + "'") For Each oPingResult In cPingResults If oPingResult.StatusCode = 0 Then WScript.Echo VbCrLf & strComputers & " responded to ping." Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem") For Each objCompSystem In colCompSystems WScript.Echo "Host Name: " & LCase(objCompSystem.Name) Next strKeyPath = "SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\Misc." strValueName = "PatternVer" oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwvalue Wscript.Echo "Current Pattern Version - " & dwvalue Else WScript.Echo VbCrLf & strComputers & " did not respond to ping *Target Possibley Down.!*." End If Next Loop objFile.Close IP address and Host name are displayed fine, and will also echo the "current pattern version" line, but gives no value. I created a simpler version of script to run on my local machine which goes - Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\Misc." strValueName = "PatternVer" oReg.GetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwvalue Wscript.Echo "Current Pattern Version - " & dwvalue This returns the value that I'm looking for no problem, so I'm confident that the code is ok. I'm guessing it's something to do with syntax as opposed to code. Can anyone help? Tag: Recycler Tag: 179374
  - 15
    - WMI script I use a script to see if an application is running on a remote machine, this works fine as long as the service "windows firewall/ICS" is not started, MS offers an solution "http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/connecting_through_windows_firewall.asp" but it doesn't work for me. Can anyone help me..? Tag: Recycler Tag: 179373
  - 16
    - Regular Expression With this script: str1= "BEGIN BEGIN BEGIN BEGIN" str2= "begin" Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "(\s+|^)" & str2 & "(\s+|$)" Set Matches = regEx.Execute(str1) WScript.Echo str2 & " matches " & str1 & " " & Matches.Count & " times" regEx.Pattern = "\s+|^" & str2 & "\s+|$" Set Matches = regEx.Execute(str1) WScript.Echo str2 & " matches " & str1 & " " & Matches.Count & " times" Whi if i use () in the Pattern property I see only 2 occurences? It's right? Ciao, Alessandro Tag: Recycler Tag: 179372
  - 17
    - object required 'Wscript" when trying to run this code in an hta file I keep getting the error : --- object required "Wscript" --- what's causing this error ?? ====== code ====== <html> <head> <title>HTA Tools</title> <HTA:APPLICATION ID="objHTATools" APPLICATIONNAME="Tools" SCROLL="yes" SINGLEINSTANCE="yes" WINDOWSTATE="normal" > </head> <SCRIPT Language="VBScript"> Set WshShell = CreateObject("WScript.Shell") Set Args = WScript.Arguments '<== error on this line If Args.Count >= 1 Then vPath = Args(Args.Count-1) End if ...... Tag: Recycler Tag: 179369
  - 18
    - WshScriptExec Status issue Hi, Anyone have any ideas why the following code snippet will never exit the status polling loop? The only way I can get it to break out of the loop is by uncommenting the readline statement. Has me a little puzzled. Cheers Kristian --- Set g_oShell = WScript.CreateObject("WScript.Shell") Set g_oExec = g_oShell.Exec("cmd /c dir %windir%") Do While g_oExec.Status <> 1 ' g_oExec.StdOut.ReadLine() WScript.Sleep(50) Loop WScript.Echo vbNewLine WScript.Echo g_oExec.StdOut.ReadAll() Tag: Recycler Tag: 179366
  - 19
    - Event in WMI When I register some events (event consumers & event filters) to WMI repository, process 'wmiprvse.exe' (Wins XP) or 'winmgmt.exe' (Wins 2K) occupies lot of CPU all the time. Is there anyway to reduce these process' percent of occupation of CPU? Tag: Recycler Tag: 179364
  - 20
    - Chart Type Info Hello everybody, Posting for the first time. I am using Vb Scripting to generate some charts based of data from SQLServer. I was able to get all the charts displayed properly. However, I have a question with regards to way how the lines in the charts are being displayed. I will try to explain my problem using excel terminology. Lets say for the grid of values shown below, Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 12 34 08 45 19 23 33 17 53 23 11 09 It plots the graph normally. But if the values are like this: Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec 12 34 08 45 23 33 17 23 11 09 The places where the values are not there, the chart is defaulting to zero, which I don't want. I want the line chart to end at April and then continue from June and end at August, then continue from October. I tried several different chart type values, but didn't get the functionality I was looking for. Does anyone have any ideas to resolve this issue? Thanks, Prasad Yarlagadda Tag: Recycler Tag: 179360
  - 21
    - Close Specific Application Hi Folks, Can I close a specific application knowing only its executable name? I need it to be closed in a correct way, not the "terminate" kind of way, something similar to pressing the [X] button. How? Right now I can only close an application through "Sendkeys %{F4}", but I can't tell if the application I'm closing is the one I want to close. Regards, -- Beto Tag: Recycler Tag: 179356
  - 22
    - Create a "SUB CHILD" for XML File Not sure exactly how to do, I have the XML file being created, but I am missing a node that should have the other elements as "SUB CHILD" under it - the file should look like <?xml version="1.0" encoding="utf-8" ?> - <ImportPayments> - <Payment> <ReceiptType>1</ReceiptType> <ReceiptMethod>2</ReceiptMethod> <ReceiptRef>1834</ReceiptRef> <ReceivedFrom>1</ReceivedFrom> <AccountNumber>6116242</AccountNumber> <Amount>191.8</Amount> <BankAccountID>12</BankAccountID> <DeclineReinstatement>0</DeclineReinstatement> </Payment> </ImportPayments> But mine looks like - I am missing the PAYMENT Node - can anyone tell me how to get that added or am i just being totally stupid - I would lean toward the latter LOL - Below is a copy of the script <?xml version="1.0" encoding="utf-8" ?> - <ImportPayments> <ReceiptType>1</ReceiptType> <ReceiptMethod>2</ReceiptMethod> <ReceiptRef>1834</ReceiptRef> <ReceivedFrom>1</ReceivedFrom> <AccountNumber>6116242</AccountNumber> <Amount>191.8</Amount> <BankAccountID>12</BankAccountID> <DeclineReinstatement>0</DeclineReinstatement> </ImportPayments> Dim xmlDoc, rootEl, p Dim fieldReceiptType, fieldReceiptMethod, fieldReceiptRef, fieldReceivedFrom Dim fieldAccountNumber, fieldAmount, fieldBankAccountID, fieldDeclineReinstatement Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.preserveWhiteSpace = True 'Create a root element and append it to the document Set rootEl = xmlDoc.createElement("ImportPayments") xmlDoc.appendChild rootEl Set fieldName = xmlDoc.createElement("Payment") Set fieldReceiptType = xmlDoc.createElement("ReceiptType") Set fieldReceiptMethod = xmlDoc.createElement("ReceiptMethod") Set fieldReceiptRef = xmlDoc.createElement("ReceiptRef") Set fieldReceivedFrom = xmlDoc.createElement("ReceivedFrom") Set fieldAccountNumber = xmlDoc.createElement("AccountNumber") Set fieldAmount = xmlDoc.createElement("Amount") Set fieldBankAccountID = xmlDoc.createElement("BankAccountID") Set fieldDeclineReinstatement = xmlDoc.createElement("DeclineReinstatement") fieldReceiptType.Text = "1" fieldReceiptMethod.Text = "2" fieldReceiptRef.Text = "1834" fieldReceivedFrom.Text = "1" fieldAccountNumber.Text = "6116242" fieldAmount.Text = "191.8" fieldBankAccountID.Text = "12" fieldDeclineReinstatement.Text = "0" rootEl.appendChild fieldReceiptType rootEl.appendChild fieldReceiptMethod rootEl.appendChild fieldReceiptRef rootEl.appendChild fieldReceivedFrom rootEl.appendChild fieldAccountNumber rootEl.appendChild fieldAmount rootEl.appendChild fieldBankAccountID rootEl.appendChild fieldDeclineReinstatement 'Add an XML processing instruction 'and insert it before the root element Set p=xmlDoc.createProcessingInstruction("xml","version='1.0'") xmlDoc.insertBefore p,xmlDoc.childNodes(0) 'Save the XML file to the c directory xmlDoc.Save "c:\trash\test.xml" 'Release all object references Set xmlDoc = nothing Set rootEl = nothing Set fieldReceiptType = nothing Set fieldReceiptMethod = nothing Set fieldReceiptRef = nothing Set fieldReceivedFrom = nothing Set fieldAccountNumber = nothing Set fieldAmount = nothing Set fieldBankAccountID = nothing Set fieldDeclineReinstatement = nothing Set fieldName=nothing Set p = nothing Tag: Recycler Tag: 179352
  - 23
    - IPPrinter Script is not workding VBS clients all work on XP machines,and we do direct IP printing. Setting up a print server is not an option I want the script to add the IP port, driver, and printer object. If the machine already has the driver it works fine but if not, I get the same error message: Line 34; char 1; error: Generic failure; code 80041001; source SWbemObjectEx here is my script where am i going wrong? strOutput = "" Set objWMIService = GetObject("winmgmts:") Set objNewPort = objWMIService.Get _ ("Win32_TCPIPPrinterPort").SpawnInstance_ objNewPort.Name = "IP_192.168.79.200" objNewPort.Protocol = 1 objNewPort.HostAddress = "192.168.79.200" objNewPort.PortNumber = "9100" objNewPort.SNMPEnabled = False objNewPort.Put_ strOutput = "Printer port IP_192.168.79.200 was created." & VBNewLine strComputer = "." sDir = Replace(WScript.ScriptFullName, WScript.ScriptName, "") Set objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objDriver = objWMIService.Get("Win32_PrinterDriver") objDriver.Name = "Xerox WorkCentre M55" objDriver.SupportedPlatform = "Windows NT x86" objDriver.Version = "3" objDriver.FilePath = sDir + "\Xerox WorkCentre M55 PCL " objDriver.InfName = sDir + "\\Xerox WorkCentre M55 PCL\XRB55PCL.INF" intResult = objDriver.AddPrinterDriver(objDriver) strOutput = strOutput & "Printer Driver for the Xerox WorkCentre Pro 55 printer was installed. Code: " & intResult & VBNewLine Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ objPrinter.DriverName = "Xerox WorkCentre M55" objPrinter.PortName = "IP_192.168.79.200" objPrinter.DeviceID = "Xerox WorkCentre M55" objPrinter.Network = True objPrinter.Shared = False objPrinter.ShareName = "Xerox WorkCentre M55" objPrinter.Put_ WScript.Echo strOutput & "Xerox WorkCentre M 55 printer was installed." Tag: Recycler Tag: 179351
  - 24
    - Crypt API dll in VBScript ASP I found this bit of code from www.allapi.net on how to use the windows api to do some basic encryption. It works great so I created a dll of the code so I could use it in different applications. So far it has been working great with no problem, until now. I tried to use the dll from a vbscript asp page to encrypt some information that is being passed to the server. I call the dll just like any other dll set variable=server.createobject("DLLName.ClassName") but when I try to use the dll it never returns the encrypted data. I have put in code into the dll to log that it gets initialized and nothing shows in the log. I also created another dll, very simple with only one function, and it works fine. I have this feeling that it might be security related because the dll calls the advapi.dll and kernel in some of its function calls. I have set permissions for IUSR_machine to have full access to the entire machine, is there something else I should try? Any help any of you fine folks out there can give would be greatly appretiated. Thanks, Adam Tag: Recycler Tag: 179350
  - 25
    - VBScript Documentation I search on the web for good example of VBScript and also for explication on the Scripting.FileSystemObject. If any body had i good site to visit for good example . Tag: Recycler Tag: 179348

Is it possible to have a script to run as a local machine's administrator to
empty all local user's recyclers?

If so, could someone guide me (code samples or website referals)

Thank you for the help.

Daniel

Top