Show Desktop

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
    - English equivenent of VBS Factory is the an English equivalent of this http://www.astase.com/produits/vbsfactory/?PHPSESSID=3b5c2340886018bdcf2249a04dc807ad cheers Tag: Show Desktop Tag: 203065
  - 2
    - Question about WQL statement Hello All I want to get some information about the AntiVirus program installed on the machine, using WMI. By using wmic and the following command line options, I can get what I expect: wmic /NAMESPACE:\\root\SecutiyCenter PATH AntiVirusProduct GET ALL In my WMI client application, I want to use the equivalent WQL statement. What is the equivalent WQL statement? Best Regards Ali Majdzadeh Tag: Show Desktop Tag: 203061
  - 3
    - Read value from some other webpage I'd like to read a value, i.e.the value in a text field with the name='TempInLondon' on the remote page: "www.bbc.com/ weather.htm" (example only, this page does not exist), and use this value in my page, 'www.dot.com/allthewheater.asp'. Is this possible in any way by using scripting or other tech.? A Tag: Show Desktop Tag: 203060
  - 4
    - Design Month "2" into "02" Hi, I have a problem with my VBS. I want to replace an old date with the currently date in a special file. The Replace-Funktion works but the replaced month is "2". I want to replace it with "02". Do you have any Idea how this could work? Heute = Date contents=replace(contents, a, Year(Heute) & "-" & Month(Heute) & "-" & Day(Heute)") The result should be: 2007-02-23 Kind regards Tina Tag: Show Desktop Tag: 203058
  - 5
    - How to change Encoding and CSS in the running HTA? Is it possible to change the Encoding and CSS in the running HTA? For example, user presses the button to change current Encoding or CSS. Tag: Show Desktop Tag: 203051
  - 6
    - Null Error in Script when Saving Distribution List for Outlook I have a script that loads people into a users outlook contact list. It also creates distribution lists by state and then adds everyone into the appropriate distribution list by state. This runs fine for a while but then fails after about 100 or so people. Here is where it fails: wscript.echo name(i) wscript.echo state(i) wscript.echo j Set currentDistro = objContacts.Items(stateNames(j)) wscript.echo stateNames(j) wscript.echo VbCrLf Set myTempItem = objOutlook.CreateItem(0) Set myRecipients = myTempItem.Recipients myRecipients.Add (name(i) & "-" & state(i)) currentDistro.AddMembers(myRecipients) currentDistro.Save <---- Error occurs on this line, line 141 The output when it fails looks like this: Jane Smith CA 4 CALIFORNIA addCSVtoOutlookTAB.csv(141, 4) (null): Operation aborted <--- from cscript at command line Error Code 80004004 Source (Null) from WSH. It fails at this point EVERY TIME but there is nothing special about this record. Many other people have been successfully added into the CALIFORNIA distribution list, such as Jane Doe CA 4 CALIFORNIA in the output just before Jane Smith. I am confused at what this means. Thanks for any guidance. Tag: Show Desktop Tag: 203034
  - 7
    - List folder and subfolders on remote computers I have this script that I execute from an asp page that lists a computer's C:\Windows subfolders and gives thier size but only shows the first level. I would like to have it list all subfolders past the first level too. It is my understanding that FileObject doesn't work on remote computers so I've been using WMI. Here is my current script and hopefully someone can help. Thank you. Server.ScriptTimeout = 420 '7 minutes Const FOR_WRITING = 2 Const FOR_READING = 1 strComputerName = MyComputer strFileName = "C:\Temp\FolderList.txt" strLogName = "C:\Temp\FolderList.log" 'Connect to FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Only create FolderList.txt if it doesn't exist If objFSO.FileExists(strFileName) Then Response.Write strFileName & " already exists." & "<BR>" Else Set objCreateFile = objFSO.CreateTextFile(strFileName, False) objCreateFile.Close End If 'Open FolderList.txt in write mode and start adding all the local folders to it Set objTextFile = objFSO.OpenTextFile (strFileName, FOR_WRITING) Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputerName & "\root \cimv2") Set colDirectory = objWMIService.ExecQuery ("Associators of {Win32_Directory.Name='C:\Windows'} WHERE AssocClass = Win32_Subdirectory ResultRole = PartComponent") For Each objFolder in colDirectory objTextFile.WriteLine objFolder.Name Next objTextFile.Close 'Open FolderList.txt in read mode and getting ready to replace C: prompt Set objOldFile = objFSO.OpenTextFile(strFileName, FOR_READING) 'Create an instance of the regexp object Set objRegExpr = New regexp objRegExpr.Global = True objRegExpr.IgnoreCase = True objRegExpr.Pattern = "C:" 'With FolderList.txt still open, read it to a varialbe, close it and then 'run the replace expression against the variable strOldFile = objOldFile.ReadAll objOldFile.Close strNewFile = objRegExpr.Replace(strOldFile, "\\" & strComputerName & "\c$") 'Open the same file and write mode overwrite the variable Set objFile = objFSO.OpenTextFile(strFileName, FOR_WRITING) objFile.WriteLine strNewFile objFile.Close 'Open FolderList.txt in read mode Set objOpenFile = objFSO.OpenTextFile(strFileName, FOR_READING) %> <TABLE border="1" Align="Center"> <TR> <TD>Folder</TD> <TD>Size</TD> </TR> <% Do while Not objOpenFile.AtEndOfStream strReadLine = objOpenFile.ReadLine Set objFOL = objFSO.GetFolder(strReadLine) On Error Resume Next strWriteSize = FormatNumber(objFOL.Size,0) strWriteSize = Space(15-Len(strWriteSize)) & strWriteSize & " " Set objFOL = Nothing %> <TR> <TD><% Response.Write strReadLine %></TD> <TD><% Response.Write (strWriteSize) %></TD> </TR> <% Loop %> </TABLE> Tag: Show Desktop Tag: 203024
  - 8
    - Noob needs help. Why doesn't this work? Here's the script: ----------------------------------------------------------------------------------- strTempfile = "go_temp.txt" set objShell = WScript.CreateObject("WScript.Shell") Set UserEnv = objShell.Environment("USER") Const WaitOnReturn = True Const WindowStyle = 1 objShell.run "date /t >" & strTempfile & "", WindowStyle, WaitonReturn ------------------------------------------------------------------------------------ and here's the error: ---------------------------------------------------------- Script: e:\try.vbs Line: 8 Char: 1 Error: The system cannot find the file specified. Code: 80070002 Source: (null) ---------------------------------------------------------- Why? The go_temp.txt is there. In fact, even if I just use the "date / t" command, it gives the same error. Tag: Show Desktop Tag: 203020
  - 9
    - script adding/changing network printers and drivers We have many users that move between locations and need to print at each location. The concept is to put a script on an intra-net page that will allow users to choose their location and then be able to download and/or click a link that will automatically install printers and drivers for the location. I am new to scripting, have some understanding of vbscript, but need help with how/if this might be done. Any help would be very appreciated. Tag: Show Desktop Tag: 203019
  - 10
    - Do...Loop search execution problem Hi- I've patched some code together for a script that will (hopefully) delete an icon when the script detects that the cd the icon is linked to is no longer in the drive. This is part of an HTA file I've created for software support/installation. Problem is that when the script loops that it doesn't actually search again. I've tried playing with the placement of the do...loop stuff but all I've succeeded in doing is getting the "loop without do" error. The rest of the script works great but halfway isn't complete. Here's the offending code... strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_CDROMDrive") For Each objItem in colItems strDrive = objItem.Drive Set colFiles = objWMIService.ExecQuery _ ("Select * From CIM_DataFile Where FileName = 'autorun' " & _ "AND Extension = 'hta' AND Drive = '" & strDrive & "'") Do Do While colFiles.Count = 1 wScript.Sleep 10000 If colFiles.Count = 0 Then Exit Do End If Loop Loop Until colFiles.Count = 0 Set fso = CreateObject("Scripting.FileSystemObject") ThisDrive = fso.GetDriveName(currdir) Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(strDesktop & "\cdrom.lnk") Set objFSO = CreateObject("Scripting.FileSystemObject") strScript = Wscript.ScriptFullName objFSO.DeleteFile(strScript) Next WScript.quit Thanks for the help in advance Tag: Show Desktop Tag: 203015
  - 11
    - Environment Problem Hi, I have patched together a script that creates a share, enumerates the network, adjusts the registry, runs a harddware/software inventory and send the output back to the share. This is primarily to be used in Server 2003 domain environments. In some it works perfectly, but in others the audit runs but the output never gets back to the share. '************************Automated Win Audit****************************************************************** On Error Resume Next '************************Create Network Repository************************************************************ Const FILE_SHARE = 0 Const MAXIMUM_CONNECTIONS = 25 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewShare = objWMIService.Get("Win32_Share") errReturn = objNewShare.Create _ ("C:\Audit", "Audit", FILE_SHARE, _ MAXIMUM_CONNECTIONS, "Hardware/Software Inventories") Wscript.Echo errReturn '**************************Enumerate Computers in Domain******************************************************* Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT CN FROM 'LDAP://dc=domain,dc=com' WHERE objectCategory='computer'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strComputer = objRecordSet.Fields("Name").Value ' ===================================================================== '*************************Set remote Registry to allow script execution**************************************** Const HKEY_LOCAL_MACHINE = &H80000002 Set objRegProv = GetObject("winmgmts:{impersonationLevel=Impersonate}" & _ "!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Windows Script Host\Settings" objRegProv.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"Remote","1" objRecordSet.MoveNext Loop '*******************************Run Inventory******************************************************************* Set ObjShell = WScript.CreateObject("WScript.Shell") ObjShell.Run "psexec \\* -c winauditu.exe cmd C:\winauditu.exe /r=gsoPxNtnzDIbMpmidc /o=PDF /f=\\ComputerName\Audit\",1,True '*************************************************************************************************************** Thanks for any insight on this. Tag: Show Desktop Tag: 203008
  - 12
    - FSO Issues with Unicode I am having a bit of trouble dealing with HTML files that I am manipulating via VBS. There are hundreds of files that I need to parse for specific text in the tables that may exist on the page. I am using IE to load the file, then enumerating the Tags collection to search for what I want, then deleting the table row where the text is found. Here is where the issue comes up. I need to then save the file using FSO at this point. However, every once in a while there will be an issue with saving a file that causes this error : "Invalid Procedure call or argument" I found this page that explains the issue, an unexpected character in an FSO writeline method. http://classicasp.aspfaq.com/files/directories-fso/why-do-i-get-invalid-procedure-call-or-argument.html If I set the Unicode save option, then all is well. However, the HTML files are part of a Microsoft HTML Workshop project that does not support Unicode, I need to save in plain text, but FSO chokes on about 10 files in a thousand. So I thought I would try using an ADO stream and see where that gets me. But I am having a bit of trouble getting the page from the Instance of IE available to the ADO object. Can someone please give me some pointers on how to get a page loaded in an instance of IE to an ADO stream so I can save the beast ? I have been here : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/html/4ead2a13-de31-487e-b826-53f132f25cbb.asp But it is a bit of a challenge to figure out which information is relevant to MSXML2.XMLHTTP and which is relevant to MSXML2.DomDocument. I seem to be able to load the page using DomDocument with the loadXML method, but the DomDomcument does not support the responseBody method so I can not get the information to the ADO stream. Any and all help is appreciated. TIA TDM Tag: Show Desktop Tag: 203007
  - 13
    - VBSCRIPT to get USERNAME / LOGIN Hi! I am new to VBSCRIPT and can't find a way to get the username of the person looking at the webpage. I'm working inside the intranet, so everyone is already logged in. From an ASP page I am sending a email when the user clicks on submit... what I need to do is include the username (login name) of the person sending the form. How can I do this? Thanks a lot for your help!!! Tag: Show Desktop Tag: 203006
  - 14
    - vbscript excel problem I'm able to open and rename an excel file with vbscript but it doesn't run the auto_open macro. Is there a way to make it run? ----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure Usenet News==---- http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups ----= East and West-Coast Server Farms - Total Privacy via Encryption =---- Tag: Show Desktop Tag: 203005
  - 15
    - How to enable/disable field in an HTA I'm looking for some help on an Hypertext application using vbscipt. We have an HTA that has a check box. By default we want several dialog boxes to be disabled (grayed out) so the user cannot imput data into the fields but if the user selects the check box we want fields to become enabled. If the user unchecks the check box after data has been imputed into the fields we want the fields to be cleared and the dialog boxes to once again become disable. I've got the clearing of the fields down (easy) but I cannot find any reference telling me if it is possible to enable/disable fields and if so, how to do so from within the imbedded VBScript. If anyone can provide me with a code snippet on how to do this (if it is possble in the first place), I would deeply appreciate the help. Tag: Show Desktop Tag: 202991
  - 16
    - NOW to character string VBS This should be easy...but it slowing me down! I need to use the Now statement to create a series of numbers. If I use Now, I get 2/21/2007 9:30:02 PM What I want is 221200703002 I want ust the numbers so I can use them as a fairly unique filename. Any ideas? Thanks! Tag: Show Desktop Tag: 202989
  - 17
    - Script Ends Unexpectedly I have an odd behavior with a script that seems to end when it should not. I had an original that worked 100% yet the new version posted bellow, with a few changes, ends before completing a full loop of the sheet (but always at one of two spots). The changes are marked in comments, and the SubDistrict was added, before that code was not in a Sub. The script reads a couple of Excel cells to gather IP and computer name info, then runs some WMI instructions on it. By all that I can see, it should read the Excel sheet till the field with Site Name = 0 length, but it stops after 151 matches. I ran it 3 times, each time it found 151 matches and stoped looping. The sheet has about 500 matches that should have been read, and about 2200 total rows. There is no orphan EXCEL process so that tells me that the actual script exits where it should, but before it reads the whole sheet. There does not seem to be an issue with the If statements of the sub, as it does work for a few Thanks for any help On Error Resume Next Const FOR_READING = 1 Const ForAppending = 8 Dim IP, IPDialUP, Site, CompName Dim strSerial, strRAM, strPrinterName, strDistrict Set WshShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") '**** ADDITION STARTS HERE **** strDistrict = InputBox("Enter your District number.") If IsNumeric(strDistrict) = True And (Len(strDistrict) = 5 Or Len(strDistrict) = 4) Then Call subDistrict Else Reply = msgbox ("District number does not match proper length or is not a number!" & vbCrLf & _ "Please run the script again and re-enter the district number.", 48, "Script Error") WScript.Quit End If '**** ADDITION ENDS HERE **** '**** sub called if District is selected **** Sub subDistrict Set objExcel = WScript.CreateObject ("excel.application") objExcel.DisplayAlerts = 0 Set PathExcel = objExcel.WorkBooks.Open _ ("\\ServerName\Server\Scripts\Reports\Inventory.xls", False, True) r = 2 Do until len(objExcel.cells(r, 4).value) = 0 '**** If the District value in the excel sheet = District variable in the script run ping test '**** Need to convert the values to a String to test against each other **** If CStr(objExcel.cells(r, 3).Value) = strDistrict Then IP = objExcel.cells(r, 19).Value Site = objExcel.cells(r, 4).Value CompName = objExcel.cells(r, 6).Value IPDialUP = (Mid(objExcel.cells(r, 19).Value, 1, 2)) '**** ping the IP listed for the server, run ping window minimized **** Set objShell = CreateObject("WScript.Shell") objExec = objShell.Run("ping -n 2 -w 2000 " & IP, 7, True) '**** and do the remote mods ***** If objExec = 0 Then Set objWMIService = GetObject("winmgmts:\\" & IP & "\root\CIMv2") Set colItemsSerial = objWMIService.ExecQuery("Select * from Win32_BIOS") Set colItemsPrinter = objWMIService.ExecQuery("Select * from Win32_PrinterDriver") Set colItemsComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") For each objComputer In colItemsSerial strSerial = objComputer.SerialNumber Next For each objComputer In colItemsComputer strRAM = objComputer.TotalPhysicalMemory Next For each objPrinter In colItemsPrinter strPrinterName = objPrinter.Name Next Call WriteResults End If End If r=r+1 Loop objExcel.Quit End Sub Sub WriteResults Set RAMResults = objFSO.OpenTextFile _ ("\\ServerName\server\Scripts\ScriptResults\" & strDistrict & "_District_ComputerInfoResults.csv", ForAppending, True) RAMResults.Write Site & "," & CompName & "," & IP & "," & strSerial & "," & strRAM & "," & strPrinterName & "," & Now() & vbCrLf RAMResults.Close End Sub Tag: Show Desktop Tag: 202986
  - 18
    - VBScript excel help Hope this is the right group. I have done some VBScripts in the past, but have a new need for one that's over my head. My understanding that the difference between VBS and VBA is I can edit and run a VBS(just a text file) without opening Excel. I want to automate the process of opening 17 CSV files and place them in the same workbook in their own worksheet. How can I do this with VBS? Thanks for any help! Brian Tag: Show Desktop Tag: 202985
  - 19
    - Script to Select All in Word Hello, I have this script (see below) that opens a new document using a template that I created. Once the doc is opened I Insert a text file into the document. I now need to do a Select All and change the Font Type and Size. Can someone tell me how that is done? **************** Script begins below *********************** Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add("C:\MY SCRIPTS\MYTEMPLATE.DOT") Set objSelection = objWord.Selection objSelection.TypeParagraph() objSelection.InsertFile("C:\My Scripts\test.txt") Tag: Show Desktop Tag: 202979
  - 20
    - Help with remote Access Script Here is what I am doing. Scenario: I have a Domain user logged into a domain computer. This computer is a laptop and is off line of the domain. The user creates a VPN connection back. Keeping in mind that while on DNS I do not have DNS resolution so I need to us all IP addresses unless i make an entry in the local host file. I want to create a script on the desktop to map the users home network drive. I know how to script for other drives. I would like a script to look and see that the user is a domain user logged into a domain account and then map its home drive. Domain= ifms.local domain IP= 10.20.12.3 username=hsimpson UNC to home Drive=10.20.12.3\users$\hsimpson What would the script look like? Tag: Show Desktop Tag: 202978
  - 21
    - Error 800a0401 In the statement below, being used in an asp application, I am trying to define EndDate as the date 2 months prior to today's date; but obviously I have a syntax error. Enclosing the "m" in double quotes doesn't help. Thanks in advance for any help on this. Rick Microsoft VBScript compilation error '800a0401' Expected end of statement /calendar/results_event_type_2005.asp, line 23 Recordset1.Source = "SELECT * FROM Events WHERE EventType = '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND EndDate >= DateAdd("m",-2,Date()) ORDER BY StartDate ASC" -----------------------------------------------------------------------------------------------------------------------------------------^ Tag: Show Desktop Tag: 202975
  - 22
    - Print to a specific printer Hi, I'm trying to write a script that'll parse a database and print a graphic header then text from the database to a printer also selected from the database. I'm not sure if I can do this through DTS or VBS or what, but I was wondering if anyone had a suggestion... Thanks -- Alex Tag: Show Desktop Tag: 202974
  - 23
    - Changing Target Path of SpecialFolders("My Documents") I've been looking all over the net and can't seem to find any example of changing the path (target) of the My Documents folder. There's plenty of examples that show you how to display the current path of My Documents or place a file or short into My Documents, but nothing about changing the properties of this folder. TIA, Jim Tag: Show Desktop Tag: 202972
  - 24
    - ProgId and TypeLib puzzlement... I've been playing with the object browser from jsware.net and it's raised a question If I want to reference an object, I can pick its ProgID from the registry, for example, itunes.application, and then create an object reference based on that ProgID, ie Set objITunes = CreateObject("ITunes.application") The registry entry stores a ClassID that is associated with that program, ie {DC0C2640-1415-4644-875C-6F4D769839BA}. If I feed this into the object browser, it returns the Methods, events and properties of ITunes.exe as one might expect. However, if I browse to the ProgID for internetExplorer.Application and get its classID {0002DF01-0000-0000-C000-000000000046}, this retrieves the associated program, (Iexplore.exe) but no methods &etc. I realise that the Internet Explorer COM entires are in shdocvw.dll, so I'm puzzled why I can bind successfully with something like Set objIE = CreateObject("InternetExplorer.application") I think I'm confused, can anyone elaborate :-) Cheers Nick Tag: Show Desktop Tag: 202962
  - 25
    - Modifying users with Excel I have a script that exports all the users in Active Directory to an Excel file using vbs. I would like to make changes to this Excel file and import it back to AD. How can I do that? Tag: Show Desktop Tag: 202957
- Next
  - 1
    - Edit comment propery? Is it possible to modify/insert comments in file properties, i.e. on a jpg file, by vbscript or vb 6? I want to use this field to store comments for the picture, retrieve and show this in a photo album. Asle Tag: Show Desktop Tag: 202955
  - 2
    - Initialize and Format Harddisk Hi Newsgroup, does anyone knows a way to script (with vbscript) the functionality of the Diskmanagement mmc (i.e. initilize, convert, format,... harddrives)? Thanks in advance Gerhard Feige Tag: Show Desktop Tag: 202949
  - 3
    - Embedding a VB script in DLL Hello ALl: I have one COM DLL and I need to execute a VB Script from a function of this COM DLL. How can I embed the VB Script within the DLL and execute it whenever required? Thanks, Keerthana Tag: Show Desktop Tag: 202948
  - 4
    - install font I'm having trouble finding a solution for installing fonts (Type 1; .pfm) from a script on Windows 2000. Any leads would be greatly appreciated. Tag: Show Desktop Tag: 202945
  - 5
    - Best site to download scripts Hi All, What's the best site to download scripts, I am interested in installing software using a vbs script. Thanks, Brian. Tag: Show Desktop Tag: 202944
  - 6
    - Disconnecting network drive Hi. I am trying to write a VBScript in order to disconnect a network drive with the drive letter H and the path \\computer_name\C$ \Documents and Settings\User\My Documents for example. I have tried this but can't get it to work. I don't want the script to ask the user a question it just does automatically. Can someone please help me. Thanks Tag: Show Desktop Tag: 202942
  - 7
    - Deleting All Files and Folders inside folder without deleting root folder Hello. I am trying to write a VBScript that deletes all contents including files and folders without deleting the root folder. I am new to scripting so have no idea how this can be done. Can someone please help me. Thanks very much. Tag: Show Desktop Tag: 202941
  - 8
    - Input past end of file : error on line 31 : ReadAll Hello can you help me with following problem. I have a nice code that has been put togheter with the help of people like you... - Basicly it get information from the clipboard (a name) - opens a file .log, from a USB memory stick, with that name: name.log - transforms that .log into name.txt with some modifications and store in a folder. All goes well exept when the name from the clipboard doesn't match a existing name.log file on the USB. The result is creating a name.txt file but with 0k. Final result : "input past end file error" on line 31 =3D Read.All Can you help me write some lines to exclude that error : like if file .txt is 0k =3D stop script ? Kind regards and much thanks in advance !! CODE : strComputer =3D "." Set objWMIService =3D GetObject("winmgmts:" & "{impersonationLevel=3Dimpersonate}!\\" & strComputer & "\root\cimv2") Set colDisks =3D objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DriveType=3D2 And VolumeName=3D'MERLIN'") For each objDisk in colDisks If objDisk.VolumeName =3D "MERLIN" then Merlindr =3D objDisk.Name Dim stFichierDest Dim stLigne1 Dim stLigne2 Dim st Dim tbLg Dim tb Dim i Dim FSO, File1, ParentFolderPath, FileName FileName =3D "FM_vbscript.vbs" Set FSO =3D CreateObject("Scripting.FileSystemObject") Set File1 =3D FSO.GetFile(FileName) ParentFolderPath =3D File1.ParentFolder Const ForReading =3D 1 Const ForWriting =3D 2 Const ForAppending =3D 8 stRep =3D Merlindr 'R=E9pertoire de travail stRep2 =3D ParentFolderPath&"\MerlinImport\" stFichierSource =3D CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") & "=2Elog" stFichierDest =3D CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") & "=2Etxt" Set oFichier =3D FSO.OpenTextFile(stRep & stFichierSource, ForReading, True) st =3D oFichier.ReadAll oFichier.Close tbLg =3D Split(st, Chr(10)) For i =3D 0 To UBound(tbLg) 'parcours les lignes tb =3D Split(tbLg(i), Chr(&H1C)) If (UBound(tb) >=3D 2) Then stLigne1 =3D stLigne1 & tb(0) & vbTab stLigne2 =3D stLigne2 & tb(2) & vbTab End If Next Set oFichier =3D FSO.OpenTextFile(stRep2 & stFichierDest, ForWriting, True) oFichier.WriteLine(stLigne1) oFichier.WriteLine(stLigne2) oFichier.Close wscript.quit else wscript.quit End If next wscript.quit END CODE Tag: Show Desktop Tag: 202940
  - 9
    - VBScript + ODBC (CSV) = ? I found this code for making a odbc connection to a csv file. How well does this work? I was thinking of using this to process my input files, and options. Does anybody have an example of reading and writing? This code looks to like it reads the entire csv, then writes to response (I guess this is a asp thing or something). Plus, how efficent is this? It would certainly allow me to upgrade my code if it is easy to work with. Any thoughts etc would be greatly appreciated. TIA <%@LANGUAGE=VBSCRIPT%> <% Option Explicit Dim strConnection, conn, rs, strSQL strConnection = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "Dbq=" & Server.MapPath(".\csv\") & ";"Extensions=asc,csv,tab,txt;Persist Security Info=False" Set conn = Server.CreateObject("ADODB.Connection") conn.Open strConnection Set rs = Server.CreateObject("ADODB.recordset") strSQL = "SELECT * FROM myFile.csv" rs.open strSQL, conn, 3,3 rs.MoveFirst WHILE NOT rs.EOF Response.Write(rs("myColumn") & "<br/>") rs.MoveNext WEND rs.Close Set rs = Nothing conn.Close Set conn = Nothing %> Tag: Show Desktop Tag: 202937
  - 10
    - Moving files and logging results Hi I'm using the script below to monitor a folder for any new txt files and move the new files to a different folder. My question is how would I create a log of the files that I have moved Or better again write an entry in an event log with the name of the file that was moved. Thanks Dim oFso Dim FSO Set oFS = CreateObject("Scripting.FileSystemObject") 'Monitor folder Set fldr = oFS.GetFolder("\\Server\Source\vb\") Set fls = fldr.files bDo=True While bDo = True if fls.count = 0 then 'While there's not any files in the folder, WScript.Sleep 30000 ' wait 30 second else ' Move file to Destination Set oFso = CreateObject("Scripting.FileSystemObject") oFso.MoveFile "\\server\Source\vb\*.txt", "\\Server\Dest\vb\" end if Wend Tag: Show Desktop Tag: 202934
  - 11
    - Web Page Login and Redirect Ok i'm totally lost. I have to create a login process where once a user logs in, they are directed to their "web space". I want to be able to pull the username and password and the web site address from a Microsoft Access database. can anyone point me to a tutorial or some kind of help or where i can start? Thanks. Tag: Show Desktop Tag: 202932
  - 12
    - Asp Upload fails when file dimension exeeds 3MB Hello. I'm experiecing a problem with file uploads from ASP pages. On a Windows 2000 - IIS 5 server we're running an ASP Classic application that features an upload form for files of great dimensions (100+MB). Problem is, when we try to upload a file exceeding 3MB we retive almost immediatly a message such as 'The page cannot be displayed'. We do not even reach the page that contains the code for file managing; when we click on the submit button in the form with enctype multipart form data the application ends and the error is visualized. For files under 3MB there are no problems at all. The FAQ of our upload third party component (ABCUpload by Websupergoo) state that we could either have problems with our proxy or we could be stopped by a wrong URLScan setting: we do not have any proxy nor URLScan is installed on our server. I may add that all the configuration of the script timeouts on IIS are correctly set. Is there anyone who can suggest us a solution ? Thanks in advance for any help... Newcomsas Tag: Show Desktop Tag: 202931
  - 13
    - default printer Hello, I have the following script that sets a particular printer to be the default printer. The script doesnâ??t work when I try to use it through group policy computer startup also when I have the users run the script manually it only sets the default printer per user profile. Is there a way i can have this a script work in group policy computer startup and have it set the printer as default per computer so all user get the same default printer. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery _ ("Select * from Win32_Printer Where Name = 'HP LaserJet 4000 Series PCL6'") For Each objPrinter in colInstalledPrinters objPrinter.SetDefaultPrinter() Next Tag: Show Desktop Tag: 202930
  - 14
    - WScript.CreateObject("wshLWForm.ucLWF", "oLWF_") Help!!! Hi, My name is Andrew Berry, and I am working for a software developer. I have inherited a system which uses a VBScript menu. This menu works from Windows 98se through to XP. Now as Vista has come out, I managed to convince work that I needed to "test" the existing software with Vista, assuming it would work fine. Sadly, now I have found out that the script is not working with Vista(Basic). It fails when trying to run the following command: Set oLWF = WScript.CreateObject("wshLWForm.ucLWF", "oLWF_") And I get the following error: Error: Could not locate automation class named wshLWForm.ucLWF Code: 80020009 Source: WScript.CreateObject I have not dealt with VB before, I was wondering if anyone had any ideas as to the problem. Many thanks, Andrew Berry Tag: Show Desktop Tag: 202923
  - 15
    - ANN: Launch of www.platform2platform.com blog - scripting focus this month... Announcing the Platform2Platform blog. A blog sponsored by Microsoft and operated by Penton media publishers of Windows IT Pro magazine. This blog provides a platform for independent experts (Open Source and Windows) to discuss, debate, and share tips and tricks on Open Source and Windows technologies of interest to IT Pro's. www.platform2platform.com Tag: Show Desktop Tag: 202918
  - 16
    - VBscript to click a coordinate on screen Does VBscript have the capabilities to send a left mouse click to a specific coordinate? Background on the script that I'm creating: I have to encrypt a text file using PGP which is installed. I found that the PGP program has hotkeys (Ctrl + Shift + E) which will encrypt an open text file. So far I am able to open the text file, then using the SendKeys method, I send (Ctrl + Shift + E) which opens the PGP application behind my text file. I have tried the AppActivate method to take control of the PGP window and Send and Enter key, however AppActivate is not seeing this window (the PGP window seems dependent on the text file, not as a seperate window). However if I could send a mouse click to a specific coordinate, I could just click the "OK" button on the PGP window which is showing behind the text file. I very much appreciate any help. Thank you Chris Tag: Show Desktop Tag: 202915
  - 17
    - button disable and submit I have login button. I want to disable it once the user click it (this is to avoid multiple clicks for this button). But the problem is that when I disable it (through javascript and before submit) its not posted/submitted....and asp page does not work. Whats the best way to work on such problem Tag: Show Desktop Tag: 202913
  - 18
    - Stop multiple email attachments in DO Loop Below is a part of my script. I am trying to attach a file that was made earlier in the script. I can attach fine, but it will attach 2 files on the second time through the Do Loop, then 3 the third time. I do not get why that is happening. I can post whole script if neccessary. What it will do is get the Manager of the group, put the members in a file, email the Manager with the file attached. Thank you for any help. objEmail.Subject = strGroupName wscript.echo "EMAIL GROUP NAME: " & strgroupname objEmail.Textbody = "You have been identified as the Manager of the following group. If you believe that you should not be the Manager " &_ "please reply to this message indicating who should be listed if known. " & _ "The following attachment contains the users that are members of the group " & strGroupName & _ ". Please verify that the members belong in this group. If members need to be added or deleted, reply to this email." objEmail.AddAttachment "file://c:\temp\" & strGroupName & ".txt" objEmail.Send end if objRecordSet.MoveNext Loop Tag: Show Desktop Tag: 202911
  - 19
    - Loading Outlook/Exchange personal addressbook to array to check for duplicates Hi, We have a number of customers and each are assigned a representative. I wrote a VBScript that takes our tab delimited file of customers generated from a report, checks the state, and then adds them to the appopriate persons address book (run by the person with their outlook open). This works great but it is time to update their list. I need to be able to load the current contents of their address book to a 2-D array with the name, street address, and zipcode, then check each entry against the list to avoid duplicates into their address book. To explain further, it would work like this: get row from file, load into variables, check to see if this is the representatives customer --done if yes, check to see if it already exists in their address book -- not done, need help if not in address book, load into address book --done. Thanks for your help Tag: Show Desktop Tag: 202908
  - 20
    - [ann] owc PivotTable Control Demo, with embedded xml data... This is a multi-part message in MIME format. --------------080706070606000207070509 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit About a week ago, I posted an owc pivottable control demo, which was used to display a (trivial) mdb database -- the "usual case". This one is a bit different. It is displaying an xml data base -- which is embedded in the html. The technique of embedding xml data in html is also known as: "Data Island". (Or, as I like to call it: "On-Board Data"). Regardless of what you call it, embedded xml does provide a nifty way to include data in a web page, or an hta file. And, you don't need to purchase msAccess, a simple xml editor will do. Plus, xml is easy enough to deal with from script, using the "MSXML2.DOMDocument" object. Some people prefer to keep their xml data separate from their html, apparently for esthetic reasons. Or maybe they were trained at an early age to keep their code and their data separated. If you are one of those people, all you need is a few additional lines of code. You just read in the file, and (again) make use the "MSXML2.DOMDocument" object. There is one other feature of note: the "Field List". If you ask for it (DisplayFieldList = True) then an extra little window pops up, showing the data fields found in the data base. I am not familiar with everything you can do with the field list, but you can drag-and-drop specific fields into the "filter area" of the control. This will then allow you to exclude certain items from display (click on the down-arrow, then un-check what you don't want to see). You may also use the field list to add fields to the row, column, data, and detail areas of your PivotTable. cheers, jw --- <office web components boilerplate> --- As you probably know, the office web components come with microsoft office installation. Or, you can download them directly from msdn. As best I can tell there are three versions (v9,v10,v11), corresponding to the version of office you have installed. I have ofc2k, which included v9. However, ms was generous enough to allow me to download v10, which is the version used in this demo. You may find it at the link mentioned below. (owc10.exe is an installation file, owc10.dll is the actX object, and finally while owc10 is touted as the "winXP version" is seems to work perfectly well on unsupported-and-abandoned win98 also): http://www.microsoft.com/downloads/details.aspx?FamilyID= 982B0359-0A86-4FB2-A7EE-5F3A499515DD&displaylang=EN --- <end of owc boilerplate> --- --------------080706070606000207070509 Content-Type: text/plain; name="hta_owcPivotTable_wXMLData.hta.txt" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="hta_owcPivotTable_wXMLData.hta.txt" <HTML> <HEAD> <SCRIPT language="vbscript"> ' (global code: to position/size the window, AHEAD of the hta:app stmt. ' This trick (courtesy of mikHar) is used to avoid the dreaded "hta bounce", ' which occurs when an hta is initially shown in some random "default" ' position/size, before being later adjusted via script code.)... window.MoveTo 100,100 window.ResizeTo 600,300 </SCRIPT> <HTA:APPLICATION ID="oHTA" APPLICATIONNAME="Show_msDTP" WINDOWSTATE="normal" SCROLL = "no" BORDERSTYLE="normal" BORDER="thin" CAPTION="yes" MAXIMIZEBUTTON="no" MINIMIZEBUTTON="no" ICON="mru.ico" SHOWINTASKBAR="yes" SINGLEINSTANCE="yes" SYSMENU="yes" VERSION="1.0" > <TITLE> demo owcPivotTable control (with embedded xml data) </TITLE>  <SCRIPT language="vbscript"> Sub SetupPivotTable() ' MsgBox("onLoad Event Detected") ' Note: Rob included code here to creat an ADODB.RecordSet to hold ' the xml data, and then put THAT recordset into the pivottable. ' But Rob's ADODB.rs step does not appear to be absolutely necessary, ' (at least not in this case)... ' Bind the pivot table to the (xml) recordset Set PivotTable1.DataSource = xmlsource.recordset ' was ADODB.RecordSet (oRS) ' "convenience objects" (save some typing)... Set objPivot = document.all.PivotTable1 Set objView = objPivot.ActiveView Set objFldSets = objPivot.ActiveView.FieldSets Set ptConst = objPivot.Constants ' pt constant definitions With objView .TitleBar.Caption = "Test Embedded XML Data (i.e., ""Data Island"")" ' setup the rows/columns .RowAxis.InsertFieldSet(objFldSets(1)) .ColumnAxis.InsertFieldSet(objFldSets(2)) .DataAxis.InsertFieldSet(objFldSets(0)) ' add another column Set totNewTotal = .AddTotal("Total Characters", .Fieldsets(0).Fields(0), ptConst.plFunctionCount) .DataAxis.InsertTotal totNewTotal End With With objPivot .ActiveData.HideDetails ' display the required control options .DisplayFieldList = True .AllowFiltering = True .DisplayExpandIndicator = True .DisplayToolbar = True .AllowDetails = True .AllowGrouping = True End With End Sub </SCRIPT> </HEAD> <BODY bgcolor="silver" style="font:10pt verdana" onLoad="SetupPivotTable()" > <OBJECT ID="PivotTable1" style="style=Z-INDEX:101; width: 450px; height: 250px; " CLASSID="CLSID:0002E542-0000-0000-C000-000000000046" VIEWASTEXT> <PARAM NAME="XMLData" VALUE=""> </OBJECT>  <xml id="xmlsource"> <rootNode> <oRowItem> <empID>1108</empID> <Fullname>Mouse, Mickey</Fullname> <Location>Disney World</Location> </oRowItem> <oRowItem> <empID>1693</empID> <Fullname>Duck, Donald</Fullname> <Location>Disney Land</Location> </oRowItem> <oRowItem> <empID>3931</empID> <Fullname>Mouse, Minnie</Fullname> <Location>Disney World</Location> </oRowItem> </rootNode> </xml> </BODY> </HTML> --------------080706070606000207070509-- Tag: Show Desktop Tag: 202905
  - 21
    - [ann] owc PivotTable Control Demo, with embedded xml data... About a week ago, I posted an owc pivottable control demo, which was used to display a (trivial) mdb database -- the "usual case". This one is a bit different. It is displaying an xml data base -- which is embedded in the html. The technique of embedding xml data in html is also known as: "Data Island". (Or, as I like to call it: "On-Board Data"). Regardless of what you call it, embedded xml does provide a nifty way to include data in a web page, or an hta file. And, you don't need to purchase msAccess, a simple xml editor will do. Plus, xml is easy enough to deal with from script, using the "MSXML2.DOMDocument" object. Some people prefer to keep their xml data separate from their html, apparently for esthetic reasons. Or maybe they were trained at an early age to keep their code and their data separated. If you are one of those people, all you need is a few additional lines of code. You just read in the file, and (again) make use the "MSXML2.DOMDocument" object. There is one other feature of note: the "Field List". If you ask for it (DisplayFieldList = True) then an extra little window pops up, showing the data fields found in the data base. I am not familiar with everything you can do with the field list, but you can drag-and-drop specific fields into the "filter area" of the control. This will then allow you to exclude certain items from display (click on the down-arrow, then un-check what you don't want to see). You may also use the field list to add fields to the row, column, data, and detail areas of your PivotTable. cheers, jw --- <office web components boilerplate> --- As you probably know, the office web components come with microsoft office installation. Or, you can download them directly from msdn. As best I can tell there are three versions (v9,v10,v11), corresponding to the version of office you have installed. I have ofc2k, which included v9. However, ms was generous enough to allow me to download v10, which is the version used in this demo. You may find it at the link mentioned below. (owc10.exe is an installation file, owc10.dll is the actX object, and finally while owc10 is touted as the "winXP version" is seems to work perfectly well on unsupported-and-abandoned win98 also): http://www.microsoft.com/downloads/details.aspx?FamilyID= 982B0359-0A86-4FB2-A7EE-5F3A499515DD&displaylang=EN --- <end of owc boilerplate> --- Tag: Show Desktop Tag: 202904
  - 22
    - html form don't work Hello I try to make a script for Auto Config IP adress with Netsh. For that i use an HTML FORM and VBScript: here my "form.html" code : When I run It, IE says object required 'wscript' Could you help me? <html> <head> <title>Config</title> </head> <body> <script language="VBScript">  </script> <form name="ipconf"> Choisissez votre configuration réseau : <br/> <br/> <select name="menuip"> <option value="meco">MECO</option> <option value="apui">APUI</option> <option value="vinay">VINAY</option> </select> <br/> <br/> <input type="button" value="Valider" name="VALID" onClick="ConfigIp(ipconf)" > </form> </body> </html> Tag: Show Desktop Tag: 202902
  - 23
    - installing MS06042 on an XP SP2 client machine causes slowdown Problem: after installing MS06042 on an XP SP2 client machine some web pages are running twice as slow. Specifically, installing MS fix WindowsXP-KB918899-x86-ENU.exe causes the slowdown The web page contains a table that is generated dynamically from a search results recordset. The table contains first name, last name information and a drop down list. The drop down list is created from text html and inserted into a table by modifying a cells innerhtml property: (vbscript ) Set oPriorityCell = oRow.InsertCell(3) oPriorityCell.id = "xyz" oPriorityCell.align = "center" oPriorityCell.noWrap = True strHTML = "<SELECT class=""EightPtText"" title = ""agent"" id=""PriSelectAll" & CStr(agentCount) & """ value=""" & CStr(LocalID) & """ onChange=""SkFieldChanged('" & CStr(strNumSks) & "')"" onMouseClick=""FillDropDown('PriSelectAll" & CStr(agentCount) & "')"" disabled>" oPriorityCell.innerHTML = strHTML On running a search that returns 500+ items the processor spikes to 100% for 3-4 minutes with the patch installed. This is approximately twice the time it takes to load the page without the patch installed. The strange thing about this problem is that you can see the table has been rendered yet the processor spike continues, its almost as if the html rendering code has gone into a loop as its still unresponsive until it finishes what ever activity is causing the processor spike. Also in task manager under applications there are two instances of internet explorer during the processor spike whilst there is actually only one instance of the IE application running on the machine. When you run a trace on the machine you can see that ms dll mshtml.dll is hogging the processor This dll is updated as part of the MS fix. Can anyone explain why installing this patch is causing such an unacceptable slowdown? Are there any particular areas where we can look to optimise our code in light of this patch to avoid this slowdown? Can anyone suggest any workarounds? Tag: Show Desktop Tag: 202898
  - 24
    - Assigning Network Service Account to Services on remote PCs I have to update the account/password used by a service on a bunch of Servers. The part I'm having a problem with is calling the remote servers from the script. I had a CMD script which did it wonderfully: FOR /f "tokens=1,2,3 delims=," %%A IN (svc.csv) DO (c:\pstools\psexec \\%%A sc config <Service_Name> obj= DOM\ACCOUNT password= %%B%%C) But that's not good enough for my taskmasters. Which command could I use in VB script to assign an account + password to a remote service? Alternatively, I'm tempted to read the list of servers and then run the above command with the required username and password. I have the part of the script which reads the password fine, it's just using that information which is unclear... This is turning into a saga for me... I'm a bit new to scripting and just did Course M2433A last week :) --- Cheerio, Lars Petersson MCSA: Messaging Tag: Show Desktop Tag: 202894
  - 25
    - Run a script using System or another account I have a logon script which is located on the server. This script creates shortcuts in start menu, but in All Users->Start Menu on local machine. User which is logging on to the system doesn't have enough rights to save shortcuts in that location. Is there any way to run this script using System account or domain administrator account. Tag: Show Desktop Tag: 202889

Is there a way I can run "Show Desktop" from VBScript?

Thanks

Re: Show Desktop by JHP

JHP
Fri Feb 23 09:10:42 CST 2007

Set objShell = CreateObject("Shell.Application")
objShell.MinimizeAll
Set objShell = Nothing

"Mitch" <Mitch@discussions.microsoft.com> wrote in message
news:908AA436-CCC7-472C-AEAC-080F9E4C5D9F@microsoft.com...
> Is there a way I can run "Show Desktop" from VBScript?
>
> Thanks

Top

Re: Show Desktop by Mitch

Mitch
Fri Feb 23 09:30:42 CST 2007

Thanks you,

Mitch

"JHP" wrote:

> Set objShell = CreateObject("Shell.Application")
> objShell.MinimizeAll
> Set objShell = Nothing
>
> "Mitch" <Mitch@discussions.microsoft.com> wrote in message
> news:908AA436-CCC7-472C-AEAC-080F9E4C5D9F@microsoft.com...
> > Is there a way I can run "Show Desktop" from VBScript?
> >
> > Thanks
>
>
>

Top