Empty Files

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
    - Change Wallpaper Hi I have been using this script to ramdomly change the wallpaper of my windows 2000 clients however When i use this script for clientes running windows xp it does not work the special folder is desktop in windows xp right?? is there any other registry value i need to change?? does it make a diference the language?? instead of desktop to use "escritorio" or something like that?? =============================================0 Option Explicit Dim CompleteImagesFolderPath Dim ImageFileTypes CompleteImagesFolderPath = \\path ImageFileTypes = "jpg" Dim WshShell Set WshShell = Wscript.CreateObject("Wscript.Shell") Dim ImageFiles Dim Final Dim strDesktop Set ImageFiles = CreateObject("Scripting.Dictionary") strDesktop = WSHShell.SpecialFolders("Desktop") call RandomImage(CompleteImagesFolderPath,ImageFileTypes) Function RandomImage(CompleteImagesFolderPath, ImageFileTypes) 'Declare variables Dim FileSystemObject Dim ImageFolder Dim Files Dim i Dim File Dim FileName Dim FileExtension Dim RandomNumber Set FileSystemObject = CreateObject("Scripting.FileSystemObject") If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then RandomImage = "Error 0: Cannot find requested folder" Set FileSystemObject = nothing Exit Function End If Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath) Set Files = ImageFolder.Files i = 1 For Each File in Files FileName = File.Name FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, "."))) If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then ImageFiles.Add i, FileName i = i + 1 End If Next Set ImageFolder = nothing Set Files = nothing Set FileSystemObject = nothing Randomize If ImageFiles.Count = 0 Then RandomImage = "Error 1: Folder no existe" Exit Function End If RandomNumber = Int((ImageFiles.Count) * Rnd + 1) Final = CompleteImagesFolderPath&"\"&ImageFiles.Item(RandomNumber) WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper",Final,"REG_SZ" WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper",Final,"REG_SZ" 'CompleteImagesFolderPath&"\"&ImageFiles.Item(RandomNumber) Set ImageFiles = nothing WSHShell.AppActivate strDesktop WSHShell.SendKeys "{F5}" End Function ============================================================================ === could you help me please?? the script does change the registry values but does not change the wallpaper thanks a lot Tag: Empty Files Tag: 161813
  - 2
    - How to check for non-existant property Hi all, Using VB6 or VBScript: What is the "best practice" method for checking if a property exists or not? For instance oUser.AccountExpirationDate. Thanks. -- Tim Tag: Empty Files Tag: 161809
  - 3
    - create performance counters and categories Either from script or from the Windows Installer libraries, is it possible to programatically create performance counters and categories? I need to put this functionailty into a VBScript custom action and need to try to avoid using the .net route. -EP (sorry for all the newsgroups but each one I posted to I thought was relevant) Tag: Empty Files Tag: 161808
  - 4
    - Opening a word doc as a template and then save into a server with ip address Hi there, I am using htm and asp to write a web applicaiton, which opens a word template located in its sub folder. Then my app will ask the user to input whatever info required and then I will populate the word doc according without opening the word doc to the user explicitly. Then the newly created file will be saved to a server (ip address available). I just wonder how this can be accomplished, if I try to use client-side vbscript, I was not able to use fso.copyfile to copy file from URL to a server. Besides, when I open the word doc, even explicit saying the wordobject is invisible it still ask me question if I want to open it read-only or ....but I don't want the user to see the template at all. If I user server-script in an asp, I won't be able to use server.createobject(word.application), so how can I open the word doc and change it then? Please advice me the best way the get this done... Thanks in advance. Any help will be greatly appreciated. Wanda Tag: Empty Files Tag: 161806
  - 5
    - enumerate folder/File permissions I want to have my script check if the permissions on a folder or file are set for a User, then if not set, set them. I have the script to set the folder/file permissions but how do I use VB to check the next time the script runs that the permissions exist. thanks in advance Tag: Empty Files Tag: 161804
  - 6
    - OnClick (sub is undef) Hi, In my ASP application I try to display an help text a secondary window doing the following and I get the message "ShowHelp is Undefined" What am'I doing wrong? Any help will be appreciated. sub ShowHelp Response.Write "<FORM NAME=FrmHelp " & _ "TARGET=Name>" & _ "<INPUT TYPE=HIDDEN NAME=Language VALUE=" & sLang & "></FORM>" %><Script>window.open("Help.asp","FrmHelp","width=700,height=400, Left=80, top=80, Titlebar=1, resizable=1, scrollbars=1, toolbar=0");</Script><% end sub %> <A HREF="Help.asp" OnClick="ShowHelp"><%Response.Write sHelp%></A></TD> Thank you in advance serge Tag: Empty Files Tag: 161799
  - 7
    - ADODB.Command error '800a0bb9' Hello All, Hoping for a little help. I'm using a parametered sql stored proc to accept and return variables to my asp page. The SP works fine as I've tested it separately. The error and code is below. Fairly new to asp, all comments are appreciated. Thanks in advance, R Here is the error: ADODB.Command error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /gplogout.asp, line 83 Here is my asp: <% Dim objConn Dim objCmd Dim txtUser Dim txtPswd dim txtloggedout 'Form Values txtUser = request.form("txtUserName") txtPswd = request.form("txtPassword")  Set objConn = Server.CreateObject("ADODB.Connection") objConn.open "Provider=SQLOLEDB;Data Source=SQLServer;Initial Catalog=MYDB;User ID=UserName;Password=1234" set objCmd = Server.CreateObject("ADODB.Command") With objCmd .ActiveConnection = objConn .CommandText = "X_storedproc_test" .CommandType = 4 'adcmdstoredproc 'Requires the adovbs.inc file or typelib meta tag 'Add Input Parameters .Parameters.Append .CreateParameter("@UName", adVarChar, adParamInput, 30, txtUser) .Parameters.Append .CreateParameter("@Pswrd", adVarChar, adParamInput, 30, txtPswd) 'Add Output Parameters .Parameters.Append .CreateParameter("@loggedout", adInteger, adParamOutput) 'Execute the function .Execute, , adExecuteNoRecords 'Extract the output parameter which the SP has supplied from the parameter collection' txtloggedout = .parameters("@loggedout") End With 'Update the user Tag: Empty Files Tag: 161792
  - 8
    - Script for removing dialup connections Does anyone have a script for "removing" dialup connections from windows 2K\XP workstations? These connections are configured under the user, not the system. Thansk, Kevin Tag: Empty Files Tag: 161791
  - 9
    - connecting printers on samba in a vbs script? Hello, I am trying to write a vbs script that replaces the need for the user to connect printers by right-clicking a printer and choosing 'connect'. I am using the following code: ' declare variables dim wshnetwork ' set reference to WSH network object set wshnetwork=wscript.createobject("wscript.network") ' add connection to a network printer hpintel on samba (ibm-nas) wshnetwork.addwindowsprinterconnection "\\samba\hpintel" The problem is that the printer is on samba and I am trying to connect to it as a local administrator. The way I would do it manually is connect to \\samba and enter my login and password in the domain and then 'connect' the printer. However, if I were to run the script as an administrator I wouldn't have the opportunity to authenticate with samba. Therefore I tried using the "runas" command to run the script as a domain user. I used the /netonly option. This worked as far as the printers showing up on the "printers and faxes" window. But they appeared with the status: "access denied. unable to connect" and when I tried to print I got the error message: "Cannot print the file. Be sure that your printer is connected properly and use Control Panel to verify that the printer is configured properly." What should I do? Is there any way to simulate connecting to samba as a known domain user and then adding printers? Thanks, Aviv. Tag: Empty Files Tag: 161790
  - 10
    - Password changes on different domains Hi There I have got a user who works between to different Windows 2000 domains (Lets say D1 and D2). Her computer is joined to domain D1. She has also got a user account on D2, but obviously if I join her computer to D2 she will be disjoined from D1 (which we don't want). I have managed to get her working on D2 in all respects but managing her password seems troublesome. I've created a vbscript to change her password on D2, but then she must be logged onto the D2 domain to be able to run it. Does anyone have an idea or a solution for me Regards Tag: Empty Files Tag: 161788
  - 11
    - Sort a dictionary Hi I'm trying to sort a Script Dictionary. It has a string value in the keys & an Object in the items (an AutoCAD layer object in this instance). 1. I can swap the keys (string) values as shown below, but the Items (object) won't budge Where an I going wrong?. 2. is there a way to swap both Keys/Items in one go ie Dict(0)=Dict(5) instead of doing them separately? 3. I've seen a routine on MSN for sorting a dictionary http://support.microsoft.com/default.aspx?scid=kb;en-us;246067 That sorts a string based dict, but a) I don't know how to change it so it can accept objects & b) it creates arrays to do the sorting which confuses me because I thought = Dict.Keys returns an array anyway. Thanks in advance Dave F. Sub test() Dim LayObj As AcadLayer Dim DictSort As Variant Dim Dict As New Dictionary ' script dictionary (scripting runtime ref) Dim KK As Variant, It As Variant With ThisDrawing For Each LayObj In .Layers Dict.Add LayObj.Name, LayObj ' store it - Key:Layer Name, Item: Layer Object Next ' Lay End With ' thisdrawing KK = Dict.Keys It = Dict.Items ' these are OBJECTS not strings KK(0) = KK(5) 'swaps the keys It(0) = It(5) End Sub Tag: Empty Files Tag: 161786
  - 12
    - Problem of MSXML2.XMLHTTP Hi, I have a server side of asp which generate rows of data from DB in real time (around 1500KB of data, 4000 row of data) my client side get the result using MSXML2.XMLHTTP when the result is very small, e.g. 1 row, the result is as expected. However, when the rows number grow , e.g. 4000 row, only the first 2 row data is back. is this the limit of MSXML2.XMLHTTP? Here is my code.... '------------------------------------------------- Set xhttpPost = creatobject("MSXML2.XMLHTTP") With xhttpPost .Open "GET", url, False .send "" Do While .readyState <> 4 DoEvents Loop wscript.echo .responseText End With Set xhttpPost = Nothing Tag: Empty Files Tag: 161785
  - 13
    - Permission denied: 'GetObject' while trying to get list of processes on remote comp. This is the code, pasted from "The Portable Script Center": strComputer = "JEFF" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'Database.exe'") If colProcesses.Count = 0 Then Wscript.Echo "Database.exe is not running." Else Wscript.Echo "Database.exe is running." End If I get Permission denied: 'GetObject' on line 2 of this script. Why is this happening, and how can I fix it? Drazen Tag: Empty Files Tag: 161784
  - 14
    - Displaying xl-worksheets in IE Hi I have a application whith three frames. In the third frame ("Results") I want to display an excel-generated report (the report is generated through VBA macros, which run when the template is opened (auto_open sub), collecting the data from an SQL Server). Normaly, in Excel, the template creates an instans of itself (resultning in an .xls-file). I want my application to do the same, that is, I want the template (xlt) to create an instans (xls), load the data into the xls-file and then display the xls-report in the fram "results". I'm quite new to VB-Script and I've only manged to come up with the following code, in report.asp: <SCRIPT LANGUAGE=VBScript RUNAT=Server> Dim xlApp Dim xlWb Dim xlSheet Set xlApp = CreateObject("Excel.Application") Set xlWb = xlApp.Workbooks.Open("c:\data\report.xlt") Set xlSheet = xlWb.Worksheets(1) xlSheet.Name = "Report1" xlApp.Visible = True Set xls = Nothing Set xlb = Nothing Set xlapp = Nothing </Script> This doesn't work. I think I don't get any error messages, though, and the CPU on the server is working for about 5 secs, so I think the report is generared but not displayed on screen(?). Excel 2000 is installed on the server. Can anyone help me please? Regards PO Tag: Empty Files Tag: 161778
  - 15
    - edit text entries... I have a batch file that reads a text file and displays certain strings back using the 'findstr' command. Some strings that the batch returns contain HTML code. The string looks something like this: Important text1: <A HREF="/cgi-bin/blah/blah>Important text2</A> I was wondering if there is a way to create a vbs file to remove the HTML code from the text file. Any help will be appreciated ;) -ghettocow Tag: Empty Files Tag: 161774
  - 16
    - Parse Veritas Backup Logs to Excel I need to parse portions of my Veritas backup logs (BEXXX.TXT) to an Excel spreadsheet to which I can apply pivot tables to analyse my backups. I would like to use Windows scripting if possible. Any Ideas? Please post here, no emails thx. Thanks in advance. Tag: Empty Files Tag: 161772
  - 17
    - Log all Sucsessfull and Failed Logins Im looking for a script that will read the Security Event Log on a w2k3 server from the previous day and email to an email address. I can't seem to get it the qry to return both the previous days Successful / failed logins along with the date qry. Does anyone know of a script or can point me in the right direction Regards Don Grover dgrover@assoft.com.au Tag: Empty Files Tag: 161769
  - 18
    - Space inside a command line. Good day, Im trying to create a script that runs a command line with an argument the problem is that the argument has space in side it, and im having trouble working out the command line, here is the command with the argument: Set WshShell = WScript.CreateObject("WScript.Shell") rCommand = "runas /user:Domain\suorenz "mmc %windir%\system32\management.msc"' WshShell.Run rCommand, 0, TRUE Thanks in advance -- Oren Zippori eAladdin.com Tag: Empty Files Tag: 161762
  - 19
    - Microsoft Script Debugger in Windows 2003? Has the Microsoft Script Debugger been discontinued in Windows 2003. It used to be installed in Windows Components, but I don't see it there anymore. Is it installed elsewhere? JohnL L Tag: Empty Files Tag: 161756
  - 20
    - WMI win32 access denied workgroup NOT domain 'microsoft you're killing me!' O.K., desperation time, before I start I am not talking about a Domain here. I am only talking about a simple home workgroup. I have WMI security working without trouble at work in our corporate domain, but can't work out why I can't get it to work at home where I do not want a domain. Here is my problem. If I use [Computer Management][Services and Applications][WMI] and bring up the properties on a local machine, it works fine. If ? however ? I <right-click> on [Computer Management] and then connect to any other computer in my workgroup; then attempt to get the properties of WMI, I simply receive the message that "Failed to connect to <computer name> because Win32: access is denied" I have made absolutely sure that the local administrator's accounts are exactly the same name and password. I have made absolutely sure that the remote machine's ?WMI Security settings' for the local administrator are maxed out and inherited from "Root" namespace down. I have tried many other bits and pieces, but simply can't get this to work. In my Corporate Domain at work, security is set through ?domain security objects' and I have no trouble writing scripts that use WMI on remote machines. Just can't get it to work at home and it is driving me crazy. Please any help on what to try? Because I can't get the bloody authentication to work, I can't get Microsoft's WMI explorer to return structures on computer in my home network other than the one I am working on, which is really a pain in the #$%^rse. Tag: Empty Files Tag: 161752
  - 21
    - Open network connection (VPN) with vbscript Alex, both of these are wonderful suggestions, a lot further than I'v ever got in trying to resolve this issue, but still a little flawed. When run, the VPN connection opens and then asks to connect or cancel. After you connect, the 2nd script you have suggested, pops up with bunch of windows which I'm trying to avoid. When you select OK o those windows, the VPN connection will then initiate a close connectio box with the option to stay connected. If you select to stay connected then it's fine. All of these windows will deffinitely confuse m clients. Is there a better way, or even a way that will halt th script indeffinitely without asking for user input, so that the entir VPN session can go along? Thanks again for all your help. Ian Alex K. Angelopoulos [MVP] wrote: > *Alex K. Angelopoulos [MVP] wrote:[color=darkred] > > grizzly wrote: > > After looking through a few old Bakken & Harris posts I decided t > write a > more generic method for handling items that "toggle" and may tak > time to do > so. Here's a function which can be used for any addressable shel > namespace > item; you simply supply it with the namespace index (49 for network > connections), the item name ("VPN Connection" in our case) and th > verb > ("C&onnect" for English language systems). > > Option Explicit > Dim t0: t0 = Timer > WScript.Echo "Success?", _ > ToggleShellItem(49, "VPN Connection", "C&onnect") > WScript.Echo timer - t0 > > Function ToggleShellItem(ByVal namespace, ByVal item, ByVal verb) > ' Use a shell folder item verb which disappears after use. > ' Examples are Connect/Disconnect, Enable/Disable pairs. > ' namespace: numeric ID of the namespace > ' itemName: name of the item when viewed in the namespace window. > ' verbName: verb to activate. > ' The function will find the verb in the item, DoIt, wait > ' until the verb "disappears" from the verb list, then return True. > ' If the item or verb is not found, returns False. > ToggleShellItem = False > Dim sa: Set sa = CreateObject("Shell.Application") > Dim items, i > Set items = sa.Namespace(namespace).Items > For i = 0 to items.Count - 1 > If LCase( items.Item(i).Name) = LCase(item) Then > Dim target: set target = items.Item(i) > Exit For > End If > Next > For i = 0 to target.Verbs.Count - 1 > If LCase(target.Verbs.Item(i).Name) = LCase(verb) Then > target.Verbs.Item(i).DoIt > Do While LCase(target.Verbs.Item(i).Name) = LCase(verb) > WScript.Sleep 500 > Loop > ToggleShellItem = True > Exit For > End If > Next > End Function - grizzl ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Empty Files Tag: 161751
  - 22
    - DOM explorer utility Is there an utility available for exploring document object model of currently running IE's (browse all the DOM properties/values)... I know that there's "DOM Explorer" available for FireFox, but need a similiar utility for IE... Drazen Tag: Empty Files Tag: 161748
  - 23
    - Understanding Image Source I am trying to display either a .bmp or .jpg file. This is how we are geetting our Geography questions. I have the following code. It is just a little test script to try to get something to work. <A href="/Tivities/CPAGEU.asp"><Img Src="C:\ArCdMaps\KYAC.bmp" Height="225" Width="475" Usemap="#USA"> <A href="/Tivities/CPAGEU.asp"><Img Src="C:\ArCdMaps\KYAC.gif" Height="225" Width="475" Usemap="#USA"> <A href="/Tivities/CPAGEU.asp"><Img Src="C:\ArCdMaps\KYAC.jpg" Height="225" Width="475" Usemap="#USA"> Only the .gif image displayes. Yes all three images are in the directory. It is just that we get the graphics from the test center in Chattanooga. Thanks in advance for any explanation! Len Tag: Empty Files Tag: 161744
  - 24
    - Find Disabled accounts and then enable accounts Hi 1.- Is there a script that can find all the accounts that are disabled in an OU?? 2.- Is there a script that enables those accounts?? Greetings Tag: Empty Files Tag: 161743
  - 25
    - datatype mismatch error any ideas please Hi. Winxp/iis5/dwmx/asp/vb/msaccess I'm trying to update a record based on a cookie existance. I'm getting this error when trying to load the page Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /affiliates/set.asp, line 19 I've tripple checked the data types in the database and can't see anything wrong. The field is a simple hit counter and is set to number/long integer The code for the hit counter is as follows <% IF Request.Querystring("Affid") <> "" THEN Response.Cookies("Affidcookie") = Request.Querystring("Affid") Response.Cookies("Affidcookie").Expires = Date + 30 END IF %> <% if(request.querystring("affid") <> "") then Command1__varid = request.querystring("affid") IF NOT Request.Querystring("Affid") = "" THEN set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_conn222_STRING Command1.CommandText = "UPDATE affiliates SET hits = hits + 1 WHERE Affid = '" + Replace(Command1__varid, "'", "''") + "'" Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() 'this is line 19 END IF %> Can anyone shed some light on this for me i'm stumped. Dan Tag: Empty Files Tag: 161739
- Next
  - 1
    - Printing From ASP Is it possible to print a web page dynamically using Vb Script? I have several "reports" that are generated by my web site that I would like to print all at once. I could do the looping myself, but how can an indiviudal page be printed? Thanks for the help. Tag: Empty Files Tag: 161736
  - 2
    - Server permission problems and SchAgent Hi All, Using Win2k sp3 Perl 5.8.1 Apache2 I was using a CGI script in an Apache2/Win2k network to browse files and filetime info on the server and across the network. Using the default account for Apache2, I succeeded on the web server, but got bad file descriptors when going across LAN. It was the usual permission trouble. Since I was using Perl CGI I ran over to CPAN and looked for a module to do a CreateProcessWithLogon or some such beast. I couldn't get any of several modules to work. Then I realized that the trusty Scheduler.SchAgent might be the trick.=20 I ended up using a named pipe. The CGI script fires a Pipe client (setup as a Scheduled Task) to read the x-lan file, and write to the named pipe.=20 The info was read back from inside the CGI script=20 running a Pipe server. The CGI script used the SchAgent object to Activate the desired Scheduled Task, give it the right command line, then "Run" it.=20 It works because the web server is running in the SYSTEM account, and the fired Scheduled Task is running as the Administrator. I setup the task before hand with username and password I need, but when I "Run" from CGI its not necessary to supply the credentials again :) Here's a simple Perl demo http://4.11.211.97/PLPipe.zip regards, tlviewer Tag: Empty Files Tag: 161732
  - 3
    - InternetExplorer.Application methods and properties reference Where can I find more information about properties and methods available on "InternetExplorer.Application" object? If I want to use "InternetExplorer.Application" to the fullest, which book or web reference would you suggest? Another quick question: how to attach to *EXISTING* (so the script does not create its own InternetExplorer.Application object) instance of Internet Explorer and control it via script? Drazen *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Empty Files Tag: 161731
  - 4
    - Weird The very weird thing is, in my testing, I added a line "RAISERROR('Test',16,1) at the beginning of the stored procedure, and then after the execution, the vbscripts catches the error. If I move the line "RAISERROR.." to any place within the stored procedure after a sub-stored procedure has been called, the vbscripts code could not catch the error. Note that the error is caught by Query Analyzer fine, no matter where I put the RAISERROR. Tag: Empty Files Tag: 161726
  - 5
    - Script in Environment varaible How can I set several environment variables with a VB script. These will be system Environment variables. Thanks Paul Tag: Empty Files Tag: 161724
  - 6
    - Any Way to Change Source name in Event Viewer I'm using "WSHShell.LogEvent" and in the event viewer it says "WSH" as the source. I was wondering if there is a way to change that title? Preferable to the name of my script. Thanks in advance, Craig. Tag: Empty Files Tag: 161720
  - 7
    - Start services using Vbscript within MOM Hello, I like to start the services if they are stopped using MOM, any clue? Could I alter the script that excist in mom to do that? Tag: Empty Files Tag: 161719
  - 8
    - How Do I Handle Specific Errors I have a simple configuration section in which I set the array size, and therefore want to be able to handle the error:Subscript out of range:. As I have "On Error Resume Next" set, which I require I want to be able to capture this error and write it out to my logfile. How do I do this? Thanks in advance, Craig. Tag: Empty Files Tag: 161718
  - 9
    - mass reset password Hi Is there a way to mass change passwords for all the users in an OU of the AD with a scritp I hava a .txt file with the username and new password and I know the OU Can you help me please?? Tag: Empty Files Tag: 161713
  - 10
    - Automatically scrolling IE window to show last lines added I created a script which retrieves values from registry keys on all networked (online) computers in our domain. For that purpose some kind of progress indicator was needed. This is the *example* how that was made: ---START--- Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width = 800 objExplorer.Height = 600 objExplorer.Left = 0 objExplorer.Top = 0 Do While (objExplorer.Busy) Wscript.Sleep 200 Loop objExplorer.Visible = 1 objExplorer.Document.Body.InnerHTML = "Progress..." Do While 1=1 objExplorer.Document.Body.InnerHTML = objExplorer.Document.Body.InnerHTML & "<BR>" & "some text..." Wscript.Sleep 300 Loop Wscript.Quit ---END--- When this script is run, Internet Explorer is started and lines with text "some text..." are added one under another. When there is too much text to fit on the screen, vertical scrollbar is automatically created and text is scrollable. The question is how to modify the script so that when lines of text are added to the bottom the window automatically scrolls to show the last line added to log, without user having to scroll manually to see the newest lines? Drazen Tag: Empty Files Tag: 161711
  - 11
    - populating a list of available printers (client-side) On the Internet, I found the following simple snippet of VB code that creates a list of available printers: strList = "The following printers are available: " Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set PrinterList = objWMIService.ExecQuery("Select Name from Win32_Printer") For Each Printer In PrinterList strList = strList & Chr(13) & Trim(Printer.Name) Next MsgBox strList It works fine under VB 6.0, but not as a client-side script running in an ASP page under the browser (IE 6.0 in my case) - it fails at the GetObject. Is there are way to get this to work as client-side script (or is there an alternative approach that will work and accomplish the same goal?) Any insight or solution would be much appreciated!! Thanks in advance ... -- Trevor Feldman Tag: Empty Files Tag: 161708
  - 12
    - Extracting from Security Log Hi Scripting Experts, I'm trying to write a script to log Domain Logon Failures, rather than trawling thru our DCs logs. For the moment I'm happy with getting output, rather than just logging to a file. So far I have is the following which outputs the number of Domain Logon Failures as indicated by Event ID 675. My question - how do I go about extracting the username and time the event was logged? Scripomatic doesn't seem to mention this for the Win32_NTLogEvent collection. Here's my script so far, help much appreciated. 'VBScript to check the Security Log for Logon Faillures strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Security)}!\\" & _ strComputer & "\root\cimv2") Set colLoggedEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where Logfile = 'Security' and " _ & "EventCode = '675'") Wscript.Echo "Domain Logon Failures: " & colLoggedEvents.Count Tag: Empty Files Tag: 161705
  - 13
    - End running screensaver with vbscript?? Please Help Is there a way to end a screensaver from a vbscript? I have a vbscript scheduled to run at 9:00 pm via the windows task scheduler. One of the first things i want the script to do is to kill the running screensaver. How can i do this? I have tried using the WshShell.SendKeys method to send keystrokes to the screen, i have tried running the kill.exe screensavername.scr command and still the screensaver does not end. Tag: Empty Files Tag: 161696
  - 14
    - How to use response.write (quotation problem) please help! Hello, I am trying to use the response.write method and I have two simple questions. Why do I see it two forms of response.write? 1. Response.write("<HTML CODE>") 2. Response.write "<HTML CODE>" (sometimes with "(" sign and sometimes without) Second question: Using this method you need to use quotation marks at start and at the end. What if my HTML code uses quotation itself? Can I have something like that Response.Write("<FONT face="Geneva, Arial, Helvetica" size=2>") The problen is how will the server know which " sign is the last one? Is there any article about this subject or something? Thanks in advance Tag: Empty Files Tag: 161693
  - 15
    - populate 2nd combo box based on value selected in 1st hi, would anyone be able to tell me how to dynamically populate a 2nd combo box based on a value selected in the 1st combo box? I'm thinking that it must be a onchange event from the first combo box but i don't know what the event is. the values will be pulled from a database and i'm creating an ASP page so vbscript or javascript would be useful Tag: Empty Files Tag: 161692
  - 16
    - Can't execute WSH script from bat file We're trying to trigger execution of some WSH scripts from a batch file which in turn is called from an ASP script. The ASP code looks like: <% Dim oShell,sResult,sPath Set oShell = Server.CreateObject("Wscript.Shell") sPath= server.MapPath("test.bat") sResult = oShell.run(sPath, 0, FALSE) 'asynchronous Response.Write sResult %> The batch file code looks like: cd <Full path to application directory> FACSV.wsf E NonFACSV.wsf E Now, the problem is that the batch file executes correctly, but both the WSH scripts are not executed. But if the scripts are executed on the Windows 2000 command line directly, they work ok. The same setup works ok on our test server, but not on client's server having similar configuration. What can be the problem? Thanks in advance. Tag: Empty Files Tag: 161691
  - 17
    - Listing Windows Components from script Hello, I've started a project at Sourceforge, it's a vbscript which goal is to simplify the task of documenting Windows servers. It collects information through WMI and writes the results to a Word file. I'm able to get quite a lot of information from the target computer, and it looks quite nice at present. I would however like to be able to list Windows Components, so I can include IIS, DNS, DHCP and such in the documentation. So my question; does anyone know of a way to get this information with a script? The project is called SYDI (Script Your Documentation Instantly) and is found here: http://sydi.sourceforge.net/ It would also be nice with some feedback on the script, so please test it :) Best regards Patrick Tag: Empty Files Tag: 161687
  - 18
    - Is it possible to get the name of a variable? For error trapping on an asp page, I'd like to print out the name of a variable if I find it to be null, a zerolength string, etc... for example: aBadString = "a" aBadString = "" If CheckForZeroLengthString(aBadString) then Response.write("The variable with a zero-length string is: " & aBadString.name) you can't do aBadString.name, so how do you get a variable's name? Thanks, Mike Tag: Empty Files Tag: 161686
  - 19
    - search a text file for certain strings... help! what i'm trying to do is to get a .vbs file to search through a text file and find certain strings throughout the text file and then automatically put them into the clipboard... any help will be appreciated ;) ghettocow Tag: Empty Files Tag: 161684
  - 20
    - Number of unread e-mails displayed by login script - Exchange 2003 We are running Win 2k and Win XP workstations in an SBS 2003 environment. A VBScript login script maps network drives and displays a dialog with current time. I'd also like have that dialogue box show the user how many unread e-mails are in his/her Exchange 2003 inbox. Displaying information about number of unresolved tasks and or appointments for the day would be nice also but not needed. I'm not a super script wiz but can piece together bits that I come across. Any help would be appreciated. Thanks in advance, Shawn Witt Tag: Empty Files Tag: 161683
  - 21
    - ADO Error catching Hi All, I currently am using the following in an attempt to catch and display custom errors (VBScript/Classic ASP): Private Sub PublishError (number, section, message) On Error Goto 0 Call Err.Raise(number, section, message) Err.Clear End Sub I then call it something like: If Not IsObject(i_objConnection) Then PublishError 1, "Database Connection", "Connection object not initialised" This works well for me until I try to catch a connection error as below: On Error Resume Next i_objConnection.Open strConn If Err.Number <> 0 Then PublishError 2, "Database Connection", "A connection to the database could not be made, check strConn" End if The strange thing is that if I Response.Write Err.Source and Err.Description directly after calling PublishError I get the raised error properties. I would appreciate a fresh pair of eyes on this, any help appreciated. Colin Tag: Empty Files Tag: 161681
  - 22
    - need a solution to a common problem brief overview of situation: programs on removable disk (zip) that use ini files to store configuration, which includes where to look for other configuration information. the problem: public computer labs have different drive letters for the removable disk drive, so I have to reconfigure the software every time I use a computer with a different letter for the drive. solution (the part I'm hoping somebody here can help me with): write a script that detects what drive letter the disk is at, and then replaces all the file paths in the ini files with the corrected drive letter (i.e. search for d:\ replace with 'driveletter':\ The only part of the file path that ever changes (both to the ini file, and IN the ini file) is the drive letter. I've found bits and pieces of what I'd need to do this, except how to do a search and replace on multiple files in multiple locations. here's the basic concept I've got so far: OldLetter="d" DriveLetter = 'driveletter of disk' !--look by volume serial, disk name, or disk properties open DriveLetter:\filepath1 for editing find OldLetter":\" replace with DriveLetter":\" close DriveLetter:\filepath1 open DriveLetter:\filepath2 for editing find OldLetter":\" replace with DriveLetter":\" .... Can somebody help me out? Tag: Empty Files Tag: 161679
  - 23
    - Active Directory OU Help Hey there. So I'm trying to write a script that will create 2 securit groups within an OU named %OU Name% - Site Administrators and %OU Name - Site Users. But I'm not having much luck. Here's what I've got so far: Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2 Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000 Set objOU = GetObject("LDAP://OU=Groups,OU=ATGA,OU=Sout Eastern,OU=Locations,DC=CORVEL,DC=com") Set objGroup1 = objOU.Create("Group", "cn=ATGA - Site Administrators") objGroup1.Put "sAMAccountName", "ATGA - Site Administrators" objGroup1.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or _ADS_GROUP_TYPE_SECURITY_ENABLED Set objGroup2 = objOU.Create("Group", "cn=ATGA - Site Users") objGroup2.Put "sAMAccountName", "ATGA - Site Users" objGroup2.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP O _ADS_GROUP_TYPE_SECURITY_ENABLED objGroup1.SetInfo objGroup2.SetInfo Basically with the way it is now, I have to go through and replace th OU name 5 times, which isn't exactly a time saving process. Can anyon help me optimize it, or make it work better? Thanks - Aumi ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Empty Files Tag: 161674
  - 24
    - Problem accessing HKEY_USERS on remote machine via WMI What I'm trying to do is access HKCU on remote machine. Particulary, I'm trying to read HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3 key, entry named "1001". First I determine what user is currently logged on to the machine, then I retrieve users SID and then i access HKEY_USERS/SID branch. Thats where problems start. Here is the script: ---START--- strComputer = "JEFF" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colComputer = objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputer strUlogiraniKorisnik = Mid(UCase(objComputer.UserName),InStr(UCase(objComputer.UserName),"\")+1) strDomena = Mid(UCase(objComputer.UserName),1,InStr(UCase(objComputer.UserName),"\")-1) Next Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_UserAccount where name='" & strUlogiraniKorisnik & "' and domain='" & strDomena & "'",,48) For Each objItem in colItems strSIDKorisnika = objItem.SID Next Const HKEY_USERS = &H80000003 Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = strSIDKorisnika & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3" strEntryName = "1001" objReg.GetDWORDValue HKEY_USERS,strKeyPath,strEntryName,dwValue Wscript.Echo "Value is:" & dwValue ---END--- I know that Windows 2000 with SP4 has bug explained on http://support.microsoft.com/?id=817478 but is there another way to access HKCU on remote machine? Drazen Tag: Empty Files Tag: 161671
  - 25
    - Need Suggestions for Technical Documentation Tool Hi, I am looking for suggestions for a Technical Documentation tool for our IT department. What are people using? After a short search on the internet, I was able to find a decent product at http://www.livingaddress.com/livdoc/eng/livingdoc.asp named LivingDoc 2.5. I evaluated it for 2 weeks, and although I liked some of its features, I decided against purchasing it because: - the cost seems a little excessive ($1500 for 1 user) for what the product does - there have been no new versions or updates to the product in over 2 years - support is limited to email, and they provide no phone number except for sales The main appeal of this specific tool is that it mostly automates the archiving of the code, and the hyperlinking of an application's different components. See http://www.livingaddress.com/docdemo/ for a sample output. I just have a hard time believing there isn't an alternative to this $1500 tool out there. Any suggestions will be appreciated... Thanks in advance! GSM Tag: Empty Files Tag: 161669

I want to use vbscript to scan a folder and look for empty(zero byte) files.
If found move them to a another folder and Email me of this occurance.

Does anyone have any examples.

TIA...

Top

Re: Empty Files by Miyahn

Miyahn
Mon Aug 16 20:24:03 CDT 2004

"AHartman" wrote in message news:0badnSQWrJu0y7zcRVn-sg@kconline.com
> I want to use vbscript to scan a folder and look for empty(zero byte) files.
> If found move them to a another folder and Email me of this occurance.

Only for the first point.
The following script delete zero byte files from Internet cache folder.
These zero byte files are made by Outlook Express , and left.

Dim aFolder, aFile, WS, CachePath, N
Set WS = CreateObject("WScript.Shell")
CachePath = WS.RegRead("HKCU\Software\Microsoft\Windows\" & _
"CurrentVersion\Explorer\Shell Folders\Cache") & "\Content.IE5"
N = 0
For Each aFolder In CreateObject( _
"Scripting.FileSystemObject").GetFolder(CachePath).SubFolders
For Each aFile In aFolder.Files
If aFile.Size = 0 Then aFile.Delete: N = N + 1
Next
Next
WS.Popup N & " files have been deleted from " & CachePath , 2
Set WS = Nothing

--
Miyahn (Masataka Miyashita) JPN
Microsoft MVP (Office Systems - Excel)
HQF03250@nifty.ne.jp

Top