Convert VB app to vbscript

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
    - Retrieve ProcessID for the running script I am able to retrieve the ProcessID for processes using the Win32_Process Class, however I am not able to retrieve the ProcessID for the script that the code is running in. I can't use the Name of the process since I have multiple wscript.exe running so the only way I can think of getting the ProcessID is by finding properties for the current script process only. I have no idea how to do this since the closest I can get is a complete list of running processes while I just need the info for the currently running script. Any help with this issue would be greatly appreciated. Tag: Convert VB app to vbscript Tag: 212991
  - 2
    - COM+ application server Hi, All, How to know whether a server is COM+ application server or not? Thanks, -Andrew Tag: Convert VB app to vbscript Tag: 212987
  - 3
    - Sorting in VBscript I have a vbscript that retrieves pdf files and outputs them in a table with a link to the file plus the date modified. I'm trying with no luck to sort the links starting with newest file. The file path is newbusiness/2007. There is a folder for each year. A the top of the table is a list of links to each year folder. Below is the code: <%@ Language = "vbScript"%> <%option Explicit%> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <% ' **************************************************************************************************** ' FSO - Datasource - path to the icon Folder ' **************************************************************************************************** Dim ObjFSO Set ObjFSO = CreateObject("Scripting.FileSystemObject") '** Create FSO Function getCurrentYear() getCurrentYear = DatePart("yyyy", Date) if not ObjFSO.FolderExists(Server.MapPath("newbusiness\" & getCurrentYear)) then getCurrentYear = getCurrentYear - 1 end if Exit Function End Function Dim FolderRequest : FolderRequest = Request.QueryString("archive") & "\" '** grabs the query string passed by the argument "?folder=" If FolderRequest = "\" or Len(Request.QueryString) = 0 then If ObjFSO.FolderExists(Server.MapPath("newbusiness\" & getCurrentYear)) then FolderRequest = getCurrentYear & "\" else getCurrentYear = getCurrentYear - 1 FolderRequest = getCurrentYear & "\" end if end if Dim FolderPath FolderPath="newbusiness\" & FolderRequest '** newbusiness folder path/ Dim RootFolder, NavPath, s, n Dim f1 Dim sf MapMyDrive() '============================================================== ' Sets up the folder path where the pdf files will be read from '============================================================== Private Sub MapMyDrive() On Error Resume Next Set RootFolder = ObjFSO.GetFolder(Server.MapPath(FolderPath)) If Err.Number <> 0 then FolderPath = "newbusiness\" & getCurrentYear & "\" '** newbusiness folder path/ Err.Clear() else FolderPath= "newbusiness\" & FolderRequest end if Set RootFolder = ObjFSO.GetFolder(Server.MapPath("newbusiness/")) '** Root folder = New Business folder Set NavPath = ObjFSO.GetFolder(Server.MapPath(FolderPath)) '** set what files are shownview depending on what's defined in NavPath Set sf = RootFolder.SubFolders '** set subfolders to read information from the /newbusiness folder (top level directory) Exit Sub End Sub Function ShowFolderList(folderspec) '** grabs all the files within a specific folder and outputs them, with links, as a single string Dim n n = 0 For Each f1 in sf n = n + 1 if n = 1 then '=== Do Nothing === else s = s & "<font color='#ffffff'>|</font> " end if s = s & "<nobr><a href='newbusiness.asp?archive=" & f1.name & "'>" & UCase(replace(f1.name ,"_"," ")) & "</a></nobr> " Next ShowFolderList = s End Function ' **************************************************************************************************** ' Outer table ' **************************************************************************************************** %> <!doctype html public "-//w3c//dtd html 4.0 transitional//en" > <html> <head> <TITLE>New Business Archive for <%response.Write(replace(replace(FolderRequest, "\", "") ,"_"," ")) %> </TITLE> <link rel="stylesheet" href="/CityOfRichmondVirginia.css"> <link rel="stylesheet" href="newbusinessarchive.css" title="New Business Archive Style Sheet"> </head> <body bgcolor="#E2DED4" text="#000000" link="#000000" vlink="#000000" alink="#000000" leftmargin="0" topmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" name="top"> <form name="frmMain" method="post" action="index.aspx" id="frmMain"> <input type="hidden" name="__VIEWSTATE" value="dDwxMzE4OTY3MjM2Ozs +cEc8jXCd4QzwkdirzxyX1EgPR0c=" ID="Hidden1"/> <div align="center"> <table bgcolor="#333333" width="760" cellspacing="0" cellpadding="1" border="0" style="background:#333333;width:760px;" ID="Table1">  <tr> <td> <table background="" bgcolor="#E2DED4" width="100%" cellspacing="0" cellpadding="0" border="0" ID="Table3"> <tr> <td align="center"><script src="/macromediaflashdetect.js" type="text/javascript"></script> <object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/ swflash.cab#version=6,0,0,0" width="758" height="98" id="Richmond.Main.Menu" align="middle" > <param name="movie" value="/PageTemplates/flash/ Richmond.Main.Menu.Smaller.swf? __ServerName=wwwdev&__PageTemplateName=Default&__PageTemplateType=SmallDeptHeader" / > <param name="menu" value="false" /> <param name="allowScriptAccess" value="sameDomain" /> <param name="quality" value="high" /> <param name="scale" value="noscale" /> <param name="wmode" value="transparent" /> <param name="loop" value="false" /> <param name="bgcolor" value="#E2DED4" /> <embed src="/PageTemplates/flash/ Richmond.Main.Menu.Smaller.swf? __ServerName=wwwdev&__PageTemplateName=Default&__PageTemplateType=SmallDeptHeader" loop="false" menu="false" quality="high" scale="noscale" wmode="transparent" bgcolor="#E2DED4" width="758" height="98" name="Richmond.Main.Menu" align="middle" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" /> </object> </td> </tr> <tr height="15" bgcolor="FEF8E8"> <td></td> </tr> <tr> <td align="center" bgcolor="FEF8E8">  <table bgcolor="#333333" width="760" border="0" cellpadding="1" cellspacing="0" align="center" ID="Table4"> <tr> <td valign="top" bgcolor="#99cccc"> <table width="100%" border="0" cellspacing="0" cellpadding="1" ID="Table5"> <tr bgcolor=""> <td colspan="2" align="center"> <span class="pagetitleteal">New Business Archive</ span><br><br> </td> </tr> <tr bgcolor="#999999"> <td colspan="2" align="center"> <%Response.Write "<B>"&ShowFolderList(sf)&"</B>" %> </td> </tr> <tr> <td colspan="2"> <table width="100%" cellpadding="3" cellspacing="0" border="1"> <% ' *************************************************************************************************** ' Display pdf files and tables in specific folder ' *************************************************************************************************** Dim files, fileCountIndex Set files = NavPath.Files fileCountIndex = files.count ' **************************************************************************************************** ' Display Number of picture ' **************************************************************************************************** 'Determine how many files are in the directory, and create the table entries accordingly. if fileCountIndex = 0 then Response.Write "<tr><td colspan='2' valign='bottom'>There are <b>" & fileCountIndex & "</b> records available.<BR>Please choose a directory above to browse.<br>" _ & "The current list of new business licenses is: " & setCurrentLicense() & "</td></tr>" else if fileCountIndex = 1 then Response.Write "<tr><td colspan='2' valign='bottom'>There is <b>" & fileCountIndex & "</b> record available.<br>"_ & "The current list of new business licenses is: " & setCurrentLicense() & "</td></tr><tr><td align='center'><b>Week Ending</b></td><td align='center'><b>Posted Date</b></td></tr>" else if fileCountIndex >= 2 then Response.Write "<tr><td colspan='2' valign='bottom'>There are <b>" & fileCountIndex & "</b> records available.<br>" _ & "The current list of new business licenses is: " & setCurrentLicense() & "</td></tr><tr><td align='center'><b>Week Ending</b></td><td align='center'><b>Posted Date</b></td></tr>" end if end if end if 'Code goes here to set the menu navigation ' ============================================================================= ' === === ' === Daniel Dority === ' ============================================================================= getHerDone() ' ============================================================================= ' === Outputs the directory of PDFs onto the page === ' ============================================================================= Private Sub getHerDone() Dim i : i = 0 Dim Name, file, myExt, Link For Each file in Files Name = File.Name Link = Name myExt = LCase(ObjFSO.GetExtensionName(Name)) Select Case(myExt) Case "pdf": Response.Write("<tr>") Response.Write(" <td valign='middle' width='420'>") Response.Write(addLinkage(FolderPath, Link, formatString(Name))) Response.Write(" </td>") Response.Write(" <td width='220'>" & (File.DateLastModified) & "</td>") Response.Write("</tr>") Case Else: '=== Do Nothing === End Select Next Exit Sub End Sub ' ============================================================================= ' === Gets the latest file in the latest folder === ' ============================================================================= Private Function setCurrentLicense() Dim currentFolderPath, file, currentFiles, currentFileCountIndex, currentNavPath currentFolderPath = "newbusiness\" & getCurrentYear & "\" Set currentNavPath = ObjFSO.GetFolder(Server.MapPath(currentFolderPath)) '** set what files are shownview depending on what's defined in NavPath Set currentFiles = currentNavPath.Files currentFileCountIndex = currentFiles.count Dim i : i = 1 For Each file in currentfiles Select Case (i = currentFileCountIndex) Case True: setCurrentLicense = addLinkage(currentFolderPath, file.Name, formatString(file.Name)) Case Else: '=== Do Nothing === End Select i = i + 1 Next Set currentNavpath = Nothing Set currentFiles = Nothing Exit Function End Function ' ============================================================================= ' === Formats the filename from "newbusinessMMDDYYYY" to "MM/DD/ YYYY." === ' === ARGUMENTS: === ' === strLicense - file.Name === ' ============================================================================= Private Function formatString(strLicense) formatString = Left(Right(replace(strLicense ,"_"," "), 12), 2) _ & "/" & Left(Right(replace(strLicense ,"_"," "), 10), 2) _ & "/" & Left(Right(replace(strLicense ,"_"," "), 8), 4) Exit Function End Function ' ============================================================================= ' === Sets the Link Name and File Name into a Link === ' === ARGUMENTS: === ' === strFolderPath - FolderPath === ' === strLink - Link === ' === strName - Name === ' === One might use this like so: === ' === addLinkage(FolderPath, Link, Name) === ' ============================================================================= Private Function addLinkage(strFolderPath, strLink, strName) addLinkage = "<a href='" & replace(strFolderPath, "\", "/") & strLink & "' target='_blank'><span class='fontB'>" & strName & "</ span></a>" Exit Function End Function %> </td> </tr> </table> </td> </tr> <tr bgcolor="#999999"> <td> <table width="100%" ID="Table2"> <tr> <td valign="middle" align="right"></td> </tr> </table> </td> </tr> </table> <% Set Navpath = Nothing Set RootFolder = Nothing Set ObjFSO = Nothing Set sf = Nothing Set files = Nothing %>  </td> </tr> </table> </td> </tr> </table>  </td> </tr> <tr height="15" bgcolor="FEF8E8"> <td></td> </tr> <tr> <td align="center">  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#000000" id="corFooter"> <tr valign="top"> <td> <table cellspacing="0" cellpadding="0" border="0" width="100%" id="LNDL"> <tr> <td><font class="font11pxVerdanaFFFFFF" color="#FFFFFF" title="900 East Broad Street, Richmond, Virginia 23219">  900 East Broad Street, Richmond, Virginia 23219 (804)646-7000 <a href="/ contact.aspx" class="footer" title="City of Richmond Contact Information Page.">Contact Us.</a> </font></td> <td align="right" width="110" rowspan="2"><a href="/"><img src="/ images/footer.image.onecityourcity.jpg" width="110" border="0" alt="The City of Richmond Virginia." title="The City of Richmond Virginia."></a></td> </tr> <tr> <td><font class="font11pxVerdanaFFFFFF" color="#FFFFFF" title="Copyright 2000 to 2005, City of Richmond, Virginia.">  ©2000-2006 City of Richmond, Virginia. All rights reserved. <a href="/disclaimer.aspx" class="footer" title="The Privacy Statement, Disclaimer and Terms of Use for this site.">Privacy, Disclaimer & Terms.</a> </font></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </td> </tr>  </table> </div> </form> </body> </html> Tag: Convert VB app to vbscript Tag: 212985
  - 4
    - How to create an object for remote server? In my code: Set objCatlog = CreateObject("COMAdmin.COMAdminCatalog") objCatlog.Connect(strServerName) Set objApplications = objCatlog.GetCollection("Applications") objApplication.Populate For each objApplication in objApplications Set objComponents = objApplications.GetCollection("Components", objApplication.Key) objComponents.Populate For each objComponentItem in objComponents Set objComponent = CreateObject(objComponentItem.Value("ProgID")) 'it doesn't work Next Next My question: how to create an object for remote server? objComponentItem.Value("ProgID") is from server, but cannot create a object for the server, why? Thanks, -Andrew Tag: Convert VB app to vbscript Tag: 212984
  - 5
    - Error Invalid Syntax I am writing a script (and by the way not very good with scripts) to create new users in bulk. The spreadsheet refereenced in the code below is valid and in the right place. the error I am getting is: Line 6 Car 5 Invalid syntax Code 800401E4 Source (null) I have no Idea where the error is, this is the code: Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("C:\New_users.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" Set objOU = GetObject("ou=Phil, dc=fnfglobal, dc=local") Set objUser = objOU.Create _ ("User", "cn=" & objExcel.Cells(intRow, 15).Value) objUser.sAMAccountName = objExcel.Cells(intRow, 16).Value objUser.GivenName = objExcel.Cells(intRow, 10).Value objUser.SN = objExcel.Cells(intRow, 12).Value objUser.middleName = objExcel.Cells(intRow, 11).Value objUser.company = objExcel.Cells(intRow, 1).Value objUser.street = objExcel.Cells(intRow, 2).Value 'Enter City objUser.l = objExcel.Cells(intRow, 4).Value 'Enter State objUser.st = objExcel.Cells(intRow, 5).Value objUser.postalCode = objExcel.Cells(intRow, 6).Value objUser.department = objExcel.Cells(intRow, 14).Value objUser.title = objExcel.Cells(intRow, 13).Value objUser.AccountDisabled = FALSE objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit Any help would really be appreciated.... Phil Tag: Convert VB app to vbscript Tag: 212980
  - 6
    - Script to move folders from a list text file I need this script to move folders from a list, text file. I am new to VBS and can't get it to work. Any help would be greatly appreciated. set fso = CreateObject("Scripting.FileSystemObject") set oFile = fso.OpenTextFile("C:\listcommands.txt", 1, False) Do while (oFile.AtEndOfStream <> True ) strFolder = oFile.ReadLine() Set oFolder = fso.GetFolder(strFolder) oFolder.Copy("C:\TrashBin\" & http://oFolder.Name/) oFolder.Delete Loop oFile.Close Tag: Convert VB app to vbscript Tag: 212975
  - 7
    - Computer Updates and SP.vbs(8, 2) (null): 0x80041021 Hello, I am new to scripting. I've come up with a script that works only if i put the variable strComputer = "." However when I create an input text file and an output textfile it works partially. Here is the script: Set fso = CreateObject("Scripting.FileSystemObject") Set objInputFile = fso.OpenTextFile("d:\Computers.txt", 1, True) Set objOutputFile = fso.OpenTextFile("d:\Results.txt", 2, True) Do While objInputFile.AtEndOfLine <> True strComputer = objInputFile.ReadLine Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colQuickFixes = objWMIService.ExecQuery _ ("Select * from Win32_QuickFixEngineering") For Each objQuickFix in colQuickFixes objOutputFile.Writeline "Computer: " & objQuickFix.CSName objOutputFile.Writeline "Description: " & objQuickFix.Description objOutputFile.Writeline "Hot Fix ID: " & objQuickFix.HotFixID objOutputFile.Writeline "Installation Date: " & objQuickFix.InstallDate objOutputFile.Writeline "Installed By: " & objQuickFix.InstalledBy objOutputFile.Writeline Next Loop I am running the script locally on my machine and in the Computers.txt file is under the format "computer name" ex comp001, on line 2 it is comp002 etc.... Once i run the script it finds the 1st comp line and writes the results to the results.txt file and then it stops with the error: D:\_SCRIPTS\_VBSEDIT SCRIPTS\Computer Updates and SP.vbs(8, 2) (null): 0x80041021 How can i correct the above script? Tacobell2000 Tag: Convert VB app to vbscript Tag: 212974
  - 8
    - Parsing a textfile and writing file properties Windows Live Mail stores each e-mail message and newsgroup posting as a textfile with a .eml or .nws extension. The filename itself is a fairly random string of hex characters, so a typical file will be called 440D491C-00000077.eml. This is not helpful if you're looking for a specific message in the file system. I'm using XPSP2. I've played around with a VBA script to do the following with a specified folder: (a) Trawl through the folder and any subfolders looking for .eml or .nws files (b) For each file found, search for data on lines starting with From:, To:, Date: and Subject: (c) Clean up the data found - eg. From: will usually be followed by something like "Joe Bloggs" <joe.bloggs@hotmail.com>. This would result in two variables - name and address. (d) Write the data found to the file properties. I've got it working up to a point, but the problems I'm facing are: (1) encoded data. Some messages have more than one of the fields mentioned encoded, as Quoted-Printable or Base64, and then there is sometimes UTF-8 on top. I've managed to cope with most of this, but not reliably (2) I seem to be limited to Summary properties, since Custom properties won't show up as columns in Explorer. So, From: becomes Author,and Subject: becomes Subject. To: I can do without. Date: becomes one of the writeable Date fields (there aren't any), so I've put it in the Comments field. Any ideas? Would anyone like to have a shot at completing the script as VBS? -- Noel -- Noel Tag: Convert VB app to vbscript Tag: 212971
  - 9
    - WMI class for finding RSOP of Security options. Hi, Can any body help me in finding WMI class for retreving the RSOP security options like as Ex: RSOP_AuditPolicy which will give the RSOP values of the audit policy. we have "RSOP_Security settings" but this is giving account policy values. Please mail me your helpfull answers to "sheshu_142@hotmail.com" Thanks in advance. Tag: Convert VB app to vbscript Tag: 212969
  - 10
    - Reading file from certain point Hi chaps, I need a script to search a log file (whose name is DD-MM-YYYY.log) for an error (for example "AN ERROR!"). However, even though the script rolls over each day, the files can get very large, and errors occur often. This script will be run at regular intervals (every 15 mins I reckon at the mo) and needs to return something like a 1 if an error string was found and a 0 if not. This value in turn will be used by the alerting package to fire off alerts and poke things to get it working again. Now, i've got all that working more or less (getting the date bits to auto-fill the filename is being a pain) expect for one important bit. In my script, the log file is opened and then searched line by line, and if an error is found, 1 is returned. The problem is that it restarts from line 1 each time it's fired, so basically we are always getting alerts, even for alerts we have already been told about. What I need is some way to store the last line that was checked by the script, and to start from the following line on the next check. I guess this would in turn have to save the line number to a text file and read it back when the check starts next. Any ideas how I can do the latter bit? Finding the line number and then starting from that point again ? Olly Tag: Convert VB app to vbscript Tag: 212948
  - 11
    - If not ComputerName is ... then ... Hi, How would I do a vbs logon script which checked the workstation's ComputerName and if this name *starts* with anything else than the strings 'Class-A-' OR 'Class-B-' a messagebox should pop up with a custom message. How would I do that ...? Thanks ;-) best regards jake Tag: Convert VB app to vbscript Tag: 212947
  - 12
    - VBA macro for find the and replace with color Hi All, I need the VB script (VBA macro) that finds particular text and then replace the background color of the cell in the excel. Find should fbe in xlPart and not XlWhole (i.e it should find Banana even if cell contains "Banana Apple" and replace it background color) I have excel function that find the text and replace it with text only. Not with cell color. And one more thing , I want to find more than one word. ===================================================== Sub FindAndReplace() ' Copies Column E (Title Col) to Column I(Blank column) so that we have Tile in D as it is Sheets("Sheet1").Range("I:I").Value = Sheets("Sheet1").Range("E:E").Value ' Find And replce in Column I Sheets("Sheet1").Select Range("I:I").Replace What:="Marketing", Replacement:="ABCD", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False End Sub ===================================================== Thanks in advance... Tag: Convert VB app to vbscript Tag: 212946
  - 13
    - Using ASP to loop thru an XML file and generate HTML Hi All and thanks in advance for any help I can get with this! I'm very new at ASP/XML/HTML, but pretty comfortable with VB/VBScript. I've been tasked with some web content development tasks, and among them is a 'catalog' style page of images. Rather than hard-coding all the items, I wanted to use an XML file to store all the image paths and descriptive text, and just loop thru it to generate the HTML I need. Later on I'll be adding things like filters on category, etc., but for now I just want to get a simple protoype working. Below is what I've come up with but it just isn't working (keep getting HTTP 500 Internal Server Error with IE 6). The objects/methods worked pretty well in VB, so I'm wondering if it's in my handling of the quotation marks... Thanks again for the help! Hal [XML File] <?xml version="1.0" encoding="UTF-8"?> <items> <item> <imgpath>images/success_do.jpg</imgpath> <described>"Success Means Do.." Poster 24X16</described> </item> <item> <imgpath>images/Think_Twice.jpg</imgpath> <described>"Think Twice.. Act Once" Poster 18X36</described> </item> </items> [ASP Page Text] <html> <% dim strServer dim objXML, xNodeList, xNode dim i , s, sDesc, sPath strServer = Request.ServerVariables("SERVER_NAME") %> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta http-equiv="Content-Language" content="en-us"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta name="Author" content="Publishing, Desktop" /> <meta name="Contact" content="Publishing, Desktop" /> <title>Order Framed Art</title> </head> <body> <% set objXML = Server.CreateObject("Microsoft.XMLDOM") sPath = "http://" & strServer & "/vendor_mgmt/docs/artlist.xml" objXML.async = False objXML.load(sPath) If objXML.parseError.errorcode <> 0 then Response.Write "Sorry, an error occurred retrieving information." else Set xNodeList = objXML.documentElement.getElementsByTagName("item") If xNodeList.length > 0 then For i=0 to xNodeList.length-1 '[imgpath] element/field sPath = "http://" & strServer & "/vendor_mgmt/" & xNodelist.Item(i).childNodes(0).text '[described] element/field sDesc = xNodelist.Item(i).childNodes(1).text s = "<a title=" & Chr(34) & sDesc & Chr(34) & " href=" & Chr(34) & sPath & Chr(34) s = s & & " target=" & Chr(34) & "_blank" & Chr(34) & ">" Response.Write s s = "<img border=" & Chr(34) & "0" & Chr(34) & " src=" & Chr(34) & sPath & Chr(34) & " width=" & Chr(34) & "50" & Chr(34) s = s & " height=" & Chr(34) & "50" & Chr(34) & " align=" & Chr(34) & "middle" & Chr(34) & "></a><br />" Response.Write s s = "<a href=" & Chr(34) & sPath & Chr(34) & " target=" & Chr(34) & "_blank" & Chr(34) & ">" & i & ". " s = s & sDesc & "</a>" Response.Write s next else 'no items exist end if end if %> </body> </html> Tag: Convert VB app to vbscript Tag: 212940
  - 14
    - VB script to download txt file I need a simple script to do the following in an Excel macro 1.) Open Internet Explore 2.) Go to a specific URL 3.) Download a file 4.) save it to my computer for future use with macro. I have been working at this and the only thing I can get working is step 1. Any help would be greatly appreciated. Tag: Convert VB app to vbscript Tag: 212934
  - 15
    - Basic Class Concept Hi, All, How to declare the class: Class A Property A1 Property A2 For each property, there are two properties B1 and B2, so you can use then as following: dim cls: set cls = new A cls.A1.B1="11" cls.A1.B2="12" cls.A2.B1="21" cls.A2.B2="22" Another question is: if the Class A has 20 properties and assign each one to a value with array: cls.A1=ar(1) cls.A2=ar(2) cls.A3=ar(3) ... How to use a loop for it? Thanks, -Andrew Tag: Convert VB app to vbscript Tag: 212933
  - 16
    - Default Separator for Date Hi [Slightly offtopic, no scripting issue] On English-US systems what is the default long date-format and separator? Is it MM/DD/YYYY or MM-DD-YYYY or MM.DD.YYYY or YYYY/MM/DD If there is no default what is the most common format to enter dates on the web, if the site is en-us? There is a difference between british and american date-defaults, isn't it? MfG, Alex Tag: Convert VB app to vbscript Tag: 212929
  - 17
    - Script Not Working Properly Hello, I have a script that restarts a service, I have it running from the Task Scheduler under Administrator. If I double click the script, it runs great, however, when the Task Scheduler runs it, the command prompt opens and nothing happens, it just sits there and the window never closes (the commands are never sent to the prompt). Below is the script: Option Explicit Dim objShell, intShortSleep, intLongSleep Dim strService Set objShell = CreateObject("WScript.Shell") ' Values set strService = "My Service" intShortSleep = 1500 intLongSleep = 5500 ' Cmd prompt opened objShell.Run "cmd" Wscript.Sleep intShortSleep ' Service stopped with 'Net' command objShell.SendKeys "net stop " & chr(34) & strService & chr(34) Wscript.Sleep intShortSleep objShell.SendKeys "{Enter}" Wscript.Sleep intLongSleep ' Service started with 'Net' command objShell.SendKeys "net start " & chr(34) & strService & chr(34) Wscript.Sleep intShortSleep objShell.SendKeys "{Enter}" Wscript.Sleep intLongSleep ' Cmd prompt exitedExit objShell.SendKeys "Exit" Wscript.Sleep intShortSleep objShell.SendKeys "{Enter}" Any Assistance is Greatly Appreciated, Chuck Tag: Convert VB app to vbscript Tag: 212926
  - 18
    - Add Computer account to AD Groups Hey everyone, I'm looking for a script to add a computer account to an AD Group by NetBios name. Anyone got one handy? Thanks! Tag: Convert VB app to vbscript Tag: 212925
  - 19
    - Can't Pull Installer Engine Patch File Property I am writing a script to push a small number of patches. I need to make a decision in the script based on the contents of the "Installer Engine" property, but can't find the Class that exposes this property. From the GUI you can find the information by viewing "Other version information" on the Version tab. I have noticed that the version tab only shows up for .exe files and the Installer Engine property only exists for patch files. I have tried filever and done some searching on msdn, but came up empty. If you know how to pull this info using vbscript or know of a command- line tool that will display the Installer Engine property please reply. Thanks Tag: Convert VB app to vbscript Tag: 212918
  - 20
    - Verification of input as a file or a folder Hello, I'm having an issue where I'm trying to create a script that parses through an input file where the lines in the input file is a folder path or a file name with the full path to the file, and that file or folder needs to be copied over to another location. For instance, the input file would look like this: c:\webroot\www.sheeltest.org\files\pdf\test1.pdf c:\webroot\www.sheeltest.org\files\pdf\test2.pdf c:\webroot\www.sheeltest.org\meeting\testmeeting\testmeeting.pdf c:\webroot\www.sheeltest.org\meeting\2008meeting\ The destination for these files would be: c:\webroot\www.sheelprod.org\files\pdf\test1.pdf c:\webroot\www.sheelprod.org\files\pdf\test2.pdf c:\webroot\www.sheelprod.org\meeting\testmeeting\testmeeting.pdf c:\webroot\www.sheelprod.org\meeting\2008meeting\ Is there a way to do this? Any help is appreciated. Thanks a lot! Sheel Tag: Convert VB app to vbscript Tag: 212917
  - 21
    - Need a script to show logon and logoff time for a specific user in Has anyone created a script to enumerate logon and logoff information for a specific user during a specified date range and then export the results to a .csv or txt file. Tag: Convert VB app to vbscript Tag: 212914
  - 22
    - Manipulating SAP User Accounts using VBScript Hello Everybody, I wonder if someone is able to assist. I need to create a VBScript to connect to SAP, Search for a User ID and then disable the User ID within SAP. I basically want to automate User Admin within SAP if I can. Does anyone know how I can achieve this? or have any links to sites where I can find some sample code? Kind Regards Chris Tag: Convert VB app to vbscript Tag: 212912
  - 23
    - Run VBS with Administrative Rights Hi all, I am currently writing a VBS file that will unregister a dll at logon for students but in order for this to be done the user needs to have administrative rights which we obviously don't want to give students. Is there a way I can make the script run as an administrator group policy or if there is a way I can add something to the script to make it run with administrative rights. Any help in this matter would be highly appreciated. Thank you Tag: Convert VB app to vbscript Tag: 212908
  - 24
    - Run VBS with Administrative Rights Hi all. I am currently writing a script that unregisters a DLL at login for students but the user needs Administrative rights to perform the operation which we obviously do not want to do. Is there way that I can make the script run at logon so they have aministrative rights. Thanks for any help you can provide Tag: Convert VB app to vbscript Tag: 212907
  - 25
    - Need vb script to show directory filtered thumbnail file list. All, Please modify this or supply code that will show a filtered list of files of a specified directory same as windows explorer and display files as thumbnails. Code: Private Sub OpenFolder(ByVal sFolderPath As String, Optional ByVal nView) Dim count As Long, lhWnd As Long, lPrevhWnd As Long, lhTargetWnd As Long ' Don't continue if the directory didn't exist If Dir(sFolderPath, vbDirectory) = vbNullString Then Exit Sub ' Find the last explorer parent window lPrevhWnd = FindWindow("CabinetWClass", vbNullString) ' Shell execute a new version of explorer Shell "explorer.exe /n,""" & sFolderPath & """", vbNormalFocus ' Loop until we find that new explorer parent window count = 0 lhWnd = lPrevhWnd Do While (lPrevhWnd = lhWnd Or lhWnd = 0) Or lhTargetWnd = 0 DoEvents count = count + 1 ' lhWnd = FindWindow("CabinetWClass", vbNullString) lhWnd = FindWindowEx(0&, lhWnd, "CabinetWClass", vbNullString) If lhWnd = 0 Then lhWnd = lPrevhWnd lhTargetWnd = FindWindowEx(lhWnd, 0&, "SHELLDLL_DefView", vbNullString) Debug.Print lPrevhWnd, lhWnd, lhTargetWnd, count If count > 100000 Then ' Fail out if we never find it so the program doesn't hang. MsgBox "Unable to find explorer window. Couldn't set the view mode.", vbCritical, "Couldn't set view mode" Exit Sub End If Loop ' Send the WM_COMMAND message to tell the window to change to the specified view mode SendMessage lhTargetWnd, WM_COMMAND, ByVal nView, 0& End Sub Tag: Convert VB app to vbscript Tag: 212898
- Next
  - 1
    - How to Create a ListBox Hi, All I would like to use a ListBox in VBScript. I am not using a web page or ASP Is there any way to do it using VBScript? Thanks, -Andrew Tag: Convert VB app to vbscript Tag: 212892
  - 2
    - Get date and time and format to DDMMYY-HHMM I am looking to get the date and time and format it into the format of DDMMYY-HHMM so that it can be added into the creation of a folder name. Does anyone have any ideas as to how this can be accomplished? Thanks, Sheel Tag: Convert VB app to vbscript Tag: 212882
  - 3
    - Search through permissions of all accounts on mail enabled users All, I am currently searching for the right way to complete this task. I need to enumerate all users within an OU that have mailboxes. Then I need to check the ACL's on those mailboxes for any users that are listed but do not have full control of the mailbox. As in, some of our vanity mailboxes have users that can view the mailbox, but they don't have full control. I'm attaching a little snipit of stuff i've tried, notice the section commented out, this was my first attempt. Then I tried using an array and that's not working either. Sub PerformQuery 'On Error Resume Next Const ACE_MB_FULL_ACCESS = &h1 Const ACE_MB_ASSOC_EXT_ACCT = &h4 Const ACE_MB_DELETE_STORAGE = &h10000 Const ACE_MB_READ_PERMISSIONS = &h20000 Const ACE_MB_CHANGE_PERMISSIONS = &h40000 Const ACE_MB_TAKE_OWNERSHIP = &h80000 Const ACE_MB_SYNCRONIZE=&h100000 Const ADS_ACETYPE_ACCESS_ALLOWED = 0 Const ADS_ACETYPE_ACCESS_DENIED = 1 Const ADS_ACETYPE_SYSTEM_AUDIT = 2 Const ADS_ACETYPE_ACCESS_ALLOWED_OBJECT = 5 Const ADS_ACETYPE_ACCESS_DENIED_OBJECT = 6 Const ADS_ACETYPE_SYSTEM_AUDIT_OBJECT = 7 Const ADS_ACETYPE_SYSTEM_ALARM_OBJECT = 8 Const ADS_ACEFLAG_INHERIT_ACE = 16 Dim OUTPUT_DELIMITER, empname, empuserid, empidnum, outhtml, txtUser, objUser, oSecurityDescriptor, dacl, ace OUTPUT_DELIMITER = vbTab Set con = CreateObject("ADODB.Connection") con.Provider = "ADsDSOObject" con.open Set command = CreateObject("ADODB.Command") Set command.ActiveConnection = con command.CommandText = "<LDAP://OU=Vanity,OU=Users,DC=domain,DC=com>;(&(objectCategory=person)(objectClass=user));displayName,ADsPath;subtree" command.Properties("searchscope") = 2 command.Properties("Page Size") = 3000 outhmtl = "<br>" & "The script is now processing the accounts." & "<br>" Set rs = command.Execute while not rs.eof Dim aceArray() Dim iCount txtUser = rs.fields("ADsPath") 'SystemOutput.InnerHTML = "The Adspath: " & txtUser Set objUser = GetObject(txtUser) Set oSecurityDescriptor = objUser.MailboxRights Set dacl = oSecurityDescriptor.DiscretionaryAcl Set ace = CreateObject("AccessControlEntry") 'Set objDictGroup = CreateObject("Scripting.Dictionary") For Each ace in dacl aceArray(iCount) = ace.AccessMask iCount = iCount + 1 'accessstr = "" 'accessmask = ace.AccessMask 'acetype = ace.AceType 'if (accessmask AND ACE_MB_FULL_ACCESS) = ACE_MB_FULL_ACCESS then ' select case acetype ' case ADS_ACETYPE_ACCESS_ALLOWED ' outhtml = outhtml & "The Mailbox: " & rs.fields("displayName") & " is okay." & "<br>" ' case else ' if (acetype <> ADS_ACETYPE_ACCESS_ALLOWED) and (acetype <> ADS_ACETYPE_ACCESS_DENIED) then ' outhtml = outhtml & "The Mailbox: " & rs.fields("displayName") & " has an account: " & ace.Trustee & " that does not have full control." & "<br>" ' end if ' end select 'end if 'objDictGroup.Add Next ReDim aceArray(iCount) i=0 FullAccessExists = False Do Until i = uBound(aceArray) if aceArray(i) = ACE_MB_FULL_ACCESS then FullAccessExists = True end if i = i + 0 Loop if not FullAccessExists then outhtml = outhtml & "The Mailbox: " & rs.fields("displayName") & " has an account: " & ace.Trustee & " that does not have full control." & "<br>" end if iCount = 0 rs.movenext wend Tag: Convert VB app to vbscript Tag: 212878
  - 4
    - Creating an Outlook Task with VB Script The following code fragment comes from here: http://www.microsoft.com/technet/scriptcenter/resources/officetips/sept05/tips0908.mspx Const olTaskItem = 3 Set objOutlook = CreateObject("Outlook.Application") Set objTask = objOutlook.CreateItem(olTaskItem) objTask.Subject = "Script Center Master Plan" objTask.Body = "Final report for Script Center master plan." objTask.ReminderSet = True objTask.ReminderTime = #12/12/2007 09:00 AM# objTask.DueDate = #12/12/2007 10:00 PM# objTask.Save It successfully creates an Outlook Task Item. Unfortunately it appears to have major flaw: The Due Time and the ReminderTime can be set for appointments that are in the past or on the current day but not for those that are in the future. For future dates it gets set to the Outlook "Working Day" default (e.g. to 08:00). Does anyone know how to get around this problem? Or how to create a "Reminder" instead of a "Task". I'm using Outlook 2003 Tag: Convert VB app to vbscript Tag: 212877
  - 5
    - Count words in textfiles How can i count words in vbs script? I have a script but this script count the readline but not the word "Failed". Can anybody help me? Here is the scipt Const FOR_READING = 1 Const FOR_WRITING = 2 Dim oFSO : Set oFSO = CreateObject("Scripting.FileSystemObject") Dim sLogFile : sLogFile = "replicatie1.txt" Dim oLogFile : Set oLogFile = oFSO.OpenTextFile (sLogFile,FOR_WRITING,true) filePath= "replicatie.txt" srchFor= "Failed" Set fs = CreateObject("Scripting.FileSystemObject") Set fl = fs.OpenTextFile(filePath,1) Dim rslt1 intCount = 0 Do Until fl.AtEndOfStream cLine = fl.ReadLine If InStr(LCase(cLine),srchFor) Then rslt1=rslt1 & Left(cLine,80) & vbNewLine Loop intCount = intCount + 1 wscript.Echo rslt1 & " " & CStr(intcount) Tag: Convert VB app to vbscript Tag: 212875
  - 6
    - Size on disk (compressed) Still unanswered -- any way in VBScript to get this information (getfoldersize)? Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: Convert VB app to vbscript Tag: 212873
  - 7
    - Document.getElementByID("ID").innerHTML = stuff Hi, In JavaScript I can do something like: document.getElementByID("tally").innerHTML = HTMLOutput and it will put the HTML variable in the <span id = "tally"></span> part. Is there a way to do this using VBScript? Thanks. Tag: Convert VB app to vbscript Tag: 212862
  - 8
    - VBScript Regular Expression Hi, I am putting together a quick (I hoped...) ASP page using VBScript to parse some data, add some stuff up, and display it to a user. Unfortunately, I had to whip the page together that took that data in a big hurry and some fields were left blank. Now when I parse the data, these empty fields are causing an error. Also, some people put characters in where there were supposed to be numbers. Bad job on developing the page to take the data on my part. However, I am trying to just check to see if something is NOT a number, and replace it with a 0. This will be fine for my needs. I am getting zero matches on the regular expression! Forgive me, I am not used to doing these in VBScript but have used regex in Perl and JavaScript. I am not sure if I am just messing up or if it is a VBScript nuance. Set regExNum = New RegExp regExNum.Pattern = "\D" q1 = Split(record(fieldCount), ",") for k=0 to UBOUND(q1) if regExNum.Test(q1(k)) then q1(k) = 0 end if next I am getting zero matches on this. For example, on particular instance is an empty space that was not filled in and it is crashing my select statement. I am getting a false on the comparison so the replacement never takes place. Thanks for any suggestions. Tag: Convert VB app to vbscript Tag: 212856
  - 9
    - Deleting Empty Folders Recursively I am trying to figure out how to recursively delete files 15 days or older along with any folders that are empty. I can not seem to figure out how to get the file and folder count needed in the folder it's currently in. The script is below in its entirety. Thanks in advance. ~Daniel '<START> '********************************************************************* DeleteTemp "C:\Temp", 15 '********************************************************************* Sub DeleteTemp(sDirPath, iAge) 'On Error Resume Next Dim oFolder Dim oFileCollection Dim oFile Dim oFolderCollection Dim oSubFolder, intErrNum Dim objWshShell Set objWshShell = CreateObject( "WScript.Shell" ) Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(sDirPath) Set oFileCollection = oFolder.Files Set oFolderCollection = oFolder.SubFolders 'Walk threw each file in this folder collection For Each oFile In oFileCollection 'On Error Resume Next If DateDiff("D", oFile.DateCreated, Date) >= iAge Then oFile.Delete(True) End If Next For Each oSubFolder In oFolderCollection 'On Error Resume Next msgbox "Checking folders" '======================>If Files = 0 AND SubFolders = 0 Then oSubFolder.Delete(True) Else DeleteTemp oSubFolder.Path, iAge End If Next 'Clean Up Set oFSO = Nothing Set oFolder = Nothing Set oFileCollection = Nothing Set oFile = Nothing Set oFolderCollection = Nothing Set oSubFolder = Nothing Set objWshShell = Nothing End Sub '<END> Tag: Convert VB app to vbscript Tag: 212855
  - 10
    - Win32_LogonSession Hi, following script: Set oWmi = GetObject("winmgmts://./root/cimv2") Set oProcesses = oWmi.ExecQuery("Select * FROM Win32_Process") For Each oProcess in oProcesses Set oSessions = oProcess.Associators_(,"Win32_LogonSession",,,,,,,32) For Each oSession in oSessions Set oAccounts = oSession.Associators_(,"Win32_Account",,,,,,,32) For Each oAccount in oAccounts WScript.Echo oProcess.Name & ";" & oAccount.Name & ";" & oSession.LogonId Next Next Next Why Win32_LogonSessions doesnot show all sessions on the machine? For example if you run a task with 'runas' under a different account as your account? Tag: Convert VB app to vbscript Tag: 212852
  - 11
    - Creating an Outlook "New mail" with name from a file Hi! I have a list of email addresses in a file. The file contain lines like the following : "XXX@MyCompany.com" I want a VBScript that will create a "New mail" in outlook (Outlook is already opened). The new mail "to list" will be filled with names from the file. I will happily edit the mail and send it. What if outlook is not opened ? Thanks Maurice Tag: Convert VB app to vbscript Tag: 212847
  - 12
    - Playing with multidimensional array!? Hi! I need to play with a multidimensional array in VBScript, but I`m about to turn crazy with the way they are implemented into VBScript! I need to start with an empty array, and start filling it with two dimension data like: Row 1, Column 1 = mailbox.LegacyDN Row 1, Column 2 = mailbox.ServerName Row 1, Column 3 = mailbox.LastLogonTime Row 1, Column 4 = mailbox.Size Row 2, Column 1 = mailbox.LegacyDN Row 2, Column 2 = mailbox.ServerName Row 2, Column 3 = mailbox.LastLogonTime Row 2, Column 4 = mailbox.Size and so on... and after gathering all mailboxes informations on all Exchange Servers, I will be able to match Active Directory Users by seeking this table for the corresponding ExchangeLegacyDN. Actually, I'm defining the array with Dim aMailboxes(), and adding data to it by using the REDIM PRESERVE, but where I'm really confused, it is how the REDIM the two dimension and after that, assigning values to the new Row added... someone expert or familiar with that could help me? Thanks. Claude Lachapelle Systems Administrator, MCSE Tag: Convert VB app to vbscript Tag: 212821
  - 13
    - Get Variable From Access Table Record I need an example of a vbscript that connects to an Access table and returns a string variable based on a WHERE clause. For example, I have a autonumber field in numerical sequence, and I want to return a name for each record. I also need a script that will query a table and return a total count of all records. Dim strDatabase Dim strTableName Dim recordCount Dim strName strDatabase = "\\xxxxxxx\db.mdb" strTableName = "tblAccounts" 'ACCESS CONNECTION STRING VARIABLE xConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabase strName = Tag: Convert VB app to vbscript Tag: 212816
  - 14
    - How Can I Delete blank lines from a Text file? Hi, I have a text file with hundreds of blank lins scatered through out the file. How Can I Delete the blank lines. I found this script that will delete the first 5 lines of a file, so I am guesing I could use it and Test for a blank line. What would the Test be? Set objFSO = CreateObject("Scripting.FileSystemObject") strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colFiles = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='C:\Scripts'} Where " _ & "ResultClass = CIM_DataFile") For Each objLogFile In colFiles If objLogFile.Extension = "txt" Then strFile = objLogFile.Name Set objFile = objFSO.OpenTextFile(strFile, ForReading) i = 1 Do Until objFile.AtEndOfStream strLine = objFile.ReadLine If i > 5 Then strContents = strContents & strLine & vbCrLf End If i = i + 1 Loop objFile.Close Set objFile = objFSO.OpenTextFile(strFile, ForWriting) objFile.Write strContents objFile.Close End If Next Tag: Convert VB app to vbscript Tag: 212815
  - 15
    - Silly VBScript IsDate problem I haven't used VBScript in a couple of years. I have a textbox and a custom validator on the screen. The validator calls a vbscript function ValidateDate which uses IsDate to validate incoming date strings. It will catch gross errors like letters but it's passing date strings like '13/12/2007'. I don't remember having this problem before. My machine's regional setting is English (US). Here's the function. <script language=vbscript type="text/vbscript" > Function ValidateDate(sender, args) if not IsDate(args.Value) and not trim(args.Value) = "" then args.IsValid = False Else args.IsValid = True End if End function </script> Tag: Convert VB app to vbscript Tag: 212812
  - 16
    - For Each loop writing on same line Hello, I have a script where I read an input file, which contains a bunch of URL strings of differing sizes. I split each element into an array based on the slash ("/"). After that, I take one of the elements from the array, and change it to another, and then put the URL string back together. The issue I'm having is when I put it back together in a for each loop, it writes each element onto its own line. Also, at the end of the line it puts a slash at the end. How can I get each element to print on the same line, also omitting the final slash? Here's the snippet of my code that does all this work... Any help is greatly appreciated! Sheel example of line in input file: http://www.sheel.com/this/is/only/atest.pdf Set myInputFile = fso.OpenTextFile("<input file>", ForReading) Set MyOutputFile = fso.CreateTextFile("<output file>", True) Dim arrIPAddress Dim orgSplitter Dim i i = 0 Do Until myInputFile.AtEndOfStream strLine = myInputFile.ReadLine If inStr(strLine, "/") Then arrIPAddress = split(strLine,"/") arrIPAddress(2) = "www.soa.org" For Each item in arrIPAddress MyOutputFile.Writeline(item & "/") i = i + 1 Next End If Loop Tag: Convert VB app to vbscript Tag: 212805
  - 17
    - DOS program does not run - Help please As part of a much larger script I am trying to get some of the Local security settings on a server using the DUMPSEC program. The program resides on the local systemdrive of the server, though I would prefer running it from the mapped drive where the script resides. In either case my code does not run the program. If I run the command from the command line the output file is created. When I run the following code the script hangs and the output file is never created. Set objShell = CreateObject("WScript.Shell") strRunStmt = "%COMSPEC% c:\scripts\DUMPSEC.exe /rpt=POLICIES / showaudit /saveas=CSV /outfile=c:\scripts\report.txt /noowner" objShell.Run strRunStmt,,True Can someone shed some light on what I am doing wrong here? Thanks. Tag: Convert VB app to vbscript Tag: 212804
  - 18
    - bat to vbs conversion I created the batch file below to search for and display a list of the tab delimited files for the input provided. I have begun work on doing this in vbscript but I am not a programmer. I would like to create an array using the UNC names to the six PC's where the data is stored. Below the batch file is what I have so for. Suggestions, comments, or smart-ass remarks are welcome. MY BATCH FILE: @echo off REM *********************** REM * Locate engine test log files REM * Must have Mapped Drives to Test Stands REM * Must input a unit number at time batch file is run REM *********************** REM * Useful Info for the file search REM *********************** echo Mapped Drive Reference: >> %TEMP%\TestFiles.txt echo. >> %TEMP%\TestFiles.txt echo I: = 91, J: = 92, N: = 93, O: = 94, U: = 95 S4k, V: = 95 S2k, W: = 96 >> %TEMP%\TestFiles.txt echo If a drive letter is missing, check the mapped drive >> %TEMP%\TestFiles.txt echo connections via Windows Explorer >> %TEMP%\TestFiles.txt echo _________________________________________________________ >> %TEMP%\TestFiles.txt echo. >> %TEMP%\TestFiles.txt REM *********************** REM * Search the mapped official data directorys REM *********************** DIR /O-D I:\data\official\%1*.* >> %TEMP%\%1.txt DIR /O-D J:\data\official\%1*.* >> %TEMP%\%1.txt DIR /O-D N:\data\official\%1*.* >> %TEMP%\%1.txt DIR /O-D O:\data\official\%1*.* >> %TEMP%\%1.txt DIR /O-D U:\data\official\%1*.* >> %TEMP%\%1.txt DIR /O-D V:\data\official\%1*.* >> %TEMP%\%1.txt DIR /O-D W:\data\official\%1*.* >> %TEMP%\%1.txt REM *********************** REM * Get the important part of the search REM *********************** FINDSTR "Directory %1" %TEMP%\%1.txt >>%TEMP%\TestFiles.txt REM *********************** REM * Display the search results REM *********************** notepad %TEMP%\TestFiles.txt REM notepad %TEMP%\%1.txt REM *********************** REM * Do the clean up REM *********************** DEL %TEMP%\%1.txt DEL %TEMP%\TestFiles.txt @echo on MY SCRIPT: 'Find an Engines Raw Data Files 'Â© Hal Innes 19-Nov-2007 Option Explicit Dim title, UnitNumber, ErrMsg title = "Engine Data File Locator Â© Hal Innes" GetInput() Sub GetInput() UnitNumber = InputBox(ErrMsg & "Enter an Engine Serial Number " & _ "to be searched for:", title) If UnitNumber = "" Then WScript.Quit Else If Len(UnitNumber) <> 10 _ Or Not IsNumeric(UnitNumber) Then InputError() End If End If Message() End Sub Sub Message() MsgBox "The Engine Serial Number You Entered is " & UnitNumber, 48, title End Sub Sub InputError() ErrMsg = "'" & UnitNumber & "'" & " is not a valid entry, try again!" & vbcrlf & vbcrlf GetInput() End Sub Tag: Convert VB app to vbscript Tag: 212800
  - 19
    - error "(null): 0x80041021" Hello, I am running this script from my workstation. I am a local admin as well as a domain admin. The copmuter txt file has all the servers listed. 1 per line in the form of: \\servername1 \\servername2 The servers are scattered throughout the country and we have many point to point vpns. When i run the script I get the following error: System Services Info.vbs(13, 1) (null): 0x80041021 What am I doing wrong? Here is the script: Set fso = CreateObject("Scripting.FileSystemObject") Set objInputFile = fso.OpenTextFile("c:\computers.txt", 1, True) Set objTextFile = fso.OpenTextFile("c:\temp\TabbedResults.tsv", 2, True) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service") For Each objService in colRunningServices objTextFile.WriteLine (objService.DisplayName & VbTab & objService. State) Next Many thanks, Tacobell url:http://www.ureader.com/gp/1675-1.aspx Tag: Convert VB app to vbscript Tag: 212794
  - 20
    - When vb script finishes, still have to wait several seconds before All, I have a VB program that executes several scripts in sequence... so it has to wait for each script to finish before the next one runs. The scripts themselve take only a few seconds to run, however it takes several seconds before the command prompt is returned and the window is closed (and the vb program can continue). Why is it that when a script finished, it still takes several seconds before the command prompt is returned? Is there a way to solve this. Running my vb program takes a lot of time now... mostly waiting for scripts to close. Any help would be appriciated. Regards, Jan-Willem Tag: Convert VB app to vbscript Tag: 212792
  - 21
    - Monitor File creation on Mapped Z: drive I have following script which popups the message every time file is created in C:\Scripts folder. I want same thing for mapped drive(Z:\) that i mapped and shared from another PC. When i change Drive from C: to Z: in script runs but it popups message even when file is not created ================================================= strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""C:\\\\Scripts""'") Set objLatestEvent = colMonitoredEvents.NextEvent msgbox ("File Created") ============================================ Plz help And if file created then only perform next steps Tag: Convert VB app to vbscript Tag: 212782
  - 22
    - Passing value to/from VBScript to Windows form application I have tried to create a simple windows form program in c# (assembly:comvisible=true). What i want to do, is to start this windows program from a vbscript, pass some arguments and show them in the windows program. Then i want to change the values in the windows form, and click "yes/no", and send the values from the windows form and back to the vbscript, right beneath the location where the vbscript called the windows program in the first place. Anyonoe that has done this before, is it possible? Tag: Convert VB app to vbscript Tag: 212780
  - 23
    - VB DFS script MOM DFS MP problem MOM Script that fails because we have DFS namnespace folders containing Ã¥ Ã¤ Ã¶ '------------------------------------------------------------------- ' <company>Microsoft Corporation</company> ' <copyright>Copyright (c) Microsoft Corporation. All rights reserved.</copyright> ' <name> ' Microsoft Windows 2003 DFS Service Discovery ' </name> ' <summary> ' ' </summary> '------------------------------------------------------------------- Option Explicit Function IsValidObject(ByVal oObject) IsValidObject = False If IsObject(oObject) Then If Not oObject Is Nothing Then IsValidObject = True End If End If End Function Sub RunCommand (ByVal sCommand, ByRef iErrCode, ByRef sOutput, ByRef sError) Dim oShell, oFSO, oOut Set oShell = MomCreateObject("WScript.Shell") Set oFSO = MomCreateObject("Scripting.FileSystemObject") sError = "" sOutput = "" Dim sOutputFileName sOutputFileName = GenerateGUID() & ".out" Dim sErrorFileName sErrorFileName = GenerateGUID() & ".err" Dim sFullCommand sFullCommand = "cmd /c " & sCommand & " > " & sOutputFileName & " 2> " & sErrorFileName iErrCode = oShell.run(sFullCommand, 2, true) On Error Resume Next Set oOut = oFSO.OpenTextFile(sOutputFileName) On Error Goto 0 If IsValidObject(oOut) Then On Error Resume Next sOutput = oOut.ReadAll() On Error Goto 0 oOut.Close Else ThrowScriptError "Could not write to the folder [" & oFSO.GetAbsolutePathName(".") & "]. Make sure the action account has " & _ "write access to this folder.", _ Err End If On Error Resume Next oFSO.DeleteFile sOutputFileName On Error Goto 0 If iErrCode <> 0 Then Dim oErrorFile On Error Resume Next Set oErrorFile = oFSO.OpenTextFile(sErrorFileName) On Error Goto 0 If IsValidObject(oErrorFile) Then On Error Resume Next sError = oErrorFile.ReadAll() On Error Goto 0 oErrorFile.Close End If If sError = "" Then sError = sOutput End If On Error Resume Next oFSO.DeleteFile sErrorFileName On Error Goto 0 End Sub Sub ParseForRoots (ByVal sDFSUtilOutput, ByRef oRootNames) ' Gets a string of the output from a successful run (error code = 0) ' of the DFS Util, parse out the list of roots and return the roots. Dim rExp, sSearch, oMatches Set rExp = new regexp rExp.Global = True rExp.IgnoreCase = True ' Match anything that starts with a tab and anything that's ' not a new line character. (till the end of the line) rExp.Pattern = "\t[^(\n)]+" ' Parse for the roots... Set oRootNames = rExp.Execute(sDFSUtilOutput) End Sub Function GenerateGUID() Dim oTypeLib Set oTypeLib = MomCreateObject("Scriptlet.TypeLib") Dim sNewGUID sNewGUID = oTypeLib.Guid GenerateGUID = Left(sNewGUID, Len(sNewGUID)-2) End Function Const EVENT_TYPE_SUCCESS = 0 Const EVENT_TYPE_ERROR = 1 Const EVENT_TYPE_WARNING = 2 Const EVENT_TYPE_INFORMATION = 4 Const EVENT_TYPE_AUDITSUCCESS = 8 Const EVENT_TYPE_AUDITFAILURE = 16 Function ThrowScriptErrorNoAbort(ByVal sMessage, ByVal oErr) ' ' ThrowScriptError :: Creates an event and sends it back to the mom server ' ' Dim sErrDescription, sErrNumber sErrDescription = oErr.Description sErrNumber = oErr.Number On Error Resume Next Dim oScriptErrorEvent Set oScriptErrorEvent = ScriptContext.CreateEvent() With oScriptErrorEvent .EventNumber = 40000 .EventType = EVENT_TYPE_ERROR .Message = sMessage .SetEventParameter """Microsoft Windows Distributed File Systems""" .SetEventParameter sMessage .SetEventParameter sErrDescription .SetEventParameter sErrNumber End With ScriptContext.Submit oScriptErrorEvent ScriptContext.Echo "ThrowScriptError('" & sMessage & "')" End Function Function ThrowScriptError(Byval sMessage, ByVal oErr) ' ' ThrowScriptError :: Creates an event and sends it back to the mom server ' ' On Error Resume Next ThrowScriptErrorNoAbort sMessage, oErr ScriptContext.Quit() End Function Function MomCreateObject(ByVal sProgramId) Dim oError Set oError = New Error On Error Resume Next Set MomCreateObject = CreateObject(sProgramId) oError.Save On Error Goto 0 If oError.Number <> 0 Then ThrowScriptError "Unable to create automation object '" & sProgramId & "'", oError End Function Class Error Private m_lNumber Private m_sSource Private m_sDescription Private m_sHelpContext Private m_sHelpFile Public Sub Save() m_lNumber = Err.number m_sSource = Err.Source m_sDescription = Err.Description m_sHelpContext = Err.HelpContext m_sHelpFile = Err.helpfile End Sub Public Sub Raise() Err.Raise m_lNumber, m_sSource, m_sDescription, m_sHelpFile, m_sHelpContext End Sub Public Sub Clear() m_lNumber = 0 m_sSource = "" m_sDescription = "" m_sHelpContext = "" m_sHelpFile = "" End Sub Public Default Property Get Number() Number = m_lNumber End Property Public Property Get Source() Source = m_sSource End Property Public Property Get Description() Description = m_sDescription End Property Public Property Get HelpContext() HelpContext = m_sHelpContext End Property Public Property Get HelpFile() HelpFile = m_sHelpFile End Property End Class Function PingFileShare(ByVal sUNCPath) Dim oFSO Set oFSO = MomCreateObject("Scripting.FileSystemObject") Dim e Set e = New Error Dim oFolder On Error Resume Next Set oFolder = oFSO.GetFolder(sUNCPath) e.Save On Error Goto 0 PingFileShare = (e.Number = 0) End Function Class DFS Private m_sDFSUtilPath Public Property Get DFSUtilPath DFSUtilPath = m_sDFSUtilPath End Property Public Property Let DFSUtilPath(ByVal sPath) Dim oShell Set oShell = MomCreateObject("WScript.Shell") m_sDFSUtilPath = oShell.ExpandEnvironmentStrings(sPath) End Property Public Property Get Roots Dim sDFSCommand sDFSCommand = """""" & m_sDFSUtilPath & """ /Server:" & ScriptContext.TargetNetbiosComputer & " /view""" Dim iErrorCode Dim sOutput Dim sError RunCommand sDFSCommand, iErrorCode, sOutput, sError Dim aRoots() If iErrorCode <> 0 Then If iErrorCode = 259 Then Roots = aRoots Exit Property ElseIf iErrorCode = 1 Then ThrowScriptError "The tool DFSUTIL.EXE could not be found on the managed node. To resolve this " & _ "issue please install the Windows 2003 Support Tools and then verify the script " & _ "parameter ""DFSUtilLocation"" has the correct directory location listed for " & _ "DFSUTIL.EXE." & vbCrLf & _ "Details:" & vbCrLf & _ sError, _ Err ElseIf iErrorCode = 87 Then ThrowScriptError "You may have the wrong version of DFSUTIL.EXE installed. Version 4.0 is required." & vbCrLf & _ "Details:" & vbCrLf & _ sError, _ Err Else ThrowScriptError "Error occurred while obtaining all DFS Roots on " & ScriptContext.TargetNetbiosComputer & "." & vbCrLf & _ "Error Details:" & vbCrLf & _ sError, _ Err End If End If Dim oRootNames ParseForRoots sOutput, oRootNames Dim sRootName Dim sRootType ReDim aRoots(oRootNames.Count - 1) Dim i For i = 0 To oRootNames.Count - 1 sRootName = "\" & Replace(oRootNames(i), vbTab, "") ' If the RootName starts with the domain name If Instr(sRootName, "\\" & ScriptContext.TargetNetbiosDomain) = 1 Then sRootType = "Domain" Else sRootType = "Stand Alone" End If Set aRoots(i) = New DFSRoot aRoots(i).Initialize sRootName, sRootType, m_sDFSUtilPath Next Roots = aRoots End Property End Class Class DFSRoot Private m_oXMLElement Private m_sName Private m_sType Private m_sXMLFileLocation Private Sub Class_Terminate() DeleteXMLFile End Sub Private Sub DeleteXMLFile() SetXMLElement Nothing If m_sXMLFileLocation <> "" Then Dim oFSO Set oFSO = MomCreateObject("Scripting.FileSystemObject") oFSO.DeleteFile m_sXMLFileLocation End If End Sub Public Sub Initialize(ByVal sName, ByVal sType, ByVal sDFSUtilPath) m_sName = sName m_sType = sType DeleteXMLFile m_sXMLFileLocation = GenerateGUID() & ".xml" Dim sDFSCommand sDFSCommand = """""" & sDFSUtilPath & """ /root:""" & sName & """ /export:" & m_sXMLFileLocation & """" Dim iErrorCode Dim sOutput Dim sError RunCommand sDFSCommand, iErrorCode, sOutput, sError If iErrorCode <> 0 Then ' Error occurred while running the dfsutil command ThrowScriptError "Error occurred while exporting details for DFS Root [" & sName & "] to XML file. DFS Root not processed." & vbCrLf & _ "Error Details:" & vbCrLf & _ sError, _ Err End If Dim oXDFSResults Set oXDFSResults = MomCreateObject("MSXML2.DOMDocument") oXDFSResults.validateOnParse = True ' Load the dfsutil result xml file oXDFSResults.load(m_sXMLFileLocation) If oXDFSResults.ParseError.ErrorCode <> 0 Then ThrowScriptError "Unable to open oXDFSResults file. DFS Root [" & sName & "] not processed." & vbCrLf & _ oXDFSResults.ParseError.Reason, _ Err End If SetXMLElement oXDFSResults.SelectSingleNode("/Root") End Sub Public Property Get IsAccessible IsAccessible = PingFileShare(Name) End Property Public Property Get Name Name = m_sName End Property Public Property Get RootType RootType = m_sType End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Timeout Timeout = m_oXMLElement.SelectSingleNode("@Timeout").Value End Property Public Property Get Comment Dim oCommentAttribute Set oCommentAttribute = m_oXMLElement.SelectSingleNode("@Comment") If oCommentAttribute Is Nothing Then Comment = "" Else Comment = oCommentAttribute.Value End If End Property Public Property Get Targets Dim oTargetXMLElements Set oTargetXMLElements = m_oXMLElement.SelectNodes("Target") ReDim aTargets(oTargetXMLElements.length - 1) Dim i For i = 0 To oTargetXMLElements.length - 1 Set aTargets(i) = New DFSRootTarget aTargets(i).SetXMLElement oTargetXMLElements.item(i) Next Targets = aTargets End Property Public Property Get Links Dim oLinkXMLElements Set oLinkXMLElements = m_oXMLElement.SelectNodes("Link") ReDim aLinks(oLinkXMLElements.length - 1) Dim i For i = 0 To oLinkXMLElements.length - 1 Set aLinks(i) = New DFSLink aLinks(i).Initialize oLinkXMLElements.item(i), Name Next Links = aLinks End Property Public Sub SetXMLElement(ByVal oXMLElement) Set m_oXMLElement = oXMLElement End Sub End Class Class DFSRootTarget Private m_oXMLElement Public Property Get IsAccessible IsAccessible = PingFileShare(Name) End Property Public Property Get Name Name = "\\" & Server & "\" & Folder End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Server Server = m_oXMLElement.SelectSingleNode("@Server").Value End Property Public Property Get Folder Folder = m_oXMLElement.SelectSingleNode("@Folder").Value End Property Public Sub SetXMLElement(ByVal oXMLElement) Set m_oXMLElement = oXMLElement End Sub End Class Class DFSLink Private m_oXMLElement Private m_sRootName Public Property Get IsAccessible IsAccessible = PingFileShare(m_sRootName & "\" & Name) End Property Public Property Get Name Name = m_oXMLElement.SelectSingleNode("@Name").Value End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Timeout Timeout = m_oXMLElement.SelectSingleNode("@Timeout").Value End Property Public Property Get Comment Dim oCommentAttribute Set oCommentAttribute = m_oXMLElement.SelectSingleNode("@Comment") If oCommentAttribute Is Nothing Then Comment = "" Else Comment = oCommentAttribute.Value End If End Property Public Property Get Targets Dim oTargetXMLElements Set oTargetXMLElements = m_oXMLElement.SelectNodes("Target") ReDim aTargets(oTargetXMLElements.length - 1) Dim i For i = 0 To oTargetXMLElements.length - 1 Set aTargets(i) = New DFSLinkTarget aTargets(i).SetXMLElement oTargetXMLElements.item(i) Next Targets = aTargets End Property Public Sub Initialize(ByVal oXMLElement, ByVal sRootName) Set m_oXMLElement = oXMLElement m_sRootName = sRootName End Sub End Class Class DFSLinkTarget Private m_oXMLElement Public Property Get IsAccessible IsAccessible = PingFileShare(Name) End Property Public Property Get Name Name = "\\" & Server & "\" & Folder End Property Public Property Get State State = CInt(m_oXMLElement.SelectSingleNode("@State").Value) End Property Public Property Get Server Server = m_oXMLElement.SelectSingleNode("@Server").Value End Property Public Property Get Folder Folder = m_oXMLElement.SelectSingleNode("@Folder").Value End Property Public Sub SetXMLElement(ByVal oXMLElement) Set m_oXMLElement = oXMLElement End Sub End Class Const DFS_CLASS_ID = "DFS" Const DFS_NAME_ATTRIBUTE_ID = "Name" Const DFS_SERVICE_COMPONENT_ID = "Service" Const DFS_LINKS_COMPONENT_ID = "Links" Const DFS_ROOTS_COMPONENT_ID = "Roots" Const DFS_LINK_CLASS_ID = "DFS Link" Const DFS_LINK_LINK_NAME_ATTRIBUTE_ID = "LinkName" Const DFS_LINK_LINK_COMMENT_ATTRIBUTE_ID = "LinkComment" Const DFS_LINK_LINK_TIMEOUT_ATTRIBUTE_ID = "LinkTimeout" Const DFS_LINK_TARGET_CLASS_ID = "DFS Link Target" Const DFS_LINK_TARGET_LINK_TARGET_NAME_ATTRIBUTE_ID = "LinkTargetName" Const DFS_LINK_TARGET_LINK_TARGET_FOLDER_ATTRIBUTE_ID = "LinkTargetFolder" Const DFS_LINK_TARGET_LINK_TARGET_SERVER_ATTRIBUTE_ID = "LinkTargetServer" Const DFS_ROOT_CLASS_ID = "DFS Root" Const DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID = "RootName" Const DFS_ROOT_ROOT_COMMENT_ATTRIBUTE_ID = "RootComment" Const DFS_ROOT_ROOT_TIMEOUT_ATTRIBUTE_ID = "RootTimeout" Const DFS_ROOT_ROOT_TYPE_ATTRIBUTE_ID = "RootType" Const DFS_ROOT_TARGET_CLASS_ID = "DFS Root Target" Const DFS_ROOT_TARGET_ROOT_TARGET_NAME_ATTRIBUTE_ID = "RootTargetName" Const DFS_ROOT_TARGET_ROOT_TARGET_FOLDER_ATTRIBUTE_ID = "RootTargetFolder" Const DFS_ROOT_TARGET_ROOT_TARGET_SERVER_ATTRIBUTE_ID = "RootTargetServer" Const COMPUTER_CLASS_ID = "Computer" Const COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID = "ComputerName" Const COMPUTER_TIME_ZONE_BIAS_ATTRIBUTE_ID = "Time Zone Bias" Const COMPUTER_OPERATING_SYSTEM_VERSION_ATTRIBUTE_ID = "Operating System Version" Const COMPUTER_IP_ADDRESS_ATTRIBUTE_ID = "IPAddress" Const COMPUTER_FQDN_ATTRIBUTE_ID = "FQDN" Const COMPUTER_VIRTUAL_SERVER_TYPE_ATTRIBUTE_ID = "Virtual Server Type" Class DFSRootCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_ROOT_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeProperty DFS_ROOT_ROOT_TIMEOUT_ATTRIBUTE_ID .AddScopeProperty DFS_ROOT_ROOT_TYPE_ATTRIBUTE_ID .AddScopeProperty DFS_ROOT_ROOT_COMMENT_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oRoot) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddProperty DFS_ROOT_ROOT_TIMEOUT_ATTRIBUTE_ID, oRoot.Timeout .AddProperty DFS_ROOT_ROOT_COMMENT_ATTRIBUTE_ID, oRoot.Comment .AddProperty DFS_ROOT_ROOT_TYPE_ATTRIBUTE_ID, oRoot.RootType End With m_oCollection.AddInstance oInstance End Sub End Class Class DFSRootTargetCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc, ByVal oRoot) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_ROOT_TARGET_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeFilter DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddScopeProperty DFS_ROOT_TARGET_ROOT_TARGET_SERVER_ATTRIBUTE_ID .AddScopeProperty DFS_ROOT_TARGET_ROOT_TARGET_FOLDER_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oRootTarget) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_ROOT_TARGET_ROOT_TARGET_NAME_ATTRIBUTE_ID, oRootTarget.Name .AddProperty DFS_ROOT_TARGET_ROOT_TARGET_SERVER_ATTRIBUTE_ID, oRootTarget.Server .AddProperty DFS_ROOT_TARGET_ROOT_TARGET_FOLDER_ATTRIBUTE_ID, oRootTarget.Folder End With m_oCollection.AddInstance oInstance End Sub End Class Class DFSLinkCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc, ByVal oRoot) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_LINK_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeFilter DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddScopeProperty DFS_LINK_LINK_TIMEOUT_ATTRIBUTE_ID .AddScopeProperty DFS_LINK_LINK_COMMENT_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oLink) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_LINK_LINK_NAME_ATTRIBUTE_ID, oLink.Name .AddProperty DFS_LINK_LINK_TIMEOUT_ATTRIBUTE_ID, oLink.Timeout .AddProperty DFS_LINK_LINK_COMMENT_ATTRIBUTE_ID, oLink.Comment End With m_oCollection.AddInstance oInstance End Sub End Class Class DFSLinkTargetCollection Private m_oCollection Public Property Get InnerCollection() Set InnerCollection = m_oCollection End Property Public Sub Initialize(ByVal oDisc, ByVal oRoot, ByVal oLink) Set m_oCollection = oDisc.CreateCollection() With m_oCollection .ClassID = DFS_LINK_TARGET_CLASS_ID .AddScopeFilter COMPUTER_COMPUTER_NAME_ATTRIBUTE_ID, ScriptContext.TargetComputerIdentity .AddScopeFilter DFS_NAME_ATTRIBUTE_ID, ScriptContext.TargetNetbiosComputer .AddScopeFilter DFS_ROOT_ROOT_NAME_ATTRIBUTE_ID, oRoot.Name .AddScopeFilter DFS_LINK_LINK_NAME_ATTRIBUTE_ID, oLink.Name .AddScopeProperty DFS_LINK_TARGET_LINK_TARGET_SERVER_ATTRIBUTE_ID .AddScopeProperty DFS_LINK_TARGET_LINK_TARGET_FOLDER_ATTRIBUTE_ID End With End Sub Public Sub Add(ByVal oLinkTarget) Dim oInstance Set oInstance = m_oCollection.CreateInstance() With oInstance .AddKeyProperty DFS_LINK_TARGET_LINK_TARGET_NAME_ATTRIBUTE_ID, oLinkTarget.Name .AddProperty DFS_LINK_TARGET_LINK_TARGET_SERVER_ATTRIBUTE_ID, oLinkTarget.Server .AddProperty DFS_LINK_TARGET_LINK_TARGET_FOLDER_ATTRIBUTE_ID, oLinkTarget.Folder End With m_oCollection.AddInstance oInstance End Sub End Class Sub Main() Dim oDiscData Dim oRootColl, oRootInst, oRootTgtColl, oRootTgtInst Dim oLinkColl, oLinkInst, oLinkTgtColl, oLinkTgtInst Dim sDFSUtilPath sDFSUtilPath = CStr(ScriptContext.Parameters.Get("DFSUtilLocation")) Set oDiscData = ScriptContext.CreateDiscoveryData() oDiscData.ScopeID = "{0A89FFE0-69A5-4587-97D0-FC341A903423}" Set oRootColl = New DFSRootCollection oRootColl.Initialize oDiscData Dim oDFS Set oDFS = New DFS oDFS.DFSUtilPath = sDFSUtilPath Dim oRoot For Each oRoot In oDFS.Roots oRootColl.Add oRoot ScriptContext.Echo "Root: " & oRoot.Name Set oRootTgtColl = New DFSRootTargetCollection oRootTgtColl.Initialize oDiscData, oRoot Dim oRootTarget For Each oRootTarget In oRoot.Targets oRootTgtColl.Add oRootTarget ScriptContext.Echo "Root Target: " & oRootTarget.Name Next oDiscData.AddCollection oRootTgtColl.InnerCollection Set oLinkColl = New DFSLinkCollection oLinkColl.Initialize oDiscData, oRoot Dim oLink For Each oLink In oRoot.Links oLinkColl.Add oLink ScriptContext.Echo "Link: " & oLink.Name Set oLinkTgtColl = New DFSLinkTargetCollection oLinkTgtColl.Initialize oDiscData, oRoot, oLink Dim oLinkTarget For Each oLinkTarget In oLink.Targets oLinkTgtColl.Add oLinkTarget ScriptContext.Echo "Link Target: " & oLinkTarget.Name Next oDiscData.AddCollection oLinkTgtColl.InnerCollection Next oDiscData.AddCollection oLinkColl.InnerCollection Next oDiscData.AddCollection oRootColl.InnerCollection ScriptContext.Submit oDiscData End Sub """"""The Error Message in MOM""""""" A management pack script was unable to complete successfully Description: (Error in MOM) The "Microsoft Windows Distributed File Systems" management pack failed to execute the Microsoft Windows 2003 DFS Service Discovery script successfully. The following error event was returned "Error occurred while exporting details for DFS Root [\\domain.test1.com\Sâ??l] to XML file. DFS Root not processed. Error Details: Microsoft(R) Windows(TM) Dfs Utility Version 4.2 Copyright (C) Microsoft Corporation 1991-2005. All Rights Reserved. System error 2 has occurred. The system cannot find the file specified. Done processing this command. ". The following additional error details were returned "". Please refer to the events associated with this alert to view the computers that have experienced this problem. And i have the same problem for 2 other folders (3 folders totally) [\\domain.test1.com\Fâ??n] [\\domain.test1.com\Bâ? t] Questions 1. Can i use the "Replace" in the VBS script? 2. Where in the script should i put it Im not a scripting guru so as easy explained as possible would be great =) Something like this but use only either of the 6 lines. Dim Mystring MyString = Replace("& sName &", "Ã¥", "â? ") MyString = Replace("& sName &", "Ã¤", "â??") MyString = Replace("& sName &", "Ã¶", "â??") MyString = Replace("& sName &", "Ã?", "Â?") MyString = Replace("& sName &", "Ã?", "Å½") MyString = Replace("& sName &", "Ã?", "â?¢") or MyString = Replace("& sName &", "â? ", "Ã¥") MyString = Replace("& sName &", "â??", "Ã¤") MyString = Replace("& sName &", "â??", "Ã¶") MyString = Replace("& sName &", "Â?", "Ã?") MyString = Replace("& sName &", "Å½", "Ã?") MyString = Replace("& sName &", "â?¢", "Ã?") Br/ Peter Tag: Convert VB app to vbscript Tag: 212778
  - 24
    - VB script Hai, I am new to VB script, now i am developing a Installer(MSI) in .net3.0 and using some VBscript for installing my application, right now i have HARD code my installation path but i need to insatll my application in any path say( c:\XXX\YYY.exe {OR} D:\XXX\YYY.exe ) so, how shall i do it,Thanks a lot in advance! Tag: Convert VB app to vbscript Tag: 212777
  - 25
    - Apply multiple attributes to in-line onmouseover/out I've been looking around and I can't find an example of the following anywhere. Just a syntax question really; in an HTA the following changes the font style and size on mouse over/out: <div onmouseover="me.style.font='16pt Arial'" onmouseout="me.style.font='10pt ''Times New Roman'''">Example text.</div> If I wanted to use IN-LINE arguments in the above example to also change the font color and background color onmouseover and onmouseout, how would this be done? Could someone please add these attributes to my example DIV above so that it works? Thanks much in advance. Tag: Convert VB app to vbscript Tag: 212770

Is there anything out there that will convert a VB program into vbscript.

Thanks.

Re: Convert VB app to vbscript by McKirahan

McKirahan
Sun Dec 02 15:55:13 PST 2007

"AHartman" <Hoosbruin@Kconline.com> wrote in message
news:ko6dnY3j_Lduo87anZ2dnUVZ_jydnZ2d@kconline.com...
> Is there anything out there that will convert a VB program into vbscript.

I don't know if such a utility exists though I'm sure some things
can't (easily) be converted; API calls would likely be a problem.

If there's a UI you may want to use an HTA (HTML Application)
which is basically VBScript (or JScript) and HTML.

Top