Enable/Disable Scripting Host through code

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
 - ASP VBScripting...script works here, but not there...? OK, so I'm doing a little ASP VBScripting, and I have the page I'm writing in the following directory: C:\Inetpub\wwwroot\HomeValue\ And this is the ASP VBScript I'm trying to use, its simplified for testing purposes: <% Dim fsoObj,objFolder,objFile Const strPath = "images/" Set fsoObj = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = fsoObj.GetFolder(Server.MapPath(strPath)) For Each objFile In objFolder.Files Response.Write("hello") Next %> This script will stall my browser (browser will say Website found, waiting for reply... and just load forever with nothing to show) when loaded from C:\Inetpub\wwwroot\HomeValue but will work perfectly fine when loaded onto the web...has anybody else encountered this problem? The page can be accessed at http://www.geo-sync.com/HomeValue/images.asp. Any help would be much appreciated, thank you. ~Les Peabody Tag: Enable/Disable Scripting Host through code Tag: 151211
 - 2
 - VB Script that sets and load environment variables Hi, I have a script that set environment variables in the following way : Set WshEnv = WshShell.Environment("USER") WshEnv("Appvar1") = xyz This works ok, and when going to the User's Environment variables section on the computer, all the custom variables are there, but the problem is they don't seem to be already loaded into memory or the value doesn't seems to be loaded by the OS... Here is why I think this : If I go to start/run, and type %Appvar1%, it gives me a message, and in that message %Appvar1% appears, and not the value of it...If I go and type a set in a command prompt, "Appvar1" is not present... But if I go into the User's Environment variables section on my computer/ Properties / Advanced / Environment Variables, I see them, If I click on OK / OK, then the variables are now seems to be loaded, and I can use them... They appear in Set command and typing %Appvar1% on the Run menu comes back with the value of it... Can anyone tell me how to set or reload user's environment variables so they are seen by the system as soon as the script is done... Thanks very much !!! -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting -- -- Houman Yahyaei ( CCNA, MCSE Win 2000/NT 4.0, MCT ) IT Training and Consulting www.formationhy.com Houman@formationhy.com Tag: Enable/Disable Scripting Host through code Tag: 151210
 - 3
 - Is it possible to run a VBscript in its own memory space? I'm running a simple script that: - Launches an app - AppActivates the app (using a loop until it is loaded) - sleep for a second - then sends keystrokes to the application. Here's the code: Set objShell = WScript.CreateObject("WScript.Shell") cnt=1 Do Until Success = True Success = objShell.AppActivate("My App") wscript.sleep 250 cnt=cnt+1 if cnt>40 then Success = True end if Loop if cnt>40 then msgbox "App did not launch within 10 seconds" else Wscript.Sleep 300 objShell.SendKeys "somekeystrokes{ENTER}" end if The problem is that somehow the application is getting hung up with the script. As long as the script is running, the application is non-responsive. It will launch...but then it freezes and the screen doesn't completely draw. As soon as the script errors out and I close it...the app comes alive. I'm assuming that the app and wscript.exe are running in the same memory space and are interfering with each other. Is there a way to run the script in its own memory space so it will not interfere with the app. Or is there another problem that I'm missing? Thanks for any advice, Walt Tag: Enable/Disable Scripting Host through code Tag: 151202
 - 4
 - .Net collection indexer not working I have a .Net control that I'm accessing, and I've gotten most of it to work. However, my last piece gets a user object, and it is failing when I try to access one of its roles via the following: set Role = user.Roles(1) The error I get is: Microsoft VBScript runtime (0x800A01C2) Wrong number of arguments or invalid property assignment: 'user.Roles' I've looked at the user.Roles object in the watch window, and it has 5 elements, although dragging any item into a watch gives the same error. I've tried indexing with [], and even tried set Role = user.GetType() to see if that works, but then I get: "Object Required" BTW: Roles is declared like this (parent class is ICollection), so it's got an indexer: [Serializable] public class RoleCollection: AbstractCollectionObject { public RoleObject this[Int32 index] { get { return (RoleObject)itemArray[index]; } } } I don't use VBScript very often, and Tag: Enable/Disable Scripting Host through code Tag: 151199
 - 5
 - Path string manipulation Hi This should be easy, but I can't find the answer. Can any kind person help me? I have a string which is a path to a directory, eg C:\MyFolder\MySubfolder I want to return just the following: C:\MyFolder\ Anyone? Thanks in advance Brian Abbott Tag: Enable/Disable Scripting Host through code Tag: 151189
 - 6
 - Adding a user to a group When I use the code I got from the TechNet script center for adding a user to a group I get an "Active Directory: Unspecified error" on line 7. I have verified the account is not already in the group and I am running the script with sufficient permissions. Any thoughts on why it is not working? Const ADS_PROPERTY_APPEND = 3 set currUser = getobject("LDAP://CN=Doe\, John,OU=User Employees,OU=Corp,DC=Acme,DC=com") Set objGroup = GetObject("LDAP://cn=CP_MB2_nonStore,ou=Email\/Distribution,ou=User Groups,ou=corp,dc=Acme,dc=com") objGroup.PutEx ADS_PROPERTY_APPEND, "member", currUser objGroup.SetInfo Thanks Steve Tag: Enable/Disable Scripting Host through code Tag: 151186
 - 7
 - VBscript to query SOA Serial #? Hello, I was wondering if anyone knew if it were possible to get the serial number from DNS SOA using VBscript. Is it defined in the schema? Any info appreciated. Tag: Enable/Disable Scripting Host through code Tag: 151179
 - 8
 - Code help needed I am running this very basic query from an ASP application: select * from SimpleResultSet where column1 >= 1 or column2 >= 1 or column3 >= 1 or ...column30 >= 1 As you can see this will return records where at least one of the columns is >= 1 and possibly all of the columns are >=1 This gives me the results I am looking for, but now I would like to sort the record set based upon the number of columns that actually ARE >=1 So if I have a 10 records that are returned, I would like the first record that is returned to be the one with the most columns that are >=1 and the last record to have the fewest number of columns that are >=1. Any ideas? Thanks, Aaron Tag: Enable/Disable Scripting Host through code Tag: 151176
 - 9
 - Returning the Exchange Server Name Does anyone have an example of how, with vbs, to return only the Exchange Server name which a user's mailbox is on? It seems I am going to have to return something like msExchHomeServerName and try to strip out only what I want, but I hope there is an easier way. Thanks, Steve Tag: Enable/Disable Scripting Host through code Tag: 151174
 - 10
 - VBScript - link&macro Hi! I have a link on my web: <a href="http://www.onet.pl">Onet</a> and I want to attach a macro to that link. When I click on it the macro must prossed. Is it possible to do, if yes how? Thanks Sorry for my mystakes! ;-) Tag: Enable/Disable Scripting Host through code Tag: 151164
 - 11
 - DNS lookup... I have a web page that queries a database returning a recordset containing a whole series of URLs (host headers). I want to display these in a table with one of the columns holding the current I.P. address for each URL. I know how to get a list of these IP addresses from the cmd prompt using "nslookup" but I'm absolutely clueless how to get hold of these values in my ASP page. I'm limited to the fact that this must be only ASP (VBScript, not .NET), i.e. I can't call install any components. Any suggestions most welcome Thanks Griff Tag: Enable/Disable Scripting Host through code Tag: 151156
 - 12
 - VBScript Beginner's Questions Hello world, sorry if these are rather simple beginner's questions. Coming from the Visual C++ side of things, I would like to get in touch with VBScript. Maybe you can put me on the right track. 1. What programs do I need to write and run VB scripts? (I do have VS.NET 2003.) Is a script just a text file or must it be compiled? 2. Is it possible with VBScript to a) Determine whether it runs on Windows 9x, Me, NT, 2000, or XP? b) Determine the path of the "Documents and Settings\All Users\Shared Documents" folder (independent of the Windows language version)? c) Copy a complete folder including all files and subfolders to "Shared Documents"? As I have no experience with VBScript (just VBA so far), I would appreciate any code snippets for the above tasks. Thank you in advance, Jens Tag: Enable/Disable Scripting Host through code Tag: 151155
 - 13
 - C# "using" VBScipt Equivalent What is the equivalent statement in VBScript to use for the C# "using" Directive. For example how would I code this C# statement in VBScript? using Microsoft.ContentManagement.Publishing Tag: Enable/Disable Scripting Host through code Tag: 151153
 - 14
 - commas in numbers I am trying to make numbers show up witht he commas in them , but i canot seem to find a print or function to do this. I would like the function to do this .... 1234.00 = 1,234.00 If someone could show me how or tell me where to find a function to do this, i would appreciate it greatly. Thank you in advance Kevin Humphreys Tag: Enable/Disable Scripting Host through code Tag: 151145
 - 15
 - Adding Security Groups to Users Hi there, I'm putting together a script to set up users on a new server and have come accross a small snag. I'd like to set up security groups for the users when I create them, but can't seem to format the memberOf variable properly. Is there something I'm missing? Here's the code: set objOU = GetObject("LDAP://ou=NewUsers,ou=Accounts,dc=DOMAIN,dc=COM") set objUser = objOU.Create("User","cn=<insert username>") objUser.Put "userAccountControl", 0 objUser.Put "sAMAccountName", "<insert username>" objUser.Put "homeDirectory", <insert home path here> objUser.Put "homeDrive", <insert home drive for path here> objUser.Put "scriptPath", <insert logon script if required> objUser.Put "description", <insert description eg. pupil / teacher etc.> objUser.Put "givenName", <insert first name> objUser.Put "initials", <insert midlle initials> objUser.Put "sn", <insert last name> objUser.Put "displayName", <insert displayname> objUser.Put "memberOf", <WHAT GOES HERE???> objUser.SetPassword "<password>" objUser.SetInfo Any help would be appreciated. Cheers. Tag: Enable/Disable Scripting Host through code Tag: 151143
 - 16
 - Script as NT servie Hello all, I have a script that must run as a nt service. I've bee using "svrany" and works fine, but I can not get the script to startup automatically when the computer comes up. I get this message in the event viewer: "Attempt to execute Windows Script Host while it is disabled, ID: 1000" Any suggestion? TIA, Carlos Tag: Enable/Disable Scripting Host through code Tag: 151141
 - 17
 - Problem: Enum Files, Rename, Copy, Delete Problem with Copy and delete That part works great. I modified the code so that the files enumerated in the folders and subfolders are then renamed to the current filename_year/month/day_.log. After logs are renamed, I want to copy them and delete files from the folders. I'm having trouble where the files are not copying. The rename works but copy/delete isn't. Do you have any suggestions? ' **** Script start **** ' WMI script that gets all files in a specific folder ' and optionally all it's subfolders ' The 4rd input parameter bIncludeSubFolders in the function ' EnumFolders tells it to include subfolders or not (True/False) ' ' (you should run it in a command prompt with cscript.exe) ' ' Author: Torgeir Bakken ' folder to get files from, do NOT add a trailing backslash! sFolder = "e:\test" sComputer = "." ' use "." for local computer Set oWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2") Set oDir = oWMI.Get("Win32_Directory='" & sFolder & "'") set colFolders = oWMI.ExecQuery _ ("SELECT * FROM Win32_Directory WHERE name ='e:\\test\merrill'") dtmThisDay = Day(Now) dtmThisMonth = Month(Now) dtmThisYear = Year(Now) strDate = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay ' Get the files into an array aFiles = Array() ' do not remove this global variable ' 4rd parameter set to False to not include subfolders EnumFolders oDir, oWMI, aFiles, True WScript.Echo "# of files found: " & UBound(aFiles) + 1 & vbCrLf For i = 0 To UBound(aFiles) WScript.Echo aFiles(i) Next Sub EnumFolders(oDir, oWMI, aFiles, bIncludeSubFolders) ' Get a collection of files in this directory Set colFiles = oWMI.ExecQuery( _ "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ & "Where ResultClass=CIM_DataFile") ' Enumerate files For Each oFile in colFiles 'WScript.Echo oFile.Name If oFile.Extension = "log" Then strNewName = oFile.Drive & oFile.Path & _ oFile.FileName & strDate & "." & "log" errResult = oFile.Rename(strNewName) Wscript.Echo errResult End If i = UBound(aFiles) + 1 ReDim Preserve aFiles(i) aFiles(i) = oFile.Name Next If bIncludeSubFolders Then Set colSubDir = oWMI.ExecQuery( _ "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ & "Where AssocClass=Win32_SubDirectory ResultRole=PartComponent") On Error Resume Next For Each oSubDir in colSubDir EnumFolders oSubDir, oWMI, aFiles, True Next On Error Goto 0 End If ' Copies files, then deletes old one For Each oFile in colFiles WScript.Echo oFile.Name If oFile.Extension = "log" Then strCopy = "e:\test Archive\" & oFile.FileName _ & "." & oFile.Extension oFile.Copy(strCopy) oFile.Delete Wscript.Echo errResult End If i = UBound(aFiles) + 1 ReDim Preserve aFiles(i) aFiles(i) = oFile.Name Next End Sub Thanks, Lam >-----Original Message----- >Lam wrote: > >> Trying to write a script to enumerate subfolders, then >> enumerate the files in those subfolders using WMI... >> >> Any feedback would be great. > >Hi > > >' **** Script start **** >' WMI script that gets all files in a specific folder >' and optionally all it's subfolders >' The 4rd input parameter bIncludeSubFolders in the function >' EnumFolders tells it to include subfolders or not (True/False) >' >' (you should run it in a command prompt with cscript.exe) >' >' Author: Torgeir Bakken > >' folder to get files from, do NOT add a trailing backslash! >sFolder = "C:\test" > >sComputer = "." ' use "." for local computer > >Set oWMI = GetObject("winmgmts:" _ > & "{impersonationLevel=impersonate}!\\" & sComputer & "\root\cimv2") > >Set oDir = oWMI.Get("Win32_Directory='" & sFolder & "'") > >' Get the files into an array >aFiles = Array() ' do not remove this global variable > >' 4rd parameter set to False to not include subfolders >EnumFolders oDir, oWMI, aFiles, False > >WScript.Echo "# of files found: " & UBound(aFiles) + 1 & vbCrLf > >For i = 0 To UBound(aFiles) > WScript.Echo aFiles(i) >Next > > > >Sub EnumFolders(oDir, oWMI, aFiles, bIncludeSubFolders) > > ' Get a collection of files in this directory > Set colFiles = oWMI.ExecQuery( _ > "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ > & "Where ResultClass=CIM_DataFile") > > ' Enumerate files > For Each oFile in colFiles > 'WScript.Echo oFile.Name > i = UBound(aFiles) + 1 > ReDim Preserve aFiles(i) > aFiles(i) = oFile.Name > Next > > If bIncludeSubFolders Then > Set colSubDir = oWMI.ExecQuery( _ > "Associators of {Win32_Directory.Name='" & oDir.Name & "'} " _ > & "Where AssocClass=Win32_SubDirectory ResultRole=PartComponent") > > On Error Resume Next > For Each oSubDir in colSubDir > EnumFolders oSubDir, oWMI, aFiles, True > Next > On Error Goto 0 > End If > >End Sub > > > >-- >torgeir >Microsoft MVP Scripting and WMI, Porsgrunn Norway >Administration scripting examples and an ONLINE version of the 1328 page >Scripting Guide: http://www.microsoft.com/technet/scriptcenter > Tag: Enable/Disable Scripting Host through code Tag: 151127
 - 18
 - File Information I want to use vbscript, or whatever is easiest to get the title of a file. I've looked around and can't seem to find anything, even things tat sound right "GETFILETITLE" only gets the name of the file without the extension! Can anyone tell me or show me what to use to simply get the title of a certain file? Thanks, Terry Tag: Enable/Disable Scripting Host through code Tag: 151126
 - 19
 - Enable the 1000 users in sample script Hi Does the "Creating 1,000 User Accounts" script enable all the users it creates? If not, how can I have it enable the users and place them in an OU on my domain controller? I appreciate the help. thanks martin Tag: Enable/Disable Scripting Host through code Tag: 151122
 - 20
 - passing variables between two different browser windows Hello. I'm a rookie ASP VBScripter and am having a difficult time scripting the following scenario: I have an index.asp file that has a multi-line text box and a button of type button. When the button is clicked a window is spawned with change.asp as its source. There is a form with a few text boxes and with a button of type submit and a cancel button of type button that just closes the window. What I want to happen is I want the information entered in change.asp to be added into the multi-line text box in index.asp when the submit button is clicked in change.asp. Here are the index.asp and change.asp files: //-----index.asp------------ <html> <head> <title>Product Listing</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <script language="JavaScript" type="text/javascript"> self.moveTo(0,0); self.resizeTo(screen.availWidth,screen.availHeight); function changeInfo() { var x = (screen.width - 400) / 2; var y = (screen.height - 320) / 2; var myWin = window.open("change.asp",null,"scrollbars=no, toolbar=no, resizable=no, width=400, height=300, left="+x+" top="+y) } </script> <body> <table width="554" cellpadding="5"> <tr> <td width="400"><img src="images/HouseValue 031.jpg" width="400" height="300"></td> <td width="3027" valign="top"><form name = "picInfo" id = "picInfo"> <textarea name="txtInfo" id="txtInfo" cols="40" rows="10" wrap="soft" readonly>Press "Change" to enter information.</textarea> <input type="button" value="Change" id="btnChange" name="btnChange" onClick="javascript:changeInfo()"> </form></td> </tr> </table> </body> </html> //----------------------------------- //-------change.asp----------------- <html> <head> <title>Edit Product Description</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <script language="JavaScript" type="text/javascript"> function Cancel() { window.close(); } </script> <body> <form name="frmChange" id="frmChange" method="post"> <table> <tr> <td align="right">Product Name:</td> <td align="left"><input type="text" name="txtProduct" id="txtProduct" size="40"></td> </tr> <tr> <td align="right">Model #:</td> <td align="left"><input type="text" name="txtModel" id="txtModel" size="40"></td> </tr> <tr> <td align="right">Value:</td> <td align="left"><input type="text" name="txtValue" id="txtValue"></td> </tr> <tr> <td align="right">Category:</td> <td align="left"><select name="mnuCategory" id="mnuCategory"> <option selected value="NULL">Choose category...</option> <option value="Furniture">Furniture</option> <option value="Electronics">Electronics</option> <option value="Home Media">Home Media</option> <option value="Jewlery">Jewlery</option> </select></td> </tr> <tr> <td align="right" valign="top">Misc. Information:</td> <td align="left"><textarea name="txtMisc" id="txtMisc" cols="30" rows="5"></textarea></td> </tr> </table> <center> <input type="submit" name="btnSubmitChanges" id="btnSubmitChanges" value="Submit"> <input type="button" name="btnCancel" id="btnCancel" value="Cancel" onClick="javascript:Cancel()"> </center> </form> </body> </html> //------------------------- I've been messing with it for a day now and I have been unable to pass variables from change.asp into index.asp. Any help would be much appreciated. ~Les Peabody Tag: Enable/Disable Scripting Host through code Tag: 151119
 - 21
 - VBScript table problem, help!! Hello, I created a WEB file with VBScript code that creates a table. Now what I want is all the cell of this table to be an input text. What I mean is I want to give the user the possibility to modify what is in the cell. Here is the code: iteratorRow = 0 do while iteratorRow < 5 iteratorRow = iteratorRow +1 set GcipTR= Document.createElement("TR") iteratorCol= 0 do while iteratorCol< 10 iteratorCol= iteratorCol+ 1 set GcipTD= Document.createElement ("TD") GcipTD.innerText = iteratorRow & iteratorCol GcipTR.appendChild GcipTD loop GcipTbody.appendChild GcipTR loop GcipTable.appendChild GcipTbody Document.body.appendChild GcipTable That create a beautiful table but like I said? I want the user to edit the cells Can you help me to find out how to do that please? Thank for quick help Francis Tag: Enable/Disable Scripting Host through code Tag: 151114
 - 22
 - Setting AD attributes to NULL I am trying to use the following code to set some AD variables to null, but it is failing at the first "put" (line 22). How should one go about writing a null value to an AD attribute with a vbs script? ' Create Connection Set conn = CreateObject("ADODB.Connection") conn.Provider = "ADsDSOObject" conn.Open "Active Directory Provider" Set command = CreateObject("ADODB.Command") Set command.ActiveConnection = conn command.Properties("Page Size") = 10 command.Properties("Asynchronous") = true priUser = Inputbox("Enter the User ID of the account to clear the Employee ID attribute from","Getting User ID") If priUser = "" Then MsgBox "You either entered nothing or clicked Cancel. Please try again",0 GetPriUser() End If command.CommandText = "SELECT distinguishedname FROM 'LDAP://DC=mydom,DC=COM' WHERE sAMAccountName = '" & priUser & "'" Set rs = command.Execute do while not rs.EOF str1 = "LDAP://" & rs.fields("distinguishedname") Set user = GetObject(str1) user.put "employeeID", null user.put "extensionattribute1", null user.put "extensionattribute2", null user.put "extensionattribute3", null user.put "extensionattribute4", null user.put "extensionattribute5", null user.put "extensionattribute6", null user.put "extensionattribute7", null user.put "extensionattribute8", null user.put "extensionattribute9", null user.put "extensionattribute10", null user.put "extensionattribute11", null user.put "extensionattribute12", null user.put "extensionattribute13", null user.put "extensionattribute14", null user.put "extensionattribute15", null user.setinfo rs.movenext loop msgbox("Employee ID and other Extension Attributes cleared for user " & priUser & "!") Tag: Enable/Disable Scripting Host through code Tag: 151110
 - 23
 - Problems with WMI Events scripts Hi I'm working with WMI in a Windows 2000 Professional operating system When management events, I have problems with the standard consumers ActiveScriptEventConsumer and SMTPEventConsumer. I have registered them and run the scripts, but I have no response. In the wbemess.log file I have found the errors: "Consumer provider ActiveScriptEventConsumer does not support IWbemUnboundObjectSink: error code 80004002" , and "Consumer provider SMTPEventConsumer does not support IWbemUnboundObjectSink: error code 80004002. SMTP command "VRFY demonla@hotmail.com returned 502. Unable to send message: 0xFFFFFFFF" I have tried with success the same scripts in a Windows XP operating system. (In that operating system the standard consumers are already registered in CIM repository. Does anybody know why it doesn't work in W2K and it does in Windows XP? Have anybody experienced a similiar situation, or may somebody provide me some information about it? Thanks in advance. DÃ©borah Tag: Enable/Disable Scripting Host through code Tag: 151103
 - 24
 - Numbering lines in a script ----- "unweildy" code? Gurus, Say you have many lines of code in your VBScript. And an error pops up saying there is a problem on like line 743. How in the heck is one going to be able to drill down that far? Can it be imported into a Word document to count the lines for you? When I imported into word the line number is kept track of but only on a page-by-page basis. In other words, after a line break, it starts numbering lines all over again. How do you experts handle "unwieldy" code? Tag: Enable/Disable Scripting Host through code Tag: 151096
 - 25
 - .wsf and .wsc files Where can I find introductory documentation and samples about creating VBscripts in .wsf and .wsc format? Where can I find infos about the required syntax? Regards Marius Tag: Enable/Disable Scripting Host through code Tag: 151094
- Next
 - 1
 - Suggestions On Storing Values I need to store lots of varibles for a web page I am creating. The problem is that these values change as the person goes through the site. I have had trouble with session objects varibles (SOV) not replacing values session("name") = "john" next page session("name") = "Tim" response.write session("name") returns "john" Although on my dev machine it works but on the server its fails. I would like to know if there is a sure fire way I can change SOVs so that the values stick. Passing varibles in the querystring are far to cumbersome. Cookies could be an options but some values I would like to keep hidden. Although a possiblity if the values can change consistantly. Storing in a database is too intensive for the amount of times the page already hits the database (also there are more varibles then fields in Access which I am developing with, although it will go to SQL server upon finial development). Given that what suggestions would you have varibles that store their values during a session and can be changed consitantly. Also sometimes this does work but is there a better way? session("name") = null session("name") = "newName" Tag: Enable/Disable Scripting Host through code Tag: 151090
 - 2
 - script for Pop-up timer Hi, anyone has a script for Pop-up timer ? thanks Tag: Enable/Disable Scripting Host through code Tag: 151088
 - 3
 - Path not found I am new to VBScript and I hoping the problem I have, has an easy solution. I am getting a 'Path Not Found' error on a line of VBScript that has worked in the past, but no longer does. There may have been some changes to the network before I got here, so somewhere in that period of time it stopped working. Here is what the portion in error looks like: Dim FSO, Infile, YR, path path = "\\server\depts\GAL\GALLogs\" YR=DatePart("YYYY", Date) set FSO = createObject("Scripting.FileSystemObject") set Infile = FSO.OpenTextFile(path & YR & "\YrToDate\Email.log", 1, False) I am getting the Path Not Found error on the OpenTextFile line. I know the path is correct, so maybe I am missing some kind of path qualification that is now required after whatever changes were made to the network. Same platform is running (Windows 2000). Any suggestions or help would be greatly appreciated. Thanks. Chuck Tag: Enable/Disable Scripting Host through code Tag: 151087
 - 4
 - Prob with Wscript in .hta app - OK in vbs Hi, I am trying to convert a vbs app to an hta so that I have a gui form with buttons and stuff. My vbs app starts out with these lines which work fine: set fso = Wscript.CreateObject ("Scripting.FileSystemObject") ScriptFolder = Replace(WScript.ScriptFullName, WScript.ScriptName,"") But in the test.hta app it does not recognize Wscript. I am guessing that I need to do something like Set Wscript = CreateObject("Windows.ScriptingHost") or maybe there is a switch or something to invoke Wscript.exe? Any suggestions appreciated on how to make the above code work in an hta application. Thanks, Rich Tag: Enable/Disable Scripting Host through code Tag: 151086
 - 5
 - printing Is there a vb script that will allow me to open a dynamic asp page with data, print the page to the local printer, then close the page once the printing is complete. Currently I can get the page to open, but it closes before the page has a chance to print, so nothing prints. Or I can open the page and have the print dialogue box come up, but then there is no way to close the page once the print completes. If you have a solution, please advise. Thanks Mike Tag: Enable/Disable Scripting Host through code Tag: 151085
 - 6
 - Compare 2 Files I have 2 files, file1.txt and file2.txt. File1.txt looks like this: a word here and maybe another one etc file2.txt is simillar, one word on each line. What I need to do is find and delete any word/line in file2.txt that already exists in file1.txt. Any suggestions, sample code, etc. on how I can accomplish this via wsh/vbscript? Thanks. Jay Tag: Enable/Disable Scripting Host through code Tag: 151083
 - 7
 - asp / sql server dates in recordsets Hey, I've got an Classic ASP app pulling some records out of a DB, which worked fine when it was Access. When we upped to SQL Server, all of a sudden, when the Recordsets came back, all the dates were empty, even though the data was showing up in the DB. About a year ago (only code asp apps once and a while), I remember seeing this and finding something that just had something to do with the order in which something was being referenced, but I just can't for the life of me remember what it was. The Dates are set as datetime, length of 8. Anyone know why this happens and a solution? many thanks, rob Tag: Enable/Disable Scripting Host through code Tag: 151081
 - 8
 - How to determine current version of Media Player via Registry? I am modifying my hotfix script to accomodate Windows Media Player versions, but I'm not seeing a direct way of determining how to pull the currently installed version number from the registry. I suppose I could write the script to check for the version on the mplayer2.exe file specifically... but since the rest of my logic works out of the registry, I figured I'd try to stay consistent. Does anyone have any ideas on where this might be? Rob Tag: Enable/Disable Scripting Host through code Tag: 151080
 - 9
 - ADS Users and Exchange Mailboxes Hi I'm creating users using a vbscript. No problem I also add the user to groups and place them in the proper OU. No problem I create a mailbox and mailaddy for the user. Huge problem I have no idea of how to do that in vbscript our any otherway except through the AD MMC snap-in. Can anyone help me out please. Thanx Tag: Enable/Disable Scripting Host through code Tag: 151076
 - 10
 - How to retreive datatype info from Access. Hello, I like to know if you can retreive column information like datatype, default_value etc. from Access. The reason why I want to do this, is that I generate insert and update statements with Vbscript. I need the datatype of the columns to determine if I need to put qoutes around values (in the case of text) or not (in the case of number). In the case of a autonumber datatype, I want the value to be ignored. I am using Vbscript on IIS to build a dynamic website. I used to work with Oracle and I could retreive column information from the datadictionary using SQL e.g. select column_name , data_type from all_columns How does this work in Access I suppose you use ADO or DAO. Can anybody tell me which model to use and how to use it to retreive column information? an example would be nice Thanx in advance Holke Tag: Enable/Disable Scripting Host through code Tag: 151069
 - 11
 - Script for adding/removing members from exchange distribution group? Does there exist a script to replace one user with another or any other template to start with. Cheers, Nico Tag: Enable/Disable Scripting Host through code Tag: 151066
 - 12
 - Is there a way to convert html to plain text with vbscript? I'm looking for a way that a user can enter a url in a text box and then click a button which will run a convert function. This convert function will convert the requested web page to plain text and then populate a textarea with the converted data. I know that I can save a web page in Internet Explorer as a text file, but I'm trying to write an enhancement to an ASP Document Management System and so need to be able to do this in code on a page in the system. Is this possible with VBScript? Any help would be greatly appreciated. Tag: Enable/Disable Scripting Host through code Tag: 151065
 - 13
 - Avoid the gray font in a disabled SELECT Element For a SELECT, you have the DISABLED attribute. But (unlike the readonly) Disabled attribute change the style of the combo to some gray font. How can I avoid this? Thank you, Simon Tag: Enable/Disable Scripting Host through code Tag: 151064
 - 14
 - POPUP height I use window.open function to show some data in popup window. When the popup window is opened, I would like to set its height property due to the text inside, because I don't want to have scrollbar. How can I do that? Thank you, Simon Tag: Enable/Disable Scripting Host through code Tag: 151059
 - 15
 - retreiving column datatypes from access ("text","autonumber",etc) Hello, I like to know if you can retreive column information like datatype, default_value etc. from Access. I am using Vbscript on IIS to build a dynamic website. I used to work with Oracle and I could retreive column information from the datadictionary using SQL e.g. select column_name , data_type from all_columns How does this work in Access Thanx in advance Holke . Tag: Enable/Disable Scripting Host through code Tag: 151057
 - 16
 - Getting details of active TS sessions on windows 2000 I have been trying to work out a way of doing this in script and came accross "Retrieve Logon Session Information" on the MS site at:- http://www.microsoft.com/technet/treeview/default.asp?url=/technet/ScriptCenter/user/ScrUG154.asp I sligtly altered it to just show the details of the local server as below. It falls over at the For Each line with an error code of 80041010 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogonSession") For Each objItem in colItems Wscript.Echo "Authentication Package: " & objItem.AuthenticationPackage Wscript.Echo "Logon ID: " & objItem.LogonId Wscript.Echo "Logon Type: " & objItem.LogonType Wscript.Echo "Start Time: " & objItem.StartTime Wscript.Echo Next Can anyone shed any light on what the problem is? I have never used winmgmts before and am completetly in the dark as to what is happening. TIA Charlie Markwick Tag: Enable/Disable Scripting Host through code Tag: 151056
 - 17
 - Restarting Remove IIS Admin Hi I was wondering if anyone can help me as am having problems comipling a script that will stop all IIS dependent services and then final IIS Admin. Once that has been done to start all the relevant services again. Can anyone help ? Thanks Tag: Enable/Disable Scripting Host through code Tag: 151055
 - 18
 - How can i debug the WSH vbscript? I install the Microsoft Script Debugger in the win2k disc. In the manual of this debugger and some articles, they say if I add a "Stop" statement in the script the debugger will be envoked when run to this statement. Or another way is when one error occur, there will be a command option in the dialog to debug it. But they both don't work for me. "Stop" is neglected and the error dialog doesn't have a debugger option. Are those ways for debug asp script? Now what i try to do is programming standalone vbscript. I wanna write several scripts as batch file in win32 enviroment. Is there some good environment to debug vbscript? I have VS2003 installed. Can it help me to debug vbscript? I doesn't find any project for such aim. Any idea? Tag: Enable/Disable Scripting Host through code Tag: 151054
 - 19
 - RegExp problem dim re as regexp set re = new regexp re.ignorecase = true re.global = true re.pattern = "ab." dim ms as matchcollection dim m as match set ms = re.execute("aba abb abc abd") for each m in ms debugpring m.value next m the result is aba Single output? why not 4 result? Green Xiar Tag: Enable/Disable Scripting Host through code Tag: 151050
 - 20
 - dynamically changing font color I am pretty new to VB Scripting and .asp. How do you dynamically change the font color based upon the database results that are displayed? Example: If database returns a value of 10 to a table in .asp page I would like to turn the font to Green if greater than or equal to 10 and red if less than 10. Any help would be appreciated. Have a great day! CF Tag: Enable/Disable Scripting Host through code Tag: 151038
 - 21
 - Script to check local reboot Currently I have a script on my domain to reboot several servers on a weekly basis. Sometimes there maybe 1 or 2 servers did not get reboot. Example of the reboot script... shutdown.exe \\domain1.company.com /l /r /t:5 /c /y shutdown.exe \\domain2.company.com /l /r /t:5 /c /y shutdown.exe \\domain3.company.com /l /r /t:5 /c /y shutdown.exe \\domain4.company.com /l /r /t:5 /c /y shutdown.exe \\domain5.company.com /l /r /t:5 /c /y shutdown.exe \\domain6.company.com /l /r /t:5 /c /y Lets say domain3 and domain6 did not get reboot. I wanted to see if anyone know how to write a script to check if those servers get reboot. If not, then this script will perform a reboot on the fail servers. Maybe the script will check when the last time the server got reboot. If the server did not reboot for more than 24 hours or more than 7 days, then run this script to reboot the fail servers. I have a mixed servers, Windows NT 4.0, Windows 2000, and Windows 2003. This script need to be able to function on all Windows. Can someone help me? I am no script expert and I am asking for help. Tag: Enable/Disable Scripting Host through code Tag: 151037
 - 22
 - repost.. sorry for the repost but this is killing me... it keeps doubling the last 2 lines of the result file until it is unworkable. Thank you... ---------------- I am looping files, problem is the last line of the file get's appended with the last record again and again.. the lastrun file is read in and writes the results to the results.txt file.. it's not really bailing atendofstream WHY?? the 2nd number is supposed to increment if the server is listed in downlist.txt What is wrong with the below script? Sample lastrun.txt : MYFILET1.MYDOMAIN.COM,3,1/13/2004 11:40:57 PM MYFILET2.MYDOMAIN.COM,3,1/13/2004 11:40:57 PM MYFILET4.MYDOMAIN.COM,3,1/13/2004 11:40:57 PM MYFILET5.MYDOMAIN.COM,3,1/13/2004 11:40:57 PM sample downlistfile : MYFILE2.MYDOMAIN.COM MYFILE5.MYDOMAIN.COM --------------------------- 'Thie VBS Takes the last run of the all.cmd and compares it to what's down now to increment the counter and show the date. Const ForReading = 1 Const ForWriting = 2 match = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") Set downlistfile = objFSO.OpenTextFile("data\downlist.txt", ForReading) Set resultfile = objFSO.OpenTextFile("data\results.txt", ForWriting, True) Do While downlistfile.AtEndOfStream <> True downserverrecord = ucase(downlistfile.Readline) If inStr(downserverrecord, ".COM") Then Set lastrunfile = objFSO.OpenTextFile("data\lastrun.txt", ForReading) Do While lastrunfile.AtEndOfStream <> True ' bail... fline = ucase(lastrunfile.Readline) If inStr(fline, downserverrecord) Then match = 1 ' We Have a Hit.. Set Match to 1 results = split(fline, ",") resultfile.WriteLine trim(results(0)) & "," & results(1) + 1 & "," & results(2) End If Loop lastrunfile.Close If match = 2 Then resultfile.writeline downserverrecord & ",1," & now() End If match = 2 End If Loop downlistfile.Close resultfile.close -- Anthony B ------------------------ Expansion Slots: The extra holes in your belt buckle -- Anthony B ------------------------ Expansion Slots: The extra holes in your belt buckle Tag: Enable/Disable Scripting Host through code Tag: 151033
 - 23
 - WinMgt: & Service Start / Stop Generic script Below is a vbs script thats runs at startup from the task scheduler in an unattended mode, and emails if a application (sql server) is up or down. Its working correctly but Can someone have a look at it and offer ways of bullet proffing and maybe making it more efficient etc.. I would appreciate valid feed back as its going on a critical server ! Regards Don Grover '************************************************************************ 'monitorprocs.vbs - report each time a process starts or stops Option Explicit Dim refWMI Dim refEventSource Dim refEvent Dim strQuery 'Email Variables Dim sEmailFrom, sEmailTo,sConEmailMonitor, sMyMailServer, iEmailPort sEmailFrom = "support@assoft.com.au" sEmailTo = "support@assoft.com.au" sConEmailMonitor = "dgrover@assoft.com.au" sMyMailServer = "assoftsvr" iEmailPort = 25 'connect to WMI Set refWMI = GetObject("winMgmts:") 'register to receive the relevant events strQuery = "SELECT * FROM __InstanceOperationEvent " & _ "WITHIN 2 WHERE TargetInstance ISA 'Win32_Process'" Set refEventSource = refWMI.ExecNotificationQuery(strQuery) 'start the endless loop While True Dim sRetVal 'make the blocking call Set refEvent = refEventSource.NextEvent() 'check the classname of the event and perform relevant action If refEvent.Path_.Class = "__InstanceCreationEvent" Then 'WScript.Echo "The program " & refEvent.TargetInstance.Name & " has just been launched" sRetVal = fncCheckInstance(refEvent.TargetInstance.Name) If sRetVal <> "" Then SendEmailNotification "CokeShop " & sRetVal & " UP", "( " & sRetVal & " ) Server came UP at " & FormatDateTime(Date) & " " & FormatDateTime(Time) End If Else If refEvent.Path_.Class = "__InstanceDeletionEvent" Then 'WScript.Echo "The program " & refEvent.TargetInstance.Name & " has been terminated" sRetVal = fncCheckInstance(refEvent.TargetInstance.Name) If sRetVal <> "" Then SendEmailNotification "CokeShop " & sRetVal & " DOWN", "( " & sRetVal & " ) Server went DOWN at " & FormatDateTime(Date) & " " & FormatDateTime(Time) & vbCrLf & "E-Mail Notification will be sent when Server is back up" End If End If End If Wend 'this code below will never run. Oh well... Set refWMI = Nothing Set refEventSource = Nothing Set refEvent = Nothing Function fncCheckInstance(theService) '****************************************************** '*** Checks if passed application is in our list **** '*** of services to check. **** '****************************************************** Dim sServiceName sServiceName = Trim(lcase(theService & "")) Select case sServiceName Case "sqlsvr.exe" fncCheckInstance = "DATABASE" Case "sqlagent.exe" fncCheckInstance = "SCHEDULER" Case Else fncCheckInstance = "" End Select End Function Function SendEmailNotification(TheSubJect, TheBody) '****************************************************** '*** Send the message Using CDOSYS Win2k & Win2003 **** '****************************************************** ' CDO mail object Dim sch, cdoConfig, cdoMessage sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserverport") = iEmailPort cdoConfig.Fields.Item(sch & "smtpserver") = sMyMailServer cdoConfig.fields.update Set cdoMessage = CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig cdoMessage.From = sEmailFrom cdoMessage.To = sEmailTo cdoMessage.BCC = sConEmailMonitor cdoMessage.Subject = TheSubJect cdoMessage.TextBody = TheBody ' cdoMessage.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenti cate").value = 1 ' use clear text authenticate ' cdoMessage.item("http://schemas.microsoft.com/cdo/configuration/sendpassword ").value ="mypassword" ' cdoMessage.item("http://schemas.microsoft.com/cdo/configuration/sendusername ").value ="yourusername" cdoMessage.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High" cdoMessage.Fields.Item("urn:schemas:mailheader:X-Priority") = 2 cdoMessage.Fields.Item("urn:schemas:mailheader:Keywords") = "COKESHOP" cdoMessage.Fields.Item("urn:schemas:mailheader:Sensitivity") = "Company-Confidential" cdoMessage.Fields.Item("urn:schemas:mailheader:X-Message-Flag") = "Do not Forward" cdoMessage.Fields.Update cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing End Function Tag: Enable/Disable Scripting Host through code Tag: 151031
 - 24
 - Logging to file This is a multipart message in MIME format. --=_alternative 00787DB385256E1B_= Content-Type: text/plain; charset="US-ASCII" Hello, I am trying to improve the script below to create a text file with the current date\time info appended to the file name and then output error and success info into it instead of using msgbox. I found the function for retreiving current date/time but I can't see how to append this to a file name. I have tried outputting the error\success to file and I am getting a bad file mode message. I have put the working script and then the re-written script below. The re-write is giving an error object required. This group has been a great help in improving my scripting thank you for your help and advice. Owen WORKING Ver. Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\computers.txt", ForReading) i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop On Error Resume Next For Each objItem in objDictionary strComputer = objDictionary.Item(objItem) Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user") objUser.SetPassword "R3dW00d!" objUser.SetInfo If Err.Number <> 0 Then Wscript.Echo StrComputer & " " & Err.Description & ", password has not been changed " Err.Clear Else Wscript.Echo StrComputer & " password has been changed. " End If Next NON-WORKING Ver. Const ForReading = 1 Const ForWriting = 2 DateInfo = DateInfo & Now Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\computers.txt", ForReading) Set objFile = objFSO.CreateTextFile ("c:\passlog.txt") i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop On Error Resume Next For Each objItem in objDictionary strComputer = objDictionary.Item(objItem) Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user") objUser.SetPassword "TEST" objUser.SetInfo If Err.Number <> 0 Then objFile.WriteLine Now & vbTab & (StrComputer & vbTab & Err.Description) Wscript.Echo StrComputer & " " & Err.Description & ", password has not been changed " Err.Clear Else Wscript.Echo StrComputer & DateInfo & " password has been changed. " objFile.WriteLine Now & vbTab & (StrComputer & vbTab & "Password Changed") End If Next --=_alternative 00787DB385256E1B_= Content-Type: text/html; charset="US-ASCII" Hello, I am trying to improve the script below to create a text file with the current date\time info appended to the file name and then output error and success info into it instead of using msgbox. I found the function for retreiving current date/time but I can't see how to append this to a file name.  I have tried outputting the error\success to file and I am getting a bad file mode message. I have put the working script and then the re-written script below. The re-write is giving an error object required. This group has been a great help in improving my scripting thank you for your help and advice. Owen WORKING Ver. Const ForReading = 1 Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\computers.txt", ForReading) i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop  On Error Resume Next  For Each objItem in objDictionary         strComputer = objDictionary.Item(objItem)         Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")         objUser.SetPassword "R3dW00d!"         objUser.SetInfo If Err.Number <> 0 Then                 Wscript.Echo StrComputer & " " & Err.Description & ", password has not been changed "                 Err.Clear         Else                 Wscript.Echo StrComputer & " password has been changed. "                 End If  Next NON-WORKING Ver. Const ForReading = 1  Const ForWriting = 2         DateInfo = DateInfo & Now         Set objDictionary = CreateObject("Scripting.Dictionary") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\computers.txt", ForReading) Set objFile = objFSO.CreateTextFile ("c:\passlog.txt")   i = 0 Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline objDictionary.Add i, strNextLine i = i + 1 Loop  On Error Resume Next  For Each objItem in objDictionary         strComputer = objDictionary.Item(objItem)         Set objUser = GetObject("WinNT://" & strComputer & "/Administrator,user")         objUser.SetPassword "TEST"         objUser.SetInfo If Err.Number <> 0 Then                 objFile.WriteLine Now & vbTab & (StrComputer & vbTab & Err.Description)                 Wscript.Echo StrComputer & " " & Err.Description & ", password has not been changed "                 Err.Clear         Else         Wscript.Echo StrComputer & DateInfo & " password has been changed. "                 objFile.WriteLine Now & vbTab & (StrComputer & vbTab & "Password Changed")                 End If Next --=_alternative 00787DB385256E1B_=-- Tag: Enable/Disable Scripting Host through code Tag: 151027
 - 25
 - Help modifying connection string for secure database... I have a connection string i use to access a database:\ ' Open Microsoft Access Database dbFile = "C:\Network Evaluation Tool\NET_Database.mdb" Set oConn = CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFile Now, I have secured the same database with a password and want to modify the string above to access the secured database. I have tried a few mods myself but they always end up in error. The database is an Access2003. Can anyone help or point me in the right direction? Thanks, Trippin Tag: Enable/Disable Scripting Host through code Tag: 151026

Is there a registry setting that can enable/disable the script host?
I have an app written in VB6 that uses the Script Shell object to run
some things. On some of my apps they have scripting turned off. I'd
like to turn it on via code so that I can use the scripting object.

Thanks.

Top

Re: Enable/Disable Scripting Host through code by Michael

Michael
Fri Jan 16 22:46:13 CST 2004

Mike Dwyer wrote:
> Is there a registry setting that can enable/disable the script host?
> I have an app written in VB6 that uses the Script Shell object to run
> some things. On some of my apps they have scripting turned off. I'd
> like to turn it on via code so that I can use the scripting object.

As of WSH 5.6 ...

HKEY_LOCAL_MACHINE
\SOFTWARE
\Microsoft
\Windows Script Host
\Settings

named value: Enabled [REG_SZ]

"1" = enabled
"0" = disabled

--
Michael Harris
Microsoft.MVP.Scripting

Windows 2000 Scripting Guide
Microsoft® Windows®2000 Scripting Guide
http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp

TechNet Script Center Sample Scripts
http://www.microsoft.com/downloads/release.asp?ReleaseID=38942

WSH 5.6 documentation download
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en

Top

Re: Enable/Disable Scripting Host through code by bdtmike

bdtmike
Sat Jan 17 22:41:13 CST 2004

"Michael Harris $MVP$" <<mikhar at="mvps.org" />> wrote in message news:<#l7H$SL3DHA.2056@TK2MSFTNGP10.phx.gbl>...
> Mike Dwyer wrote:
> > Is there a registry setting that can enable/disable the script host?
> > I have an app written in VB6 that uses the Script Shell object to run
> > some things. On some of my apps they have scripting turned off. I'd
> > like to turn it on via code so that I can use the scripting object.
>
>
> As of WSH 5.6 ...
>
> HKEY_LOCAL_MACHINE
> \SOFTWARE
> \Microsoft
> \Windows Script Host
> \Settings
>
> named value: Enabled [REG_SZ]
>
> "1" = enabled
> "0" = disabled
>
> --
> Michael Harris
> Microsoft.MVP.Scripting
>
> Windows 2000 Scripting Guide
> Microsoft® Windows®2000 Scripting Guide
> http://www.microsoft.com/technet/scriptcenter/scrguide/sagsas_overview.asp
>
Bingo! That did it. Thanks a lot.

Top