IE7 and 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
    - Collections in ASP and XML, using the Session Object (Part 1) Let's say that I have an xml file with: <PRODUCTS> <PRODUCT> <SKU>AAA111</SKU> <NAME>Name One</NAME> <COLORS> <COLOR><ID>BK</ID><PRICE>10</PRICE></COLOR> <COLOR><ID>WH</ID><PRICE>20</PRICE></COLOR> </COLORS> </PRODUCT> <PRODUCT> <SKU>BBB222</SKU> <NAME>Name Two</NAME> <COLORS> <COLOR><ID>BK</ID><PRICE>20</PRICE></COLOR> <COLOR><ID>WH</ID><PRICE>30</PRICE></COLOR> </COLORS> </PRODUCT> <PRODUCTS> When the session starts, I want to create a Session Variable/Object that can be used in ASPs later like this: (Example Use in VBScript) Dim colProducts colProducts = Session("PRODUCTS") For Each oProduct In colProducts Response.Write(oMyProduct("SKU") For Each oColor In oProduct("COLORS") ' Access a SUB collection directly. Response.Write(oColor("ID")) Next Next oMyProduct = colProducts("AAA111") Response.Write(oMyProduct("NAME")) It has been a very long time since I coded, and so my code is probably a bit rusty. Also, I have never really worked with collections. My questions are: 1.) In my session_onstart code, how do I create a collection and store it into the session variable? What language should I use? Code Examples? 2.) In my ASPs, how do I propperly access those collections and sub-collections? Languages? Code Examples? Thanks in advance. Tag: IE7 and VBScript Tag: 201555
  - 2
    - VBScript to Remote Monitor I am writing a script to grab information, such as hard drive space or memory availability, from remote servers then output that to a webpage for viewing. So far I can only get it to work grabbing info from the localhost, it keeps saying unable to connect to WMI for the remotes. When I change the value of strComputer to something other than the localhost, it fails. ------- ------- Const HARD_DISK = 3 strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "") Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") Set colComputer = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") Set objFS = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFS.CreateTextFile("stat.htm") objNewFile.WriteLine "<html>" objNewFile.WriteLine "<head>" objNewFile.WriteLine "<title>Process Report</title>" objNewFile.WriteLine "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" objNewFile.WriteLine "<link rel='stylesheet' href='stat.css'>" objNewFile.WriteLine "</head>" objNewFile.WriteLine "<body>" objNewFile.WriteLine "<div class='header'>" objNewFile.WriteLine "<img src='images/banner.gif'>" objNewFile.WriteLine "<h2>Process Report -- Date: " & Now() & "</h2>" & vbCrLf objNewFile.WriteLine "</div>" objNewFile.WriteLine "<b>" For Each objOS in colOSes objNewFile.WriteLine "<div class='info'>" objNewFile.WriteLine "Computer Name: " & objOS.CSName & "<br>" objNewFile.WriteLine "Caption: " & objOS.Caption & "<br>" objNewFile.WriteLine "Version: " & objOS.Version & "<br>" objNewFile.WriteLine "Build Number: " & objOS.BuildNumber & "<br>" objNewFile.WriteLine "Build Type: " & objOS.BuildType & "<br>" objNewFile.WriteLine "Service Pack: " & objOS.ServicePackMajorVersion & "." & objOS.ServicePackMinorVersion objNewFile.WriteLine "</div>" Next For Each objDisk in colDisks objNewFile.WriteLine "<div class='hdd'>" strUsedDisk = FormatNumber((((objDisk.Size/1024/1024/1024)-(objDisk.FreeSpace/1024/1024/1024))/(objDisk.Size/1024/1024/1024))*100, 2) if (strUsedDisk > 80) Then strUD = "<font color='red'>" & strUsedDisk & "</font>%<br>" elseif (strUsedDisk > 40) Then strUD = "<font color='yellow'>" & strUsedDisk & "</font>%<br>" else strUD = "<font color='green'>" & strUsedDisk & "</font>%<br>" end if strFreeDisk = FormatNumber(((objDisk.FreeSpace/1024/1024/1024)/(objDisk.Size/1024/1024/1024)*100), 2) if (strFreeDisk < 20 ) Then strFD = "<font color='red'>" & strFreeDisk & "</font>%<p>" elseif (strFreeDisk < 60 ) Then strFD = "<font color='yellow'>" & strFreeDisk & "</font>%<p>" else strFD = "<font color='green'>" & strFreeDisk & "</font>%<p>" end if objNewFile.WriteLine "Drive Letter: " & vbTab & objDisk.DeviceID & "<br>" objNewFile.WriteLine "Used Disk Space: " & vbTab & FormatNumber((objDisk.Size/1024/1024/1024)-(objDisk.FreeSpace/1024/1024/1024), 2) & " GB / " & FormatNumber(objDisk.Size/1024/1024/1024, 2) & " GB<br>" objNewFile.WriteLine "Used Disk Space: " & vbTab & strUD objNewFile.WriteLine "Free Disk Space: " & vbTab & FormatNumber(objDisk.FreeSpace/1024/1024/1024, 2) & " GB / " & FormatNumber(objDisk.Size/1024/1024/1024, 2) & " GB<br>" objNewFile.WriteLine "Free Disk Space: " & vbTab & strFD objNewFile.WriteLine "</div>" Next For Each objOperatingSystem in colOSes strAvailMem = FormatNumber((objOperatingSystem.FreePhysicalMemory/1024), 0) Next For Each objComputer in colComputer strTotalMem = FormatNumber((objComputer.TotalPhysicalMemory/1024/1024), 0) Next strUsedMem = FormatNumber((strTotalMem-strAvailMem)/(strTotalMem)*100, 2) if (strUsedMem > 80 ) Then strUM = "<font color='red'>" & strUsedMem & "</font>%<br>" elseif (strUsedMem > 40 ) Then strUM = "<font color='yellow'>" & strUsedMem & "</font>%<br>" else strUM = "<font color='green'>" & strUsedMem & "</font>%<br>" end if strFreeMem = FormatNumber((strAvailMem)/(strTotalMem)*100, 2) if (strFreeMem < 20 ) Then strFM = "<font color='red'>" & strFreeMem & "</font>%<br>" elseif (strFreeMem < 60 ) Then strFM = "<font color='yellow'>" & strFreeMem & "</font>%<br>" else strFM = "<font color='green'>" & strFreeMem & "</font>%<br>" end if objNewFile.WriteLine "<div class='ram'>" objNewFile.WriteLine "Used Physical Memory: " & vbTab & (strTotalMem-strAvailMem) & " MB / " & strTotalMem & " MB<br>" objNewFile.WriteLine "Used Physical Memory: " & vbTab & strUM objNewFile.WriteLine "Free Physical Memory: " & vbTab & strAvailMem & " MB / " & strTotalMem & " MB<br>" objNewFile.WriteLine "Free Physical Memory: " & vbTab & strFM objNewFile.WriteLine "</div>" objNewFile.WriteLine "<div class='ramimg'>" if ( strFreeMem >= 100 ) Then objNewFile.WriteLine "<img src='images/100free.gif' width='100' height='100'>" elseif ( strFreeMem >= 90 ) Then objNewFile.WriteLine "<img src='images/90free.gif' width='100' height='100'>" elseif ( strFreeMem >= 80 ) Then objNewFile.WriteLine "<img src='images/80free.gif' width='100' height='100'>" elseif ( strFreeMem >= 70 ) Then objNewFile.WriteLine "<img src='images/70free.gif' width='100' height='100'>" elseif ( strFreeMem >= 60 ) Then objNewFile.WriteLine "<img src='images/60free.gif' width='100' height='100'>" elseif ( strFreeMem >= 50 ) Then objNewFile.WriteLine "<img src='images/50free.gif' width='100' height='100'>" elseif ( strFreeMem >= 40 ) Then objNewFile.WriteLine "<img src='images/40free.gif' width='100' height='100'>" elseif ( strFreeMem >= 30 ) Then objNewFile.WriteLine "<img src='images/30free.gif' width='100' height='100'>" elseif ( strFreeMem >= 20 ) Then objNewFile.WriteLine "<img src='images/20free.gif' width='100' height='100'>" elseif ( strFreeMem >= 10 ) Then objNewFile.WriteLine "<img src='images/10free.gif' width='100' height='100'>" else objNewFile.WriteLine "<img src='images/0free.gif' width='100' height='100'>" end if objNewFile.WriteLine "</div>" objNewFile.WriteLine "<div class='hddimg'>" if ( strFreeDisk >= 100 ) Then objNewFile.WriteLine "<img src='images/100free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 90 ) Then objNewFile.WriteLine "<img src='images/90free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 80 ) Then objNewFile.WriteLine "<img src='images/80free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 70 ) Then objNewFile.WriteLine "<img src='images/70free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 60 ) Then objNewFile.WriteLine "<img src='images/60free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 50 ) Then objNewFile.WriteLine "<img src='images/50free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 40 ) Then objNewFile.WriteLine "<img src='images/40free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 30 ) Then objNewFile.WriteLine "<img src='images/30free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 20 ) Then objNewFile.WriteLine "<img src='images/20free.gif' width='100' height='100'>" elseif ( strFreeDisk >= 10 ) Then objNewFile.WriteLine "<img src='images/10free.gif' width='100' height='100'>" else objNewFile.WriteLine "<img src='images/0free.gif' width='100' height='100'>" end if objNewFile.WriteLine "</div>" objNewFile.WriteLine "</b>" objNewFile.WriteLine "</body>" objNewFile.WriteLine "</html>" objNewFile.Close Tag: IE7 and VBScript Tag: 201551
  - 3
    - Accessing an XML document from a URL Hello, I am new to developing using asp, visual basic and XML. I want to be able to access an XML docment which is held at a specific URL, then be able to access each node and grab the data from it. I have been reading about Microsoft.XMLDocument, MSXML2.XMLHTTP, MSXML2.DOMDocument and Microsoft.XMLDOM but I am not sure where to start. I would like to be able to grab this XML document, read it, and then assign the information inside the nodes to variables within While Loop. for instance. While there are nodes assign variable to node value output this value loop Thanks Tag: IE7 and VBScript Tag: 201548
  - 4
    - Can you use a Recursive sub in vbscript? I need to write a script that resets the permissions on all the folders on the Private drive (for my test I'm using C:\Private\). All the folders within C:\Private should be listed as the user's login name (C:\Private\aadams\). Many of them have different subfolders too. Basically, I need to have the script get the username from the folder name and set (not replace) modify/owner permissions on the folder and its subfolders... This is what I have found and smashed together so far. It sort of works, but only on the first folder...after that it looks like it gets kicked out of the recursive sub (will a recursive sub even in vbscript?...I don't see why not...) and I don't know why. I set up about 3 test folders with different usernames within C:\Private to test the script and each user's subfolder has a MyDocs folder in it as well. Ok...after all that...here's what I have: ---------------------------------- On Error Resume Next Const FOR_READING = 1 strFolder = "c:\Private" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFSO.CreateTextFile("Test.txt") Set objFolder = objFSO.GetFolder(strFolder) ShowSubFolders(objFolder) objNewFile.WriteLine "Script is done..." objNewFile.Close Sub ShowSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders Dim Str, strUser, Seps(2) Seps(0) = "C:\" Seps(1) = "\" Str = CStr(objFolder.Path) objNewFile.WriteLine Str & " is Str" Dim a a = Tokenize(Str, Seps) strUser = CStr(a(2)) objNewFile.WriteLine strUser & " is strUser" ModifyAndOwn(strUser) objNewFile.WriteLine "in 1st part of recurs " & strUser Set colFiles = objSubFolder.Files For Each objFile In colFiles ModifyAndOwn(strUser) objNewFile.WriteLine "in 2nd part of recurs " & strUser Next ShowSubFolders(objSubFolder) Next End Sub Function ModifyAndOwn(strUserName) strSetModify = "& xcacls.vbs ""c:\Private\"""& strUserName &"\ /e /g ""da\"""& strUserName &":m" strSetOwner = "& subinacl /subdirectories c:\Private\"& strUserName &" /setowner=da\"& strUserName &"" objShell.Run "%comspec% /k cd ""c:\windows\""" & strSetModify & strSetOwner &"" objNewFile.WriteLine "in ModifyAndOwn " & strUserName End Function Function Tokenize(byVal TokenString, byRef TokenSeparators()) Dim NumWords, a() NumWords = 0 Dim NumSeps NumSeps = UBound(TokenSeparators) Do Dim SepIndex, SepPosition SepPosition = 0 SepIndex = -1 for i = 0 to NumSeps-1 ' Find location of separator in the string Dim pos pos = InStr(TokenString, TokenSeparators(i)) ' Is the separator present, and is it closest to the beginning of the string? If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then SepPosition = pos SepIndex = i End If Next ' Did we find any separators? If SepIndex < 0 Then ' None found - so the token is the remaining string redim preserve a(NumWords+1) a(NumWords) = TokenString Else ' Found a token - pull out the substring Dim substr substr = Trim(Left(TokenString, SepPosition-1)) ' Add the token to the list redim preserve a(NumWords+1) a(NumWords) = substr ' Cutoff the token we just found Dim TrimPosition TrimPosition = SepPosition+Len(TokenSeparators(SepIndex)) TokenString = Trim(Mid(TokenString, TrimPosition)) End If NumWords = NumWords + 1 loop while (SepIndex >= 0) Tokenize = a End Function ------------------- Any help or suggestions would be greatly appreciated! Tag: IE7 and VBScript Tag: 201546
  - 5
    - Can you use a Recursive sub in vbscript? I need to write a script that resets the permissions on all the folders on the Private drive (for my test I'm using C:\Private\). All the folders within C:\Private should be listed as the user's login name (C:\Private\aadams\). Many of them have different subfolders too. Basically, I need to have the script get the username from the folder name and set (not replace) modify/owner permissions on the folder and its subfolders... This is what I have found and smashed together so far. It sort of works, but only on the first folder...after that it looks like it gets kicked out of the recursive sub (will a recursive sub even in vbscript?...I don't see why not...) and I don't know why. I set up about 3 test folders with different usernames within C:\Private to test the script and each user's subfolder has a MyDocs folder in it as well. Ok...after all that...here's what I have: ---------------------------------- On Error Resume Next Const FOR_READING = 1 strFolder = "c:\Private" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFSO.CreateTextFile("Test.txt") Set objFolder = objFSO.GetFolder(strFolder) ShowSubFolders(objFolder) objNewFile.WriteLine "Script is done..." objNewFile.Close Sub ShowSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders Dim Str, strUser, Seps(2) Seps(0) = "C:\" Seps(1) = "\" Str = CStr(objFolder.Path) objNewFile.WriteLine Str & " is Str" Dim a a = Tokenize(Str, Seps) strUser = CStr(a(2)) objNewFile.WriteLine strUser & " is strUser" ModifyAndOwn(strUser) objNewFile.WriteLine "in 1st part of recurs " & strUser Set colFiles = objSubFolder.Files For Each objFile In colFiles ModifyAndOwn(strUser) objNewFile.WriteLine "in 2nd part of recurs " & strUser Next ShowSubFolders(objSubFolder) Next End Sub Function ModifyAndOwn(strUserName) strSetModify = "& xcacls.vbs ""c:\Private\"""& strUserName &"\ /e /g ""da\"""& strUserName &":m" strSetOwner = "& subinacl /subdirectories c:\Private\"& strUserName &" /setowner=da\"& strUserName &"" objShell.Run "%comspec% /k cd ""c:\windows\""" & strSetModify & strSetOwner &"" objNewFile.WriteLine "in ModifyAndOwn " & strUserName End Function Function Tokenize(byVal TokenString, byRef TokenSeparators()) Dim NumWords, a() NumWords = 0 Dim NumSeps NumSeps = UBound(TokenSeparators) Do Dim SepIndex, SepPosition SepPosition = 0 SepIndex = -1 for i = 0 to NumSeps-1 ' Find location of separator in the string Dim pos pos = InStr(TokenString, TokenSeparators(i)) ' Is the separator present, and is it closest to the beginning of the string? If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then SepPosition = pos SepIndex = i End If Next ' Did we find any separators? If SepIndex < 0 Then ' None found - so the token is the remaining string redim preserve a(NumWords+1) a(NumWords) = TokenString Else ' Found a token - pull out the substring Dim substr substr = Trim(Left(TokenString, SepPosition-1)) ' Add the token to the list redim preserve a(NumWords+1) a(NumWords) = substr ' Cutoff the token we just found Dim TrimPosition TrimPosition = SepPosition+Len(TokenSeparators(SepIndex)) TokenString = Trim(Mid(TokenString, TrimPosition)) End If NumWords = NumWords + 1 loop while (SepIndex >= 0) Tokenize = a End Function ------------------- Any help or suggestions would be greatly appreciated! Tag: IE7 and VBScript Tag: 201545
  - 6
    - Sort Column Script I need to have a script in Excel that would allow the sorting of columns from column "D" to the column before the last column with data. I do not want the last column sorted. The criteria for the sort is in row 1 (Name of an employee). Additional columns will be inserted between column "D" and the last column so they need to be sorted. I hope this is clear. Can someone please assist me? Thank you! Bernie Tag: IE7 and VBScript Tag: 201544
  - 7
    - CDO.Message and attachments I have a asp page that sends a excel price list to customers, this worked fine untill now, but now when i sent one to myself it arrives as a dat file. Does any one know why, and how to fix it, is it a problem with my emailk reader (Outlook) or is it some thing to do wih Exchange? Tag: IE7 and VBScript Tag: 201539
  - 8
    - Install loopback by script Hi, someone know how to install loopback by script ? thank's Max Tag: IE7 and VBScript Tag: 201538
  - 9
    - GetGestureStatus Method [InkPicture Control] doesn't work. Help please I am trying to use the GetGestureStatus method of the InkPicture ActiveX control in VBScript, but it doesn't work, I always get the error 80040235 (The query type is missing). I don't know what it means. Here's the code: <SCRIPT LANGUAGE="vbscript"> Set TheObject = Document.createElement("object") document.body.appendChild(TheObject) TheObject.classid = "clsid:04A1E553-FE36-4FDE-865E-344194E69424" 'msinkaut.InkPicture.1 TheObject.id = "picture" TheObject.picture = LoadPicture("C:\bla.jpg") TheObject.SizeMode = StretchImage TheObject.enabled=true sub picture_click() msgbox "I am an InkPicture Event!" end sub TheObject.SetGestureStatus IAG_ArrowLeft, True 'Doesnt work TheObject.GetGestureStatus(IAG_ArrowLeft) 'Doesnt work TheObject.SetGestureStatus 61498, True 'Doesnt work TheObject.GetGestureStatus(61498) 'Doesnt work </SCRIPT> It simply doesn't work! The method is explained here: http://msdn2.microsoft.com/en-gb/library/ms702416.aspx But as always Microsoft doesn't care about those who are using VBScript, they only provide examples for Visual Basic. I am totally at a loss here, can somebody help? P.S. The following method works: TheObject.SetEventInterest 4,true msgbox TheObject.GetEventInterest (4) So if SetEventInterest works, why don't SetEventInterest / GetGestureStatus methods work? Tag: IE7 and VBScript Tag: 201537
  - 10
    - Selecting an Excel Worksheet using a Function in VBS Hello Everyone(I posted this question in the Excel newsgroup, but they tell me to use: Function funWorksheetInput() As String, but I don't think VBS uses that, or at least it doesn't work for me!) I have started the following code that will allow a user to drag and drop an XLS file ontop of this vbs script, and it will display a list of all the available worksheet names, which they can then choose the worksheet number and it will select that worksheet (take you to that worksheet). This is part of a bigger idea I have in my head, but so far I am stuck on the following line: objWorkbooks.Worksheets(funWorksheetInput).Select Why can't I use my function as the input selection? I get "Script Out of Range" I can do the following hard coding: objWorkbooks.Worksheets(2).Select or objWorkbooks.Worksheets("Sheet3").Select Any help would be appreciated! T 'vbs code start Dim argsNamed, argsUnnamed set argsNamed = WScript.Arguments.Named set argsUnnamed = WScript.Arguments.Unnamed Dim objExcelApp ' Excel application object Set objExcelApp = WScript.CreateObject("Excel.Application") objExcelApp.Visible = True Dim fso Set fso = CreateObject("Scripting.FileSystemObject") set objWorkbooks = objExcelApp.Workbooks.Open(argsUnnamed(file)) set objWorksheets = objWorkbooks.Worksheets objWorkbooks.Worksheets(funWorksheetInput).Select set objWorkbooks = Nothing set objWorksheets = Nothing set objRange = Nothing Set objExcelApp = Nothing Set argsNamed = Nothing Set argsUnnamed = Nothing Set fso = Nothing WScript.Quit Function funWorksheetInput Dim arryWS, c, ws arryWS = split( funGetWorksheetNames, ",") For c = 0 to Ubound(arryWS) - 1 ws = ws & c+1 & "). " & arryWS(c) ws = ws & vbCRLF Next strSourceMessage = "Select from one of the following worksheets:" & vbCrLf & ws funWorksheetInput = InputBox( strSourceMessage, "WorkSheet Selection", "1") If funWorksheetInput = "" Then WScript.Quit(0) End Function Function funGetWorksheetNames Dim s,ws For s = 1 To objWorksheets.Count ws = ws & objWorksheets(s).Name ws = ws & "," Next funGetWorksheetNames = ws End Function 'vbs code end Tag: IE7 and VBScript Tag: 201533
  - 11
    - multiple dial up connections and multiple FTP I need to make multiple dial up connections and do multiple FTP transfers on each connection simultaneously. Is this possible on a windows machine? What are my options and procedures using vbscript? Tag: IE7 and VBScript Tag: 201530
  - 12
    - Script Local Security Policy Hey there, I wrote some small scripts for collecting several information about a computer. In addition I wrote a small script to install that. Now I want the User running these "collector" scripts to deny the right to logon locally (normally a setting in the local security setting) and I want to get that done by my installer script. I did not find any way to insert a users name into this policy. Is it definitively not possible o did I miss something? Thanks in advance for any hint! Regards, Achim Tag: IE7 and VBScript Tag: 201519
  - 13
    - Stopping .vbs file from running Sorry, I have this somewhere and can't find it. What is the code for stopping a .vbs file from running? It would be the equivalent of the vba command Exit Sub. Tag: IE7 and VBScript Tag: 201514
  - 14
    - VBA or VBScript to extract filename from a long file path. I'm not sure which board this should actually be on. I have an access database with a single table and several thousand records added each day.. One of the columns in each record is a file path with file name. Examples: H:\MainFolder\BillyGroup\FloridaFiles\VariousReportNames1234567.txt or H:\MainFolder\SusansGroup\GeorgiaFiles\MoreVariousReportNames1234301.txt There may be about a half dozen different filefolder paths, and the files themselves could be named anything. The file names are variable lengths but always start with alpha characters, and always end with a 7-digit number. and all are text files (.txt) Here is what I want to do: I want to extract only the file name in each record. and copy the filename to either a field or variable to use in code in another part of this project, or copy just the filename (minus the folder path) to another text file that I can work with. I was thinking of some kind of function to do this that I can call and go all the way through the Access Database table to extract each filename in each record. In the 2 examples mentioned above, I should endup with only: VariousReportNames1234567.txt or MoreVariousReportNames1234301.txt The source data is an Access Database table, but my output will be text files, not access tables. How do I extract just a filename? Tag: IE7 and VBScript Tag: 201500
  - 15
    - vb script to remove a startup entry i have this thing with adobe photo downloader, i don't want it auto-loading - easily fixed, same as i did with hp image monitor but i still want it available, so put it on the task bar on the left, when i'm using the printer for functions that i want all the extras, i click and it loads into the notification area just like it would on startup befotre i changed it, and i can exit anytime are you with me so far ? :) ok, adobe does the same thing, except it writes itself into startup when it executes i've found a vbs script that i think will do it, but i don't know vbs, really somebody check it for me please ? i think the only thing i need to change is "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Adobe Photo Downloader" has to be HKLM etc and, um, i can write this into a bat/pif to execute C:\Program Files\Adobe\Photoshop Album Starter Edition\3.0\Apps\apdproxy.exe to load that, and then a line to run the reg edit directly after by a direct command prompt call to the script file ? so the bat would be : C:\Program Files\Adobe\Photoshop Album Starter Edition\3.0\Apps\apdproxy.exe call killapdproxystartup.vbs vbs code reads : 'vmb's remover for auto-insert on startup line by photoshop downloader execution 'Based on fixes by Doug Knox and Kelly Theriot. original file xp_pastitems.vbs 'designed to remove past items icon list in notification tray for volume icon problem Message = "we're about to alter the registry" & vbCR Message = Message & "based on a vbs script by Doug Knox and Kelly Theriot" & vbCR Message = Message & "edited by -<VMB>- -restarting Windows shell now to run vbs" & vbCR Message = Message & "This will not harm your system." & vbCR & vbCR Message = Message & "Continue?" X = MsgBox(Message, vbYesNo, "Notice") If X = 6 Then On Error Resume Next Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Adobe Photo Downloader" Set WshShell = Nothing Next MsgBox "Finished." & vbcr & vbcr & "thanx Doug Knox and Kelly Theriot", 4096, "-<VMB>-" Else MsgBox "No changes were made to your system." & vbcr & vbcr & "thanx Doug Knox and Kelly Theriot -<VMB>-", 4096, "User Cancelled" End If i have some programming, but not this - there's probably something that doesn't make sense, but will it work ? btw, if you want the original code for the past items thing, i can post that - i was going to so you could see what i did, but i figured to keep it concise thanx ! Tag: IE7 and VBScript Tag: 201489
  - 16
    - Enable DNS Suffix Search order - New to VBScripting Hello, I would like to find a way to Select or Enable DNSSUFFIXSearchorder, I have an existing script that works to populate the dnssuffixes but it only works if this option is selected in the network properties of a workstation, if it is not and left at default it fails. Any suggestions or advice would be great. Thank you. Tag: IE7 and VBScript Tag: 201482
  - 17
    - question re: user account creation script I am almost finished creating a user creation script for a school. It reads data from a csv file to create all the attributes etc. 1. Is the following line acceptable: objUser,Put "Display Name" strFirst & " " & strLast 2. The user is instructd to first create a spread sheet with appropriate colums and then convert that to a csv file and then a txt file. The instructions also say to strip any characters other then alphabetical characters (e.g. hyphen, comma, and space) from the names. Would it be easy to add lines to my script that double check that this has been done and to remove them if they haven't been. (If removing is a lot of work, I can cancel the creation of that particular user account and write a note to the log file.). Would I basically use something like: If instrFirst(",") or if instrFirst("-") or if instrFrist(" ") Then (write log file entry and move on to next user) EndIf If instrLast(",") or if instrLast("-") or if instrLast(" ") Then (write log file entry and move on to next user) Else (continue on with script) Tag: IE7 and VBScript Tag: 201480
  - 18
    - Win32_Product Install Hi, i tried to use the Install method of the Win32_Product class, as described here: http://www.microsoft.com/technet/scriptcenter/guide/sas_cpm_nila.mspx?mfr=true But i have a problem with the command line parameters. If the command contain parameters such as /qn or /l*v, it does not work. I tried all possible combination; i tried to put the "/qn" switch in the options parameters of the Install method, but it does'nt work. This is the script simple (v. link above): Const ALL_USERS = True Set objService = GetObject("winmgmts:") Set objSoftware = objService.Get("Win32_Product") errReturn = objSoftware.Install("c:\scripts\database.msi", , ALL_USERS) Where i must put the /qn switch? I tried this method because with the run method (WshShell), i don't have any control on the msi execution (i don't know in my script if the installation was successfull, nor the error number). With the install method, i have a return code from the msi. Does anyone know another way to get the control of the msi execution in my script? Thanks in advance. -- Tyler Durden Tag: IE7 and VBScript Tag: 201474
  - 19
    - ipaddress conversion I wrote a jscript that outputs an ipaddress I stripped down function for BB post. I want to have vbscript version also. Can anyone help me out. jscript code base=0x0AA00000; BASE ADDRESS START node = 1000 starting number for example range=256; number of addresses avail ipaddress=range*node+base+0; ipstring=ipaddress.toString(16); conver to hex string octet1="0x"+ipstring.substring(0,1); octet2="0x"+ipstring.substring(1,3); octet3="0x"+ipstring.substring(3,5); octet4="0x"+ipstring.substring(5,7); octet1=octet1*1; back to string octet2=octet2*1; octet3=octet3*1; octet4=octet4*1; var test = (octet1 + "." + octet2 + "." + octet3 + "." + octet4); WScript.StdOut.WriteLine(test); The output is : 10.163.232.0 Tag: IE7 and VBScript Tag: 201452
  - 20
    - New to VBScript Any recommendations on (1) a VBScript editor and (2) good places to find code snippets to start my journey with this? TIA, Roy Tag: IE7 and VBScript Tag: 201442
  - 21
    - Why isn't this working?!?!?! Ok, so I'm not the best at scripting...and I'm writing the code in notepad, but my boss asked me to write a script that resets the permissions on all the folders on the Private drive (for my test I'm using C:\Private\). All the folders within C:\Private should be listed as the user's login name (C:\Private\aadams\). Many of them have different subfolders too. Basically, I need to have the script get the username from the folder name and set (not replace) modify/owner permissions on the folder and its subfolders... This is what I have found and smashed together so far. It sort of works, but only on the first folder...after that it looks like it gets kicked out of the recursive sub and I don't know why!!! I set up about 3 test folders with different usernames within C:\Private to test the script and each user's subfolder has a MyDocs folder in it as well. Ok...after all that...here's what I have: ---------------------------------- On Error Resume Next Const FOR_READING = 1 strFolder = "c:\Private" Set objShell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objNewFile = objFSO.CreateTextFile("Test.txt") Set objFolder = objFSO.GetFolder(strFolder) ShowSubFolders(objFolder) objNewFile.WriteLine "Script is done..." objNewFile.Close Sub ShowSubFolders(objFolder) Set colFolders = objFolder.SubFolders For Each objSubFolder In colFolders Dim Str, strUser, Seps(2) Seps(0) = "C:\" Seps(1) = "\" Str = CStr(objFolder.Path) objNewFile.WriteLine Str & " is Str" Dim a a = Tokenize(Str, Seps) strUser = CStr(a(2)) objNewFile.WriteLine strUser & " is strUser" ModifyAndOwn(strUser) objNewFile.WriteLine "in 1st part of recurs " & strUser Set colFiles = objSubFolder.Files For Each objFile In colFiles ModifyAndOwn(strUser) objNewFile.WriteLine "in 2nd part of recurs " & strUser Next ShowSubFolders(objSubFolder) Next End Sub Function ModifyAndOwn(strUserName) strSetModify = "& xcacls.vbs ""c:\Private\"""& strUserName &"\ /e /g ""da\"""& strUserName &":m" strSetOwner = "& subinacl /subdirectories c:\Private\"& strUserName &" /setowner=da\"& strUserName &"" objShell.Run "%comspec% /k cd ""c:\windows\""" & strSetModify & strSetOwner &"" objNewFile.WriteLine "in ModifyAndOwn " & strUserName End Function Function Tokenize(byVal TokenString, byRef TokenSeparators()) Dim NumWords, a() NumWords = 0 Dim NumSeps NumSeps = UBound(TokenSeparators) Do Dim SepIndex, SepPosition SepPosition = 0 SepIndex = -1 for i = 0 to NumSeps-1 ' Find location of separator in the string Dim pos pos = InStr(TokenString, TokenSeparators(i)) ' Is the separator present, and is it closest to the beginning of the string? If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then SepPosition = pos SepIndex = i End If Next ' Did we find any separators? If SepIndex < 0 Then ' None found - so the token is the remaining string redim preserve a(NumWords+1) a(NumWords) = TokenString Else ' Found a token - pull out the substring Dim substr substr = Trim(Left(TokenString, SepPosition-1)) ' Add the token to the list redim preserve a(NumWords+1) a(NumWords) = substr ' Cutoff the token we just found Dim TrimPosition TrimPosition = SepPosition+Len(TokenSeparators(SepIndex)) TokenString = Trim(Mid(TokenString, TrimPosition)) End If NumWords = NumWords + 1 loop while (SepIndex >= 0) Tokenize = a End Function ------------------- Please help me if you can! Tag: IE7 and VBScript Tag: 201436
  - 22
    - How to involve an .vbs into another .vbs file? Hi All I have an big .vbs file, I would like to separate it into several smaller files, how to involve all of them into an main file? Jeff Tag: IE7 and VBScript Tag: 201433
  - 23
    - Command Line Arguments Is there a way to capture the command line arguments in vbscript? I tried command(), and it didn't like that. Thanks, Dave Tag: IE7 and VBScript Tag: 201426
  - 24
    - Problem with Populating an Instance in WMI Just a beginning coder and having some problems writing Instances to WMI: I'm able to create the data class structure in WMI, but when I go to query the mapped drives to write them to my static WMI Class "MappedDrives" I get stuck. Code is attached. Scroll to ''Add Instances to data class" for problem area. Thanks for any help... option explicit On Error Resume Next Dim wbemCimtypeSint16 Dim wbemCimtypeSint32 Dim wbemCimtypeReal32 Dim wbemCimtypeReal64 Dim wbemCimtypeString Dim wbemCimtypeBoolean Dim wbemCimtypeObject Dim wbemCimtypeSint8 Dim wbemCimtypeUint8 Dim wbemCimtypeUint16 Dim wbemCimtypeUint32 Dim wbemCimtypeSint64 Dim wbemCimtypeUint64 Dim wbemCimtypeDateTime Dim wbemCimtypeReference Dim wbemCimtypeChar16 wbemCimtypeSint16 =3D 2 wbemCimtypeSint32 =3D 3 wbemCimtypeReal32 =3D 4 wbemCimtypeReal64 =3D 5 wbemCimtypeString =3D 8 wbemCimtypeBoolean =3D 11 wbemCimtypeObject =3D 13 wbemCimtypeSint8 =3D 16 wbemCimtypeUint8 =3D 17 wbemCimtypeUint16 =3D 18 wbemCimtypeUint32 =3D 19 wbemCimtypeSint64 =3D 20 wbemCimtypeUint64 =3D 21 wbemCimtypeDateTime =3D 101 wbemCimtypeReference =3D 102 wbemCimtypeChar16 =3D 103 Dim oLocation, oServices, oInstances, oObject, oDataObject, oNewObject, oRptObject, colDisks , objDisk Set oLocation =3D CreateObject("WbemScripting.SWbemLocator") 'Remove classes Set oServices =3D oLocation.ConnectServer(, "root\cimv2") set oNewObject =3D oServices.Get("Mapped_Drives") oNewObject.Delete_ Set oServices =3D oLocation.ConnectServer(, "root\cimv2\SMS") set oNewObject =3D oServices.Get("Mapped_Drives") oNewObject.Delete_ 'Create data class structure Set oServices =3D oLocation.ConnectServer(, "root\cimv2") Set oDataObject =3D oServices.Get oDataObject.Path_.Class =3D "Mapped_Drives" oDataObject.Properties_.add "DeviceID", wbemCimtypeString oDataObject.Properties_.add "Description", wbemCimtypeString oDataObject.Properties_.add "ProviderName", wbemCimtypeString oDataObject.Properties_("DeviceID").Qualifiers_.add "key", True oDataObject.Put_ '********** CODE TESTED CLEAN THRU THIS POINT! ********** '********** CODE TESTED CLEAN THRU THIS POINT! ********** '********** CODE TESTED CLEAN THRU THIS POINT! ********** 'Add Instances to data class Set oServices =3D oLocation.ConnectServer(, "root\cimv2") strComputer =3D "." Set objWMIService =3D GetObject("winmgmts:" _ & "{impersonationLevel=3Dimpersonate}!\\" & strComputer & "\root\cimv2") Set colDisks =3D objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk") For each objDisk in colDisks Set oNewObject =3D oServices.Get("Mapped_Drives").SpawnInstance_ oNewObject.DeviceID =3D objDisk.DeviceID oNewObject.Description =3D objDisk.Description oNewObject.ProviderName =3D objDisk.ProviderName oNewObject.Put_ =20 Next=20 Reply =BB Tag: IE7 and VBScript Tag: 201423
  - 25
    - Center Text In Word I have a VB script that creates a word document and prints it. I'd like to format it so that the text is centered on the page (I already have the lines of text centered). I can't seem to find this coding anywhere? Could someone please help me out? Is there a list of coding for a Word document? Thanks! Tag: IE7 and VBScript Tag: 201420
- Next
  - 1
    - Drop Down Input Box? In my script I have a couple of input boxes. I'd like one of them to contain a drop down list of choices. Is there a way to do that? Thanks, Glenn Tag: IE7 and VBScript Tag: 201418
  - 2
    - URL missing the "." in CDO HTML message When creating a <a href> to a URL in the HTMLBody portion of a CDO message, occasionally the displayed URL will be missing dots. For example, http://www.google.com will come out http://wwwgoogle.com - although, the href will correctly point to http://www.google.com. Has anyone run into this problem? Solved it? Thanks. Michael Tag: IE7 and VBScript Tag: 201414
  - 3
    - Updating a db field with current date Hi, I have my vbs script set up to solicit info from the user and write that info to the specified database. I also want to be able to automatically update the record in the database with the date it was changed. I have objRecordSet("Date Used") = But, I'm not sure what to ut after the equal sign. Any suggestions? Thanks, Glenn Tag: IE7 and VBScript Tag: 201413
  - 4
    - Problem in invoking a remote script I have faced the problem in invoking a remote script. I suspect it is a working directory's problem. Below is the remote script, which will called by the local pc. For your information, the remote program will use some configuration files which is located in its program directory. May iknow whether the current directory will be changed accordingly based on the "objShell.CurrentDirectory = strProgramDir"? Thank you Option Explicit Dim strProgramDir, objShell, strProgram, intReturn strProgramDir = "C:\RemoteProgram\bin" strProgram = "RemoteProgram.exe" Set objShell = CreateObject("Wscript.Shell") objShell.CurrentDirectory = strProgramDir intReturn = objShell.Run(strProgram, 0, True) WSCript.echo intReturn WSCript.Quit(intReturn) Tag: IE7 and VBScript Tag: 201397
  - 5
    - How to call mofcomp in a vbscript Hello All Just wondering how I can call mofcomp.exe in a vbscript , here is what I have written so far but the error I get is file not found , any suggestion would be greatly appreciated. Set objShell = CreateObject("WScript.Shell") strWinDir= objShell.ExpandEnvironmentStrings("%WinDir%") strdllDir=strWinDir & "\system32\wbem" Set objFSO=CreateObject("Scripting.FileSystemObject") Set objFiles=objFSO.GetFolder(strdllDir).Files For Each file In objFiles 'If Right(file.name,3)="mof" Then 'objShell.Run "mofcomp.exe" & chr(34) & file & chr(34) 'wscript.echo file 'End If Next TIA Ann Tag: IE7 and VBScript Tag: 201394
  - 6
    - getting screen width and height broke recently Guys, For years I've had the code below to get screen size in a script to move an agent character around: With CreateObject("htmlfile").parentWindow ScreenWidth = .screen.width ScreenHeight = .screen.height End With I now get an 'Access Denied' on the second line. Not AV or IPS software causing it as we can duplicate the problem on a test box without those installed. PCs have IE6SP2 or IE7 installed. This was just reported in the last few weeks and appears to be related to IE patches (just based on the timing - haven't looked close enough yet). Run within SystemScripter the output window says: Permission denied: 'screen' All I have to do is change it to this: With CreateObject("htmlfile") With .parentWindow ScreenWidth = .screen.width ScreenHeight = .screen.height End With End With And once again it works like a champ. Can anyone else duplicate this? Since we use WMI for other things in our scripts I may just switch to using CurrentHorizontalResolution and CurrentVerticalResolution from Win32_VideoController, but this worked for so long I would like to know what's up. Thanks, BZ Tag: IE7 and VBScript Tag: 201372
  - 7
    - autorun in vbscript Please... with wich command vbscript i start relative program ? i.e.: with a file "Document.doc" start word.exe with a file "Spreadsheet.xls" start exec.exe with a file "Image.jpg" start imageviewer.exe thanks. Sorry for my english Tag: IE7 and VBScript Tag: 201369
  - 8
    - Changing file to uppercase I need to convert the contents of a file to all upper case then FTP the file. I need to have this run at night automatically. The data is orginating from a SQL server and has to be sent in a csv format. any thoughts on a quick fix to convert the contrnts to upper case?? Tag: IE7 and VBScript Tag: 201361
  - 9
    - How to escape out of a loop Hi, I have a vbscript that checks through large text files looking for this and that. I loop through the lines using the Do while not EndOfTextStream() function. Some of these files are huge. Sometimes I realise that I need to stop the prog. Is there a way I can programme combination of keys to escape from the loop ? Some other method ? Right now I'm crashing the process through the Ctrl + Alt + Del + Programme Manager. None too elegant, I must admit. Could someone please paste an example ? Or point me to a link. Thanks in advance. Andy Morton. Tag: IE7 and VBScript Tag: 201358
  - 10
    - Problem Creating A Shortcut I have a shorcut on my desktop that opens the downloaded version of SQL Server 2005 Compact Edition Books Online The shortcut includes these properties: Target type Application Target Location Help 8 Target "C:\Program Files\Common Files\Microsoft Shared\Help 8\dexplore.exe" /helpcol ms-help://MS.SSCE.v31.EN The following vbs script tries to create the shortcut Set wshObject = WScript.CreateObject("WScript.Shell") deskTopFolder = wshObject.SpecialFolders("Desktop") Set myShortcut = wshObject.CreateShortcut(desktopFolder & "\\SQL Compact.lnk") myShortcut.TargetPath = "'C:\Program Files\Common Files\Microsoft Shared\Help 8\dexplore.exe' /helpcol ms-help://MS.SSCE.v31.EN" MyShortcut.Save() but using the generated shortcut I get the message The item MS.SSCE.v31.EN that this shortcut refers to has been changed or moved so this shortcut will no longer work. The obvious difference is in the lack of Target Location in the script but there is no property for Target Location. Tag: IE7 and VBScript Tag: 201346
  - 11
    - TakeOwnershipEx returns 2 hi! i'm building a script to 'backup' data from computers before reinstalling SO so i've tryed : strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("Select * From Win32_Directory Where Name = 'C:\\Documents and Settings\\xx'") For Each objFolder in colFolders MsgBox objFolder.TakeOwnerShipEx(True) Next so i can copy the folder which it was made private but the msgbox shows me "2" meaning " Access was denied." any sugestions ? only by script not interfering with "properties -> security" thanks in advance EggHeadCafe.com - .NET Developer Portal of Choice http://www.eggheadcafe.com Tag: IE7 and VBScript Tag: 201345
  - 12
    - Problem creating shortcut I have a desktop shortcut which opens the following: SQL Server 2005 Compact Edition Books Online The shortcut has: Target Type Application Target Location Help 8 Target "C:\Program Files\Common Files\Microsoft Shared\Help 8 \dexplore.exe" /helpcol ms-help://MS.SSCE.v31.EN I have tried to create this shortcut in vbs: Set wshObject = WScript.CreateObject("WScript.Shell") deskTopFolder = wshObject.SpecialFolders("Desktop") Set myShortcut = wshObject.CreateShortcut(desktopFolder & "\\SQL Compact.lnk") myShortcut.TargetPath = "'C:\Program Files\Common Files\Microsoft Shared\Help 8\dexplore.exe' /helpcol ms-help://MS.SSCE.v31.EN" MyShortcut.Save() but this message appears: The item MS.SSCE.v31.EN that this shortcut refers to has been changed or moved, so this shortcutwill no longer work. The obvious difference is in the treatment of Target Location. I tried setting myShortcut.Target.Location but there is nosuch property. Tag: IE7 and VBScript Tag: 201344
  - 13
    - How to list all (recursively) empty folders ? I would like to have a script which lists me all folders in a directory tree which are empty (= which contain no files and folders) If a folder contains other folders which in turn are empty then the parent folder should be seen as empty as well. I could imagine that such a script already exists. Where can I find such a script? Paul Tag: IE7 and VBScript Tag: 201342
  - 14
    - ÇëÎÊÄÇÀïÓÐ±È½ÏºÃµÄvbs ×ÊÔ´ ÐÂÑ§vbs £¬²»¹ý²»ÖªµÀÄÇÀïÓÐ±È½ÏºÃµÄvbs ×ÊÔ´ ×îºÃÊÇÖÐÎÄµÄ£¬Ó¢ÎÄµÄÒ²ÐÐ£¬Õâ¸öÌÖÂÛ×éÈËºÃÏñºÜÉÙ°¢ Tag: IE7 and VBScript Tag: 201338
  - 15
    - Simple Array Value Conversion Hello, I'm new with VB and need some assistance with creating a function to convert the values of one array and place them in another. So far I have: '--------------------------------------- MyArray(2) MyArray(0) = "Old Hat" MyArray(1) = "Old Shirt" MyArray(2) = "Old Shoe" Public Function Convert(MyArray As Array) As Array Dim x, i For Each x In MyArray x=Replace(x ,"Old","New") MyArray(i) = x i = i +1 Next End Function Call Covert(MyNewArray(2)) '--------------------------------------- Seems valid to me? However, no matter how I word it, I keep getting stuck with either no values in MyNewArray or errors like: "Object reference not set to an instance of an object" or "Expression is a value and therefore cannot be the target of an assignment." Any ideas? Tag: IE7 and VBScript Tag: 201326
  - 16
    - Network Drive Label is "Network Drive (H:) Here's the snippet of code I'm using: If InStr(strGroup, lcase(Staff_Group)) Then objNetwork.MapNetworkDrive "H:","\\blah\General" objShell.NameSpace("H:").Self.Name = "General" Now when I login as someone in the Staff Group and I open windows explorer I for a share name I see "Network Drive (H:)" rather then "General (H:)" any ideas why? Thanks for the help. -Chris Matera Tag: IE7 and VBScript Tag: 201325
  - 17
    - Cross-Forest - IADsGroup::Add receiving error 80072030 "There is no such object on the server" When running a script to add a user from forest abc, to a domain local group in forest xyz, I receive an error as follows: 80072030 "There is no such object on the server" This is a snippet of the code I am using to perform the procedure: ================================================= set objGroup = GetObject("LDAP://cn=Local Group,ou=Test,dc=xyz,dc=com") set objUser = GetObject("LDAP://cn=John Doe,ou=Test,dc=abc,dc=com") wscript.echo "Group:" & objgroup.adspath & vbcrlf & "User:" & objUser.adspath objGroup.add(objUser.adspath) =================================================== The same code will add the user to the group if the domains are in the same forest. If the domains are in two forests with a trust, it will not work. I have no trouble using Active Directory Users & Computers to add the user to the group. I have tried running the script on servers in both forests. The echo works in all the above scenarios, so I know the GetObject is working. The script will always fail on the objGroup.add. I have also modified the LDAP requests so to specify a dc (LDAP://dc.xyz.com/cn=Local Group,ou=Test,dc=xyz,dc=com). Thank you for your time! Tag: IE7 and VBScript Tag: 201313
  - 18
    - script problem Hi I have a problem with the script below, when i run it locally it gives an error "Invalid class string /texting/text_test.asp, line 18" Which i assume is because i don't have SOAP toolkit 3.0 installed. (is that something a can install on windows xp running iis?) I have then tried the same script with our webhosts and it still doesn't work even though they DO have SOAP 3.0 installed. I'm very new to this, could anyone please give some guidance. Many thanks Dave <%@LANGUAGE="VBSCRIPT"%> <% Dim oSOAP Dim Result Client_ID="xxxxxxxxxx" Client_Pass="xxxxxxxxxx" Client_Ref="123456789" Billing_ref="123456789" Connection="1" Originator="davetext" Otype="1" Destination="+447748363936" Body="it is a bit of test text" SMS_type="0" SMS_encoding="0" Set oSOAP = Server.CreateObject("MSSOAPLib30.SoapClient30") oSOAP.ClientProperty("ServerHTTPRequest") = True oSOAP.mssoapinit("http://ws.textanywhere.net/ta_SMS.asmx?wsdl") Result = oSOAP.SendSMS(Client_ID,Client_Pass,Client_Ref,Billing_ref,Connection,Originator,Otype,Destination,Body,SMS_type,SMS_encoding) SET oSOAP = nothing Response.write("The Function SendSMS Returns (Sequence Status):" & Result) %> Tag: IE7 and VBScript Tag: 201307
  - 19
    - Loading a delimited file into SQL Server DB, must encrypt some fields Hi, I have a file that is updated daily that I need to load into a SQL Database. This part I can do easily enough but I need to be able to encrypt certain fields and then decrypt them to display them in an ASP app. Any ideas how I can do that? Thanks a lot in advance. Tag: IE7 and VBScript Tag: 201306
  - 20
    - VBScript to change the domain in Active Directory Users and Computer Hey guys, I am looking for a script when run can kick off AD users and computers and change the domain as specified in the script. Can this be done Please and any help wuld be really appreciated. Regards Singh. Tag: IE7 and VBScript Tag: 201302
  - 21
    - remove unicode from text file im hoping someone can point me in the right direction here- im looking for a script that will rip through a directory of text files, removing garbage unicode that causes "unexpected end of file" errors during my sql server bulk insert process. tia jt Tag: IE7 and VBScript Tag: 201298
  - 22
    - Does VBscript support " & _" for long strings? I know in Word and Excel VBA macros, I can set a long string using & vbCrLf & _ to continue the string on the next line. I seem to be getting an error in a script using this. Then again, it may well be something else. So I thought I'd check on this while I look over everything else just to make sure this is okay in scripting. Thanks. Ed Tag: IE7 and VBScript Tag: 201291
  - 23
    - WSF file and function calls... Hi, folks! I have a WSF script file that I'm working on that goes something like this: I am trying to make a function call in a VBScript block where the function has been defined in a JScript block. Naturally, I am getting an error, "Variable is undefined: 'ShowUses' ". How can I make this function call work, if possible? ==================== <?xml version="1.0" encoding="utf-8" ?> <package> <job id="Job1"> <script src="LibraryFile.vbs" language="VBScript" /> <script language="VBScript"> ShowUses() 'Call made here </script> <script language="JScript"> function ShowUses() //function defined here { ... } </script> </job> </package> ==================== TIA... Tag: IE7 and VBScript Tag: 201282
  - 24
    - transfering datas from a program to another hi there first of all I apologize for my bad english. I've a problem, a vbs program (prog1.vbs) calls another one (prog2.vbs) and passes datas to it. The datas are strings, a problem occurs when there is a space in a data, it's seen as 2 datas because the data separator is the space. What is the solution for this problem? example of my programs: ******** prog1.vbs ********* Set Shell = Wscript.CreateObject("Wscript.Shell") data = InputBox("Data?","Data") shell.run "prog2.vbs"&" "&data **************************** ******** prog2.vbs ********* wscript.echo args(0) **************************** If I enter "AB" then "AB" is displayed If I enter "A B" then only "A" is displayed Please note that in the real life many datas are transfered from the 1st program to the 2nd and in each of them it could have many space. Thanks for your help phil Tag: IE7 and VBScript Tag: 201280
  - 25
    - "Left" is an invalid procedure?? I am trying to get and parse the names of the processes running on my computer. I want to separate the process names into the name and the extension. I'm trying this script (based on one given me by jw ("mr_unreliable"). Any help is greatly appreciated. Ed Option Explicit Dim sProcList ' as string Dim oWMI, Process ' as objects Dim sName, sExt ' as string Dim sProc ' as string Dim nPos ' as number Set oWMI = GetObject("winmgmts:") for each Process in oWMI.InstancesOf("Win32_Process") sProc = Process.Name nPos = InStr(sProc,".") sName = Left(sProc, (nPos - 1)) sExt = Right(sProc, Len(sProc - nPos)) MsgBox sProc & vbCrLf & sName & vbCrLf & sExt Next Set oWMI = nothing ' clean up Wscript.Quit Tag: IE7 and VBScript Tag: 201276

I have a pseudo code as below

1. RefreshFrame1 using location.href = newURL
2. Display Msgbox "completed" in Frame2
3. set select control item in Frame1

the code worked perfectly well in IE6. Its doing what it is supped to.

in IE7, display msgbox is displayed but before that no refreshframe1 happens
whereas refreshframe1 happens when click "ok" on the msgbox.

Why is it so. Is there something changed in IE7 handling of this code.

thanks in advance.

Top

Re: IE7 and VBScript by abcd

abcd
Fri Jan 26 16:46:08 CST 2007

anybody knows this...I did not get any reply...where are the MVPs....

When the messagebox is displayed why the status bar shows me "waiting for
http://localhost......"
Why its waiting....any clues why this happens in IE7 and not in IE6.

abcd wrote:
> I have a pseudo code as below
>
> 1. RefreshFrame1 using location.href = newURL
> 2. Display Msgbox "completed" in Frame2
> 3. set select control item in Frame1
>
> the code worked perfectly well in IE6. Its doing what it is supped to.
>
> in IE7, display msgbox is displayed but before that no refreshframe1
> happens whereas refreshframe1 happens when click "ok" on the msgbox.
>
> Why is it so. Is there something changed in IE7 handling of this code.
>
> thanks in advance.

Top

Re: IE7 and VBScript by Anthony

Anthony
Tue Jan 30 02:52:56 CST 2007

> abcd wrote:
> > I have a pseudo code as below
> >
> > 1. RefreshFrame1 using location.href = newURL
> > 2. Display Msgbox "completed" in Frame2
> > 3. set select control item in Frame1
> >
> > the code worked perfectly well in IE6. Its doing what it is supped to.
> >
> > in IE7, display msgbox is displayed but before that no refreshframe1
> > happens whereas refreshframe1 happens when click "ok" on the msgbox.
> >
> > Why is it so. Is there something changed in IE7 handling of this code.
> >
> > thanks in advance.
> "abcd" <abcd@abcd.com> wrote in message
news:u3aLGvZQHHA.4404@TK2MSFTNGP06.phx.gbl...> anybody knows this...I did
not get any reply...where are the MVPs....
>
> When the messagebox is displayed why the status bar shows me "waiting for
> http://localhost......"
> Why its waiting....any clues why this happens in IE7 and not in IE6.
>

I'm not sure what you are expecting. Clearly there is a change as you have
demonstrated. Why this change has been made is something known to the IE
development team but I'm not sure how many including MVPs outside of that
would know.

Top