Enable Active X Controls

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
    - How to create a Kernel Service ? Hi, I try to create a kernel service with WMI I use this function: Sub CreateService(sName, sDisplayName, sPath, sTypeSrv, sType, strInteractif, strUser, strPassword) Const OWN_PROCESS = 16 Const NORMAL_ERROR_CONTROL = 0 Const KERNEL = 1 Const FILSYSTDRV = 2 Const SHAREDPROC = 32 Const INTERACT = 255 Dim TypeSrv, User, Password, Interactif, Result, t Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objService = objWMIService.Get("Win32_BaseService") IF strUser = "" THEN User = "NT AUTHORITY\LocalService" Password = "" ELSE Password = strPassword END IF IF Ucase(strInteractif) = "YES" THEN Interactif = TRUE ELSE Interactif = FALSE END IF Select Case Ucase(sTypeSrv) Case "KERNEL" TypeSrv = KERNEL Case "FILE SYSTEM DRIVER" TypeSrv = FILSYSTDRV Case "SHARED" TypeSrv = SHAREDPROC Case "INTERACTIF" TypeSrv = INTERACT Case Else TypeSrv = OWN_PROCESS End Select Result = objService.Create (sName,sDisplayName,sPath,TypeSrv,NORMAL_ERROR_CONTROL,sType,Interactif,User, Password) end sub I call this function by this way: CreateService "test","test222","C:\Winnt\hardlock.sys","KERNEL","Boot","YES","","" But I have Error 21 which means "Invalid parameters" I try to create not a kernel service, and it works successfully. Do you have any ideas for my issue ? Thanks for replies Tag: Enable Active X Controls Tag: 191205
  - 2
    - resolution + vbscript I'm trying to change resolution settings with presentation direstor using vbscript. is there any way to apply the new scheme immmediately as its created, through a script The first 3 statments create the scheme and add them to presentation director , but it will not aplly them , even though the apply immediately box is ticked . Can anyone help please Thanks Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oShell oShell = CreateObject("WScript.Shell") oShell.run("regedit /s c:\resolution\npdirectdd.reg") oShell.run("regedit /s c:\resolution\dualdisplay.reg") oShell.AppActivate("NPDTRAY.exe") oShell.SendKeys("{ENTER}") Tag: Enable Active X Controls Tag: 191201
  - 3
    - Set printer profile Hi all, I'm trying to set a profile (E5-color) as default profile in a printer called "DALI". Can this be done with vbscript ? Probabely it's a registry key to set, but which one ? Greetz, Woef. Tag: Enable Active X Controls Tag: 191192
  - 4
    - Setlocal equivalent Hello world, is there a VBScript equivalent to setting environment variables locally in a batchfile? I wnat do to something like setlocal set path=<...> set <xxx>=<yyy> run_my_app endlocal but I'd like to use VBScript (.vbs) rather than a batchfile. Jens Tag: Enable Active X Controls Tag: 191190
  - 5
    - Simple HTA question I couldn't find any HTA-specific newsgroups so please forgive me if this post isn't relevant to this newsgroup. I have a an HTA with embedded vbs and wsh. The HTA has 2 textboxes and a submit button and I'd like the focus to be on the first textbox when the HTA is launched (so the user doesn't have to click or tab to get there). Anyone know how to do this? Here's the code for the first textbox: <input type="text" name="login" size="30" tabindex="1"> If there's a more appropriate newsgroup for this question please let me know. Thanks... Tag: Enable Active X Controls Tag: 191180
  - 6
    - Renaming files in a folder I have a folder with files named 20060408AL.txt, 20060409AL.txt, 20060410AL.txt, etc. The files use the date and add an "AL" to the end. Can someone help me with a script that renames each file within a folder and "strips" the "AL" part at the end? The end result would convert 20060417AL.txt to 20060417.txt. Tag: Enable Active X Controls Tag: 191179
  - 7
    - How can i use connection pooling with hta (vbs)? I heard about connection pooling in serverside vbscript (asp) but is it possible to use it with hta? Any example codes? Thank you P.S. exactly my problem is can not able to connect the same data base (access) from different machines at the same time on my intranet... Tag: Enable Active X Controls Tag: 191178
  - 8
    - Cannot run vb script as domain user Hi all: I was wondering if anyone can help me figure out why I am getting a "Permission denied: 'Get Object' " error message when I try to run a logon script created using vb. Below is a copy of the script. It seems that I'm getting this error at the very end. Can anyone tell me exactly where the permissions need to be set and what permissions are needed? I have the Windows 2003 default permissions and it is still not working. Option Explicit ' Force explicit declarations ' ' Variables ' Dim RCKNetwork Dim FSO Dim strUserName ' Current user Dim strUserDomain ' Current User's domain name Dim strDFS ' Path to the DFS root Dim strDepartment ' Current User's Department Dim strLDrv ' Current user's L: Drive location Dim strSDrv ' Current user's S: Drive location Dim ObjGroupDict ' Dictionary of groups to which the user belongs Dim AllDrives ' A listing of all drives that already exist Dim MapLDrive ' Used to determine is user will have a L: Drive Dim i Set RCKNetwork = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") Set AllDrives = RCKNetwork.EnumNetworkDrives() strUserName = RCKNetwork.UserName strUserDomain = RCKNetwork.UserDomain strDFS = "\\RCKDOMAIN\Shares\" strLDrv = "\\192.168.20.15\" & strUserName ' Read the user's account "Member Of" tab info across the network ' once into a dictionary object. ' Test for L:, Q:, S:, U:, & Z: then delete them if they exist For i = 0 To AllDrives.Count - 1 Step 2 If AllDrives.Item(i) = "L:" Then RCKNetwork.RemoveNetworkDrive "L:", True, True If AllDrives.Item(i) = "P:" Then RCKNetwork.RemoveNetworkDrive "P:", True, True If AllDrives.Item(i) = "Q:" Then RCKNetwork.RemoveNetworkDrive "Q:", True, True If AllDrives.Item(i) = "S:" Then RCKNetwork.RemoveNetworkDrive "S:", True, True If AllDrives.Item(i) = "U:" Then RCKNetwork.RemoveNetworkDrive "U:", True, True Next Set ObjGroupDict = CreateMemberOfObject(strUserDomain, strUserName) MapLDrive = TRUE strDepartment = "" ' Admins, do not have an L: drive If MemberOf(ObjGroupDict, "Domain Admins") Then MapLDrive = FALSE If MemberOf(ObjGroupDict, "Help Desk Admins") Then MapLDrive = FALSE ' Find Current User's Department If MemberOf(ObjGroupDict, "Accounting Group") Then strDepartment = "Accounting" If MemberOf(ObjGroupDict, "Marketing Group") Then strDepartment = "Marketing" If MemberOf(ObjGroupDict, "Finance Group") Then strDepartment = "Finance" If MemberOf(ObjGroupDict, "Research Group") Then strDepartment = "Research" ' Map the S: Drive strSDrv = strDFS & "Departments\" & strDepartment If strDepartment <> "" Then RCKNetwork.MapNetworkDrive "S:", strSDr ' Now we will map all Custom Drives If MemberOf(ObjGroupDict, "Domain Admins") Then RCKNetwork.MapNetworkDrive "P:", strDFS & "Software\APPS" If MemberOf(ObjGroupDict, "Help Desk Admins") Then RCKNetwork.MapNetworkDrive "P:", strDFS & "Software\APPS" If MemberOf(ObjGroupDict, "Audit Group") Then RCKNetwork.MapNetworkDrive "Q:", strDFS & "Departments\Accounting\Audit" If MemberOf(ObjGroupDict, "Sales Group") Then RCKNetwork.MapNetworkDrive "Q:", strDFS & "Departments\Marketing\Sales" If MemberOf(ObjGroupDict, "Proposal Group") Then RCKNetwork.MapNetworkDrive "T:", strDFS & "Departments\Finance\Proposals" If MemberOf(ObjGroupDict, "Development Group") Then RCKNetwork.MapNetworkDrive "U:", strDFS & "Departments\Research\Develop" ' Map L: Drive If MapLDrive = TRUE Then RCKNetwork.MapNetworkDrive "L:", strLDrv Function MemberOf(ObjDict, strKey) ' Given a Dictionary object containing groups to which the user ' is a member of and a group name, then returns True if the group ' is in the Dictionary else return False. ' ' Inputs: ' strDict - Input, Name of a Dictionary object ' strKey - Input, Value being searched for in ' the Dictionary object ' Sample Usage: ' ' If MemberOf(ObjGroupDict, "DOMAIN ADMINS") Then ' wscript.echo "Is a member of Domain Admins." ' End If ' ' MemberOf = CBool(ObjGroupDict.Exists(strKey)) End Function Function CreateMemberOfObject(strUserDomain, strUserName) ' Given a domain name and username, returns a Dictionary ' object of groups to which the user is a member of. ' ' Inputs: ' ' strDomain - Input, NT Domain name ' strUserName - Input, NT username ' Dim objUser, objGroup Set CreateMemberOfObject = CreateObject("Scripting.Dictionary") CreateMemberOfObject.CompareMode = vbTextCompare Set objUser = GetObject("WinNT://" _ & strDomain & "/" _ & strUserName & ",user") For Each objGroup In objUser.Groups CreateMemberOfObject.Add objGroup.Name, "-" Next Set objUser = Nothing I have verified that both authenticated users group and domain users group the default permissions to include the read and apply policy permission. Is there something I'm overlooking? Please assit thank you Jerrald Noland jnoland767@hotmail.com End Function Tag: Enable Active X Controls Tag: 191174
  - 9
    - Receiving error when adding IP printer. A little background: I support about 20 retail locations that all are set up with IP printing. One of the biggest pains in providing support is having to go into each machine and manually enter a port and load the printer drivers. So, I decided I wanted to play around with a script to automate the process. I found the script online to do this.. or so I thought. The script works great when I am adding a printer that has the necessary drivers loaded to it... it's only when I try to tell it to load a driver, that it fails with: Error: Generic Failure Code: 80041001 Source: SWbemObjectEx The error points to a line in the script that actually adds the printer... but I have a feeling the driver is not loading properly. Here's part of the code: --------------------------------------------------------------------------------------------------------------------------------- '*** INSTALL DRIVER **************************************************** Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") objWMIService.Security_.Privileges.AddAsString "SeLoadDriverPrivilege", True Set objDriver = objWMIService.Get("Win32_PrinterDriver") objDriver.Name = driver_name objDriver.SupportedPlatform = "Windows NT x86" objDriver.Version = "3" 'objDriverPath = dll_path objInfname = inf_path intResult = objDriver.AddPrinterDriver(objDriver) wscript.echo intResult '*** ADD PRINTER ***************************************** Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ objPrinter.DriverName = driver_name objPrinter.PortName = "IP_" & port_ip objPrinter.DeviceID = printer_name objPrinter.Network = True objPrinter.Shared = False objPrinter.Put_ If print_default = "Y" then objPrinter.SetDefaultPrinter() End if -------------------------------------------------------------------------------------------------------------------------------------- I've checked the paths to the .inf and .dll a hundred times. I've searche on the internet and found several people with the same problem but no real solutions. Anyone have any ideas? Tag: Enable Active X Controls Tag: 191173
  - 10
    - Accessing Crypto API via vbscript Hi, I am trying to find out a way of accessing Windows Crypto API within vbscript so that I can compute a hash of a string and encrypt\decrypt some information. I am hoping to accomplish this without using any wrappers around Crypto API, so I don't want to use third party dll's or controls. Is this possible? Thank you Tag: Enable Active X Controls Tag: 191171
  - 11
    - invoke a VBscript from within a word macro hi, all I'm trying to invoke a vbscipt from within a word macro. I'm using RetVal = Shell("C:\docs\binfile.vbs", 0) however, this gives me an error: " Run-time error '5': Invalid procedure call or argument" Does anyone know how to do this.. if I replace the path of vbscript with an EXE file, it works fine.. and if I call the vbscript frm the command line. it also works fine. thanks.. Tag: Enable Active X Controls Tag: 191167
  - 12
    - SQL commands from VBScript? Hi all, can I connect to a database (e. g. Oracle) and pass SQL commands from my VBScript code? Where can I find information about this issue? Jens Tag: Enable Active X Controls Tag: 191164
  - 13
    - Hardware RAID and individual disk drives sizes and status Does anyone have/know of a VB script that can tell me the size and number of drives that make up a RAID configuration using VBS? -TIA- Tag: Enable Active X Controls Tag: 191163
  - 14
    - Password Expiration What is the AD property to deteremine the date a user's password is going to expire? Bart Perrier Tag: Enable Active X Controls Tag: 191161
  - 15
    - Desktop icons Hi, I am looking at desktop icons and want to delete only icons that meet a criteria of having a specific value in the "Start in" property. Currently, I'm only looking to display those names that meet this requirement, but I've come across a roadblock. I can't even figure out how to extract that property or even if it's possible. I have the following code: Const ALL_USERS_DESKTOP = &H19& Set objApp = CreateObject("Shell.Application") Set objShell = Wscript.CreateObject("WScript.Shell") Set objFolder = objApp.Namespace(ALL_USERS_DESKTOP) Set objFolderItem = objFolder.Self Wscript.Echo objFolderItem.Path Set colItems = objFolder.Items For Each objItem In colItems sResult = sResult & " " & objItem.TargetPath & vbCrLf Next wScript.Echo sResult Does anyone have a suggestion? Thanks in Advance, JeffH Tag: Enable Active X Controls Tag: 191159
  - 16
    - E-mail script doesn't work more! Hello all. I had a script for long time that send a e-mail with an attachment. Here is: Set objEmail = CreateObject("CDO.Message") objEmail.From = "local_server@local.com" objEmail.To = "target_email@local.com" objEmail.Subject = "Notification of May" objEmail.Textbody = "Hi all, here's the monthly notification. " objEmail.AddAttachment "\\pc0012\share1\notif.xls" objEmail.Send It worked fine... but I instaled de SP4 for SQL server and since that installation the script doesn't work. I already tried to put my firewall Off and I tried also without attachments but nothing. Maybe could you help me please? henpat. Thanks Tag: Enable Active X Controls Tag: 191158
  - 17
    - Asp and script Iv gt an asp page that has two buttons on it. one button uses a form and the other uses scrpit to go to the next page. I need both buttons to submit data. Iv usesd this on page1: public varform varform =3D "" '"Activity_Rpt_Inv4.asp?klient=3Dresponse.write(request.querystring("klient= ")=AD)&adviseur=3Dresponse.write( session("Pers_ID"))&ActId=3Dresponse.write(request.querystring("ActId"))" <script type=3D"text/vbscript" language=3D"VBScript" event=3D"onClick" for=3D"btnPrint"> InvDisp.action =3D "Activity_Rpt_Inv5.asp?klient=3D<%=3D request.querystring("klient") %>&adviseur=3D<%=3D session("Pers_ID") %>&ActId=3D<%=3D request.querystring("ActId") %>" InvDisp.submit </script> <form action=3D<%=3D varform %> method=3D"post" name=3D"InvDisp"> But they nt working. The code used to go to a page using the scrpit works in the sense that it goes to the pasge,bt the data is nt transferred.=20 please help Tag: Enable Active X Controls Tag: 191153
  - 18
    - Stripping out nested quotes I have a script that processes a csv file using the filesystemobject method - at the moment, I'm reading in a csv, doing a replace function on certain specific characters, then writing the result back to another file. However, I have a problem in that the csv uses quotes as text delimiters, and some fields contain nested quotes - which I need to strip out. The nested quotes are not necessarily at the beginning and end of the strings (such as ""NAME"") - in theory, they could be anywhere (e.g. "NA"ME"). Obviously each field is separated by a comma, and starts and ends with a quote, which is all as expected - I just need to strip out any other quotes within the fields. Does anyone have a script that would do this? Tag: Enable Active X Controls Tag: 191151
  - 19
    - Clear the ReadOnly flag. Hi. I'm a new VBscripter, so probably this my question may be a little stupid. I'm trying to create a simple 'batch' file to copy files from CD to hard-disk. The problem is that the files on hard disk will have the ReadOnly flag set. I tryed the following code (recursive to run on subfolders too), but it don't work. I call it with WSCRIPT. Can someone help me ? Thank You very much. Alberto. ' Main call call VBS_ClearReadOnlyFlag ("C:\FOLDER_EXAMPLE") ' Subroutine Sub VBS_ClearReadOnlyFlag (szFolder) Dim oFolder, oSubFolder, oFiles, f, f1 ' Check if folder exist If (oFS.FolderExists (szFolder) = 0) Then Exit Sub End If Set oFolder = oFS.GetFolder (szFolder) Set oSubFolder = oFolder.SubFolders For Each f in oSubFolder call VBS_ClearReadOnlyFlag (f.Path) Next Set oFiles = oFolder.Files For Each f in oFiles Set f1 = oFS.GetFile (f.Path) f1.Attributes = f1.Attributes - ReadOnly Next End Sub Tag: Enable Active X Controls Tag: 191150
  - 20
    - Access is denied error running vb exe from vbscript after SP2 upgr Hi, Since upgrading to XP SP2 I'm getting an "access is denied" popup error message with the following vbscript code in IE 6: ... xxprt = "c:\inetpub\wwwroot\abc\prtprog.EXE" window.open xxprt .... This worked prior to the SP2 upgrade and the exe works when run from Windows Explorer it just fails via the browser. When I change the path to : xxprt = "http://localhost/abc/prtprog.EXE" it works except it then gets a "File not found 53" vb error for a file that is in the directory. I've had a look at the security updates for SP2 and tried a few things (eg. adding IUSR_ account to all directories and exe,inserting Mark of Web comment) but to no avail. Thanks in Advance, Michael Tag: Enable Active X Controls Tag: 191149
  - 21
    - script for remote desktop I need help with a vbscript to be able to query a fixed list of computers on the network if there are any user logged on thru remote desktop connections and return a result if the computers are logged on or not. As the file and print sharing had been disabled on those computers, so those scripts that I got (using Win32_ComputerSystem etc) are not able to work. Scripts that ping to those computers also doesn't give accurate results, as I'll still get connected results even if no user is log on but the PC is power up. is there any way to do up a vbscript to query like event logs etc for checking if there's any user logged on? Thanks! Tag: Enable Active X Controls Tag: 191142
  - 22
    - WMI & Shutdown Hi, Running a short vbs script that uses the win32shutdown method(?) of the winmgmts win32_operatingsystem object produces the following error: Error: Privilege not held. Code: 80041062 Source SWbemObject Can the privilege be enabled? The operating system is Win2K, SP 4 with the roll up fixes. -- Bill Tag: Enable Active X Controls Tag: 191131
  - 23
    - run on startup script how can i run a batch script on startup under winxp? thank you Tag: Enable Active X Controls Tag: 191129
  - 24
    - Retrieve Parameter from location bar Hi Everybody I have an Access database that passes a Parameter to a web page something like this. http://localhost/index.htm?paramName=1234-54321 I want to be able to retrieve the parameter (In this example 1234-54321) and pass it to a text box on a form. Something like this. <form name="form1" id="form1" method="post" action=""> <input type="text" name="txtinput" value= "Param" /> </form> Any help gratefully received Tag: Enable Active X Controls Tag: 191126
  - 25
    - CreateObject fails in .VBS script file but works in .ASP file ! Hi, I can't instantiate an ActiveX component in a .VBS script file with this code : set myObject = createObject("ChilkatMail2.ChilkatMailMan2") This component is used to send mails and it's really an "ActiveX component". I receive the following error message : "Could not create object named ChilkatMail2.ChilkatMailMan2" Note that if I run this .vbs with Cscript or WScript I receive the same error message. I also tried to create object with this code : set myObject = Wscript.createObject("ChilkatMail2.ChilkatMailMan2") ... the result is the same. But now, if I try exactly the same code in an .ASP page it WORKS !!!!! The only difference is that I use Server.CreateObject (because it's ASP). This means that : - the component is correctly registered (I checked all the entry points with COM explorer) - all the dependencies are present on the system (I think so...) I'm logged on as Administrator, my system is Windows Server 2003 SP1 (x64) I spend two days searching the web and I didn't find the solution, could you please help me ? Thanks a lot !!! Regards Thierry Tag: Enable Active X Controls Tag: 191123
- Next
  - 1
    - obtain external data Hi everyone: is there a way to obtain an external data from a file, let's say Microsoft excel , within a vbscript file ??. I'm asking because I wanna use vbscript to automatize certain function in a R/3 software (SAP), and i have a list of parameters i need to load , but they're saved in an excel file, the file is hughe so i cannot ( don't want to ) manually parse into the script (could be done using inputbox). This is seudo diagram of wath i'm trying to do. retrieve PARAM(1) ----->PARAM(n) from excel file--->[this i down't know] perform a format conversion or another kind of operation -->'//this i can do well paste value loaded from excel into a textbox within the application.->'//also this select some checkboxes and radio buttons'// cool about this programatically click some buttons [ eg: save and close ]->'// this is not a problem : -) i know it is with some createobject() , but i haven't worked before with this so any help would be hot... thank's in advantage. Tag: Enable Active X Controls Tag: 191117
  - 2
    - Run office 2003 SP1 with VBscript Hi, I have just started to get involved in scripting, I am currently working on a script to copy Office 2003 SP1 to a local computer from a server and run it silently. Here is what I have done so far, but it does not seem to be running the install. Can anyone give me a hand, it would be greatly appreciated. Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "\\SERVERNAME\support$\DSS\Temp\Office2003SP1-kb842532-fullfile-enu.exe" , "C:\pkgdirs\", OverwriteExisting Const ALL_USERS = True Set objService = GetObject("winmgmts:") Set objSoftware = objService.Get("Win32_Product") errReturn = objSoftware.Install("c:\pkgdirs\Office2003SP1-kb842532-fullfile-enu.exe /q", , ALL_USERS) Thanks Netace Tag: Enable Active X Controls Tag: 191101
  - 3
    - Set Internet Explorer as the default browser using VBScript I am in the process of automating the removal of an email client that is integrated with Internet Explorer. After I remove the client, the first time the users runs Internet Explorer it displays a message saying that it is not the default browser and would you like to make it the default browser. I would like to set it as the default browser in the VBScript that removes the email client. Is there a way to do this? Thanks Tag: Enable Active X Controls Tag: 191100
  - 4
    - [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Microsoft just released RC1 of PowerShell (formerly monad / Microsoft Shell). DesktopEngineer.com offers training that teaches you PowerShell while leveraging your current skills in scripting. http://DesktopEngineer.com/PowerShellTraining Tag: Enable Active X Controls Tag: 191098
  - 5
    - How long a user has been logged on for... I know this is far from a new question but I am looking for a way to determine how long a user has been logged on to a remote XP/2003 machine (either logged on locally or remotely via RDP). I know how to get who is logged onto a machine both locally and through RDP sessions so I don't need any help there. I've tried a combination of Win32_LogonSession and Win32_LoggedOnUser but that didn't work. I'm aware that when a user logs on to a machine in a AD environment it updates the "lastLogon" property for their account on the domain controller but there must be something stored locally on the machine. I base my previous comment on the fact that when you open the "Terminal Services Manager" mmc snap-in and connect to a remote machine it lists the currently logged on users, their session type (Console or RDP), their state (Active or Disconnected), idle time, and their Logon Time. I've done some looking and have had no luck finding where "Terminal Services Manager" get's its information from. If it were possible to use the information that is uses then you would have the logon times for the individuals logged on to a specific machine and it would be trivial to determine how long they have been logged on once you have that tidbit of information. Anyone have an idea or where "Terminal Services Manager" gets its information from or if you can interface with "Terminal Services Manager" via vbscript? Nate Tag: Enable Active X Controls Tag: 191096
  - 6
    - Why Use Scripting I know here are millions of wonderful uses for automating with scripts (I use login scripts for numerous things) but I have a question regarding the use of scripts to create/delete AD user accounts. All of the scripts I have seen are really plain and simply create a domain account with no properties set. Not even the full name. It seems pointless to use a script like this as I still have to edit the account properties and fill in the blanks. I've also seen none that will create the associated Exchange mailbox. Since we perform a number of tweaks to a new account I had hoped to use scripting to make is simpler and more consistent. I must be missing something. I would envision a script that sets all the default properties for an account (i.e. disables terminal services) and prompts for input like Full Name, Ext, Fax, etc... as well as creating the Exchange mailbox. Is this too complex or am I not finding these scripts in my search of the web? Comments are much appreciated Tag: Enable Active X Controls Tag: 191095
  - 7
    - Enum stale computer accounts? Hello, Anyone have a quick vbScript that will enumerate AD for "stale" computer accounts?? Thanks, Troy Tag: Enable Active X Controls Tag: 191094
  - 8
    - Excel Application.DDEInitiate fails if invoked from VBScript Hi all, I am very new to VBScripting. I have the following situation, I hope someone could help me out. I have to write the code in VBScript to invoke a macro in Excel, which is available as an XLA file. It has to be a VBScript, since a different program decides which macro should be invoked. It would then generate this VBScript file. The user could then download this VBScript and execute on his computer. All the XLA-macros are making some DDE requests, or opening other Workbooks. If I run the macros from VBA, or Excel, they work fine. But if I try to execute the macros from VBScript: * The DDEInitiate() function in the macro returns "0". * Workbooks.open(....) returns "Nothing". - Is there a way to solve these problems ? - Is there a better way to acheive the same solution ? Any help would be greatly appreciated. I use the following VB Script to open an XLA and execute a macro. Dim objxl, xlapath, macro Set objxl = CreateObject("Excel.Application") xlapath = "C:\myxla.xla" macro="myxla.xla!macro1(""param1"",""param2"")" With objxl .Visible = True .Workbooks.Open xlapath .Workbooks("myxla.xla").RunAutoMacros 1 'xlAutoOpen .Run macro End With Within the xla-macro, I try to open another workbook. Public Sub macro1(param1 As String, param2 As String) Dim wb As Workbook Dim url As String url = "http://localhost/test.csv" Debug.Print "Attempting to open : " & url Set wb = Workbooks.Open(Filename:=url, UpdateLinks:=False, ReadOnly:=True, Editable:=False, AddToMru:=False, Format:=1) If wb Is Nothing Then Debug.Print "Could not open the page: " & url else Debug.Print "Successfully opened : " & url End If End Sub Public Sub macro2(service As String, topic As String, request as String) channel = Application.DDEInitiate(service, topic) If channel > 0 Then result = Application.DDERequest(channel, request) Debug.Print "Result of DDE Request: " & TypeName(result) & " Channel: " & channel Application.DDETerminate (channel) Else Debug.Print "DDE failed to initialize." End If End Sub Thanks in advance. Tag: Enable Active X Controls Tag: 191093
  - 9
    - Remote Desktop Hi all, can i enable the "remote desktop" in windows xp sp2 using a script ? Thanks. Tag: Enable Active X Controls Tag: 191090
  - 10
    - SHINBAUM OR ANYONE... Hi Shinbaum or Anyone... Can you help to create a function to destroy connection as Shinbaum sad?? http://groups.google.com.br/group/microsoft.public.scripting.vbscript/browse_thread/thread/a9f48bef34fa6725/?hl=pt-BR# Please look this topic... Tag: Enable Active X Controls Tag: 191089
  - 11
    - windows 2000 server event log query I am looking for a solution to check the event logs over the last 24 hrs for specific events on a windows 2000 server can anyone help ? Tag: Enable Active X Controls Tag: 191088
  - 12
    - How to verify if a number if an integer? I need to write a function that when receive a number "x" is able to undestand if this number is multiple of 3 How can I do? I hoped that exists a math function to do so but.... Thanks Tag: Enable Active X Controls Tag: 191086
  - 13
    - call macro Hello guys, How can execute open a macro in from vbscript, I wrote this but doesn't not work objExcel.run objWkb.name &"!"&"getfunctioncitrix.workbook_open" ina Tag: Enable Active X Controls Tag: 191080
  - 14
    - Getting domain information from a machine not in the domain.. Essentially I am trying to come up with a more universal mapping/logon script - even for the laptop users who may be running a script to connect to their domain resources on occasion. The trouble so far has been that all the scripts I have done to check for domain membership and the likes, fail miserably when ran on a machine outside of the domain (not joined to the domain.) I assumed this was because the scripts, unless told, would be trying to communicate with the domain using local credentials - which would undoubtedly fail. In my research I came across a few pages mentioning this, including: http://www.rlmueller.net/NameTranslateFAQ.htm and http://www.scriptinganswers.com/Community/DiscussionForums/tabid/154/view/topic/forumid/6/postid/4108/Default.aspx However - implementing/testing those still gives me the dreaded: "The specified domain either does not exist or could not be contacted" "Code: 8007054B" And I am positive the credentials are correct - am positive that I can contact the domain - as I am actually VPN'd into the network at the time and a simple \\domain.com\netlogon at the run prompt (subbing in my actual domain of course) works as expected and asks me for the username/password. I've verified DNS settings, verified everything I can think of is correct. I am likely missing something simple - and I would love if someone here could point out the thing I am missing.. The examples of the code I am using can be found on the pages above (as they will give the same error as my larger script.) -- Shenan Stanley -- Tag: Enable Active X Controls Tag: 191066
  - 15
    - retrieve HTML from a website using VBScript I need help for creating a VBScript that can retrieve HTML from a given web site (perhaps typing the URL in an Inputbox) and the store that in my local computer.(the HTML) Any Idea? Thanks Tag: Enable Active X Controls Tag: 191064
  - 16
    - Querying MSDE ISA Logs I want to create customize reports on ISAS 2004. How can I query the MSDE database? Need help on this. Tag: Enable Active X Controls Tag: 191058
  - 17
    - Re: Querying MSDE ISA Logs sorry. posted on the wrong group. please disregard "M P" <mark@textguru.ph> wrote in message news:... > I want to create customize reports on ISAS 2004. How can I query the MSDE > database? Need help on this. > Tag: Enable Active X Controls Tag: 191057
  - 18
    - Folder Deletion Query Problem I hope someone can tell me where I am missing a step. I am trying to delete local profiles stored in Documents and Settings that do not match the last user to logon to a worksation. I can parse the user and the profile path fine, but when I want the script to delete all folders that do not match the criteria from the Documents and settings ROOT, it wants to delete all folders (including c:\) that does not match my "c:\documents and settings\SomeonesProfiles" string. I obviously don't want to do this. here is my code. Any help or guidance is appreciated. Thanks Mario Set fso = CreateObject("Scripting.FileSystemObject") Set ProfileLog = fso.OPenTextFile("c:\temp\Profile.log",8,true) Set TestLog = fso.OpenTextFile("c:\temp\Test.Log",8,True) '******************************************************************** '* DECLARE VARIABLES * '******************************************************************** strComputer = "." strDate = "20060501000000.000000-420" '******************************************************************** '* End Variable Declarations * '******************************************************************** '******************************************************************** '* Query Local Security Event log for Successful logon to * '* workstation * '******************************************************************** Set objWMIService = GetObject("winmgmts:{(Security)}\\" & strComputer & "\root\cimv2") Set colEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where Logfile = 'Security' and " _ & "EventCode = '528'") '******************************************************************** '* Once found, DO these actions if meets date and logon criteria * '* Parses User Identity from scif\scifid1 * '* Queries Local Directory Service for instances matching Document * '* and Settings\SCIFID1 * '******************************************************************** For Each objEvent in colEvents If objEvent.InsertionStrings(3) = 2 Then If objEvent.TimeWritten > strDate Then UserID = objEvent.User SCIFID = Split(UserID,"\") ProfileID = SCIFID(1) Wscript.Echo ProfileID Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"_ & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("SELECT * from Win32_Directory WHERE Name <> 'C:\\Documents and Settings\\%" & ProfileID & "'") For Each objFolder in colFolders Wscript.Echo objFolder.Name & " will be deleted" Next End If End If ' Exit For Next Tag: Enable Active X Controls Tag: 191056
  - 19
    - scripting vss (check in, check out) from vba (instead of batch files) Is there a way to communicate with VSS from commands in vb or vba to * find out if a file exists in vss * find out if a file is checked out already * check a file out * check a file in * add a file * etc. ? I know you can generate bat files do do some of this stuff, for instance set path=c:\program files\microsoft visual studio\common\vss\win32 set ssuser=myusername set ssdir=\\myserver\vss\ ss cp $/myproject/mysubfolder ss.exe checkout myfile.vb ss.exe checkout myfile2.vb ss.exe checkin myfile.vb ss status myfile2.vb ss add myfile3.vb etc. but is there a way to issue these commands directly from VBA without having to script out a batch file and resort to shell? Furthermore, how do you get back status of some of these commands? For instance, "ss status myfile3.vb" might return "myfile3.vb myuser Exc 5/04/06 5:11p c:\myproject\mysubfolder" if the file is checked out. "No checked out files found." if the file is in VSS but not checked out "myfile3.vb is not an existing filename or project" if the file is not yet in VSS. At the very least we would need the batch file to generate some kind of output file that VB or VBA code can later read to see if the command went through (kludgey at best), but from the command box if I try to pipe a command to an output file, like ss status myfile2.vb > c:\myfile2_status.txt an empty file gets created (it works for a simple DIR command however) Is there any good example of vb directly sending commands to vss and getting back status messages? Any help appreciated... Tag: Enable Active X Controls Tag: 191054
  - 20
    - Debugging VBscript in embedded browsers I know how to debug a vbscript running in an HTML page being displayed in Internet Explorer. But what if IE is not stand alone, bur rather it is embedded in another application? When the script hits an error, all I get is an error notification, but not the option to open the debugger. Is there a setting I, as the end user, can change in the embedded browser, or is it up to the application developer to allow this? Thanks! Carlos Tag: Enable Active X Controls Tag: 191051
  - 21
    - Pre-setting print driver options Trying to set up a USB label printer through a Citrix session to a 2003 terminal server. I need to preset default form-to-tray assignment, the paper size, print density, and also write the printer name to an INI file. The problem: the printer name changes each time you log on. The name that MS creates for this is nasty - and example is "lp (on SOT5912) in session 39" The part "SOT5912" is the machine name, should be static for each station, but the session number, "39", changes EVERY time you log onto the server. I've tried "setprinter", but it doesn't have the proper settings and switches for my needs. I know it is not too hard to get the printer name - search for one that starts with characters "lp (on ", and use it. Presetting the needed driver settings is the real pain. I found the registry settings that need to be changed, but I need help. The setting that needs to be changed or inserted is in HKEY_CURRENT_USER\Printers\DevModePerUser and HKEY_CURRENT_USER\Printers\DevModes2. The name for the binary vaue is the printer name, it's the binary data needed that is my main problem. Here is an example, truncated at line 11 - the rest is all nuls, like the last line: [HKEY_CURRENT_USER\Printers\DevModePerUser] "lp (from SIS5029) in session 5"=hex:6c,00,70,00,20,00,28,00,66,00,72,00,6f,00,\ 6d,00,20,00,53,00,49,00,53,00,35,00,30,00,32,00,39,00,29,00,20,00,69,00,6e,\ 00,20,00,73,00,65,00,73,00,73,00,69,00,6f,00,6e,00,20,00,35,00,00,00,00,00,\ 01,04,00,05,dc,00,34,02,43,ef,81,07,01,00,c9,00,79,03,16,01,64,00,01,00,0f,\ 00,2c,01,01,00,01,00,2c,01,02,00,01,00,33,00,30,00,32,00,35,00,36,00,20,00,\ 53,00,68,00,69,00,70,00,70,00,69,00,6e,00,67,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,01,\ 00,00,00,02,00,00,00,01,01,00,00,ff,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,44,49,4e,55,22,00,00,00,34,02,00,00,3c,61,11,dc,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ The hex data up to the 20th character on line 3 (0x35) is the printer name, truncated at 30 characters, and separated by 00. The rest of the data is static, and represents the needed printer settings. Anyone work with something like this before? My thoughts, I need a script to pull the appropriate printer name, create the hex data from the name with the 00 between letters, add the rest of the string as a pre-defined string, write the 2 needed registry entries. I have another registry entry to add to, but if I can get help with this hex entry, the rest of what I need will be EASY. Been working too long on this, trying to find the needed areas in the registry and verifying what was needed. Can someone help with the script? Thanks Randy Reimers Tag: Enable Active X Controls Tag: 191047
  - 22
    - Group Member listing. I am trying to list out members of group which contains members from another forest that we have established at trust with. The problem is that the members from the other forest only show up in the output as their SID identifier. Is it possible to pull a display name from another forest using a only a users SID? Tag: Enable Active X Controls Tag: 191045
  - 23
    - Scripting.filesystemobject Issues on Windows 2003 I have an administrative script running on a 2003 Server. The script runs with backup operator permissions, and calls the scripting.filesystemobject. This used to work no problem, but at some point stopped working. (could be patch related?) Anywho, the error it through is on the line: set fs = CreateObject("Scripting.FileSystemObject") and the error is "ActiveX component can't create object: 'Scripting.FileSystemObject'" Code: 800A01AD I checked the permissions on scrrun.dll, and auehtenticated users have read and execute. Also, I reinstalled WSH 5.6 for Windows 2003. Any ideas what is happening to cause this issue? Tag: Enable Active X Controls Tag: 191044
  - 24
    - Editing the Local Group Policy Hi, Can anyone refer me to some resources that show how to edit the "Local Group Policy" ( gpedit.msc). Basically I need to add a startup script e.g. Local Computer Policy > Computer Configuration > Windows Settings > Scripts(Startup/Shutdown). Or are there other command line utilities that can do this? Thanks, Tag: Enable Active X Controls Tag: 191041
  - 25
    - Using netsh command I'm unable to use the following script as it produces errors: oShell.Run("cmd /c" ("netsh interface ip set wins name=" local area connection "source=static addr=10.186.157.11") Any ideas on how to format this to use the netsh command? Tag: Enable Active X Controls Tag: 191040

Hi Guys,

I have a need for a script to enable active x controls for all trusted
sites in IE. I have searched the forum and i've come up with this:

http://www.codecomments.com/message241814.html

I'm totaly new to VB and i was hoping someone would have the sort of
script that i need.

Thanks
HoinK

--
HoinK
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------

Top