Fehler mit dem FSO - Objekt

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
    - Adding regkey Hi, Newbee to vbscript juste wanna know how to create the following regkey on local computer HKEY_CURRENT_ROOT\CLSID\{ProgId}\Programmable Thks for help :) Tag: Fehler mit dem FSO - Objekt Tag: 170391
  - 2
    - VB6 beginners question Hi, we have Office 2000 and i am trying to rewrite a data analysis macro i orininally wrote in VB4, in which 2D line plots were created on a worksheet based on columns of data, then manipulated and updated using a user form. i have recreated the user form and added "ChartSpace" but cannot get a 2D line plot of my data to appear there. i can organise for the data to be in either an array or in cells prior to display on the plot. can anybody help, please? also when i go to use the MSChart tool i get an invalid licience message. do i need this tool and if so how do i install it? looking forward to any advice. regards Scott K. -- shlk ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Fehler mit dem FSO - Objekt Tag: 170387
  - 3
    - Change a shared folder path? I have about 300 shared folders that I need to have the path changed because we the folders are getting moved to another drive. I can list and create shares, but cannot figure out how to change the path of an existing share. I get an error when I try to change it. Can this be done with VBScript or is there another tool I can use? Please help, Rick ================================== Creating share: Set FservObj = GetObject("WinNT://ComputerName/lanmanserver") set newshare = FservObj.create("fileshare","test") newshare.path = "C:\temp" newshare.setinfo Set newshare = nothing ===================================== Listing Share info: Set FS = GetObject("WinNT://stretch2400/LanmanServer/Test1") Wscript.Echo vbtab & fs.Path Wscript.Echo vbtab & fs.MaxUserCount Wscript.Echo vbtab & fs.AdsPath Wscript.Echo vbtab & fs.Path Wscript.Echo vbtab & fs.Class Wscript.Echo vbtab & fs.CurrentUserCount Wscript.Echo vbtab & fs.description Wscript.Echo vbtab & fs.GUID Wscript.Echo vbtab & fs.HostComputer Wscript.Echo vbtab & fs.Parent Wscript.Echo vbtab & fs.Schema ' *** This is where I get the error. ' FS.Path = "C:\Scripts" ' FS.SetInfo ' Wscript.Echo vbtab & fs.Path Tag: Fehler mit dem FSO - Objekt Tag: 170377
  - 4
    - Reset password I'm trying to make a script so that the members of our helpdesk can reset users passwords without have ADUC. Not easy for a rookie such as myself. I would have thought there would be a ton of utilites / scripts out there to do this in AD?? I did find one script online by Brian Anderson but it doesn't seem to work correctly and so far my lame attempts to fix it aren't helping! I don't need anything fancy except I would like it to be as "easy and foolproof" as possible! Heck, even a premade utility like those available for Novell would be fine. I do have a small batch file using dsmod but the exe is needed and it's not very user friendly. Any solutions / ideas would be most welcome! Tag: Fehler mit dem FSO - Objekt Tag: 170370
  - 5
    - How to remove Shares selectively if they exist How can I selectively remove shares and then reassign them to a certain group in one script. I have run the Net Share > Share.lst and this is what I found Share name Resource Remark ------------------------------------------------------------------------------- E$ E:\ Default share P$ P:\ Default share IPC$ Remote IPC D$ D:\ Default share I$ I:\ Default share K$ K:\ Default share G$ G:\ Default share O$ O:\ Default share M$ M:\ Default share F$ F:\ Default share ADMIN$ C:\WINDOWS Remote Admin H$ H:\ Default share N$ N:\ Default share C$ C:\ Default share J$ J:\ Default share L$ L:\ Default share The command completed successfully. I want to remove all but the IPC$ and ADMIN$ shares plus D$. I thought using a manual approach as shown below for all the located mappings might do it. wscript.run "net share f$ /delete" wscript.run "net share e$ /delete" But how can I validate the existence of a share if it doesn't exist as may be the case. Any guidance is most welcome. jm Tag: Fehler mit dem FSO - Objekt Tag: 170368
  - 6
    - delete 'old' *.XXX files Hi, I'm looking for a script that: deletes *.xxx files that are older then Y days. I have seen a couple of scripts that delete 'old' files in a specific folder, but my script should only delete a very specific extention in a specific folder + all subfolders. Example:It should be capable of deleting all *.ver files located in c:\test \ and all subfolders, only if they are older then 14 days. I'm not familiar with VBscript, but I still want to use it, because it could be modified very easily when using constants in the beginning for the folder and the extention. Any idea? (xxcopy could do similar things, but this doesn't seem to work on my PC, I'd like to try vbscript) Thanks! Sandra. Tag: Fehler mit dem FSO - Objekt Tag: 170366
  - 7
    - Reading Reults of txt file - and then... I am using FSO to read a XML file, using the ReadAll method. I have a couple of questions. First how does an XML file appear to wsh? Is it one silgle line like in Notepad or is there several lines like when displayed in IE? If it is seperate lines I can use the readline to get what I need, if it is diplayed with no CR's then I don't think that method will work. I am using ReadAll and I can find the data I want but then if the data is found I need to then read data before it, as an example: <services>test</services> Is what I am looking for first, and if this text exists I then need to go backwards and look for <process>ten</process>. The data length between these two can vary for each instance within the file, where some other data may be <asdf>fkjshdfkjhksjdfh</asdf> for one instance, and for another it may be <asd>adf</asd>. TIA! Tag: Fehler mit dem FSO - Objekt Tag: 170363
  - 8
    - How to delete a file in "C:\Documents and Settings\marxp\Recent". My scripting question is below, beneath the two empty lines. But if you care to read what my ultimate objective is, here it is: Ultimate Objective: I need to bill my time by the hour, but because I have ADD, I can not keep track of what I do during the day, and this is having a disastrous impact on my ability to earn a living. I am attempting to create a script that will enable me to know what files I opened (and worked on) during each day, and when I opened them. After I succeed with this script (hopefully), I hope to create: 1. A macro in Microsoft Word that will send to a comma delimited file the name of each file that I open in Word, the "Start Time" when each file was the topmost window on the monitor, and the "End Time", i.e., when the file ceased to be the topmost window on the monitor. (Obviously, a document may may be opened several times during a day, or become the topmost window several times a day.) I also hope to eventually create... 2. A macro in Outlook that will send to a comma delimited file some identifier ("Name") of each window in Outlook that I open, and each Outlook window's "Start Time" and "End Time". My scripting question: I cannot figure out why the script below does not delete the shortcut files in the directory: "C:\Documents and Settings\marxp\Recent". In 2 different places, the script tries to delete a shortcut file in "C:\Documents and Settings\marxp\Recent", after the script successfully copies the shortcut file to another directory, but the attempts to delete fail. Any ideas would be much appreciated. Thanks. Marc Here's the script: ' ' This script was cannibalized as follows: The lines that sense a new file being added to marxp\Recent are drawn ' from The Portable Script Center, Version 2.0, September 2003 ' located in C:\Documents and Settings\marxp\Start Menu\Programs\scriptcenter.chm. ' dim strComputer, sHarvey, lenHarvey, iQuotOutRight, iQuoteIn, sHarveyTrimmed, iSlash dim sHarveyNamOnly, sHarveyOrigFulNam, sHarveyTransitOnlyFulNam, sHarveyNuFulNam, sUserRecentDir Dim SysClip, fsoClip, v, s, Var, sExistsDarnIt Dim strMonth, strDay, DateInfo, TimeInfo, strDateNdTime, RawDate, FnDate Dim FSO Set fsoClip = CreateObject("Scripting.FileSystemObject") Set SysClip = CreateObject("JSSys3.ops") strComputer = "." sHarvey = "" lenHarvey = 0 HarveyTrimmed = "" ' sPrgDir = "C:\Apps\Recent.Files\" sTransitOnlyDir = "C:\Apps\Recent.Files\TransitOnly\" sTargetDir = "C:\Apps\Recent.Files\Recent.Files\" sDate = "...(date)...lnk" sUserRecentDir = "C:\Documents and Settings\marxp\Recent\" ' ' strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\Documents and Settings\\\\marxp\\\\Recent""'") Do ' ' The next X lines, cull the shortcut file's Fulname out of something or other (that I don't understand), and ' assign the Fulname to the sVar "sHarveyOrigFulNam". ' Set objLatestEvent = colMonitoredEvents.NextEvent sHarvey = objLatestEvent.TargetInstance.PartComponent lenHarvey = Len(sHarvey) sHarvey = Replace(sHarvey, """", Chr(39)) sHarvey = Replace(sHarvey, "\\", "\") iQuotOutRight = InstrRev(sHarvey, "'", -1, 1) iQuoteIn = InstrRev(sHarvey, "'", iQuotOutRight - 1, 1) sHarveyTrimmed = Mid(sHarvey, iQuoteIn + 1, iQuotOutRight - iQuoteIn - 1) ' 'The next few lines create a sVar of the filename only, culling it from the Fullname: sHarveyTrimmed, ' creating the sVar named: sHarveyNamOnly lenHarvey = Len(sHarveyTrimmed) iSlash = InstrRev(sHarveyTrimmed, "\", -1, 1) sHarveyNamOnly = Mid(sHarveyTrimmed, iSlash + 1, lenHarvey) ' sHarveyOrigFulNam = sUserRecentDir & sHarveyNamOnly sHarveyTransitOnlyFulNam = sTransitOnlyDir & sHarveyNamOnly ' Set objFSO = CreateObject("Scripting.FileSystemObject") 'Verify that sHarveyOrigFulNam exists, and then copy it to TransitDir; ' Otherwise, report that it doesn't exist. Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(sHarveyOrigFulNam) Then Set objFolderOrig = objFSO.GetFile(sHarveyOrigFulNam) objFSO.copyFile sHarveyOrigFulNam, sHarveyTransitOnlyFulNam Else Wscript.Echo "File does not exist. You must stop and restart the script." End If Loop Set Shell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFile(sHarveyOrigFulNam) If objFSO.FileExists(sHarveyTransitOnlyFulNam) Then Set Shell = CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFile(sHarveyOrigFulNam) iDeleteEfforts = 0 sExistsDarnIt = 0 If objFSO.FileExists(sHarveyOrigFulNam) Then Do While sExistsDarnIt < 1 If iDeleteEfforts >= 1000 Then Wscipt.echo "Can't delete file: " & sHarveyOrigFulNam Exit Do End if WScript.sleep 50 '--wait a while before trying again If objFSO.FileExists(sHarveyOrigFulNam) Then iDeleteEfforts = iDeleteEfforts + 50 Else sExistsDarnIt = 1 End if Loop End If Else Wscript.Echo "The transit file " & sHarveyTransitOnlyFulNam & "does not exist. You must stop and restart the script." End If ' strStartDate = Now sUsableDate(strStartDate) StartDate = FnDate ' ' sHarveyNuFulNam = sTargetDir & sHarveyNamOnly & StartDate & ".lnk" objFSO.copyFile sHarveyTransitOnlyFulNam, sHarveyNuFulNam objFSO.DeleteFile(sHarveyTransitOnlyFulNam) ' ' '****************************************************************************** Function Snd2ClpBrd(Var) s = Var v = SysClip.SendTextCB(s) WScript.sleep 800 End Function '****************************************************************************** ' '****************************************************************************** Function sUsableDate(RawDate) ' = FnDate ' FnDate is the variable that this function produces. FnDate = FormatDateTime(RawDate, vbShortDate) intFirstSlash = InStr(FnDate, "/") strMonth = Left(FnDate, intFirstSlash - 1) If Abs(strMonth) < 10 Then strMonth = "0" & strMonth End If int2dSlash = InStr(intFirstSlash + 1, FnDate, "/") strDay = Mid(FnDate, intFirstSlash + 1, int2dSlash - intFirstSlash - 1) If Abs(strDay) < 10 Then strDay = "0" & strDay End If ' strTime = FormatDateTime(RawDate, vbLongTime) '' The next line ascertains whether it's day or night (A or P) strDayOrNite = mid(strTime, 9, 9) '' The next line removes the " AM" or " PM" strTime = Left(strTime, Len(strTime) - 3) '' The next line determines where the hour ends, bc there's a colon there. intFirstColon = InStr(strTime, ":") '' The next line returns the hour strHour = Left(strTime, intFirstColon - 1) strMinEtSec = Right(strTime, Len(strTime) + 1 - intFirstColon) ' If Abs(strHour) < 10 Then strHour = "0" & strHour End If '' wscript.echo "strHour<10, therefore=" & strHour If strDayOrNite <> "P" Then strHour = strHour + 12 End If '' wscript.echo "strDayOrNite <> P, therefore=" & strHour '' strDateNdTime = Year(Now) & "." & strMonth & "." & strDay & ".." & strHour & strMinEtSec FnDate = Replace(strDateNdTime, ":", ".") End Function '****************************************************************************** Tag: Fehler mit dem FSO - Objekt Tag: 170362
  - 9
    - Delete part of the SYSTEM Path Environment Variable Hi, I am trying to delete part of the Path statement in evironment variables on XP and 2000 boxes. If for example, I have a machine that has the value C:\temp1 included in the SYSTEM path statement, I would like to delete it without affecting the rest of the Evironment line. I know the best way is to Read the Registry under SYSTEM\CurrentControlSet\Control\Session Manager\Environment (PATH) and then to do a compare....change the text and pop it back in. Any scripting Ideas. After I try a script for 2 days and and search Google..etc...until my eyes are read....I usually give in. Thanks for any input. Jeff L Tag: Fehler mit dem FSO - Objekt Tag: 170361
  - 10
    - ADO with Excel in VBS How can we use ADO with excel (xls) in vbs? Any examples please. I read the MS ADO reference Michael... Thank you. CAglar Tag: Fehler mit dem FSO - Objekt Tag: 170354
  - 11
    - kill pernicious processes? Our family computer still gets adware and other crap on it from time to time, despite my best efforts in using Norton, Adaware, Spybot, and CWShredder; and avoiding the use of Internet Explorer in favour of Firefox; and creating separate accounts for each user; and restricting permission to install software... it seems I just can't monitor everything every user does. Some of this stuff my various cleaners and checkers do not seem able to fix, and one type is particularly nasty: the type where two programs operate in tandem, each making sure that the other is present and running, so I can't kill the two processes fast enough via task manager to prevent one from re-creating the other. (AdTools is an example of this. Is there a word for this kind of program pair? "Twin Bootstrap", or something?) But I need to do something because these adwares aren't just annoying and don't merely slow down my machine; they're buggy and frequently launch hundreds of copies of themselves, thus taking CPU usage to 100% and locking it up. I can program in VBScript, somewhat....enough to run simple tasks or to read an HTML form and launch programs. Is it feasible to write a program that can kill these "Twin Bootstraps" faster than they can bootstrap each other? If I could get hold of a ps.vbs for WinXP? Could I have this program running all the time, or would that eat up my CPU as well? Or would I just be heading down the wrong road altogether? I know that there is often a third component of these twins whose job is to redownload the adware if it discovers that they're gone, and it can be hard to find this third process in the process list. But I figure if I can kill the main culprits whenever they fire up, I can hold the nasties at bay until the next update to Adaware etc. is able to deal with them properly. Does this idea make any sense? I sure would appreciate advice and suggestions. Thanks in advance -- Tag: Fehler mit dem FSO - Objekt Tag: 170352
  - 12
    - Chance Text Hello, I want print out a chance text if startin the script. For example: Text 1: This is text one Text 2: This is text two Text 3: This is text three and so on When i start the script every time it must print out a change text. Thank you BS I Tag: Fehler mit dem FSO - Objekt Tag: 170348
  - 13
    - Subst question Can anybody please tell me what the following commands are doing? this is a cmd logon script subst m: /d >nul 2>&1 subst m: h:\notes_crb >nul 2>&1 Tag: Fehler mit dem FSO - Objekt Tag: 170346
  - 14
    - remote permissions What are the minimum permissions a user would need to remotely restart a service using vbs? Of course everything works great if the user is a local administrator on the remote machine, but that would go outside the parameters of the task. I have given the user power user membership as well as full rights to the Root namespace and all subnamespaces on the remote machine ... but with no luck. The remote machine is a Windows 2000 Server SP3 The funny thing is that power user rights allows remote connection and service restart using "Computer Management" console, but once again this falls out of the tasks parameters for a one button remote service restart. Here is the script I wrote for the task strComputer = "MyServer" strService = "MyService" Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") CheckErr "Connect to " & strComputer Set colRunningServices = objWMIService.ExecQuery ("Select * from Win32_Service where Name='" & strService & "'") For Each objService in colRunningServices objService.StopService() CheckErr "Stop " & strService & " Service" objService.StartService() CheckErr "Start " & strService & " Service" Wscript.quit 1 Next Wscript.echo "Could not connect to the " & strService & " on " & strComputer Function CheckErr(strDesc) If Err.Number <> 0 Then strMessage = "Script failed to " & strDesc & " 0x" & Hex(Err.Number) If(Len(Err.Description) > 0) Then strMessage = strMessage & chr(13) & "Err.Description: " & Err.Description End If wscript.echo strMessage & chr(13) & date & " at " & time Else wscript.echo strDesc & " successful End If End Function Any help is greatly appreciated TIA Charles Tag: Fehler mit dem FSO - Objekt Tag: 170339
  - 15
    - Quick Debugging question I'm doing some ASP based work for the first time and I used the tutorial on MSDN found at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnasp/html/asptutorial.asp Specifically the Create A Guestbook code. I changed it a little bit so that the database was keeping the information I wanted, and my server gave me an error saying that there was an "Undertermined String Constant" (Go here to see my error http://64.178.102.157/numbers/input.asp). I checked the work I did and didn't see anything wrong, then went back and check the tutorial. I got the same error when I did the tutorial without modifying it, so something must be wrong with it. I'm very new to this and could really use the help. Thanks! Tag: Fehler mit dem FSO - Objekt Tag: 170328
  - 16
    - Very basic VBScript question I am starting to set up Java Web Start (JAWS) on my system and the docs suggest a short VBScript - which they provide - for determining which version of Internet Explorer is running. The only thing they DON'T say is what the name of the file CONTAINING the script needs to be, particularly the file extension. Files containing JavaScripts are supposed to use a ".js" extension so I'm assuming that VBScripts have a standard extension too, possibly ".vbs" or ".vs". Can anyone confirm that? Or does it really not matter what the file name and extension are for a VBScript? -- Rhino --- rhino1 AT sympatico DOT ca "There are two ways of constructing a software design. One way is to make it so simple that there are obviously no deficiencies. And the other way is to make it so complicated that there are no obvious deficiencies." - C.A.R. Hoare Tag: Fehler mit dem FSO - Objekt Tag: 170318
  - 17
    - Resolving e-mail addresses using VBScript Hi, Finding out which user owns which primary e-mail address is easy, using ADSI. However I could not determine a way to query any e-mail address, including secondary e-mail addresses without going through all the contacts and parsing their e-mail addresses array. Is there a shorter, less demanding way? Amit Tag: Fehler mit dem FSO - Objekt Tag: 170317
  - 18
    - Scripting.dictionary I have a web site with some ASPs. The ASPs that contain the line 'Server.createobject(Server.Dictionary) are not running. When executed, we receive the error given below. Server object error 'ASP 0178 : 80070005' Server.CreateObject Access Error /olt/teststart.asp, line 29 The call to Server.CreateObject failed while checking permissions. Access is denied to this object Somebody help, *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Fehler mit dem FSO - Objekt Tag: 170309
  - 19
    - How to access file object properties (title, subject, author, category, keywords, comments, the URL to which a shortcut file links, etc. Does anyone know where I can find info about how to use vbscript to put date into (or suck data out of) the following properties of a file: 1. title, subject, author, category, keywords, comments? 2. the url to which a shortcut file links? Thanks to whoever answers, Marceepoo Tag: Fehler mit dem FSO - Objekt Tag: 170306
  - 20
    - import users into Adive Directory 2003 Hi guys, I'm wondering if anyone has a script that imports users into active directory from an excel spreadsheet. Thanks, Tag: Fehler mit dem FSO - Objekt Tag: 170300
  - 21
    - Create file on external web server and save to local user drive We currently have an internal web reporting tool that we create asp reports that pull data from a sql server. I currently created a report that instead of outputting the report in html format, it generates an Excel file behind the scenes and saves it on the web server. My question is this.....how can I get the file to save locally to the computer of the user running the report instead of saving on the web server? I tried the following code, but no luck --current code that saves on the web server xlWorkbook.SaveAs "\\webserver\storagefolder\Report.xls" --tried the following xlWorkbook.SaveAs "C:\Temp\Report.xls" --or xlWorkbook.SaveAs "\Temp\Report.xls" both seem like the work fine, but when I look for the file, it does not exist. Can anyone help me out with this? Tag: Fehler mit dem FSO - Objekt Tag: 170292
  - 22
    - Login script with admin priveleges Wondering if anyone could help me out with the following: On NT, W2K and XP client machines I need a way to run an exe, through the login script, with admin priveleges. I've looked into "runas" and "su", however, they're not the best options as I run into problems with compatability with NT or the fact that one has to insert the password when prompted. I've also looked into "Admin Script Editor" and its packager which lets one create and .exe to be run with alterante credentials. Anyone know if this is possible through VBScript using impersonation? Any enlightment into this matter would be appreciated. Thanks! JCOliveira Tag: Fehler mit dem FSO - Objekt Tag: 170291
  - 23
    - creating a partition Hi, I have looked around before posting this but haven't been successful in finding a solution. What I'm trying to do is create a partition within windows 2000/xp using a vbscript. How I would like it to work is that I build the pc from a ghost image. The PC would then autologon and run a vbscript to create a partition from the unallocated disk space. Is this even possible? If it is, and anyone has an example of a script that would be able to do this or is able to point me in the right direction I would be very grateful. Thanks in advance Tag: Fehler mit dem FSO - Objekt Tag: 170290
  - 24
    - IE Title Bar I am using T Lavedas' WSH Scripts for msgbox function. I want to display the title bar at the top of the msgbox. Can't figure out how or find a reference on MSDN. Help? Thanks, dra Tag: Fehler mit dem FSO - Objekt Tag: 170288
  - 25
    - Get SAMAccountName Could someone tell me how to determine the SAM account name using VBScript and LDAP? I'm trying to write a login scrip that does stuff based on the users SAM account name and haven't been able to get anything I've been trying to work. TIA Ernie Tag: Fehler mit dem FSO - Objekt Tag: 170285
- Next
  - 1
    - Starting service and dependent service - multiple machines I've got a script that reads a file(containign machine names) and start a service. The script works as expected when trying to start standalone service. i.e. It kicks off the service(& does not wait for completion) in each machine. When a service is dependent on another service, running the script will wait for dependent service to start. Hence, for each machine the script waits for dependent service startup. How can I change the script such that it will not wait for dependent service startup...? Here's the code snippet... --- cmdToexecute = "Winmgmts:\\" & "MyMachine" & "\root\cimv2" Set wmi = GetObject(cmdToexecute) Set wmiService = wmi.get("win32_service.name='" & "MyService" & "'") LatestState = wmiService.state LatestStatus = wmiService.status If LatestState = "Stopped" Then wmiService.startservice End If --- Thanks, Sandiyan Tag: Fehler mit dem FSO - Objekt Tag: 170280
  - 2
    - hidden variable In this procedure I am attempting to set the hidden variable (hidden_data) with a delimited list of email address before submitting the form. If I put the values in a querystring the values pass fine. However, I don't want to do that. I have created a hidden variable in my html code named hidden_data. When I set the variable and submit this way, the variable looses it's value. Please help :) Code: sub submitform() dim contacts() redim contacts(listform.elements.length) For c = 0 to listform.elements.length - 1 If listform.elements(c).type = "checkbox" then If listform.elements(c).checked and mid(listform.elements(c).id,1,4) <> "list" then contacts(c) = listform.elements(c).id end if end if next tmp = filter(contacts,"@") listform.hidden_data.value = join(tmp,",") listform.action = "send.asp?mailer=" & listform.mailer.value listform.submit() end sub Tag: Fehler mit dem FSO - Objekt Tag: 170275
  - 3
    - Good IDE to write JScript or VBScript Hi guys, anyone of you knows a good IDE to write JScript or VBScript? The basic funcionalities I need are: code completion, syntax highlighting and intellisense. I'd like this software it's free :) Iis it possible write JScript or VBScript using Visual Studio .NET 2003. Thanks, Davide Tag: Fehler mit dem FSO - Objekt Tag: 170271
  - 4
    - Aaagh! cScript no longer Returning! ?? Hi, I use cScript to run the adsutil.vbs etc scripts to generate web sites during automated installations of our product. here is an example: cscript.exe C:\inetpub\AdminScripts\mkwebdir.vbs -c localhost -w "Default Web Site" -v "adminDir","C:\MyDir\Web\Admin" This always /used/ to work just fine. Now when I try it, csript.exe appears to do the task, but it now NEVER returns from the dos prompt. Whats wrong with that? I am using stock windows2000 professional workstation with IIS 5.0 installed to do this. here is the output of the dos prompt:- ---<PRE> Microsoft Windows 2000 [Version 5.00.2195] (C) Copyright 1985-2000 Microsoft Corp. C:\>cscript.exe C:\inetpub\AdminScripts\mkwebdir.vbs -c localhost -w "Default We b Site" -v "adminDir","C:\MyDir\Web\Admin" Microsoft (R) Windows Script Host Version 5.1 for Windows Copyright (C) Microsoft Corporation 1996-1999. All rights reserved. 2/18/2005 10:11:09 AM : Accessing root for IIS://localhost/W3svc/1 2/18/2005 10:11:09 AM : Done. </PRE>--- thats it! as you can see, csript never returns from the function. It performs the function ok, but then just sits there saying 'Done' and does not return. you have to end task on the dos prompt!! Aagh!! Has anyone else come across this issue??? Tag: Fehler mit dem FSO - Objekt Tag: 170270
  - 5
    - virtual path hi, does someone have a vbscript to check for file existance in a virtual path ? eg. http://www.yourserver.com/someDirectory/file.doc pls help. thanks Tag: Fehler mit dem FSO - Objekt Tag: 170269
  - 6
    - Mail merge - data (text+tab) via http Hello everybody ! I try since some week to lanch "automagically" fron one clic under IE on a web page : -> the download of a data file for Word mail merge, and save it on local disk WITHOUT PROMPTING, -> lanch the Word application and the merge. I've found one script (below) to do this... or nearly : in fact this script retrieve data from an sql server, instead of a poor data text file (text+tab) on a html server (what i want). And, even after several tries,.... i'm not able to modify it ....8-((( NOTA : the data text file has the first row for name header, and the second row has data (only 2 lines). So... any help would be welcome !!!!! Thanks Eric --------------------- <script language="VBScript"> Sub CreateDataDoc(oApp) ' Declare variables. Dim sServer,oDoc,oRS,sTemp,sHead,oRange,oField ' Place your server's name here. sServer = "<servername>" ' Create a new document. Set oDoc = oApp.Documents.Add ' Create a new recordset. Set oRS = CreateObject("ADODB.Recordset") ' Open the XML recordset from the server and pass the SQL statement ' to the Getdata.asp page. sSQL = "SELECT * FROM AUTHORS" oRS.Open "http://" & sServer & "/WordMailMerge/Getdata.asp?SQL=" & sSql ' Convert the recordset to a string. sTemp = oRS.GetString(2, -1, vbTab) ' 2 = adClipString ' Append the field names to the front of the string. For Each oField In oRS.Fields sHead = sHead & oField.Name & vbTab Next ' Strip off the last tab. sTemp = Mid(sHead, 1, Len(sHead) - 1) & vbCrLf & sTemp ' Get a range object and insert the text into the document. Set oRange = oDoc.Range oRange.Text = sTemp ' Convert the text to a table. oRange.ConvertToTable vbTab ' Save the document to a temp file. oDoc.SaveAs "C:\data.doc" ' Close the document (no save). oDoc.Close False End Sub Sub ButtonClick() Dim oApp Dim oDoc Dim oMergedDoc ' Create an instance of Word. Set oApp = CreateObject("Word.Application") ' Create our data file. CreateDataDoc oApp ' Add a new document. Set oDoc = oApp.Documents.Add With oDoc.MailMerge ' Add our fields. .Fields.Add oApp.Selection.Range, "au_fname" oApp.Selection.TypeText " " .Fields.Add oApp.Selection.Range, "au_lname" oApp.Selection.TypeParagraph .Fields.Add oApp.Selection.Range, "city" oApp.Selection.TypeText ", " .Fields.Add oApp.Selection.Range, "state" oApp.Selection.TypeParagraph .Fields.Add oApp.Selection.Range, "zip" oApp.Selection.TypeParagraph ' Create an autotext entry. Dim oAutoText Set oAutoText = oApp.NormalTemplate.AutoTextEntries.Add _ ("MyLabelLayout", oDoc.Content) oDoc.Content.Delete .MainDocumentType = 1 ' 1 = wdMailingLabels ' Open the saved data source. .OpenDataSource "C:\data.doc" ' Create a new document. oApp.MailingLabel.CreateNewDocument "5160", "", _ "MyLabelLayout", , 4 ' 4 = wdPrinterManualFeed .Destination = 0 ' 0 = wdSendToNewDocument ' Execute the mail merge. .Execute oAutoText.Delete End With ' Close the mail merge edit document. oDoc.Close False ' Get the current document. Set oMergedDoc = oApp.ActiveDocument ' Show Word to the user. oApp.Visible = True ' Uncomment these lines to save the merged document locally. 'oMergedDoc.SaveAs "C:\test.doc" 'oMergedDoc.Close False 'oApp.Quit False End Sub </script> Tag: Fehler mit dem FSO - Objekt Tag: 170268
  - 7
    - device is in use a user is getting h drivemapped twice because he is in group IT AND LABS WHAT DO I DO? Dim objNetwork, objSysInfo, strUserDN, objUser, strUser Set objNetwork = CreateObject("Wscript.Network") Set objSysInfo = CreateObject("ADSystemInfo") strUserDN = objSysInfo.userName strUser = objNetwork.UserName Set objUser = GetObject("LDAP://" & strUserDN) If IsMember("IT") Then 'objNetwork.removenetworkdrive "q:" objNetwork.MapNetworkDrive "q:", "\\server\IT" objNetwork.MapNetworkDrive "h:", "\\server\Users\" & strUser, false End If If IsMember("Services") Then objNetwork.MapNetworkDrive "y:", "\\server\AcadServ" End If If IsMember("Administration") Then objNetwork.MapNetworkDrive "w:", "\\server\Admin" End If If IsMember("Labs") Then objNetwork.MapNetworkDrive "L:", "\\server\Lab" objNetwork.MapNetworkDrive "h:", "\\server\Users\" & strUser, false objNetwork.addwindowsprinterconnection "\\server\HP4100" End If '-------------------------------------------------------- Function IsMember(strGroup) ' Function to test one user for group membership. ' objUser is the user object with global scope. ' strGroup is the NT Name of the group to test. ' objGroupList is a dictionary object with global scope. ' Returns True if the user is a member of the group. Dim objGroup If IsEmpty(objGroupList) Then Set objGroupList = CreateObject("Scripting.Dictionary") objGroupList.CompareMode = vbTextCompare For Each objGroup In objUser.Groups objGroupList(objGroup.sAMAccountName) = True Next End If IsMember = objGroupList.Exists(strGroup) End Function '---------------------------------------------------------- Tag: Fehler mit dem FSO - Objekt Tag: 170267
  - 8
    - Trying to get a file system script working I've been learning a bit of scripting and picked a task deleting a file. So I read a bit and search the net a bit. I came up with an example: www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey1102.mspx which shows Const TEMPORARY_INTERNET_FILES = &H20& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(TEMPORARY_INTERNET_FILES) Set objFolderItem = objFolder.Self strPath = objFolderItem.Path & "\*.*" Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(strPath) I wanted to modify this a bit so I change the strPath line strPath = objFolderItem.Path & "\triggerParams.js" but this fails with an 800A0035 error. I have checked that the file is in the folder, changing the script to just enumerate the filenames in the folder finds it: For each file in objFolder.Items MsgBox "Found: " & file.name next Can anyone see something I've made a mistake doing? Thanks Tag: Fehler mit dem FSO - Objekt Tag: 170266
  - 9
    - Searching for a certain file name in a log file Is it possible to search a text file for a specific value in VBScript? For instance: I have a log file which contains a distribution job for software to a server. I want to interigate this log file called library.dct (regular text file) for a piece of software which was placed on this server. e.g [Windows XP Service Pack 2] Please advice, thanks in advance Tag: Fehler mit dem FSO - Objekt Tag: 170263
  - 10
    - Can I use VbScript to extract a file from a CAB fie? I am trying to open a cab file on my local machine and then add or delte some file to it and then recompress it into a CAB file again. Can I use vbscript to do this? Thanks Tag: Fehler mit dem FSO - Objekt Tag: 170258
  - 11
    - Script to enable/disable domain account? I'd like to be able to enable/disable a specific domain account in AD using a script. Does anyone know if this can be done? Thanks! Tag: Fehler mit dem FSO - Objekt Tag: 170246
  - 12
    - Can non-admin run GPO script? I've written a vbs script that will enable/disable a GPO link, and it works fine (I'm a domain admin). However, I'd like to allow a non-admin user to run this script. Can this be done? Tag: Fehler mit dem FSO - Objekt Tag: 170245
  - 13
    - generating empty 1gb files Hi all! Can I use vbscript to generate an empty file that has a specified size? I know that you can do it by opening a file for writing and then writing characters into it until it reaches the desired size. But can you gneerate the file in some other way so that you can instantly generate the file? I need to generate dummy files that have a size of 1GB. thanks Tag: Fehler mit dem FSO - Objekt Tag: 170235
  - 14
    - Script startup / current path? Hi, Which command returns the script startup / current location? I'm looking for the directory which contains the script not the current working directory. Many thanks Tag: Fehler mit dem FSO - Objekt Tag: 170233
  - 15
    - VPN3005 PPTP with groups Hi, Is it possible to have PPTP users on a 3005 concentrator authenticate into different RADIUS groups. I would like to have internal users assigned to one group (in one IP Pool) and have customer users assigned to another (again with another IP Pool) The concentraor is in a dmz off of the firewall, and I want to allow access on an IP address basis though the firewall. Thanks for any pointers! Jo Tag: Fehler mit dem FSO - Objekt Tag: 170231
  - 16
    - Change WMI Property with WMI Hello, I'm newbie to use WMI scripting but I'm tring to use Win32_UserAccount method. Some of it properties are read/write and I don't know how to modify it !!! In fact, I would like to modify the fullname of a user per example. I can get all information with that : Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount WHERE Name='rhildt'", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly) And I try to modify with an update sql command : Set colItems = objWMIService.ExecQuery("Update Win32_UserAccount SET Fullname='Toto' WHERE Name='rhildt'") But no error message and no change. I looked on the microsoft documantation : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_useraccount.asp Fullname is a read/write property but no method to modify it and no explaination. Somebody can help me ??? Thanks a lot and sorry for my english (I'm french) Romain Tag: Fehler mit dem FSO - Objekt Tag: 170224
  - 17
    - Confessions of a "Top-Poster" (ugh!)... It has come to my attention that there are participants here who condemn the practice of "top-posting" (i.e., placing the response ahead of the question), as in: A: No Q: Should I include quotations after my reply? I must confess that I do this all the time, under the rationalization that somebody reading down the thread has already read the question, and shouldn't need to re-read it in order to get to my answer. Further, I will frequently cut off or seriously abbreviate the question, to just the specific issue I hope to address. O.K. so this is offensive. But, I ain't going to quit. Here's an easy remedy. If you don't like my habit of "top-posting" then just filter out my postings, and all my annoying violations of netiquette will just disappear. cheers, jw Tag: Fehler mit dem FSO - Objekt Tag: 170223
  - 18
    - LDAP Search Script - Issue Querying Terminal properties I found this handy sample script from Microsoft's website which I want to expand on. I have successfully modified this script to query other values but whenever I try to query Terminal related values the script hangs. For example, where it mentions "SELECT givenName, SN, department, telephoneNumber FROM..." Once I put "TerminalServicesProfilePath" and "TerminalServicesHomeDirectory" - the script hangs. Any idea's? Thanks in Advance ========================================= Const ADS_SCOPE_SUBTREE = 2 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Add objExcel.Cells(1, 1).Value = "Last name" objExcel.Cells(1, 2).Value = "First name" objExcel.Cells(1, 3).Value = "Department" objExcel.Cells(1, 4).Value = "Phone number" 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") = 100 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT givenName, SN, department, telephoneNumber FROM " _ & "'LDAP://dc=fabrikam,dc=microsoft,dc=com' WHERE " _ & "objectCategory='user'" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst x = 2 Do Until objRecordSet.EOF objExcel.Cells(x, 1).Value = _ objRecordSet.Fields("SN").Value objExcel.Cells(x, 2).Value = _ objRecordSet.Fields("givenName").Value objExcel.Cells(x, 3).Value = _ objRecordSet.Fields("department").Value objExcel.Cells(x, 4).Value = _ objRecordSet.Fields("telephoneNumber").Value x = x + 1 objRecordSet.MoveNext Loop Set objRange = objExcel.Range("A1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("B1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("C1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("D1") objRange.Activate Set objRange = objExcel.ActiveCell.EntireColumn objRange.Autofit() Set objRange = objExcel.Range("A1").SpecialCells(11) Set objRange2 = objExcel.Range("C1") Set objRange3 = objExcel.Range("A1") ========================================= Tag: Fehler mit dem FSO - Objekt Tag: 170222
  - 19
    - Outlook - Changing SMTP Ports VBScript Hi Everyone, We have around 100 laptops out there that arent connected to a domain, and most users arent really computer savy. I'm looking to figure out how to change SMTP ports on specific accounts in Outlook 2003 and XP (I've figured it out for Outlook Express). I'm not really sure where to look, I'm quite certain these values are in the registry, but I'm not sure where to look. Anyone have any ideas? Tag: Fehler mit dem FSO - Objekt Tag: 170220
  - 20
    - Possible in vbscript? I'd to use an HTML editor to help filling/modifying a textarea in an HTML form. I am totally new in programming vbscript and would like to know whether the following scenario could be realized with vbscript. When clicked a button located near the textarea: <> Saves the contents of the textarea in a temporary file <> Launches an HTML editor installed on my PC giving it the temporary file as an argument <> Waits for the edit session to complete <> Stores the contents of the temporary file inside the textarea <> Removes the temporary file Thanks for your help. Bruno Tag: Fehler mit dem FSO - Objekt Tag: 170217
  - 21
    - Looping Group Creation Script Help... Hi Firstly, I'm a newbie to vb scripting, and so I find that at the moment, I scrape along using bits of code extracted from various sources (mostly books or Microsoft), until I earn the fundamentals. Basically, I'm trying to say please don't shoot me down if my script contains glaring (to the professional eye) coding errors. At the moment, I'm trying to create a script that creates Active Directory global groups, based on information supplied from a text file (the script loops until it reaches the end of the file). The script assignes two parts to the name, which is the 'cn=' value, and the 'sAMAccountName' value. The 'cn=' part works fine, but the script falls at the 'sAMAccountName' value. The script looks like this: ########################################## Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("C:\Shared\Scripts\Groups\Groups.txt", ForReading) Set objRootDSE = GetObject("LDAP://RootDSE") strRoot = objRootDSE.Get("defaultNamingContext") Set adsContainer=GetObject("LDAP://" & strRoot) i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop msgbox(strNextLine) For Each objItem in objDictionary adsGrp = objDictionary.Item(objItem) Set adsGroup = adsContainer.Create("group", "cn=" & adsGrp) adsGroup.Put "sAMAccountName", adsGrp adsGroup.SetInfo Next WScript.Echo "Group creation is complete" WScript.Quit ######################################################## I've tried putting a MsgBox in just before the 'sAMAccountName' line, to see what the value of the 'adsGrp' variable is, but it returns as empty, then fails. I've used a similar script to create Organizational Units, and it works fine, but that one doesn't assign two values. Can anyone help? -- tbennett300 ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Fehler mit dem FSO - Objekt Tag: 170207
  - 22
    - Error: 80072030, Facility: LDAP Provider, "There is no such object on the server." Hi, I desperetly seek for help here. I'm running this script from my local machine (2003 server) and try to connect to the exchange on a different server. I have all the CDO obejcts installed: 1 Set iExs = CreateObject("CDOEXM.ExchangeServer") 2 iExs.DataSource.Open "inquire-exch" 4 For Each storegroup In iExs.StorageGroups 5 Next As a result, I'm getting the following error on line number 4: C:\a.vbs(5, 1) (null): There is no such object on the server. Facility: LDAP Provider ID no: 80072030 Microsoft CDO for Exchange Management when running the script on the exchange serveri itself, no problem occur. I also have administrator priviliges on the exchange server. Any idea what could be the problem here? Thanks! Alon Tag: Fehler mit dem FSO - Objekt Tag: 170202
  - 23
    - replacing ASCII text newbie question here: I need to create a function that will take in a string and replace any ASCII characters greater than ASCII code 127 with their HTML equivalent. E.g. something like: Replace(sInput, Chr(233), "é") but to account for every other character than might get in there. Would it be more cost-effective (processing-time wise) to just write lots of replace functions one after the other, or should I loop through the string and replace and characters as I encounter them. How would I do this? Thanks! -- "I hear ma train a comin' ... hear freedom comin" Tag: Fehler mit dem FSO - Objekt Tag: 170201
  - 24
    - download and save an image from a website Hi. How do I download an image from a website and save it on the client side? Thanks a lot, MC Tag: Fehler mit dem FSO - Objekt Tag: 170197
  - 25
    - Cant Access a textbox value in a div (HTA environment) Hi, I can write, access style variables to a textbox in a div. But i cant read the value of it. I am working around HTA. i tried window.textboxid.value AND document.getElementById("textboxid").value methods... The textbox is inside the <div>, also div properties has all read-write permissions. I am going to eat my keyboard. What is the definite true solution? Thanks Caglar Tag: Fehler mit dem FSO - Objekt Tag: 170196

Hallo Newsgroup,

ich weiß dass ich hier eigentlich nicht ganz richtig bin, aber vielleicht
kann mir
trotzdem jemand helfen.
Ich möchte mit Hilfe von HTML und VBS meinen eigenen kleinen Pseudoexplorer
schreiben, mit dem ich besser arbeiten kann.
Hierzu benutze ich das VBS - Objekt "Scripting.FileSystemObject" ... (Gibt
es das
in Java Script auch ... ich kann nämlich kein JS) Ich kann Dateien auslesen.
Ich kann
auch Dateien löschen. Wenn ich allerdings ein File kopieren oder
ausschneiden will,
dann kommt die Script - Fehlermeldung "Erlaubnis verweigert" ...
Hat jemand da eine Idee ??? Ich bin ratlos.

Ich hoffe ihr könnt mir helfen.

Grüßle
Christian

Top

Re: Fehler mit dem FSO - Objekt by Steven

Steven
Mon Feb 21 04:58:17 CST 2005

Sie müssen die Erlaubnis auf den Akten und den Heften überprüfen, die Sie
from/to kopieren und zu überprüfen IUSR_<machine > hat Lese-Schreibzugang.

--
Regards

Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk

Keeping it FREE!

"Christian Hellmann" <christian.hellmann@de.bosch.com> wrote in message
news:cvcdkv$flm$1@ns2.fe.internet.bosch.com...
> Hallo Newsgroup,
>
> ich weiß dass ich hier eigentlich nicht ganz richtig bin, aber vielleicht
> kann mir
> trotzdem jemand helfen.
> Ich möchte mit Hilfe von HTML und VBS meinen eigenen kleinen
Pseudoexplorer
> schreiben, mit dem ich besser arbeiten kann.
> Hierzu benutze ich das VBS - Objekt "Scripting.FileSystemObject" ... (Gibt
> es das
> in Java Script auch ... ich kann nämlich kein JS) Ich kann Dateien
auslesen.
> Ich kann
> auch Dateien löschen. Wenn ich allerdings ein File kopieren oder
> ausschneiden will,
> dann kommt die Script - Fehlermeldung "Erlaubnis verweigert" ...
> Hat jemand da eine Idee ??? Ich bin ratlos.
>
> Ich hoffe ihr könnt mir helfen.
>
> Grüßle
> Christian
>
>

Top