Embed a file in an HTA; possible?

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
    - ignoring a wildcard statement We are trying to execute and if then part of our script against a wildcard, but it is not working and only executes the process if we enter the whole computer name and not the variable. We basically want the script to map a drive based on the first couple of letters in the computername which would dictate where the computer is located. comp=objShell.ExpandEnvironmentStrings("%ComputerName%") strComputer = "*.*" If InStr(UCase(comp), "EXT" & strComputer) Then WshShell.Run "\\SERVER\apps\script1.vbs" End if If InStr(UCase(comp), "047-C301") Then WshShell.Run "\\SERVER\apps\script2.vbs" End if If InStr(UCase(comp), "047-C302") Then WshShell.Run "\\SERVER\apps\script3.vbs" End if If InStr(UCase(comp), "047-C303") Then WshShell.Run "\\SERVER\apps\script4.vbs" End if If InStr(UCase(comp), "047-C304") Then WshShell.Run "\\SERVER\apps\script5.vbs" End if The computer EXTRA1 is not reading the wildcard. Any help would be appreciated. Tag: Embed a file in an HTA; possible? Tag: 205771
  - 2
    - Open Win Explorer to specified path Could someone please post example code that opens a New Windows Explorer window to a path stored in a variable? Thanks. Tag: Embed a file in an HTA; possible? Tag: 205757
  - 3
    - Script Error All, I am looking for some insight for a problem I am having in doing a series of calls to AD to populate a recordset. The error I receive is: (null): The server is not operational. On this line of code: Set objTarget = GetObject("LDAP://" & strDN & "," & Domain) This usually happens on the 1979 to 1984 call to AD. I have rebuilt the workstation (XP SP2) and the DC (WIN2K SP4) is a saved state virtual machine I can roll back to a baseline at will. Everything was running fine up to a couple days ago and I have reverted the code to a state that runs fine, but there is no functional difference in the current to the reverted code. ADUC will not pull up properties on a Group for a couple minutes after the error, displaying the "Server is not Operational" message on a blank object window. I have run traces on the workstation and server and nothing is out of the ordinary. I am stumped, in 6 years of ADSI this one is a new one on me. I am sure there is some boneheaded error or something I am overlooking. Any insight as to where I am going wrong is appreciated. Thanks, Jay Relevant Code: '****************************************************************** ' Takes in a Rollup dataset and populates AD Dataset ' With the groups updated data Sub Populate_AD_DS(ByRef DSClone, ByRef AD_DS) ' Globals: Domain Dim strDN, strSamName, sGroupName 'Dim objTarget Dim iCount, iGCount iCount = 0 iGCount = 0 If NOT DSClone.BOF = True Then DSClone.MoveFirst End If Do Until DSClone.EOF sGroupName = "" strSamName = "" strSamName = DSClone("SamName") 'Wscript.Echo strSamName strDN = Get_ADDN(strSamName) If strDN <> "" Then 'Wscript.Echo strDN ' Create Entry in AD_Recordset AD_DS.AddNew AD_DS("DN") = strDN AD_DS("OldDN") = DSClone("DN") AD_DS("SamName") = strSamName ' Attach to the Group Object 'Wscript.Echo strDN & "," & Domain Dim objTarget 'Set objTarget = GetObject(strLDAP & strDN & "," & Domain) Set objTarget = GetObject("LDAP://" & strDN & "," & Domain) ' Remove CN= from Name sGroupName = Mid(objTarget.Name, 4) AD_DS("Name") = sGroupName 'Wscript.Echo vbtab & sGroupName '****************************************************************** 'Get List of Members Dim sGroupMember, sGroupMemberDN, sMemberList Dim arrMembers, iMemberCount sGroupMember = "" sMemberList = "" iMemberCount = 0 '********************* On Error Resume Next '********************* arrMembers = objTarget.GetEx("member") 'Wscript.Echo vbtab & "Get Members" If Err.Number = 0 Then ' Group has members iMemberCount = Ubound(arrMembers) + 1 ' If count >=1000 need to process group membership differently If iMemberCount >= 1000 Then arrMembers = Get_LargeMembership(strSamName) iMemberCount = Ubound(arrMembers) + 1 End If ' iMemberCount >= 1000 For Each sGroupMemberDN in arrMembers ' Strip off the dc=... part of the DN for storage sGroupMember = Replace(sGroupMemberDN, "," & Domain, "") ' Build list of members If sMemberList = "" Then sMemberList = sGroupMember Else sMemberList = sMemberList & ";" & sGroupMember End If ' sMemberList = "" Next ' sGroupMemberDN in arrMembers End If ' Err.Number <> 0 Members Check '********************* Err.Clear On Error GoTo 0 '********************* AD_DS("MemberList") = sMemberList ' Save Changes to AD_Recordset AD_DS.Update Set objTarget = Nothing End If ' strDN <> "" iCount = iCount + 1 iGCount = iGCount + 1 Wscript.Echo iGCount ' Pause every 1000 transactions for AD to rest If iCount >= 1000 Then iCount = 0 Wscript.Sleep 20000 End If DSClone.MoveNext Loop ' Until DSClone.EOF End Sub ' Populate_AD_DS '****************************************************************** ' Connects to Groups with >= 1000 members and itterates all members ' Based on code by Richard L. Mueller ' Hilltop Lab web site - http://www.rlmueller.net Function Get_LargeMembership(strSamName) 'Globals: Domain, objADConn '****************************************************************** ' Create Active Directory Command Dim objCmd Set objCmd = CreateObject("ADODB.Command") Set objCmd.ActiveConnection = objADConn '****************************************************************** ' Create dictionary object to store Members Dim oMemberList Set oMemberList = CreateObject("Scripting.Dictionary") oMemberList.CompareMode = vbTextCompare ' Create LDAP Search variables Dim strPath, strFilter, strAttr, strScope strPath = "<LDAP://" & Domain & ">;" strFilter ="(&(objectCategory=group)(sAMAccountName=" & strSamName & "));" strAttr = "member;" strScope ="subtree" objCmd.Properties("Page Size") = 100 objCmd.Properties("Timeout") = 60 objCmd.Properties("Cache Results") = False Dim boolLast, iRangeStep, iLowRange, iHighRange, iCount boolLast = False iRangeStep = 999 iLowRange = 0 iHighRange = iLowRange + iRangeStep Dim objRS, sQuery, boolSearch boolSearch = True Do While boolSearch If boolLast Then sQuery = strPath & strFilter & strAttr & _ "range=" & iLowRange & "-*;" & strScope Else sQuery = strPath & strFilter & strAttr & _ "range=" & iLowRange & "-" & iHighRange & ";" & strScope End If ' boolLast ' Do AD Search objCmd.CommandText = sQuery Set objRS = objCmd.Execute iCount = 0 Dim arrMemberDN, sMemberDN, sMember Dim objField While Not objRS.EOF For Each objField In objRS.Fields If (VarType(objField) = (vbArray + vbVariant)) Then For Each sMemberDN In objField.Value ' Strip off the dc=... part of the DN for storage sMember = Replace(sMemberDN, "," & Domain, "") If NOT oMemberList.Exists(sMember) Then oMemberList.Add sMember, sMemberDN iCount = iCount + 1 End If ' oMemberList.Exists(sMember) = False Next ' sMemberDN In arrMemberDN End If ' (VarType(objField) = (vbArray + vbVariant)) Next ' objField In objRS.Fields objRS.MoveNext Wend ' Not objRS.EOF If boolLast Then boolSearch = False End If ' boolLast If iCount = 0 Then boolLast = True Else iLowRange = iHighRange + 1 iHighRange = iLowRange + iRangeStep End If ' iCount = 0 Loop ' While boolSearch ' Close AD Objects Set objRS = Nothing Set objCmd = Nothing ' Wscript.Echo vbcrlf & "Large Group Count: " & oMemberList.Count Dim arrMemberList arrMemberList = oMemberList.Items Set oMemberList = Nothing ' Return Array of members Get_LargeMembership = arrMemberList End Function ' Get_LargeMembership Tag: Embed a file in an HTA; possible? Tag: 205754
  - 4
    - Script Power Shell Can VBScript script Power Shell? I have a couple of things I want to run in VBScript & PowerShell, but PowerShell cannot run all that I need. Tag: Embed a file in an HTA; possible? Tag: 205744
  - 5
    - Allowed characters in strFullName Hi all - I have written a script to create users, but am now in doubt about what (if any) limitations there are to strFullName? Google has been of little help. Kind regards Tag: Embed a file in an HTA; possible? Tag: 205741
  - 6
    - Script for inventory - will not pull Mac address?? OK I had posted earlier regarding an inventory script, which is now working great hurray! However once piece of the puzzle, in fact the last bit of information I need from the machines on our network, refuses to show up. Mac addresses keep coming back as blank - not even null, just blank! Heres the extremely basic script I'm using for that part of it (I set it to echo back at me so I can see what its getting and try to troubleshoot) Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration " & _ "Where IPEnabled = True") For Each objMac in objItem.MacAddress objrecordset("Mac") = objMac wscript.echo objMac Next just what in the world is wrong with this? I've used this same format over and over again, other than checking for IPenabled flag to be sure its a NIC thats in use. GAH! Help a noob again please :-) Tag: Embed a file in an HTA; possible? Tag: 205739
  - 7
    - USB - How can I ??? I have at least two USB devices providing service to/for at least two disk drives. One is an external drive plugged into one of the USB ports on my Koutech F7210 card reader: 4 types of memory cards = 4 drives being used, through just one (1) USB controller ( I think ). 2 USB ports 2 Firewire ports 1 external SATA port My basic problem is that when the PC boots up, my card reader uses/creates four (4) disk drives, one for each of the memory card types the system can deal with. I only have Compact Flash cards. Can I, and if so, HOW can I, disable three (3) out of the four (4) drives? ( BEFORE or AFTER the disk drives are created makes no differnece to me. I'd just like to be able to automate this process, if the capability exists. ) In fact, I want to **STOP** three (3) out of the four (4), so the three (3) "extras" will disappear. I've read elsewhere about disabling the external drive capability altogether, say for flash drives and such. But I don't want to get rid of ALL my USB drives, just "some" of them. Does anyone know? Any help would be greatly appreciated. Thanks in advance, Tom Tag: Embed a file in an HTA; possible? Tag: 205738
  - 8
    - Store passwords in scripts ("Best practice"?) Hi, We have a Terminal services serverfarm where users login to execute their ERP-applications. Each user has a loginscript in VBscript. The loginscript must access data in a MSSQL-database on each logon... The question: how do i connect to the MSSQL-server from the vbscript in a "secure" way? The "easy"(and IMO _wrong_) way is to store the connectionstring directly in the source of the script...But anyone who has a bit of computer knowledge will be able to view the source of the loginscripts and see the username/password for the SQL-server... How do you do it? Is it possible to save logon-scripts as "execute only/denie read"? Or is there a good way to store the "connection"(or login-credentials) when writing the VBscripts? Thanks! Kind regards Thomas Tag: Embed a file in an HTA; possible? Tag: 205735
  - 9
    - Specify icon for system modal msgbox If a system modal msgbox is displayed, a default application icons appears in the title bar. Is it possible to specifiy an icon to be displayed? iWarningResponse = MsgBox("Are you sure?",4096+32+4,"Reset") Tag: Embed a file in an HTA; possible? Tag: 205734
  - 10
    - WMI results in English How to "tell" WMI, I want the result of the WMI-query in English? If the computer has a not English (not MUI) Windows, the local(!) WMI query returns the result on the native language of the OS. The remote query (from an English Windows) returns the result of the same not English computer in English. I was setting the current task's CultureInfo in en-US, but the result is still not English. Tag: Embed a file in an HTA; possible? Tag: 205733
  - 11
    - Check if a file is used Hi, as the subject, I want to check- via vbscript - if a file is using from an user account or from another system process. Is anything about this issue. Be aware that I do not want check if the file is open, but used. Thanks a lot. Fr. Tag: Embed a file in an HTA; possible? Tag: 205730
  - 12
    - Upload to an sftp server using vbscript Hello All, I am going to try this again. I apparently posted this in the wrong group before and was 'politely' told to post it here. This question isn't simple and I have noticed often people ask for more information so I will give you the whole story upfront: I recently started a new job and in the past they have solved a lot of simple tasks by utilizing vbs files. I am pretty fluent in Visual Basic but a little new to vbs files so this has been an 'interesting' transition as it is. Currently I have a vbs file that runs a rather elaborate query against an SQL server, the data is exported to a csv file and then emailed to a client. This vbs file actually works really well, however the client has requested that we start uploading it to an sftp site instead. Instead of reinventing the wheel I assumed that I could replace a few email lines of code with a few ftp commands. I researched the web and found several examples utilizing ftp.exe. Through further research I found that ftp.exe offers no support for a port higher than 21. Therefore I assume that ftp.exe offers no support for sftp. Can anyone offer me a solution that will allow me to upload to an sftp server without rewriting this code in some other format! Thanks, tooMuchCode Tag: Embed a file in an HTA; possible? Tag: 205723
  - 13
    - VBScript and FileSystemObject I have a website that allows FileSystemObject to be used on files on the website itself. But when I use WriteLine to try and add to the file, nothing happens and the file has not been changed. It works when I have it modify the file on my hard drive, but when I try to have it modify the one on the website, it doesn't work. The two files, one called test.htm, and the one with the code that modifies test.htm, are both in the same folder. This is the code I use to open the file - I think this is where the problem is occuring... dim fso, thefile Set fso = CreateObject("Scripting.FileSystemObject") Set thefile = fso.OpenTextFile("test.htm", 8, False) Is there something I need to add in front of the "test.htm" to get it to look on the website itself instead of on the user's hard drive? Thanks! Tag: Embed a file in an HTA; possible? Tag: 205720
  - 14
    - Open "enter password" form in HTA At one point in my HTA I need the user to enter and then re-enter a password. I would like a separate form to popup to accept this information; once user enters and clicks okay, the password form closes and leaves the user on the first form. Has anyone got a generic example that does this? Thanks so much for your assistance. Tag: Embed a file in an HTA; possible? Tag: 205715
  - 15
    - Write Variable to .mdb Anybody have an example of how to write the contents of a variable to a field in a table in an Access database? Or a SQL database? Thanks in advance DG Tag: Embed a file in an HTA; possible? Tag: 205713
  - 16
    - Renaming mp3 files I have a top 100 list of audio files that I want to remove the number prefix from eg Original file name:- 001 - artist name - song tile Remove number prefix so it looks like this:- artist name - song title Thanks Charles Tag: Embed a file in an HTA; possible? Tag: 205707
  - 17
    - Default Printer Enumeration Is there a way to capture information about a default printer on an individuals PC? I have the captured printers informmation but I also want the default printer that is set. Thanks in advance THis is my script Set oNet= WScript.CreateObject("WScript.Network") Set oPrinters = oNet.EnumPrinterConnections oUser = oNet.UserName oComputer = oNet.ComputerName Set oFilesys = CreateObject("Scripting.FileSystemObject") Set oFiletxt = oFilesys.CreateTextFile("\\server\share for "&oUser&" on "&oComputer&".txt", True) sPath = oFilesys.GetAbsolutePathName("\\server\share for "&oUser&" on "&oComputer&".txt") sFilename = oFilesys.GetFileName(sPath) oFiletxt.WriteLine "Network printer mappings for "&oUser& " on " & oComputer For i = 0 to oPrinters.Count - 1 Step 2 oFiletxt.WriteLine "Printer " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) Next oFiletxt.Close Tag: Embed a file in an HTA; possible? Tag: 205706
  - 18
    - input by increment from txt or xls or mdb autECLSession.autECLOIA.WaitForInputReady autECLSession.autECLPS.SendKeys "AF81F00011" Is there a way to change that ID number from a list 'outside' of a macro that I'm working in. Would be very grateful for some guidance. Tag: Embed a file in an HTA; possible? Tag: 205704
  - 19
    - Change button color? Is it possible to change the font color, background color, and font style of a button in an HTA? For example something like: <INPUT TYPE="Button" Value="Test" Style="Height:30px;Width:30px" Name="btnAddAll" Font Color=[some color] Background Color=[some color] Font Style=[Some Style] Onclick="FileAddAll"></Input> As always, your help is much appreciated. Tag: Embed a file in an HTA; possible? Tag: 205703
  - 20
    - Code behind popup on MS web page - how do they do that? If you go to the Microsoft page at the following location: http://msdn2.microsoft.com/en-us/library/ms535882.aspx And click the "Show ME" button at the bottom it illustrates a right click popup that consists of a four or five buttons like a shortcut menu. Unfortunately, they do not post the code to replicate this cool technique (that is, using buttons). Can anyone post example script that replicates this functionality - I just want the menu, not the frame functionality? Thanks much in advance. Tag: Embed a file in an HTA; possible? Tag: 205702
  - 21
    - Update local user password via GPO or script. Hello all â?? I have a script to update an AD users password via script but am wondering if it is possible to update a local users password via script or GPO. Iâ??d post the script I have but itâ??s just from the portable script center. Thanks for your assistance. TimM Tag: Embed a file in an HTA; possible? Tag: 205695
  - 22
    - HTA blocked by "safety settings"? I have an HTA that when I run it I get an error: "Safety settings on this computer prohibit accessing a data source on another domain." This error is at the following code line: BinaryStream.LoadFromFile sFileName The program is being run from a network; the file it is trying to load is in the same folder as the HTA; the path and file names are solid; the source file is not password protected. I thought this was especially odd since as I understand it, HTAs are supposed to allow you to bypass a lot of the security imposed by other methods... Any idea why this is occurring or how I can work around it? I'm dead in the water at this point...and just when I thought I was done... Thanks a lot in advance for your help/input. Tag: Embed a file in an HTA; possible? Tag: 205694
  - 23
    - Calling a function from a function I am trying to clean up a script that has alot of duplicate code in it. I am trying to put everything in a function as to componantize it. I am a VBScript newbie. My question is: Why do I get no data return when calling a function from a function. Has the data been destroyed when the function ended? Example below. Thanks in advance. ************************************************ Set WshShl = WScript.CreateObject("WScript.Shell") 'msgBox("Hello") Inputinfo DisplayInfo Function Inputinfo() strusername = Inputbox("Enter Name") End Function Function DisplayInfo() Msgbox(strUserName) End Function ***************************************************************** Tag: Embed a file in an HTA; possible? Tag: 205691
  - 24
    - UTC Time Hi Group How will i get the time in UTC format through VB script. Thanks in Advance Tag: Embed a file in an HTA; possible? Tag: 205690
  - 25
    - Lock TextArea from editing but not from code I have a text area on an HTA window that I am populating with info, but I don't want the user to be able to edit or change it. Is there a way I can lock a TextArea for editing, without locking out run time code? If so, could someone please post generic example code to do it; or other code if I need a different type of control for this... Thanks a lot in advance... Tag: Embed a file in an HTA; possible? Tag: 205684
- Next
  - 1
    - Size HTA window on load When my HTA opens, I would like the window to be a specific size (as in pixels, inches, or whatever) in height and width and lock at that size. How can I do this? Can someone please post generic example code? Thanks much in advance for your assistance... Tag: Embed a file in an HTA; possible? Tag: 205681
  - 2
    - Taskbar Magnifier PowerToy The Taskbar Magnifier powertoy is nice but inconvenient because: 1) you have to rightclick on the taskbar, 2) you have to select Toolbars, 3) you have to select Taskbar Magnifier, 4) if you don't like the title "Magnifier" next to it you have to rightclick on it, and 5) you have to uncheck Title To close it is easier but still: 1) you have to rightclick on the taskbar, 2) you have to select Toolbars, 3) you have to unselect Taskbar Magnifier. I would like to have some code to put in a file so when I'll click the shortcut of the file in the Quick Launch toolbar: 1) if the Taskbar Magnifier is closed it will open it an unselect Title. 2) if it is open to close it. That would make its use much more convenient. Can someone help? Thanks, Eustace -- JavaScript Date Calculator for your desktop http://www.geocities.com/emfrilingos/tm/datecalc.html Tag: Embed a file in an HTA; possible? Tag: 205679
  - 3
    - alternative to Wscript.Quit for use in HTA I have written a simple script to copy some files and then run sysprep. When a file or folder does not exist I use the wscript.quit command to stop the script. In order for my script to be more user friendly I would like to use a HTA. I have searching on the internet for the past 3 days and can not find a answer to this question. How to I quit a vbscript inside a HTA. (with quiting the current HTA window) here is my sample vbscript: Sub copynetworkfiles Dim Titlenetwork Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(NetworkFolder) Then objFSO.CopyFile NetworkFolder & "*.*" , "c:\sysprep" , OverwriteExisting Dirlog = Dirlog & "Copied Folder All Files From " & NetworkFolder & strDriveLetter & VbCrLf Else Titlenetwork = "No Network Drive" MsgBox "Unable to find " & NetworkFolder & VbCrLf & "Script will now quit", 16 , Titlenetwork WScript.quit End If End Sub Once I port this to hta the wscript.quit does not work. Now I understand why I just want a way to stop the script running. At the moment I have about 10 subs and the script just keeps running and will therefore error more and more. Really looking for easy workaround, I have read that maybe forcing an error may work and then write an error on for that error return code? Any Ideas??????????????????? Tag: Embed a file in an HTA; possible? Tag: 205677
  - 4
    - Is the file in use?? Does anyone have a snippet that will display whether or not a file is in use by any application? For example Is myfile.txt open in notepad or wordpad or any other editor? Probably impossible but it's worth asking. TIA Tag: Embed a file in an HTA; possible? Tag: 205674
  - 5
    - Service Related Issue Hi Group I have solved many problem within a very short time with the help of this group. Thanks to all. Now i am stuck into new issue. - I have one script which is running as a service and after 15 mins of its installation time, its giving me desired output. But if i reboot my system within 15 mins I am not getting the output I want. And service is also not starting after boot. I want that my script should calculate the time when it installed and even after reboot it should give my desired output. For Eg: I have installed the service at 6:15 PM and put a line in script like WScript.Sleep 900000 Wscript.Echo "It is done ." Problem : If i reboot my system within 15 mins then neither my service is running nor any msg i am getting, Can anyone help me . Thanks in Advance to this group. Tag: Embed a file in an HTA; possible? Tag: 205670
  - 6
    - Add items to a list box using script in HTA I'm working on a small HTA app and I want to add some items from an array to a list box using VBScript. I cannot figure out how to do it... Can someone please post a generic code example that does it? Thanks much in advance. Tag: Embed a file in an HTA; possible? Tag: 205666
  - 7
    - Call a .bat file in VBS Hi Groups Can i know the command to call a .bat file through vb script ? Like : - I have one .bat file in "D:\text.bat" - I want to call this file through vbscript. Please help me. Thanks !! Tag: Embed a file in an HTA; possible? Tag: 205656
  - 8
    - Excel oWorksheet.Range Hi, I would like to modify this line; oWorksheet.Range("E7:E167").Copy(tWorksheet.Range("B32")) To use a variable for the column number. Anyone have an idea how to do that? Here is my code that works; <----------------------------------------------------------------------------------------------- > Sub DistTT2 xSearch = "" fDate = Left(fCr,2) & "/" & Right(fCr,2) Book2.Activate Set oWorksheet = book2.Worksheets("Trouble Tickets") oWorksheet.Activate Set tWorksheet = book2.Worksheets("Trouble Tickets (2)") Set fRow = oXL.Range("A3").SpecialCells(11) Set oDate = fRow.Find (CDate(fDate & "/2007")) oDate.select 'WScript.Echo "oDate = " & oDate rCol = oDate.Column oWorksheet.Range("E7:E167").Copy(tWorksheet.Range("B32")) oWorksheet.Cells.EntireColumn.AutoFit End Sub <------------------------------------------------------------------------------------------------ > I want to be able to set the Range to Copy to (rCol7:rCol167) but rCol is a number. I tried the (row,col) and several other combinations with no luck. Tag: Embed a file in an HTA; possible? Tag: 205647
  - 9
    - Can I break out of vbScript by causing error..... let me explain I have a vbScript that checks to see if the ASP.NET Web Service Extension is first, present and, if so, enabled. I would like to call this from a third party CD Browser authoring tool (AutoPlay by Indigo Rose). I'm able to call the script from a button on our created browser, but I don't know if its possible to pass any information from the script back to the AutoPlay created browser. So, what I was hoping to do was if the extension is not present or not enabled, somehow cause the script to blow out with an error. I think I can store the resulting code from the call in my browser. However, I've tried everything and including 'On Error Resume Next' causes the AutoPlay browser to see the script as completing successfully. Anyway, here's the script... Dim aWebSvcExtRestrictionList Dim extension, sExt, Found on error resume next aWebSvcExtRestrictionList = Array() Set IIsWebServiceObj = GetObject("IIS://localhost/W3SVC") ' Store original value: aWebSvcExtRestrictionList = IIsWebServiceObj.WebSvcExtRestrictionList For extension = 0 to UBound(IIsWebServiceObj.WebSvcExtRestrictionList) sExt = IISWebServiceObj.Get("WebSvcExtRestrictionList")(extension) If (0 < (InStr(sExt, "Microsoft.NET\Framework \v2.0.50727\aspnet_isapi.dll"))) Then If ("0" = Left(sExt, 1)) then 'Blow out with error that may be caught by AutoPlay, but with no message Elseif ("1" = Left(sExt, 1)) Then 'Do nothing here Else 'Blow out with error that may be caught by AutoPlay, but with no message end if Else 'Blow out with error that may be caught by AutoPlay, but with no message end if Next Any pointers, info, help Greatly Appreciated!!! Tag: Embed a file in an HTA; possible? Tag: 205643
  - 10
    - Adding users to a Security Group based on AD Description field Hi all. I am creating a script that will create an Active Directory OU structure, then create a Global Group and then add users to AD from a CSV file. What I want to do from here, is to be able to populate the newly created Global Group with users. I want to do this by reading the CSV file, and based on an arrInput (3) value (which is the description of the user created) I want to put them into the correct Global Group. The text file reads as follows: FirstName,LastName,UserName,Description or for a real world example: John,Doe,jdoe,Help Desk Now, based on that information, I have created the script below and keep in mind this is only a snippit of the code. What I want to focus on, is why I can run the script, everything works perfectly and I get no errors, however the script finishes without adding the users to the groups. I'm hoping someone can help me out and maybe point out something I'm overlooking. I can post the entire script if need be....Thanks in advance!! '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ set fso = CreateObject("Scripting.FileSystemObject") Set tsInputFile = fso.OpenTextFile ("c:\userlist.csv", ForReading, False) While not tsInputFile.AtEndOfStream strLine = tsInputFile.ReadLine arrInput = Split(strLine, ",") If UBound(arrInput) = -1 Then 'skip this one... Else If arrInput(3) = "Help Desk" Then Set objGroup = GetObject("LDAP:// OU=Global,OU=Groups,DC=DomainName,DC=local") objGroup.PutEx ADS_PROPERTY_APPEND, "member", "cn=GG_HelpDesk,OU=Global,DC=DomainName,DC=local") objGroup.SetInfo End If End if Wend TsInputFile.Close'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Tag: Embed a file in an HTA; possible? Tag: 205636
  - 11
    - Wrap calls in a Sub that fires when opened? I have a VBS file with about half a dozen functions; how do I designate in which order to call them when the file is loaded? I like systematic order; so I would like to wrap the calls in a Sub, but then how do you get the Sub to run? OR, do I just place my calls at the top of the file and run the functions in sequence that way?... I've been writing short scripts for awhile, but this is the first time I've needed a few function calls. Thanks in advance... Tag: Embed a file in an HTA; possible? Tag: 205635
  - 12
    - match case when replacing in regex Hi, I have a replace in a macro and what I want to do is match the case of the string that I'm replacing. So if my old string is "string" then I want to replace it with "newstring" and if it's "String" then I want to replace it with "Newstring" and if it's "STRING" then I want to replace it with " NEWSTRING". Is there a way to do this? Thanks!! Amy Tag: Embed a file in an HTA; possible? Tag: 205631
  - 13
    - Shell.Exec, Won't Capture STDOUT and STDERR Heres the VB code: Option Explicit Dim Shell, X Set Shell = CreateObject("WScript.Shell") X = Execute() WScript.Echo "Status " & X Set Shell = Nothing Function Execute() Dim Retval, P Set P = Shell.Exec("bs.bat") While P.Status = 0 If Not P.StdOut.AtEndOfStream Then WScript.Echo "O " & P.StdOut.ReadAll If Not P.StdErr.AtEndOfStream Then WScript.Echo "E " & P.StdErr.ReadAll WScript.Sleep 100 Wend Execute = P.ExitCode End Function and the batch file: echo "Assssssssssssssss!" echo "Bassssssssssssssss!" echo "Massssssssssssssss!" Output: $ cscript.exe vdub2.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. O c:\Documents and Settings\assbasscass\Desktop>echo "Assssssssssssssss!" "Assssssssssssssss!" c:\Documents and Settings\assbasscass\Desktop>echo "Bassssssssssssssss!" "Bassssssssssssssss!" c:\Documents and Settings\assbasscass\Desktop>echo "Massssssssssssssss!" "Massssssssssssssss!" Status 0 The vbs script detects STDOUT has data, as it prints out the "O", yet the output from the script isnt there. Any Ideas? Thanks Tag: Embed a file in an HTA; possible? Tag: 205623
  - 14
    - Time Check issue Hi Group I want a vbscript which should run as service and after 1-hr of its installation, one msg should pop up automatically. Its a very critical issue for me. Please help. -- Thanks and Regards Kathy Tag: Embed a file in an HTA; possible? Tag: 205613
  - 15
    - Variable is undefined Hello, I am getting the following error: Microsoft VBScript runtime error '800a01f4' Variable is undefined: 'Format_Date_Time_Num' -------------------- In the code there is this: Dim strOrderId Randomize strOrderId = Format_Date_Time_Num(Date(),Time()) & (round(Rnd() * 10000000)) --------------------- Can some one please help me by telling what I am doing wrong? Thanks! Tag: Embed a file in an HTA; possible? Tag: 205610
  - 16
    - Time Check Issue Hi Group I need one VB script which will run as a Service and after one hr of its installation, it should pop up any message. This is very much critical for me. Please help Thanks SR Tag: Embed a file in an HTA; possible? Tag: 205609
  - 17
    - Object not a collection on reboot job Hello All, I've scripted a job, that runs at 3:00AM to reboot all the machines in our domain running an operating system with the word Professional in it. I took a look at the results file I get it to create, which states if the reboot was successful and if not the error message. Weird thing is for a few machines I get the following errors: MMAHWENDEPI did not reboot, error was "Object doesn't support this property or method" TRAINING_08 did not reboot, error was "Object not a collection" WHARVEY did not reboot, error was "The specified module could not be found. " Here is the script: ' Scipt Language VBScript ' Script created by Darrin Henshaw, for Ignition Bermuda ' Created on February 1, 2007 - February 3, 2007 ' Modified for International Advisory Services On Error Resume Next Const ForWriting = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objLog = objFSO.CreateTextFile("I:\Reboot\AllPCs.txt") Set objFSE = CreateObject("Scripting.FileSystemObject") Set objLogFile = objFSE.CreateTextFile("I:\Daily\Reboot_Results.txt") Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. Set adoCommand = CreateObject("ADODB.Command") Set adoConnection = CreateObject("ADODB.Connection") adoConnection.Provider = "ADsDSOObject" adoConnection.Open "Active Directory Provider" adoCommand.ActiveConnection = adoConnection strFilter = "(objectCategory=computer)" 'Here is the bread and butter of thes portion. This line here queries AD for computers, with a certain OS Version. 'The two versions in question here are Windows 2003 Server, and Windows 2000 Server. strQuery = "<LDAP://" & strConfig & ">;" & strFilter _ & ";distinguishedName,Name,operatingSystem;subtree" adoCommand.CommandText = strQuery adoCommand.Properties("Page Size") = 1000 adoCommand.Properties("Timeout") = 30 adoCommand.Properties("Cache Results") = False Set adoRecordset = adoCommand.Execute Do Until adoRecordset.EOF strOS = adoRecordset.Fields("operatingSystem").Value strComputer = adoRecordSet.Fields("Name").Value If InStr(strOS, "Professional") Then strDistName = adoRecordSet.Fields("distinguishedName") Set objComputer = GetObject("LDAP://" & strDistname) If objComputer.AccountDisabled = False Then objLog.WriteLine strComputer End If End If adoRecordSet.movenext Loop Dim oFSO, oTS, sClient, oWindows, oLocator, oConnection, oSys Dim sUser, sPassword 'set remote credentials sUser = "administrator" sPassword = "h0rnet03" 'open list of client names Set oFSO = CreateObject("Scripting.FileSystemObject") Set oTS = oFSO.OpenTextFile("I:\Reboot\AllPCS.txt") Do Until oTS.AtEndOfStream 'get next client name sClient = oTS.ReadLine 'get WMI locator Set oLocator = CreateObject("WbemScripting.SWbemLocator") 'Connect to remote WMI Set oConnection = oLocator.ConnectServer(sClient, _ "root\cimv2", sUser, sPassword) 'Err.Clear 'issue shutdown to OS ' 4 = force logoff ' 5 = force shutdown ' 6 = force rebooot ' 12 = force power off Set oWindows = oConnection.ExecQuery("Select " & _ "Name From Win32_OperatingSystem") For Each oSys In oWindows oSys.Win32ShutDown(6) Next If err <> 0 Then objLogFile.Write sClient & " did not reboot, error was " & chr(34) & Err.Description & chr(34) objLogFile.Write vbCrLf Else objLogFile.Write sClient & " rebooted fine." objLogFile.Write vbCrLf End If Err.Clear Loop 'close the text file oTS.Close Any ideas what is causing the errors? I've looked it over and am stumped. Thanks. Cheers, D *** Sent via Developersdex http://www.developersdex.com *** Tag: Embed a file in an HTA; possible? Tag: 205608
  - 18
    - Mailbox rights Is there a way to read the "mailbox rights" of all users in my Active Directory using vbscript or another tool? Thanks!!! Felipe Tag: Embed a file in an HTA; possible? Tag: 205599
  - 19
    - Stream to convert text to byte Does anyone have generic example code for VBScript to convert a string to a byte array? I think there is a way to do this using an ADO stream, but I can't get it to function... For example, the following is supposed to convert binary to text: Set BinaryStream = CreateObject("ADODB.Stream") BinaryStream.Type = adTypeBinary BinaryStream.Open BinaryStream.Write baEnCrypt BinaryStream.Position = 0 BinaryStream.Type = adTypeText BinaryStream.CharSet = "us-ascii" 'unicode sEnCrypt = BinaryStream.ReadText 'stream in text BinaryStream.Close Set BinaryStream = Nothing How do I get it the other way around? (i.e. Text to binary). For one thing what is the equivalent of vbFromUnicode? Thanks much for your assistance. Tag: Embed a file in an HTA; possible? Tag: 205598
  - 20
    - print from the script Hello, I have a folder on my Windows 2003 server box where every night 2 pdf files are saved. Names of these files never changes, they just get overwritten by a scheduled job. What I need to do is get a script that would print both files running as a scheduled job. The only way I could get this script to work is if I scheduled it as a logged on user and left my console open. For perfection I need this to work as a user that never logged on to the system, but has admin rights on the computer. I am killing Acrobat proccess at the end because it does not close itself after printing. (Acrobat 8.0) TargetFolder = "C:\Program Files\Websense\webroot\Explorer\Other" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(TargetFolder) Set colItems = objFolder.Items For i = 0 to colItems.Count - 1 colItems.Item(i).InvokeVerbEx("Print") Next WScript.Sleep 60000 strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'acrord32.exe'") For Each objProcess in colProcessList objProcess.Terminate() Next Tag: Embed a file in an HTA; possible? Tag: 205591
  - 21
    - Change Field Type in Jet Database I have code that creates a Jet database, creates a table and creates a number of fields. The field creation code is: For i=1 to 100 .Columns.Append "Field" & CStr(i), adVarWChar, maxStrLength .Columns("Field" & CStr(i)).Properties("Nullable") = True .Columns("Field" & CStr(i)).Properties("Jet OLEDB:Allow Zero Length") = True If i = 98 Then .Columns("Field" & CStr(i)).?????????????????? End If Next Field98 needs to be a memo type field. How do I set the Data Type for a field? I'm searched all over and I can't find any syntax guide for setting parameters on fields. Thanks, Bernie Tag: Embed a file in an HTA; possible? Tag: 205588
  - 22
    - Script that will locate a user's .pst file and back it up/move it to a new location. We've just merged with another company and apparently it was their policy to store .pst files on the local desktop for each user. This is fine, however, in the event of a crashed hard drive or deleted profile, the user's pst is gone. On top of that, there seems to be no rhyme or reason on where the files are located. Sometimes they're in the default location, other times in the user's documents folder and once in a while on the root drive (WTF!?!) I'd like to have a quick script that will find what .pst's outlook is mapped to for a user and either make a backup copy on the user's home drive or even move the file and configure Outlook to use the new copy. However, I don't know where or how Outlook keeps track of the .pst location. I've checked in the registry and can't find any mention of the files themselves. I'm guessing it's stored in the user's outlook profile and I'm not real familiar with where and how those are structured. Anyone have any ideas/examples of something like this? Tag: Embed a file in an HTA; possible? Tag: 205587
  - 23
    - Help with dateconversion Hi I can't get this to work. The user enters the date into the textbox in the following format YYYY-MM-DD. Sub btnOk_onClick() Dim sDate Set sDate = document.all.item("txtDate") ... End Sub I then pass the date (sDate) to a database query but need to validate the entry before that. IsDate(sDate) and CDate(sDate) will fail however. Aren't the functions IsDate and CDate supposed to handle string values? Any ideas? TIA po Tag: Embed a file in an HTA; possible? Tag: 205586
  - 24
    - Simple Excel delete rows above 9 I'm very very new at this. I'm trying to create a vbscript that will open an Excel 2003 file and delete all rows above 9. This is the code I came up with. Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("D:\ServerFiles\CroftDB\DbImport\dbaum.xls") rows(9).Offset(-x).Resize(x).delete objExcel.Quit The error message I'm getting says Line 4. Type Mismatch: 'rows' Code: 800A000D I Googled the code number and I didn't understand most of what I'm reading. Please help a very newbie out. I just want to delete all rows above 9 in Sheet1. This VBScript is running on my Win2003 server and I'm using Excel 2003. Thanks in advance. Phil Tag: Embed a file in an HTA; possible? Tag: 205583
  - 25
    - Compare two text streams - Part II Hello all. Based on this original post: http://groups.google.com/group/microsoft.public.scripting.vbscript/browse_thread/thread/c7e9260e5aa76272/?hl=en# I've created a modified version of the original script to compare two text streams. One of the modifications I had to make was to add a second Do Until...Loop for a "reverse comparison." Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("WScript.Shell") LogFile = "File_Comparison.log" Set fLog = objFSO.OpenTextFile (LogFile, 8, True) sFile1 = "File1.txt" sFile2 = "File2.txt" fLog.writeline vbCrlf & vbCrlf & "Comparing FILE 1:" & vbCrlf & _ vbCrlf & vbTab & sFile1 & vbCrlf & vbCrlf & "against FILE 2:" & vbCrlf & _ vbCrlf & vbTab & sFile2 & vbCrlf & vbCrlf IF objFSO.FileExists(sFile1) Then Set objFile1 = objFSO.OpenTextFile(sFile1, 1) Else WScript.Echo "The file " & sFile1 & " was NOT found!" WScript.Quit End IF IF objFSO.FileExists(sFile2) Then Set objFile2 = objFSO.OpenTextFile(sFile2, 1) Else WScript.Echo "The file " & sFile2 & " was NOT found!" WScript.Quit End IF '~~ Loop through and compare each line of the two files sFileStream2 = objFile2.ReadAll Identical = true Counter = 0 Do Until objFile1.AtEndOfStream sFileStream1 = objFile1.ReadLine IF InStr (sFileStream2, sFileStream1) <> 0 Then ' fLog.writeline "Match: " & sFileStream1 & " found in File2" Else IF Counter = 0 Then fLog.writeline _ "Lines in FILE 1 that were NOT FOUND in FILE 2:" & _ vbCrlf & vbCrlf Counter = Counter + 1 END IF fLog.writeline "DIFFERENCE: " & sFileStream1 & vbCrlf Identical = false End IF Loop objFile1.Close objFile2.Close IF Identical = true Then fLog.writeline "NO DIFFERENCES." & vbCrlf END IF fLog.writeline vbCrlf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" fLog.writeline vbCrlf & vbCrlf & "Comparing FILE 2:" & vbCrlf & _ vbCrlf & vbTab & sFile2 & vbCrlf & vbCrlf & "against FILE 1:" & vbCrlf & _ vbCrlf & vbTab & sFile1 & vbCrlf & vbCrlf Set objFile1 = objFSO.OpenTextFile(sFile1, 1) Set objFile2 = objFSO.OpenTextFile(sFile2, 1) '~~ Loop through and compare each line of the two files sFileStream1 = objFile1.ReadAll Identical = true Counter = 0 Do Until objFile2.AtEndOfStream sFileStream2 = objFile2.ReadLine IF InStr (sFileStream1, sFileStream2) <> 0 Then ' fLog.writeline "Match: " & sFileStream2 & " found in File1" Else IF Counter = 0 Then fLog.writeline _ "Lines in FILE 2 that were NOT FOUND in FILE 1:" & _ vbCrlf & vbCrlf Counter = Counter + 1 END IF fLog.writeline "DIFFERENCE: " & sFileStream2 & vbCrlf Identical = false End IF Loop objFile1.Close objFile2.Close IF Identical = true Then fLog.writeline "NO DIFFERENCES." & vbCrlf END IF fLog.writeline vbCrlf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" fLog.writeline vbCrlf IF Identical = true Then fLog.writeline "Files are identical." ELSE fLog.writeline "Files are NOT identical - there are differences." END IF fLog.writeline vbCrlf & vbCrlf & "--- END OF LOG ---" ' & vbCrlf fLog.close objShell.Run "NOTEPAD.EXE" & " " & LogFile, 3 Set objFSO = nothing Set objShell = nothing Set fLog = nothing Set objFile1 = nothing Set objFile2 = nothing In other words, the first Loop did a file comparison of FILE 1 against FILE 2; so that if there were any lines in FILE 1 that were not found in FILE 2, they would be displayed in the output log. But if the reverse was true, the original script had no checking for that case. So I had to add the second Loop to do a reverse comparison - FILE 2 against FILE 1 - so that if there were any lines in FILE 2 that were not found in FILE 1, they would be displayed in the output log. My script works, but I'm guessing there's some redundancy and it could be streamlined. Any suggestions would be greatly appreciated. Thanks! - Dave Tag: Embed a file in an HTA; possible? Tag: 205577

Is is possible, using an HTA to embed a dll or vbs into a control or other
object in the window?

Like what happens when using Insert Object into an Excel file...the file
itself is embedded and saved (and transferred) with the file...

Then the next logical question, can you subsequently export the embedded file?

If possible, examples? web sites with examples?

I suspect this ain't happening, but I had to ask...

Top

Re: Embed a file in an HTA; possible? by Mole

Mole
Wed May 09 14:29:23 CDT 2007

an hta, as you are aware, is just text. so no, you cant do this

"XP" <XP@discussions.microsoft.com> wrote in message
news:DA4C71F2-8C53-4F8F-BE38-02DD7D584F20@microsoft.com...
> Is is possible, using an HTA to embed a dll or vbs into a control or other
> object in the window?
>
> Like what happens when using Insert Object into an Excel file...the file
> itself is embedded and saved (and transferred) with the file...
>
> Then the next logical question, can you subsequently export the embedded
> file?
>
> If possible, examples? web sites with examples?
>
> I suspect this ain't happening, but I had to ask...
>

Top

Re: Embed a file in an HTA; possible? by Michael

Michael
Wed May 09 18:15:01 CDT 2007

Mole Man wrote:
> an hta, as you are aware, is just text. so no, you cant do this
>

The OP can always use MSXML2.XmlHttpRequest object to do a scripted binary
download via an url and an ADODB.Stream object to have the binary
responseBody.

--
Michael Harris
Microsoft.MVP.Scripting

Top

Re: Embed a file in an HTA; possible? by Mole

Mole
Thu May 10 04:56:42 CDT 2007

yeah thats not what hes asking though. hes asking to actually embed an
object... like in a word document when you embed another file, you can then
email someone the word doc and they get the embedded object too

"Michael Harris (MVP)" <mikhar.at.mvps.dot.org> wrote in message
news:eRYQg$okHHA.3264@TK2MSFTNGP04.phx.gbl...
> Mole Man wrote:
>> an hta, as you are aware, is just text. so no, you cant do this
>>
>
> The OP can always use MSXML2.XmlHttpRequest object to do a scripted binary
> download via an url and an ADODB.Stream object to have the binary
> responseBody.
>
> --
> Michael Harris
> Microsoft.MVP.Scripting
>
>

Top