FSO file.type

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
    - getting type mismatch with array I'm building a treeview page that is generated and expanded as the user opens links from it, and am using an array stored in a session variable to maintain the tree. The problem I've hit is that of how to corectly dim the array variable. the variables are dimed after option explicit, but having dim arrtree there throws a type mismatch at line 116 when the array is empty but not when its populated having dim arrtree() throws same at line 87 when the array is populated, but is fine when its empty obviously trying to have two dim statements in the if-else throws a 'redefined' error. other than removing the option line, how to get round this? this is the part of the code that is doing the work: if intmenuid > 0 then if session("arrtreeflag") > "" then arrtree = session("arrtree")'########line 87 thisid = Request.QueryString("thisid") x = ubound(arrtree,2)+1 arrtree(9,thisid) = 1 sql = "select tagid,rtrim(m1.menuname) from navigate_tags t left join navigate_menus m1 on tagid = m1.menuid where parentid = "&intmenuid&" and menuname is not null order by node" else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 strmessage = "reset" end if else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 intmenuid = 0 end if if strmessage > "" then Response.Write "timeout - tree reset to top<br/>" 'sql = "cn_viewtree_count "&intmenuid&" " Response.Write "" set rs = conn.execute(sql) if not rs.eof then do while not rs.eof Response.Write "" redim preserve arrtree(10,x) ''''##########line 116 arrtree(0,x) = rs(0) ' node id arrtree(1,x) = 0 ' 0 = menu 1 = item if intmenuid > 0 then arrtree(2,x) = intmenuid ' parentid if intmenuid = 0 then arrtree(2,x) = 0 ' parentid arrtree(3,x) = rs(1) ' name Response.Write "" set rs_c = conn.execute("cn_viewtree_child "&rs(0)&" ") arrtree(4,x) = rs_c(0) ' has child 0 false 1 true arrtree(5,x) = 0 ' has been used in tree arrtree(6,x) = level ' tree level arrtree(7,x) = x ' array node arrtree(8,x) = intmenuid'parentnode 'parent array node arrtree(9,x) = 0 ' has been opened Response.Write "adding index["&x&"] id["&arrtree(0,x)&"]par ["&arrtree(2,x)&"]name["&arrtree(3,x)&"]child["&arrtree(4,x)&"]level ["&arrtree(6,x)&"]parentnode["&arrtree(8,x)&"] <br />" x=x+ 1 rs.movenext loop end if 'arrtree(4,x) = 0 ' has child 0 false 1 true set session("arrtree") = nothing session("arrtree") = arrtree set session("arrtreeflag") = nothing session("arrtreeflag") = "current" Tag: FSO file.type Tag: 167818
  - 2
    - how to read the correct Excel data area I exported a Access table to Excel sheet, then added some more data records, on the sheet. When I re-read this sheet with VBS with DAO, like; Set DB = DBE.Workspaces(0).OpenDatabase(xlsFile,False,False,"Excel 8.0;") Set RS = DB.OpenRecordset(sheetName). With RS Do While Not .EOF ----- ----- All added data records can not be read and stopped always previous end point. Is any place still have the size of data sheet? If so, how to correct and let VBS read the correct , expanded, data area? Thanks in advance, M.M -- ---------------------- System YNT mmiura@sysynt.com ---------------------- Tag: FSO file.type Tag: 167812
  - 3
    - ASP Pages accessing databse issue I am attempting to retrieve a value from a database and populate a textbox on my html form. This code appears to run fine without error but i do not get any value in my textbox. Im very new to ASP and im having to change an existing system. If i do not put my vbscript code at the bottom of the screen then my page will not render correctly. Can anyone please help me ??? Are there any major flaws with my code ??? should my script be before my textbox ???? by the way im only hardcoding input values for test purposes. <%@ Language=vbscript LCID=2057%> <HTML> <HEAD> <title>IDD Document</title> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <body bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout" bgcolor="#ffdcff"> <form id="Form1" method="post" runat="server"> <TABLE id="Table1" style="Z-INDEX: 102; LEFT: 0px; POSITION: absolute; TOP: 0px" cellSpacing="0"cellPadding="0" width="100%" border="0" height="100%"> <TBODY> <TR> <TD style="HEIGHT: 42px" vAlign="top"> <BR> <INPUT id="btn_BackToMenu" type="button" value="Close Window" onclick="window.close()" runat="server"></TD> ******************************************************************* *******************TEXT BOX I WANT TO POPULATE********************* <input type="text" name="T1" size="20" value="<%= strtext%>" ******************************************************************* ******************************************************************* </TR> <TR> <TD><iframe name="myIframe" height="100%" width="100%" frameborder=no src="documents/IDD.pdf" </TR> </td></form> </TABLE> </form> </body></IFRAME></TR></TBODY></TABLE></FORM> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** <% Dim oRS, strSQL, txt_ClientCode, strtext txt_ClientCode = "AA3" If len(txt_ClientCode)>0 Then 'strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode = '" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then strtext = oRS("ClientCode") Response.Write(strtext) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If %> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** </BODY> </HTML> Tag: FSO file.type Tag: 167810
  - 4
    - populating AD fields from pick list I want to scroll through my USERS container and for each user, I want to be able to manually select from a list and return a code that is inserted into a field in AD for that user... Idealy once selected that field could be removed from the list. This is a one time deal so does not have to be fancy. I have my list of names/codes in Excel. Carl Tag: FSO file.type Tag: 167808
  - 5
    - how to create directories? I am unsure as to how to do this without creating a long winded script. I want check to see if a directory or 2 directories exist and if they don't then create them. ie: dir1 \ dir2 \ dir 3 \dir 4 \ dir 5 So dir1 exists but 4 & 5 don't and neither do 2 + 3. The only way to do this that i have found is to create a separate variable for each directory and then create each separately oDir1 = c:\dirA\dirB oDir2 = dirC oDir3 = dirD mDir = oDir1 + oDimM mDir = MDir + oDir3 (just a sample) Is there a better way of doing this? jp Tag: FSO file.type Tag: 167806
  - 6
    - vbscript error accessing database client or server ?? I am trying to run the following vbscript code (see SCRIPT CODE below) using an onclick event on a button(see BUTTON CODE below). I am getting the "error: object expected" at the button code line. Is there a fundamental problem with my script , i.e. trying to run a server side script using a button or is there merely a coding error??? I was hoping to run this code automatically when the page loads pulling in the txt_ClientCode value from a cookie but when i used the line txt_ClientCode = request.cookie("ClientCode") and ran the code as client side script i got an error on the word request. Can anyone please give me a few explanations as to what is happening and any helpful hints. BUTTON CODE <input name="testname" type=button onclick="TestMsg()" style="width:105px;"> SCRIPT CODE <SCRIPT LANGUAGE=vbscript runat=server> Function TestMsg() Dim oRS, strSQL, txt_ClientCode txt_ClientCode = "G10" If len(txt_ClientCode)>0 Then strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then msgbox(oRS("ClientCode")) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If end function </SCRIPT> Thanks Tag: FSO file.type Tag: 167805
  - 7
    - Re: Communicating Between VB6 and a HTML Document Happy New Year Winguy: You have written the code to set the value of a text, but, have you discovered how to set & retrieve the values of Check boxes, and Select Options? Thanks. From: WinGuy (no_spam@nomail.bot) Subject: Communicating Between VB6 and a HTML Document View this article only Newsgroups: microsoft.public.scripting.vbscript Date: 2004-12-28 12:26:03 PST I had a need to manipulate the activities of a webpage hosted by the WebBrowser control from within a Visual Basic project. The requirement was that VB must be able to communicate with VBScript, and vice versa. This is how I accomplished the task. I created a new Visual Basic project and placed the WebBrowser control on its default form. I initially set that control properties with a name of WebBrowser1, and as not visible. I placed a command button on top of the WebBrowser1 control, right-clicked it and sent it to the front and then right-clicked the WebBrowser1 control and sent it to the back. I set the form properties to not display a menu bar. I set the click event handler for the command button to end the program. In the form unload event is where I destroyed all objects before the VB program would end. This code would set the form to entirely fill a 1024x768 screen: Me.Move 0, 0 Me.Width = 15360: Me.Height = 11520 Me.Visible = True This code would then initialize that control for full screen and no taskbar or menus: WebBrowser1.Left = 10: WebBrowser1.Top = 10 WebBrowser1.Height = Me.Height - 20: WebBrowser1.Width = Me.Width - 20 WebBrowser1.AddressBar = False WebBrowser1.MenuBar = False WebBrowser1.StatusBar = False WebBrowser1.FullScreen = True WebBrowser1.TheaterMode = True WebBrowser1.GoHome WebBrowser1.Visible = True I defined a global variable named PageReady. Then this code in WebBrowser1.DocumentComplete: PageReady = True Then I created Sub MyTest() and placed this code into it: WebBrowser1.Navigate MyPath & "Page1.html" 'MyPath is previously defined PageReady = False While PageReady = False: DoEvents: DoEvents: DoEvents: Wend 'Page loaded 'Set the text value in the page control named txtWebBrowser! WebBrowser1.Document.All.Item("txtWebBrowser").Value = "Message from VB6 Code!" 'Get the text value in the page control named txtWebBrowser! 'MsgBox WebBrowser1.Document.All.Item("txtWebBrowser").Value ---------------- That completes the VB part. I then created a webpage called Page1.html,Read the rest of this message... (43 more lines) Post a follow-up to this message Tag: FSO file.type Tag: 167801
  - 8
    - ActiveX Calendar Control On FrontPage 2003 Hi there, I inserted a Calendar Control 10.0 into my FrontPage 2003. I can display it however, I was unable to retrive my selected date value. I don't see a property called Value when I use the "." operator. If I use the sample code from article 299691, I got an Error: Object required: 'Calendar1' Did I use an incorrect version of Calendar Control on FrontPage 2003? Any idea? Thanks. Abel Chan Tag: FSO file.type Tag: 167800
  - 9
    - Error in loading DLL. '800a0030' Hi folks, I have been trying to solve an ERROR during some days with no result. I would appreciate if any of you could help me with this issue. This is the error message produced by the ASP page: Microsoft VBScript runtime error '800a0030' Error in loading DLL: 'Datos.SetObjProceso' /Prueba.asp, line 4 And this is the ASP code: ASP Page (Prueba.asp) ------------------------------- Set Proceso= Server.CreateObject("Procesosdll.Proceso") Set Datos= Server.CreateObject("Procesosdll.Datos") Set Proceso.SetObjDatos = Datos Set Datos.SetObjProceso = Proceso <----- The error happens to be here ------------------------------- None of the posible reasons apply to this case: - Use of collections: There is not collections in the 2 objects. - Sending e-mails: There are no emails sent from this component. - Return recordsets: I don´t return them. - Return types defined by the user (UDT): As you could see in the code, this practice is not used. The most extrange thing is that the previous code line to the error (Set Proceso.SetObjDatos = Datos), which is very similar, does not produce the ERROR. The component Procesosdll have 2 objects: Datos and Proceso. These are the properties related to the error (the others are working fine): Object Datos ------------------------------- Private mvarObjProceso As Proceso Public Property Set SetObjProceso(ByVal obj As Proceso) Set mvarObjProceso = obj End Property ------------------------------- Object Proceso ------------------------------- Private mvarObjDatos As Datos Public Property Set SetObjDatos(ByVal obj As Datos) Set mvarObjDatos = obj End Property ------------------------------- It is also very weird that in the development environment everything is working fine and, on the other hand, in the production env. this misterious error is being happing. Development environment detail ------------------------------- Windows NT 4.0 + SP 6 IIS 2.0 VB 6.0 ------------------------------- Production environment detail ------------------------------- Windows 2003 Server IIS 6.0 ------------------------------- Unfortunately I cannot have the same configuration (OS+IIS) in both environments as they belong to different companies shared to different users. Any help would be really appreciated. Thanks in advanced and regards. Sergio Galindo. Tag: FSO file.type Tag: 167799
  - 10
    - using variable in Where clause I am trying to create a script that will kill a process based on the process name which is passed to the script as a cli argument. The following code snippet works fine if the process name is hardcoded in the script, but I can't assign the process name to a variable and use that in the ExecQuery command. Set colProcessList = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Process WHERE Name = 'AIM.EXE'") I would rather use WHERE Name= variable Tag: FSO file.type Tag: 167789
  - 11
    - class property Let -v- Set Anyone have an example that could illustrate where/when a Class Property â??Setâ?? is used as opposed to a â??Letâ?? (or visa-versa)? All I have found so far is ... "Property Setâ??s used when you need to use a procedural property to pass an object for use by the class, rather than just a standard variable" â?¦ which I read as you need a 'Set' when you are going to pass an object reference (such as a FSO file) to a procedure in the class object. For example a MyClass.MyFile=oFSO.GetFile("test.txt") would use a Set, but a MyClass.MyFileName = "test.txt" would use a Let. Cheers -- Alun Boyd (UK) Tag: FSO file.type Tag: 167783
  - 12
    - Problem with the WHERE clause in an SQL Script. The Field HUPDEMP can be a valid Employee Code or a Constant. The Constant will always be SSS. I am having trouble with the constant script on the following statement. Where is my syntax error? rsTEXAS.Open "SELECT * FROM HSCHOOL ORDER BY HCLBKDT, HSchool WHERE HUPDEMP = '" & EmpCode & "' or HUPDEMP = 'SSS'", cnnct, 3, 3 Thanx in Advance Len Tag: FSO file.type Tag: 167782
  - 13
    - parse output data Hello all, Please excuse this newbie question, but I am trying to hack a previously made script to do my bidding, and unfortinatly I am not very good with VB / ASP The script works put I want to parse the data down to the first line or so and I can not for the life of me figure out how. Here is the script <% ' Create an instance of the object. Set whois = Server.CreateObject("GSWhois.Whois") ' Attempt to connect to a "whois" server... if (whois.Connect("whois.arin.net") = "OK") Then 'using IP TO TEST will replace with variable <%strIP%> once inserted into page output = whois.Query("115.23.98.2") Response.Write Output Else Response.Write("Unable to connect to whois server") end If whois.Close Set whois = Nothing %> and here is the output OrgName: Internet Assigned Numbers Authority OrgID: IANA Address: 4676 Admiralty Way, Suite 330 City: Marina del Rey StateProv: CA PostalCode: 90292-6695 Country: US NetRange: 96.0.0.0 - 126.255.255.255 CIDR: 96.0.0.0/4, 112.0.0.0/5, 120.0.0.0/6, 124.0.0.0/7, 126.0.0.0/8 NetName: RESERVED-8 NetHandle: NET-96-0-0-0-1 Parent: NetType: IANA Reserved Comment: RegDate: Updated: 2002-09-12 OrgAbuseHandle: IANA-IP-ARIN OrgAbuseName: Internet Corporation for Assigned Names and Number OrgAbusePhone: +1-310-301-5820 OrgAbuseEmail: abuse@iana.org OrgTechHandle: IANA-IP-ARIN OrgTechName: Internet Corporation for Assigned Names and Number OrgTechPhone: +1-310-301-5820 OrgTechEmail: abuse@iana.org # ARIN WHOIS database, last updated 2005-01-03 19:10 # Enter ? for additional hints on searching ARIN's WHOIS database. I really only want the first part of the data can someone help me with this please? TIA DP Tag: FSO file.type Tag: 167781
  - 14
    - connecting to pcs and a different path on each connection I need to connect to about 80 different pcs. I have that working but on each pc that I connect to I need to specify a different path. ie c:\documents and settings\bob or \larry or \susan I am talking about %username% = bob,larry, and susan but Im not sure how I can do that. there is not connection between the computername and username. I am in a 2003 ad domain but Im not sure how I can link the two. Each computer has 2-3 different users on them but should only have 1-2 possibly 3 that have been used to logon to the domain. Can anyone help me with the path problem Thanks Ryan Tag: FSO file.type Tag: 167780
  - 15
    - get total size of a folder (all objects in it) on a remote computer How can I get the total size of a folder (all objects in it) on a remote computer? I have been looking for an example but having no luck. -thanks! Tag: FSO file.type Tag: 167778
  - 16
    - Uploading a File from a Form as Stream I am working on a Library Administration web page. The page provides the capability to add, edit, replace, suspend/activate, and delete documents from the site Library. The user selects a function and the form is dynamically produced using XML and the .innerHTML functionality. My problem is I need to be able to allow the upload of a file without actually submitting the form. All functionality of this admin interface is based on using the CreateObject("MSXML2.XMLHTTP") functionality, sending XML back and forth from client to server so the page does not have to reload. Any suggestions on how to upload a file to the server from this page using VBScript and a stream? Thanks in advance to anyone who can figure it out. Jim Tag: FSO file.type Tag: 167774
  - 17
    - Exchange 2003 mailbox creation I've made a script to create a single user in Windows 2003 AD, with homedir and mailbox, I can create the user and the homedir but NOT the mailbox. Everything works but the mailbox creation. I run the script from the DC, it altso runs the exchange 2003! Why doesn't this work???????? ---------------- code snip ------------------------ Set user = ouHO.Create( "User" , "CN=" & sFirstName & " " & sLastName) user.Put "samAccountName" , sUserName user.SetInfo user.GetInfo user.Put "givenName" , sFirstName user.Put "sn" , sLastName user.Put "userPrincipalName" , sUserName & "@DOMAIN.COM" user.AccountDisabled = False user.Put "streetAddress" , sAdresse user.Put "PostalCode" , sPostnr user.put "l", sBy user.put "telephoneNumber", sTlf user.put "HomeDirectory", "\\mail\brugere\" & sUserName user.Put "homeDrive", "Q:" user.put "scriptPath", "logon.vbs" 'Create user home directory. If Not fso.FolderExists("\\mail\brugere\" & sUserName) Then Set fldUserHomedir = fso.CreateFolder("\\mail\brugere\" & sUserName) End If 'Set full rights for Administrators and change right for user and removes the Everyone group wshShell.Run "net share " & sUserName & "=f:\brugere\" & sUserName & " /y", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G Administrator:F", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /R everyone", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G " & sUserName & ":C", 1, True user.SetInfo user.SetPassword "12345" MBXStoreDN = "CN=Mailbox Store (SERVER),CN=First Storage Group,CN=InformationStore,CN=SERVER,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=First Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=DOMAIN,DC=COM" Set exchUser = user ExchUser.CreateMailbox MBXStoreDN ExchUser.SetInfo ----------------------- code snip -------------------------- Regards Ole Rasmussen Tag: FSO file.type Tag: 167770
  - 18
    - Proxy Settings Hello There! Is there a possibility to read out the proxy settings from a remote computer and maybe change them via a script? I think about WMI objects or something. Maybe even over remote access to the registry? cu StefanP Tag: FSO file.type Tag: 167769
  - 19
    - checking log file Hello everyone, I have a logfile that is updated every 5 minutes. What I'd like to do is have a vbscript monitor this file and if the last date modified is greater than 30 minutes from the current time, send an email to me. Anyone have any idea of doing this? I'm struggling with the way to subtact minutes from the timestamp of the log file. Thanks! Moogeboo Tag: FSO file.type Tag: 167763
  - 20
    - how to query line number? is it possible to query the currently executing line number somehow? thanks, Jon Tag: FSO file.type Tag: 167761
  - 21
    - Zip and Unzip files and folders Hi, I have a script that makes a backup of my info, in win2003 server, but I need zip and unzip my info with the same backup script, I dont want install software extra, I want use the way that windows have to make compressed ziped folders. Someone can help me??? Tag: FSO file.type Tag: 167755
  - 22
    - REgini syntax What syntax do I use to change permissions on a key and all of it's child objects? I have \registry\machine\software\burli [1 17] the above is an example. what do I need to add to have those permissions propagate down? thanks Tag: FSO file.type Tag: 167750
  - 23
    - standalone ADO recordset If I create and fill a standalone ADO recordset is there any way I can write SQL to compare these records with an existing Access table? I have an Access database with photo file names and descriptions in a table. My vbscript builds a standalone recordset based on jpg files found in some folder. I would like to report any records missing in either the database table or files in the folder. thanks ljb Tag: FSO file.type Tag: 167748
  - 24
    - VB Script newbie question Hi I have the following script, which works fine for getting some of the data requested but not all. I realise the reason this occurs is thatin the line: "Select * from Win32_ComputerSystem",,48) it just specifies win32_computersystem. Is there a way to specify multiple WMI objects in the same script? ----------------- On Error Resume Next strComputer = InputBox ("Enter Remote Computer Name or Press Enter for local machine","Enter Remote Computer Name",".") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery( For Each objItem in colItems Wscript.Echo "Wallpaper: " & objItem.Wallpaper Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Model: " & objItem.Model Wscript.Echo "Name: " & objItem.Name Wscript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors Wscript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName Wscript.Echo "SystemType: " & objItem.SystemType Wscript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory Wscript.Echo "UserName: " & objItem.UserName Wscript.Echo "Computer name: " & objComputer.MachineName Wscript.Echo "Start Time: " & objItem.StartTime Next Tag: FSO file.type Tag: 167744
  - 25
    - FileExists Wildcard + newest file I am writing a script to read a log file that is dumped at random times. All of the logs are in the same location but the name contains a timestamp of sorts. example: c:\log\log2004-11-16-13-12.log How do I search the directory for "c:\log\log*" and open the newest one for reading? Tag: FSO file.type Tag: 167740
- Next
  - 1
    - read email header info I need to retrieve emails from a pop3 server and read their header info (sender, subject, time sent) into variables. Once the header info is read, the email can be removed from the pop3 server and discarded. Any help would be greatly appreciated. Thanks... -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: FSO file.type Tag: 167735
  - 2
    - FileOpen Hi@all, sorry but i'am new at VBS. Ich have make a HTML-Page with VBScript and now i try to read and write a text file but how, [script] Dim TextLine FileOpen(1, Projektverzeichnis+"Inhalt\Help.htm", OpenMode.Input) ' Open file for reading. While Not EOF(1) TextLine = LineInput(1) ' Read next line. Debug.WriteLine(Seek(1)) ' Position of next line. End While FileClose(1) [/script] will not work. Thx for any help, cya Thommy Sorry about my English Tag: FSO file.type Tag: 167732
  - 3
    - list all objects under mailbox rights for I was wandering if you could help me with this script.... I need vb script that will list all objects under mailbox rights for user account and then output them into txt file. Further on I would like to grant user with send on behalf right for specific account, if he is missing these rights. Thanx for any help... /* Goran */ Tag: FSO file.type Tag: 167729
  - 4
    - Need help for writing a vbscript from the Gurus Hello All, How can achieve the following: A = 2 B = 3 C = 25 D = 3 X = 10 I would like to obtain X = 0 by decreasing each A B C D (keeping this priority). In this example only A B & C will be affected Thanks for your help Tag: FSO file.type Tag: 167725
  - 5
    - ASP scripting compilation error: '80070002' I am a totally newbie in ASP / VB programming, I would like some help from you guys if possible. Below are the steps given which i followed, Step 1: Create a MFC based .Exe with single file document option. Step 2: Insert -> Add ATL object -> Select Simple object. Step 3: Build the .Idl file with 2 dummy fuctions as Add, Dummy. Step 4: Build the proxy DLL in a saperate project including the files generated by .idl Step 5: Register the exe. Step 6: create object from ASP page. Step 7: Call the function. I have just pasted the sample code of my script being used, and the result obtained when i run the code. Please let me know why Compilation Error : '80070002' is obtained. <HTML> <TITLE>Multiplication</TITLE> <BODY> <% Dim MulResult Dim MulNum, result Response.write (" before") Set MulNum = CreateObject("mfcatl.math.1") Response.write ("after") result = MulNum.Add(2,8) Response.write(result) %> </BODY> </HTML> RESULT obtained : before after Parse error in script ASP scripting compilation error: '80070002' Description: In file: /multi.asp Tag: FSO file.type Tag: 167724
  - 6
    - mailbox rights Anybody who could help...? I need vb script that will list all objects under mailbox rights for user account and then output them into txt file. Thanx for any help... /* Goran */ Tag: FSO file.type Tag: 167723
  - 7
    - Word open doc I don't know how open document in word Please help me. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 3 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\test""'") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.PartComponent 'sCommand = "C:\Program Files\Microsoft Office\Office10\winword.exe" Loop Tag: FSO file.type Tag: 167722
  - 8
    - script to send ndr I need to write a script that will check a catch-all mailbox (pop3) and send a non delivery report back to the sender of the email. Background info: I have a domain hosted on a site that offers unlimited email accounts... the problem is, emails sent to an invalid address on the domain aren't automatically returned as non-deliverable. I am, however, able to set up a catch-all address and able to pick up those emails. Id like to set up a script that checks that account and generates an appropriate ndr that looks like the following: Your message To: email@domain.com Subject: test non delivery Sent: Sun, 2 Jan 2005 20:42:39 -0500 did not reach the following recipient(s): email@domain.com on Sun, 2 Jan 2005 20:42:39 -0500 The e-mail account does not exist at the organization this message was sent to. Check the e-mail address, or contact the recipient directly to find out the correct address. <server.domain.com #5.1.1> And if possible, return the original message as an attachment as a normal non delivery report would. -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: FSO file.type Tag: 167715
  - 9
    - Telnet using vbscript (or similar) Simple question... Is there a way to telnet into (passing user name and password info) into a unix computer, and launch a program from within a vbscript? I was thinking the winsock.dll should be able to provide connection functionality but I can't find any information regarding the use of the dll with vbscript. I'm trying to stay away from using Visual Basic or writting my own C++ project. Any help is greatly appreciated. - Coach Tag: FSO file.type Tag: 167713
  - 10
    - How to Return Filename in particular folder I have a folder (C:\Origin) that has 3 Files (test1.xml, test2.pdf, test3.sch) The name of the xml file will change daily as the primary app writes it. I need to capture the name of the .xml file, rename it, Move it to C:\Archive (with it's new name) The rest of the script that actually process the xml file I already have. There will only be 1 xml file in C:\Origin (with a random name) Thanks Dale Tag: FSO file.type Tag: 167711
  - 11
    - empty cookies and temporary internet folders Hello, is it possible to delete the cookies folder and the IE cache folder within a script?? thnx, Marco J.L. Tag: FSO file.type Tag: 167710
  - 12
    - create an administrative share on c$ via script? Is it possible to create an administrative share on c$ via (or wmi)? I dont really think I understand if theres a difference between a "regular share" and an "administrative share" so maybe I am over thinking this. Tag: FSO file.type Tag: 167708
  - 13
    - shortcut-extended there is scripting object "shortcut", but it mainly manages target, name, path etc ... is it possible to manage *every* item appearing on shortcut's sheet with vbscript, like gui does? i am specialy interested on setting "close on exit" for dos prompts shortcuts. Tag: FSO file.type Tag: 167706
  - 14
    - How to copy & paste by using vbscript? Thanks in advance. Tag: FSO file.type Tag: 167698
  - 15
    - Documentation for FileScriptingObject Hi, Is the FileScriptingObject documented anywhere? Thanks. Raphael Tag: FSO file.type Tag: 167697
  - 16
    - how to create a folder based on login In an workgroup environment i must create a script that gets the name of each client local machine and then it should create a folder with that machine name in the server. If already exists the folder for ie "xpto" the script shouldn't do nothing. Another doubt remains once i'm working in an workgroup environment should i put this script running through a schedule task or by service?... If the second choice is better how can I do that? Ricky Tag: FSO file.type Tag: 167695
  - 17
    - rename multiple computer accounts with csv file Hello .. We have to change all our 200 clients to a new domain.. therfore we have some scripts... thats ok ..but we have to change all computer names, too. I habe found a really good script to change a single computer account with vbs http://cwashington.netreach.net/depo/view.asp?Index=990&ScriptType=vbscript it works with a Inputbox but i would like to have a script which reads the old computername in the first column of a .csv file and takes the new computername from the same row but the second column. But my script-experience isn't high enough.. I think that some other admins have similar scenarios..to manage it. I have found this script/function to parse a line from a csv and return a value based on the field id http://cwashington.netreach.net/depo/view.asp?Index=958&ScriptType=vbscript but I don't get it work together.. I hope anyone can help me all my searches at google and groups comes to nothing sorry for my bad english.. I'm from germany ;-) Happy New Year 2005 Here are the scripts ------------------------------------------------------------------------------- Dim RegKeyCompName, RegKeyTCPIP, WSHShell, ComputerName, HostName, DomainName, FQDN, ADRootDSE, ADSysInfo, ADComputerName, ADRenameOK, ADRNewName, vStartRenameCA, NewNAmeU, NewNameL, vStartRenameAD On Error Resume Next '###### READ IN EXISTING COMPUTERNAME AND FQDN ###### RegKeyCompName = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\" RegKeyTCPIP = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\" Set WSHShell = CreateObject("WScript.Shell") ComputerName = WSHShell.RegRead (RegKeyCompName & "ComputerName\ComputerName") Hostname = WSHShell.RegRead (RegKeyTCPIP & "Hostname") DomainName = WSHShell.RegRead (RegKeyTCPIP & "Domain") FQDN = HostName & "." & DomainName Set ADRootDSE = GetObject("LDAP://RootDSE") If Err.Number <> 0 then ADComputerName = "Unable to determine this information" ADOU = "Unable to determine this information" ADRenameOK = "0" else Set ADSysInfo = CreateObject("ADSystemInfo") ADComputerName = ADSysInfo.ComputerName 'Get DN of local computer ADRenameOK = "1" ADOU = Mid(ADComputerName, InStr(ADComputerName, "=") + 1) 'Strip off just after the first = sign ADOU = Mid(ADOU, InStr(ADOU, "=") - 2) 'Strip off at 2 before the second = sign ComputerPath = "LDAP://" & ADComputerName OUPath = "LDAP://" & ADOU End if '###### ASK USER FOR NEW DETAILS ########### MsgBox "This script renames this computer and its active directory account" & vbCr & vbCr & "Name: " & ComputerName & vbCr & "FQDN: " & FQDN & vbCr & vbCr & "AD DN: " & ADComputerName & vbCr & "AD OU: " & ADOU, 0, "Information" NewName = InputBox("Enter the new computer name below and click OK to continue","Rename: Step 1") NewNameU = UCase(NewName) NewNameL = LCase(NewName) NewNameUCN = "CN=" & NewNameU if NewName = "" then wscript.echo "The computer name has not been changed" else vStartRenameCA = MsgBox ("Continue and rename computer to: " & NewName,vbYesNo or vbExclamation,"Rename: Step 2") if vStartRenameCA = 6 then With WSHShell .RegDelete RegKeyTCPIP & "Hostname" .RegDelete RegKeyTCPIP & "NV Hostname" .RegWrite RegKeyCompName & "ComputerName\ComputerName", NewNameU .RegWrite RegKeyCompName & "ActiveComputerName\ComputerName", NewNameU .RegWrite RegKeyTCPIP & "Hostname", NewNameL .RegWrite RegKeyTCPIP & "NV Hostname", NewNameL End With wscript.echo "The computer name and FQDN have been changed" elseif vStartRenameCA = 7 then wscript.echo "The computer name and FQDN have NOT been changed" end if if ADRenameOK = 1 then vStartRenameAD = MsgBox ("Continue and rename AD Account to: " & NewName,vbYesNo or vbExclamation,"Rename: Step 3") if vStartRenameAD = 6 then Set objItem = GetObject(ComputerPath) objItem.Put "dNSHostName", NewNameL & DomainName objItem.SetInfo objItem.Put "displayName", "DESKTOP_" & NewNameU & "$" objItem.SetInfo objItem.Put "sAMAccountName", NewNameU & "$" objItem.SetInfo Set objNewOU = GetObject(OUPath) Set objMoveComputer = objNewOU.MoveHere _ (ComputerPath, NewNameUCN) wscript.echo "The active directory computer account has been changed" elseif vStartRenameAD = 7 then wscript.echo "The computer account in AD has NOT been changed" End If else wscript.echo "Insufficient information to rename AD account" End If End if ------------------------------------------------------------------------ ---------------------------------------------------------------------------- ' Sample Usage -- TestString = "Phyisical, Data, Network, Transport, Application, Session, Presentation" 'FYI - First data field is id=0 WScript.Echo CSV_Results(TestString, 2) 'Echoes "Network" WScript.Echo CSV_Results(Teststring, 6) 'Echoes "Presentation" '------ Private Function CSV_Results(csvstring, fieldID) i = 0 Comma = Array(i) result = Array(i) Comma(i) = InStr(1, csvstring, ",") result(i) = Left(csvstring, Comma(i)-1) If InStr(1, result(i), CHR(34)) <> 0 Then Qpos1 = InStr(1, csvstring, CHR(34)) Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34)) Comma(i) = InStr(Qpos2 +1, csvstring, ",") result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1) End If Do While Comma(i) <> 0 i = i + 1 ReDim Preserve Comma(i) ReDim Preserve result(i) Comma(i) = InStr(Comma(i-1)+1, csvstring, ",") If Comma(i) <> 0 Then result(i) = Mid(csvstring, Comma(i-1)+1, Comma(i) - Comma(i-1) -1 ) If InStr(1, result(i), CHR(34)) <> 0 Then Qpos1 = InStr(Comma(i-1), csvstring, CHR(34)) Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34)) Comma(i) = InStr(Qpos2 +1, csvstring, ",") result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1) End If End If Loop strLength = Len(csvstring) result(i) = Right(csvstring, strLength - Comma(i-1)) If InStr(1, result(i), CHR(34)) <> 0 Then result(i) = Replace(result(i), CHR(34), "") End If CSV_Results = result(FieldID) End Function ------------------------------------------------------------------------- Tag: FSO file.type Tag: 167693
  - 18
    - Need Loop with Timer Assistance I don't code in VB script much; thus, here's my question.... I need the following script to loop until the {Spacebar} key is pressed; moreover, the loop needs to re-iterate after a two second pause. ====START==== Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.SendKeys "^{z}" WScript.Quit ====END===== Thanks in advance, Todd Tag: FSO file.type Tag: 167692
  - 19
    - How to create printer share using vbscript ? Dear all, Is anybody know how to create printer share using vbscript ? Thanks. Tag: FSO file.type Tag: 167686
  - 20
    - VBScript to set IE proxies Hi, I have a question that I have no idea where to even begin researching. I want to write a vbscript, 2 of them actually. One script should set up a hardcoded set of proxies for IE to use and the other should clear all proxy lists that IE uses. I'm sure its a rather simple thing to do, but I don't know where WinXP stores this information. I assume it is an registry setting. Thanks, Brett Tag: FSO file.type Tag: 167680
  - 21
    - Run code based on subnet I'm pretty much just starting out with vbscript and I'm a long ways from knowing how to do something like this myself. In short, I need a script that copies files from a network share to a folder on the local drive based on where they are at in our agency (location). Since each seperate location is its own network (ie: 192.168.1.0, 192.168.2.0, 192.168.3.0, ect), I need the user, when they log in, depending on what building they are at, to transfer files from a server located at that building to their local hard drive. We have a sql server located at one complex and all the other buildings connectec via T1s. Every now and then our 3rd party developers will log into our SQL server and update software libraries then force all the clients in the network to update those libraries. When all the employess in the agency come to work the next morning and all log into our database software, they all start pulling those new libraries over at the same time. These aren't small files and when everyone is doing it, it takes up to a half hour or even fails because it's too much bandwidth for the T1s to handle. One way I temporarily fixed this was to copy the files onto a server located at each facility. Then, I made a link on the internal website with a label for each building. We would tell people to go to the internal website and click on the link that represents where they are. This would run the batch file wich was written to copy the updated software libraries from a local (on the same subnet) server to their harddrive instead of having them auto-download them from over the T1s. We've aleady told our 3rd party developer not to force the downloads anymore. But, we need to find a way to force the downloads ourselves so the employess don't have to go to the internal website and click on the appropriate link. I was hoping there would be a way in a longon vbscript (domain logon) that would cause the user to transfer the libraries from the local server to their harddrive based on what location they are at. Sorry this was so much reading but I wanted to make it as clear as possible. Thanks, Jim Tag: FSO file.type Tag: 167672
  - 22
    - Detecting Battery Mode programatically Is there a way to detect weather my laptop is using the battery or power-cable programatically in Windows Script? I have an IBM ThinkPad A30 with Windows 2000 SP3 with a background service that takes up a large processing power when activated. If possible, I'd like to shut-down this service automatically whenever I un-plug the laptop, then start it back up again when I plug it back in. I have search the forum for solution and try to use WMI win32_battery to get information on my Windows XP Pro, but it seems not work, for the properitiers of "BatteryStatus", it just return "1 - Other" when my notebook is using battery and return "2 - unknow" when I attach power cable to my notebook, but it should return "charging" or "using battery". Why I want to get information of power status ? I want to automatically install windows xp sp2 patch for all my office desktop and notebook sliently , but it seems not work on notebook when it's using battery power. Is somebody can help me ? Thanks in advance. Motor. Tag: FSO file.type Tag: 167662
  - 23
    - Current logged on user and session time. How can I use vbs to remotely (or locally) determine what username is currently logged in at the desktop of a workstation and also how long that username has been logged in? I don't need the code necessarily, just a place to look. Thanks Tag: FSO file.type Tag: 167659
  - 24
    - determine current directory script is executing in? Hi all. I have a script thats going to connect to a remote machine and copy files back to the local (executing) machine. Problem is, I need to get the scripts copied back to whatever directory the script is running in (it will be distributed to folks and thay can put it where they want it) and so need to determine that relative location so I can pass it in as the copy to path. Can someone help? Tag: FSO file.type Tag: 167658
  - 25
    - ftp - vbnet Could anyone send me the code haow can I ftp a couple of files into server Windows 2003 server with normal FTP service as a integral part of IIS 6.0 (with or without of anonymous access) regards D.T. Tag: FSO file.type Tag: 167656

How do you deal with FSO file.type method returning "JPEG Image" on one PC
and "DELL Image Expert Picture" on another when the file's extension is
jpg? Must I parse the file.name property to be sure of its type?

thanks
LJB

Top

Re: FSO file.type by ljb

ljb
Wed Jan 05 09:58:39 CST 2005

"ljb" <.> wrote in message news:u0jL6tz8EHA.3336@TK2MSFTNGP11.phx.gbl...
> How do you deal with FSO file.type method returning "JPEG Image" on one PC
> and "DELL Image Expert Picture" on another when the file's extension is
> jpg? Must I parse the file.name property to be sure of its type?
>
> thanks
> LJB
>
>

Sorry to bother everyone. I found a solution using GetExtensionName.

Ucase(ofs.GetExtensionName(objFile.Path)) = "JPG"

Top