User Account

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
    - script works in win2000 but not in win2003 I have an ASP script that calls a VBSCRIPT and it works fine in Windows 2000 but not on my new Windows 2003 server. Both servers are version 5.6 scripting The error in IE is "Automation server can't create object" Some of the code in my ASP file.... var shell = new ActiveXObject("WScript.shell") shell.run("wscript \\\\sub.domain.com\script.vbs" .....etc Tag: User Account Tag: 165112
  - 2
    - who started script? How can you tell if a script (vbs) was started by a user or by scheduled task and no user logged on? If a user starts it someway I want to write to a message box. If no one is logged on and task scheduler started it I want to write to a log file. thanks ljb Tag: User Account Tag: 165109
  - 3
    - WBEM_FLAG_USE_AMENDED_QUALIFIERS I have a bit of VB code I took from the Microsoft Technet Scripting resource site as follows: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Security)}!\\" & _ strComputer & "\root\cimv2") Set colLogFiles = objWMIService.ExecQuery _ ("Select * from Win32_NTEventLogFile") For each objLogfile in colLogFiles strLogFileName = objLogfile.Name Set wmiSWbemObject = GetObject _ ("winmgmts:{impersonationLevel=Impersonate}!\\.\root\cimv2:" _ & "Win32_NTEventlogFile.Name='" & strLogFileName & "'") wmiSWbemObject.MaxFileSize = 2500000000 wmiSWbemObject.OverwriteOutdated = 14 wmiSWbemObject.Put_ Next and found it errors upon running with the following error message, "an amended object cannot be put unless WBEM_FLAG_USE_AMENDED_QUALIFIERS is specified"..... how do I get around this? I've checked on the MSDN site fo help but it all goes a little over my head!!!. Please can any clever person help? Philip Tag: User Account Tag: 165103
  - 4
    - what setting do I need to set the proxy in internet explorer Hi, I am have trouble following MSoft website. I want to right a script so I can change the proxy setting to be on or off and then set the proxy to a server and set the port. I have downloaded the script from the scripting guys. I can list the information but can not find information on the msdn website to tell me what I set the proxyserver to. can tell me or guide me where to look Tag: User Account Tag: 165100
  - 5
    - Calling server side Sub from link Is it at all possible to call a Server Side VBScript Sub from a link? I've got a link (an image) to download an application and when the user clicks the image I want to call a Sub which will record the activity in a database. I know that if it is possible it's not going to be straight forward! Any ideas on how I can do it? Thanks, Carolyn Tag: User Account Tag: 165098
  - 6
    - VBScript: How to hide the mouse-Cursor Hi excuse me, probably a very simple thing, but I am new to VBScript: During a Script-controlled presentation I'd like to hide the mouse cursor. Which is the sacred command? Thanks Rupert Tag: User Account Tag: 165096
  - 7
    - Defrag Script Problem I have downloaded the defrag.vbs script from MS Script Center. It defrags the drive OK but doesn't close the application. Instead the script gets stuck in a loop during:- While WshShell.AppActivate("Defragmentation Complete") = FALSE wscript.sleep 5000 Wend At the end of the defrag a dialog box comes up but is not recognised by the script:- Disk Fragmenter Defragmentation is complete for: (drive:) Does anyone know how to sort this problem? I have tried changing "Defragmentation Complete" but without success. Also, I would like to defrag all drives before closing. Can I just use sendkeys to move the focus in a loop to the next drive and repeat the process once the problem above is sorted? Thanks Andrew 'This script launches defrag and sends keys to the UI in order to automate the defrag 'process. set WshShell = CreateObject("WScript.Shell") 'Launch Defrag from the command line and wait for a second WshShell.Run "dfrg.msc" WScript.Sleep 1000 'Wait until the application has loaded - Check every second While WshShell.AppActivate("Disk Defragmenter") = FALSE wscript.sleep 1000 Wend 'Bring the application to the foreground WshShell.AppActivate "Disk Defragmenter" WScript.Sleep 200 'Send an ALT-A key to bring down the degrag menu WshShell.SendKeys "%A" WScript.Sleep 200 'Send a D to start the defrag WshShell.SendKeys "D" '*****THE SCRIPT FAILS DURING THE NEXT BLOCK***** 'Wait until the defrag is completed - Check for window every 5 seconds While WshShell.AppActivate("Defragmentation Complete") = FALSE wscript.sleep 5000 '*****THE SCRIPT GETS STUCK IN A LOOP HERE***** Wend '*****THE SCRIPT DOESN'T GET TO HERE***** 'Bring the msgbox to the foreground WshShell.AppActivate "Defragmentation Complete" WScript.Sleep 200 'Send a tab key to move the focus from View Report button to the Close Button WshShell.Sendkeys "{TAB}" Wscript.Sleep 500 'Send key to Close the Defragmentation Complete window WshShell.Sendkeys "{ENTER}" Wscript.Sleep 500 'Send and ALT-F4 to Close the Defrag program WshShell.Sendkeys "%{F4}" Tag: User Account Tag: 165095
  - 8
    - VBScript, ASP, and Active Directory We are trying to use vbscript in a .asp page to authenicate a user in our Active Directory. The following works correctly against our main domain. Both the user name and password is validated properly. strADsPath=WinNT://domain.com strUser =domain.com\j5c Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strUser, strPassword, 0) Hereâ??s where the issue is, we have a separate domain for each site. Users at each site are in the site domain and not in the main domain. For example, the site domain is called ada.domain.com on server ada-admin1. I have a user account with j5c as the username in both the ada.domain.com and domain.com domains. The following will find the j5c user but I can put anything in for the password. It finds j5c in the main domain, domain.com based on writing out the values I put in the description field on the j5c account in both domains. The return code is always 0 with a correct user name and any password. strADsPath =WinNT://ada.domain.com/ada-admin1 strUser =ada.domain.com\j5c Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strUser, strPassword, 0) If I donâ??t include the server name, ada-admin1, in strADsPath =WinNT://ada.domain.com/ada-admin1, it does find the ada.domain.com domain. Iâ??m not sure if the issue is the way we have Active Directory set up or the syntax for pointing to the site domains. Tag: User Account Tag: 165086
  - 9
    - Regular Expression Validator Does anyone here use the vb script regular expression validator ?? how do you grab text between "(" and ")" with it. Im used to perl I've tried /[(](.*?)[)]/ /((.*?)/) to no avail... what am i doing wrong ? i.e with text "(3) (4)" i would like to get "3" and "4" Tag: User Account Tag: 165079
  - 10
    - finding a URL in dynamically written html I have a site that does a Response.Write() to create a table of contents from an XML transformation. This happens each time a page is served up. The system works fine, but I would like to find the anchor in the HTML table of contents that matches the current page and change its class. Obviously, I could do that with a client-side script, but I'd much rather do that in ASP/vbscript. Is there a way for vbscript to do that? I can't even get a test script to find the id of the root. I've placed the script immediatly after the script that does the transform. Jeff Tag: User Account Tag: 165075
  - 11
    - logon script does not work anymore after applying SP2 Hello all, SP2 was applied to our XP PRO workstation. As a result, our logon script does not work any longer. Such script used to show a small IE window indicating the current logon process status. It seems that properties such title and scrollbar are no longer supported. I don't have the script at hand right now but I'll post it tomorrow. I can't believe we are the only ones noticing this problem. Thank you very much, Bye Bar Tag: User Account Tag: 165074
  - 12
    - Processing a variable list of input parameters Greetings, I am trying to write a VB script that must check some drives (e.g. disk space). It must be called: check_drive.vbs drive1 drive2 ... driven How can a I process a variable number of args (drive1 to n)? I have tried something like: ... Set oArgs = WScript.Arguments Set WshShell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Counter = oArgs.Count Do drive = oArgs(Counter) ' Does not work. PROBLEM!!! MsgBox "Message: Drive is " &drive Set Drv = fso.GetDrive(fso.GetDriveName(drive)) ... Counter = Counter - 1 If (Counter = 0) Then ' All parameters were proceded Check = False ' set value of flag to False. End If Loop Until Check = False Any help/suggestion is highly appreciated. Thanks in advance for your help, Kind Regards, Rui Vilao. Tag: User Account Tag: 165069
  - 13
    - Writing extended file info into jpg I recently learned how to read extended file info in this ng (subject: Getting extended File infos of a File). Now how would I update/write this information with vbscript? I have hundreds of images without descriptions. In a database I currently have all my descriptions, subjects, keywords and photo dates. I don't need help with the database part just how to write the properties if it is at all possible. thanks LJB Tag: User Account Tag: 165065
  - 14
    - Need script to replace ACL. Please Help! :( I have been searching to find a solution to my problem. Basically I need a script that replaces permissions based on the permissions. Example: I want all user who have "Full Control" to be changed to "Modify". I have inherited a share drive with thousands of folders and groups. The people who set the permissions had the right intentions they just set them incorrectly. I appreciate anyone's help. Please let me know if this is in the wrong group. Or, if you know of any other group that may be able to address this issue. Thanks, Ian Tag: User Account Tag: 165064
  - 15
    - Scripting IE Title Problem I have installed SP2 on my XP machine and I also downloaded and installed the WSH 5.6 upgrade. No problems at all! However, it took me awhile to notice that my VB scripts that use IE to display menus have a quirk: when I set the title in the html and do a 'write' operation that the displayed window now has "http://" prefixing my desired title. How do I get rid of the "http://" prefix in the title bar? Thanks in advance... Dick Sutton Tag: User Account Tag: 165059
  - 16
    - How can I maximize window with VBScript? subj Tag: User Account Tag: 165058
  - 17
    - Loading Video on a WebPage. Friends, Any Idea how to load a Video Media on a WebPages. I mean I want the video to play in the web page. Any help is appreciated. TIA -- Santosh Tag: User Account Tag: 165057
  - 18
    - MS Access Report with VBScript I am trying to preview an MS Access report using a client-side VBScript. When I execute the code below, it always prints the report to the default printer, regardless of the view mode selected. I want to be able to either preview the report or save a copy and view it in the default viewer. It appears to be ignoring all of the parameters after the report name. I've also tried saving a copy of the report as a snapshot file using: .OutputTo acOutputReport, "ProjectStats" , acFormatSNP, "D:\snapfiles\test.snp", True but am continually prompted with an "Output to " dialog. <script language=vbscript> Function RunReport (qry, sp, list) Dim oAccess Set oAccess = CreateObject("Access.Application") oAccess.Visible = False oAccess.OpenCurrentDatabase "D:/msp_xp2.mdb" With oAccess.DoCmd .OpenReport "ProjectStats",acViewPreview .close end with End Function </script> Any help is greatly appreciated. Tag: User Account Tag: 165054
  - 19
    - Running VBScript in Outlook 2003 Hi, System Details: Windows XP Professional SP2, Outlook 2003 SP1, IE6 SP2. I have a Java appliaction that constructs a HTML Email and sends it to a mail client. In the HTML Email I have embeded some VBSCRIPT which is called via the ONCLICK event of an <A> tag. In the VBScript I create an XML document then mail it via the Outlook API. On Win2K and Outlook 2000 this worked fine but now, when I click the link in Outlook 2003, nothing happens (no "Cannot Create ActiveX" messages either) !!! I have tried putting the message into the Internet zone (with low security) and the same occurred. I replaced my script with a simple message box call and this never activates either. I've even tried the "One-off-form" registry hack, again to no avail. If I load the sent HTML into a browser it works OK so I am sure the syntax is right. Here is an example of the link and script... <a style="cursor:hand;color:green;text-decoration:underline" onclick="OpenNewMail('test','test')">OK</a> <SCRIPT LANGUAGE="VBSCRIPT"> Sub OpenNewMail(strAddress, strSubjectLine) MsgBox "In OpenNewMail" End Sub </SCRIPT> Can anyone suggest how I can get vbscript to work in a HTML email in Outlook 2003 (has anyone got it to work!)? Is there some sort of new METADATA setting to make the HTML Outlook 2003 friendly perhaps? Any help would be massively appreciated as this is driving me barmy! Cheers sanx Tag: User Account Tag: 165053
  - 20
    - disable IPX without visiting every desk! Hi all. I have seen info on how to set a couple of IPX settings via script, but I cannot figure out how to disable the protocol altogether. Anyone tackle this? Hat to visit each desktop... Tag: User Account Tag: 165048
  - 21
    - Update Windows 2000 registery: Internet Settings: LAN Settings: Automatic Configuration I want to write a simple .VBS file that will change my LAN settings. In my Windows 2000, if I go to Internet Settings >> Connections >> LAN Settings, there is a section in the window called Automatic Configuration. There are two tick boxes: (1) Automatically Detect Settings (2) Use Automatic Configuration Script For some sites, I need only the first tick box checked. For some sites, I need only the second tick box checked. I never need both checked at once, or both unchecked at once. I want to write one VBS file that will check #1. And then a second VBS file to check #2. I was thinking I could use something similar to the following code: Dim WSHShell, RegLocate, RegLocate1 Set WSHShell = WScript.CreateObject("WScript.Shell") On Error Resume Next RegLocate = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\ProxyByPass" WSHShell.RegWrite RegLocate,"0","REG_DWORD" WScript.Quit ...but I can't find the correct registry item to update. Anybody have any clues? Tag: User Account Tag: 165047
  - 22
    - Select SQL money field incorrect large negative values A production application using VBScript and SQL Server 2000 formats incorrect value for a selected money field. Values between -200,000,000,000 and -455,000,000,000 are displayed incorrectly using formatcurrency. The values are correct in the database. The application works correctly in Windows 2000 but fails in Windows Server 2003. app code: ... strQry = "SELECT fielda, fieldb, amt, ...., Set rsFACTS = oFACTS.Execute(strQry) ... intAmtSGL = rsFACTS("amt") ... %><td width="21%" align="right" ><%=formatcurrency(intAmtSGL)%></td><% ... Field amt = -216556000000 - - ok in database (Viewed via Enterprise Manager) Displays as $36,376,018,631.48 If for example, I update DB with amt = -255000000000 it displays as $29,820,018,631.48 ??? -- Kent Smith Tag: User Account Tag: 165044
  - 23
    - Unbind F&P and Client for MS from all adapters via VBS? I'm looking for a VBS script that will unbind (not un-install) File and Printer sharing, along with Client for Microsoft Networks on all adapters when run under both W2K and XPP? Can anyone help me out here? Thanks dcc Tag: User Account Tag: 165043
  - 24
    - how run as program with different account (at least not current account) i search it via google a guy open a cmd shell and use "runas" to do this work but he use sendkey ,and i find some time ,the windows cant get focus so failed Tag: User Account Tag: 165037
  - 25
    - Count Physical Processors: Exclude Hyperthreading..? Hi there I am currently using the following code snippet to retrieve the number of processors installed on my servers: Set objWMI = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strSrv & "\root\cimv2") Set colSettings = objWMI.ExecQuery _ ("Select Name, MaxClockSpeed from Win32_Processor") For Each objProcessor in colSettings Wscript.Echo strSrv & "," & colSettings.Count & "," & TRIM(objProcessor.Name) 'Wscript.Echo "MaxClockSpeed: " & objProcessor.MaxClockSpeed Exit For Next The problem with this, is that if a Server has Hyperthreading enabled, it reports twice the actual number of physicall processors. Does anyone perhaps know how I can establish whether Hyperthreading is enabled, so then at least I can divide by 2 to get the actual count. Or alternatively, is there a different object that I can query for this..? Thanks William R. Tag: User Account Tag: 165025
- Next
  - 1
    - Problem with makecert.exe Hi! I downloaded Ms Platform SDK (for Windows XP SP2 SDK) from http://www.microsoft.com/msdownload/platformsdk/sdkupdate/ I follow the steps mentioned (in the group microsoft.public.dotnet.framework.webservices.enhancements) by Hervey, I get stuck in step 1. When I do: makecert -cy authority -r -n "CN=Test Company" -sr localmachine -ss "Trust" I get an error: Error: Can't create the key of the subject ('JoeSoft') Failed I cannot figure out how to solve this error. Please help me! I have installed/uninstalled SDK a couple of times now thinking it may be an installation problem. Thanks Ipsita Tag: User Account Tag: 165022
  - 2
    - Adding checkbox IF I create checkBox dynamically: Set TD = TR.InsertCell() TD.innerHtml="<INPUT type='checkbox' id='chkNujno"&indeks&"' name='chkNujno"&indeks&"'> When the page is submitted I can't read this checkbox, no matter if checkbox is checked or not. If I create the textbox dynamically: Set TD = TR.InsertCell() TD.innerHtml="<INPUT type='text' style='width:80;TEXT-ALIGN: right' id='kolicinaMax"&indeks&"' name='kolicinaMax"&indeks&"' readonly>" OR anything else, everything works. I can read this textbox on page submit. Why? I can't find the solution. Is this some kind of bug? Thank you, Simon Tag: User Account Tag: 165021
  - 3
    - Message Box activation Hi, I have written a VBScript that uses Send Keys to automate an application. The application dials out to download files and this process of dialing out is initiated within the application. The issue I am having is that the modem occationally fails to dail out and as a result of this there is a message box which pops up resulting in the rest of send keys keystrokes going crazy. Is there a solution in VB which will check the activation of this message box once the send keys initiate the modem dialup and keep looping till around 5 min which will be the max time the modem will take to dialout. I need to add error handling so that only on the apperance of this message box which will indicate the failure of the modem to dailout will the Enter sendkey will be sent and the whole routine restarted.. Const iNormalFocus = 1 Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run "FINAL.EXE",iNormalFocus Wscript.Sleep 10000 objShell.SendKeys "" objShell.SendKeys "{TAB}" objShell.SendKeys "" objShell.SendKeys "~" Wscript.Sleep 1000 objShell.SendKeys "%"+"R" objShell.SendKeys "D" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "R" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "S" #This is were the modem connection is initiated Wscript.Sleep 350000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" objShell.SendKeys "%"+"R" objShell.SendKeys "R" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "E" objShell.SendKeys "~" Wscript.Sleep 100 objShell.SendKeys "%"+"A" objShell.SendKeys "%"+"F" objShell.SendKeys "E" Wscript.Sleep 100 objShell.SendKeys "{DEL}" objShell.SendKeys "l" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "{TAB}" objShell.SendKeys "~" Wscript.Sleep 1000 objShell.SendKeys "~" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" Wscript.Sleep 1000 objShell.SendKeys "%"+"F" objShell.SendKeys "X" Wscript.Sleep 10000 xor Tag: User Account Tag: 165015
  - 4
    - MSScriptControl.ScriptControl I have the next code: Dim Script As Object = CreateObject("MSScriptControl.ScriptControl") I've run this application in WinXP and it works normally, but if I run the application in Win98, the next error comes out: ActiveX component can't create object I've already instaled Windows Script Control in the computer but it didn't work What can I do? Thanks Alejandra Mexico Tag: User Account Tag: 165005
  - 5
    - Execution Problem Hello I have this line in my code: objShell.Run("psexec \\hostx.domain.com -s -u hostx -p hostxpass diruse /s /m /* " & "d:\root\" & " > " & "d:\root\will\test.txt") If I echo the command out, and just copy and paste it into a command prompt, the script executes as expected. However, if I run it using the above code, the command executes fine BUT it does not pipe it out into a file. To double check, I made sure the program ran a longtime, and in the title bar it said \\hostx.domain.com -s -u hostx -p hostxpass diruse /s /m /* d:\root\ > d:\root\will\test.txt Does anybody have any idea why the pipe out is working if I execute it from the command prompt, but not from the Run method? Tag: User Account Tag: 165004
  - 6
    - ANN: Freeware scripting component: PassDlg 2.2 PassDlg.dll 2.2 PassDlg.dll is a freeware ActiveX DLL component for use in programs or scripts that can display four different types of simple password-input dialog boxes. It is useful for WSH scripts that need to request password information. New in version 2.2 is the ability to change the maximum password length, and the default length is now 127 characters. Site: http://home.comcast.net/~stewartb/passdlg/ License: Freeware, no restrictions. Hope this is useful. Regards, Bill Tag: User Account Tag: 165000
  - 7
    - Bridged network adapters Has anyone had success scripting the detection of bridged network adapters on WinXP / Win2K? Something equivalent to viewing the properties of the MAC Bridge Miniport device that is created when you bridge two connections. For example, I would like to determine whether a given machine has bridged an active wireless network adapter with an active ethernet adapter. regards, graham Tag: User Account Tag: 164998
  - 8
    - Scheduled Tasks in Windows Does anybody know how to get the "Last Result" property of a scheduled task in Windows from a VBscript? I assume this would have something to do with WMI? Tag: User Account Tag: 164997
  - 9
    - Starting a local script on remote machine The necessity to install XP-SP2 in a distributed fashion has led me to this quandry. First I could use a login script, but with more than 700 simultaneous connections to one shared drive I feel loading the SP would implode the server. I tried Group Policy Software installation, but it has proven only 20% effective because on quite a lot of the machines (I've got a specific OU dedicated for the SP2 install set at the computer level) don't take it and shows: source Userenv event 1085 User NT Authority\System Group Policy client side extension software installationfailed to execute & Application Manager 108 same user Failed to apply changes to software install So I've been looking for a scripting idea. Now running the below script on a XP sp2 box logged in as Domain Admin to tell another XP box merely to open notepad. Comes back with: ActiveX component can't create object 800A01AD MS VBS runtime error. set oController = CreateObject("WSHController") set oProcess = oController.CreateScript ("c:\notepad.vbs", "ADMWXPBilingual") oProcess.Execute While oProcess.Status <> 2 WScript.Sleep 100 WEnd WScript.Echo "Done" The above computer has the remote setting in the reg, the notepad.vbs works if I run it locally I'm not finding a solution on the internet. Does anyone have any good suggestions, or ideas for deployment products that work? Many thanks Hunter Tag: User Account Tag: 164996
  - 10
    - Help With Checkboxes Hi all, I have the following code to use checkboxes on my page: if instr(Request.form("chkWorkType"),"03") then response.write("<td width=""23%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""03"" checked=""check"">Exterior</td>") else response.write("<td width=""23%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""03"">Exterior</td>") end if if instr(Request.form("chkWorkType"),"7A") then response.write("<td width=""25%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""7A"" checked=""check"">Ceilings</td>") else response.write("<td width=""25%"" class=""detaillp""><input type=""checkbox"" name=""chkWorkType"" value=""7A"">Ceilings</td>") end if There are 14 checkboxes on the form, I only showed the code for two, but the remainder of them are coded the same way. I am trying have one or more of the boxes checked when the page is displayed. I tried to put a value or two in the chkWorkType field: chkWorkType= oRS.fields("shty1") & oRS.fields("shty2") & oRS.fields("shty3") But when I reach the code to display the checkboxes, the chkWorkField returns an empty string. How can I pre-check some of the boxes? Thanks, George *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: User Account Tag: 164995
  - 11
    - services.vbs Guys, im looking for the services.vbs file that ive seen mentioned on some articles as I want to manage some services. can anybody let me know where I can download it from ? Or post it to this NG? Many thanks, Bill5ter Tag: User Account Tag: 164984
  - 12
    - Error Handling with Creating AD Users Hi guys, I'm having some troubles trying to use error handling in my vbscript. My script is to create users in Active Directory, and I want to catch errors like "object already exists" so I can dump a list of users that couldn't be created and so on. The way I've tried to do error handling is basically with an If statement that tests if Err.number <> 0. The problem is that it doesn't catch any of the errors... For example, say I try to create a user for the second time, so that I know it already exists. If I run the script (without "On Error Resume Next") in a command prompt, I get the output something like "C:\createusers.vbs (132, 2) (null): The object already exists." If I run it with "On Error Resume Next" the script just runs to completion without my error handling code being triggered at all. Here's the code. The error is for line 132, indicated. set objUser = parent.create("user", "cn=" & strUser) 132-> objUser.setinfo If Err.Number <> 0 Then Err.Clear Wscript.Echo "User " & strUser & " cannot be created" Wscript.Echo "User may already exist" End If It seems to me that the problem is that these errors have an Err.number of (null). Is that right? Why would that be the case? How can I get around this problem and catch these errors so I can do something with them? Thanks for your help. -Ryan Tag: User Account Tag: 164983
  - 13
    - Running scripts in Outlook forms I have scripts set up in custom Outlook forms that take the information in the various fields and transfers it to an Access database. They are supposed to work and are not. The settings for MACROS in Outlook are set at the lowest security so that doesn't appear to be the problem. Does someone know what "provider" or other add-on is needed to make these scripts work? Tag: User Account Tag: 164981
  - 14
    - Problem with DateTime return value Hello, Can someone explain me why this occurs : DateSerial(1899, 12, 30) ' Returns #12:00:00 AM# instead of #12/30/1899# I've read microsoft help on DateTime but I can't figure out why this happens. I'd like to concatenate the date and the time : DateSerial(1899, 12, 30) & " " & TimeSerial(00, 00, 0) and this returns "00:00:00 00:00:00" this isn't acceptable ... Can anybody explain me what I'm doing wrong ? Thank you very much for you help ! Yann PETIT Tag: User Account Tag: 164980
  - 15
    - Home directory assignment THis script will assign users in the OU of Lab1 the home directory. I would like to assign all OUs in the domain rather than one OU at a time. What would I change on this line (Set objOU = GetObject("LDAP://MyLab.com/OU=Lab1,DC=MyLab,DC=com") to make it work? Please help. - Fan Sub AssignHomeDir() Set objOU = GetObject("LDAP://MyLab.com/OU=Lab1,DC=MyLab,DC=com") ObjOU.Filter= Array("user") For Each objUser in objOU strUser = objUser.Get("sAMAccountName") objUser.Put "homeDirectory", "\\Labsvr\" & strUser objUser.Put "homeDrive", "H" objUser.SetInfo Next End Sub Tag: User Account Tag: 164974
  - 16
    - detect default printer in NT and XP Hello, I need to find a method to detect the Default Printer locally. I have found many examples on how to set the Default Printer but none on how to detect it. Prabably very simple but I'm stumped. You can post or reply directly to my email address. Thanks for your help. Tag: User Account Tag: 164973
  - 17
    - rafraichissement aiutomatique d'une page asp Bonjour, j'ai une page asp composée de tableaux. j'ai plusieurs utilisateurs qui sont connecté à cette page et qui enregistre des données dans la base de données. J'aimerais rafraichir les informations modifié sur chaque pages dés qu'un user à modifié un enregistrement. Comment faire, quelle est la mailleur solution.? Tag: User Account Tag: 164967
  - 18
    - Compile a VBS Script Can Anyone help me can you compile a VBS script Tag: User Account Tag: 164966
  - 19
    - Problem with globals in Outlook 2000 scripting Hi, I am having problems with accessing an object which I have set as global. In the Item_Open function I load up my MyCusts object. In the Item_CustomPropertyChange subroutine I try and access it and there is nothing in it. This works in Outlook 2003 VB scripting but not in Outlook 2000. Is there a way round this? Regards and thanks, Vic. ========================================================= set MyCusts = nothing Function Item_Open() ' set up general objects to use in accessing folders and fields set myNameSpace = Application.GetNameSpace("MAPI") set PubFolders = myNameSpace.Folders.item("Public Folders") ' open the clients folder Set AllPubs = PubFolders.Folders.item("Favorites") Set Clients = AllPubs.Folders.item("Clients") if Clients is nothing then msgbox "Cannot find clients folder",,"Appointment Form" exit function end if ' get the list of clients set MyCusts = Clients.Items . . . . . End Function Sub Item_CustomPropertyChange(ByVal Name) . . . Jobs = MyCusts(index).userproperties("Jobs").value . . . End Sub ======================================================== Tag: User Account Tag: 164965
  - 20
    - how do I remotely install WMI on w2k3? Hi, Does anyone know what executable I need to install the WMI installer provider on w2k3 PC's? I know I can install it through add/remove programs but I'd like to do it remotely as I have about 50 odd desktops that need it for a logon script. Any help is much appreciated. Many thanks Tag: User Account Tag: 164963
  - 21
    - Script to enable/disable ICF/ICS Is there a way to script the enabling/disabling of ICF/ICF in WinXP/Win2K? Any information would be greatly appreciated. Pete Tag: User Account Tag: 164962
  - 22
    - Change printer driver for networked printer. What I want to do is use the existing IP address of the default printer and assign it to a different printer driver. In my environment Word prints better with PCL than PS and I need to change this for every workstation on three floors. Thanks in advance! Dean. Tag: User Account Tag: 164960
  - 23
    - sending last variable defined as default from VBS to ATL object Hi, All. I had a problem which i try to solve. It seems that if I define a mthod in idl file the last variable as default and not sending it, i get VBS run time error. example: in idl: HRESULT ConfigScenario ([in, defaultvalue(NULL)] INT valCurrentTestSet,[in, defaultvalue(NULL)] INT temp,[out,retval] INT *uiApplicationIndex); and in VBS file: Dim obj,k set obj = Cretaeobject("whatever.x") k = obj.ConfigScenario(,) -> i get run time error. k = obj.ConfigScenario(512,12) -> this works fine any one knows if it is allow? TIA Tag: User Account Tag: 164958
  - 24
    - Writing to a com port VBS Help!! can anyone tell me how to write to a com port using vbs. Thanks Tag: User Account Tag: 164953
  - 25
    - Need to get list of Apps both installed and available/published - 3 days research - Nothing!! Please someone help me. I'm pulling my hair out trying to do this. 3 days concerted effort and nada... Basically what I am trying to achieve is to programatically get at the same information that shows in the Add/Remove Programs utility. Ultimately I want to do the following: 1. Determine what programs (GUID, Package/product Code) are installed and whether they are machine, user, published or assigned. 2. Determine what programs (GUID, Package/product Code) are available to be installed but are not currently - think group policy published apps using AD here. 3. Install selected apps from item 2 above. 4. Repair or do a remove and reinstall for selected apps from item 1 above. I've spent the last 3 days searching the web and the SDK without success. What I can do is get a list of only the installed software using: set obj = createobject("WindowsInstaller.Installer") Set products = obj.Products and the same thing by using: Set wbemServices = GetObject("winmgmts:\\" & strComputer & "\root\rsop\computer") Set wbemObjectSet = wbemServices.InstancesOf("RSOP_ApplicationManagementPolicySetting") and even tried: Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colSoftware = objWMIService.ExecQuery _ ("Select * from Win32_Product") But this does not give me the available (published) software, just the installed software. I have been investigating the following but cannot work out how to implement them. Maybe someone out there can put me out of my misery. MsiEnumProducts MsiGetProductInfo RSOP_ApplicationManagementCategory GetLocalManagedApplications Or using some other function, perhaps in GPMC. I am trying to do this in vbscript and the rest of the code will be (relativly) a breeze. Please, someone out there must have a better understanding of the VB objects/classes/functions/properties etc. Regards Chris Tag: User Account Tag: 164952

hi,

could any one show me the vb script coding that can enumerate the user
accounts that set to 'Password Never Expired'. Thanks.

Fam

Top

Re: User Account by Ray

Ray
Fri Oct 29 18:20:04 CDT 2004

Hi Fam,

This works for me:

Dim oADO, oRS, sSQL

Set oADO = CreateObject("ADODB.Connection")
oADO.Provider = "ADsDSOObject"
oADO.Open "Active Directory Provider"
sSQL = "SELECT adsPath FROM 'LDAP://DC=mydomain,DC=com' WHERE
objectCategory='person' AND userAccountControl = 66048"
Set oRS = oADO.Execute(sSQL)
If Not oRS.EOF Then
Do While Not oRS.EOF
WScript.echo oRS.Fields.Item(0).Value & ""
oRS.MoveNext
Loop
End If
oRS.Close : Set oRS = Nothing
oADO.Close : Set oADO = Nothing

Ray at work

"Fan Fan" <ffan102@hotmail.com> wrote in message
news:uRmvAQevEHA.1308@TK2MSFTNGP09.phx.gbl...
> hi,
>
> could any one show me the vb script coding that can enumerate the user
> accounts that set to 'Password Never Expired'. Thanks.
>
> Fam
>

Top