Change "useraccountcontrol" for multiple objects

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
    - array function and assignment issue hi, I have the following code and found that when executed all values get assigned to one element of array. example line read from csv is: testuser,testco,"user, test T.",IT,8890,Y The splitcsv function will return following for above line read: "testuser","testco","user, test T.","IT","8890","Y" My code is as follows: ary = array(SplitCSV(SourceFile.ReadLine)) wscript.stdout.write ary(0) &vbcrlf ''remove function SplitCSV(ByRef CSVrecord) SplitCSV = """" q = true for n = 1 to len(CSVrecord) z = mid(CSVRecord,n,1) if z = """" then q = not q if z = "," and q then z = """,""" if z <> """" then splitcsv = splitcsv & z next SplitCSV = SplitCSV & """" end function What I need is to have the values returned from the splitcsv function stored in an array in seperate elements. I thought the array function would do this since it builds array based on comma seperation--which is what is returned by my function. ubound shows that there is only one element. How do I accomplish my goal? thanks a lot. Tag: Change "useraccountcontrol" for multiple objects Tag: 203342
  - 2
    - Check IIS Site IDs and names Hi all, I'm trying to use VBS to check what Site ID's exist and what are their names. Can anyone point me to some good references to IIS VBS scripting or help me on the code? What I eventually want to do is change the expire immediately for a particular folder after I install it. This code works, but I need to take into account which site ID (right now it works if I hardcode the site id with set objIISRoot = GetObject("IIS://localhost/W3SVC/3/Root")) to run this on, because it depends on how many sites existed before it. Any help would be greatly appreciated. Thanks. Tag: Change "useraccountcontrol" for multiple objects Tag: 203339
  - 3
    - Free Disk Space Hi I'm using the below script to check the disk space on my D drive. Set objWMIService = GetObject("winmgmts:") Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='D:'") Wscript.Echo objLogicalDisk.FreeSpace I tried to change the script so I will only receive a message if the free space falls below a certain level by adding in the line If objlogicalDisk.size < 2000000000 Then But to no avail Set objWMIService = GetObject("winmgmts:") Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='D:'") If objlogicalDisk.size < 2000000000 Then Wscript.Echo objLogicalDisk.FreeSpace End if Any help would be appreciated Thanks Tim Tag: Change "useraccountcontrol" for multiple objects Tag: 203337
  - 4
    - Incrementing Filename Number Can anyone offer an efficient way to get the next number in the sequence of a file name? Example. I have a folder containing files: file001.pdf, file002.pdf, file003.pdf, file005.pdf. I want to get the next number ie file006.pdf. Note that I have intentionally left out file004.pdf as files may be removed and not sequential. Thanks in advanced Tag: Change "useraccountcontrol" for multiple objects Tag: 203332
  - 5
    - Pause all print jobs by default : How ? Hello, how to pause all print jobs by default ? registry parameters or scripting ? Someone will resume each job after (..the one which are ok..) thanks for helping me ... Tag: Change "useraccountcontrol" for multiple objects Tag: 203329
  - 6
    - Help with XML function This is a multi-part message in MIME format. --------------060001050103050909090200 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit I have mercilessly hacked previous XML code, I am trying to create a function that will create a child node. Which this function does. What I would really like is to be able to create a child of a particular element. Nothing I have goggled seems very clear. I would also like to be able to check to see if the element listed as the root element exists. My problem is, that I can work well with code (not with fancy explanations, I gotta see it work to figure it out). Any help would be greatly appreciated. <--------Code--------------------<< Sub XMLCreateChild(strRootElement, strChildElement, strElementAtribute, strElementValue) Dim oChildNode, objCurrNode 'Add Code to see if strRootElement exists 'If False Error 'If True then set strRootElement as the root element ' -------------------------------------------- ' add an element to the xml file... ' -------------------------------------------- Set oChildNode = xmlDoc.createElement(strChildElement) oRootNode.appendChild oChildNode ' make child of root element ' ---------------------------------------------- ' add an "attribute" to this child node... ' ---------------------------------------------- oChildNode.setAttribute strElementAtribute, strElementValue End Sub <-------End Code-----------------<< P.S. I also could not figure out how to create (or what to call) an element that has sub elements. My goal is to create a XML file, like the enclosed. Many thanks. --------------060001050103050909090200 Content-Type: text/xml; name="CSOptionsBasic.xml" Content-Transfer-Encoding: base64 Content-Disposition: inline; filename="CSOptionsBasic.xml" PE9wdGlvbnM+DQogIDxCYXNpY09wdGlvbnM+DQogICAgPGJvb1NuZFN1Y2Nlc3MgLz4NCiAg ICA8Ym9vU25kRmFpbCAvPg0KICAgIDxib29TbmRDb21wbGV0ZSAvPg0KICAgIDxyZG9HcmFw aDAgLz4NCiAgICA8cmRvR3JhcGgxIC8+DQogICAgPERyb3BEb3duMSAvPg0KICAgIDxEcm9w RG93bjIgLz4NCiAgICA8RHJvcERvd24zIC8+DQogICAgPERyb3BEb3duNCAvPg0KICAgIDxJ bnB1dEZpbGUgLz4NCiAgPC9CYXNpY09wdGlvbnM+DQogIDxBZHZhbmNlZE9wdGlvbnM+DQog ICAgPFVwUGljdHVyZSAvPg0KICAgIDxVcEV4Y2hQaWN0dXJlIC8+DQogICAgPFVwQmFja1Bp Y3R1cmUgLz4NCiAgICA8VXBOZXR3UGljdHVyZUROUyAvPg0KICAgIDxVcE5ldHdQaWN0dXJl V0lOcyAvPg0KICAgIDxVcFByaW50UGljdHVyZSAvPg0KICAgIDxNaWRQaWN0dXJlIC8+DQog ICAgPERvd25QaWN0dXJlIC8+DQogICAgPERvd25FeGNoUGljdHVyZSAvPg0KICAgIDxEb3du QmFja1BpY3R1cmUgLz4NCiAgICA8RG93bk5ldHdQaWN0dXJlRE5TIC8+DQogICAgPERvd25O ZXR3UGljdHVyZVdJTnMgLz4NCiAgICA8RG93blByaW50UGljdHVyZSAvPg0KICAgIDxEb3du U291bmQgLz4NCiAgICA8VXBTb3VuZCAvPg0KICAgIDxDb21wbGV0ZVNvdW5kIC8+DQogIDwv QWR2YW5jZWRPcHRpb25zPg0KPC9PcHRpb25zPg== --------------060001050103050909090200-- Tag: Change "useraccountcontrol" for multiple objects Tag: 203326
  - 7
    - vbscript msgbox 1023 character limit this is for logon scripting -- I'm trying to make a message box with a rather long message string in it but the msgbox function truncates my message after 1023 -- the apparently character limitation for the vbscript function. If I have a string that I want to display in a msgbox but it is > 1023 characters, is there a way I can have the msgbox function display that? Tag: Change "useraccountcontrol" for multiple objects Tag: 203323
  - 8
    - simple script to copy file to system32 Hi, can any one help me with a simple script to copy file call test.dll from a network path to remote computer c:\windows\system32 directory to replace an older file already there. I found some of the script on Microsoft site for copy file but it does not work. I think the problem is because copying file to system32 directory and it's protected. I want to have this script excecute maybe as a log on scrip on run on demand. Thanks in advance for your help Tag: Change "useraccountcontrol" for multiple objects Tag: 203322
  - 9
    - How do I copy REG_EXPAND_SZ keys without expanding? I'm trying to copy a registry key and its values to another key. I can get the value of type REG_EXPAND_SZ keys but it looks like the string value is expanded in the process. As I am trying to copy from one key to another I would like to get the unexanded value. Here briefly, is how I'm getting the key: Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") oReg.GetExpandedStringValue hive,keypath,name,strValue StdOut.WriteLine " " & strValue Printing strValue out shows the expanded value. Where the content of the value "name" might be "This is the path: %PATH%" the actual printed value will show the expanded value of %PATH%. I want to copy that value as is to the new key:name. Is there a way to get the unexpanded value? I tried using oReg.GetStringValue but it operated the same way as the oReg.GetExpandedStringValue function. Any help would be appreciated Tag: Change "useraccountcontrol" for multiple objects Tag: 203317
  - 10
    - SQL and vbscript Trying to read a sql server 2005 table from a vendor and I'm not having any luck I'm getting the error : Invalid Object Name '_SMDBA_._CUSTOMER_' on execution of the select statement I'm not real skilled when it comes to attaching to sql. I have the sa as the authorizing account so I can attach. Ideas? The vendor has just installed the software and I have to sync up fields between AD and this app and I have zero experience with SQL 2005. So maybe there is a setting in sql that has to be configured. I just don't understand the use if the two decimal name (The FROM name) and if the script can handle it correctly. Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "DSN=SDE;", strUserName, strPassword objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM _SMDBA_._CUSTOMER_" , _ objConnection, adOpenStatic, adLockOptimistic -- Paul Tag: Change "useraccountcontrol" for multiple objects Tag: 203311
  - 11
    - Opening Multiple Excel Workbooks Hi, I am tryong to creat a script that will read a server name from one workbook, do a discovery and write the results to another workbook template. I have been using a Txt file for my server name input file, but I though it would be more efficient to cut out the middle man by pulling the server names from the source. I can open both the source wookbook and my template with out a problem. The trouble arises when I try to select Cell B4 for the first server name in Book1 and then write it to book2. Any ideas? My code so far: <-------------------------------------------------------------------------------------------------------- > '******************* '* Define Constants '******************* Const ForReading = 1 '******************** '* Declare variables k = 6 ' Dim Message, result strExcelPath = "C:\Scripts" ' Define Msg Box Var Message = "Please Enter CR Number" Title = "Production Readiness Checklist" '******************** '========================================================================== result = InputBox(Message, Title, "Type CR Number Here", 200, 200) fCr = result If result = "" Then WScript.Quit End If Set oXL = Wscript.CreateObject("Excel.Application") oXL.Visible = True oXL.DisplayAlerts = False Set book1 = oXL.Workbooks.Open("C:\Scripts\Checklist.xls") 'Source for server Names set book2 = oXL.Workbooks.Open("c:\scripts \readinesschecklisttpl.xls") 'My template set book3 = oXL.Workbooks.Open("c:\scripts\Report.xls") 'An inventory that I refer to in the template book1.activate x = 4 Do Until oXL.Cells(x, 2).Value = "" If oXL.Cells(x, 2).Value = "" Then Exit Do End If strComputer = oXL.Cells(x, 2).Value 'Set objFSO = CreateObject("Scripting.FileSystemObject") 'Set objTextFile = objFSO.OpenTextFile("C:\Scripts\PRC.txt", ForReading) ' OPEN Excel Worksheet Template and fill in the blanks Set objWorksheet = book2.Worksheets(1) objWorksheet.Range("A1:S5").Font.Bold = True objWorksheet.Select objWorksheet.Cells(2, 2).Value = fCr objWorksheet.Cells(3, 2).Value = Date objWorksheet.Cells.EntireColumn.AutoFit '......And so on Tag: Change "useraccountcontrol" for multiple objects Tag: 203308
  - 12
    - split function issue I am using the split function but have run into an issue. A spreadsheet has been saved to csv so my split function looks for seperator of ",". all works well except to when there is a comma inside quotes. As you know if there is a comma in a field when excel export it will place quotes around the value. for example: 1,test,"user, test",5590, xyz how can I overcome this issue? Is there some other function I can use? thanks in advance. Tag: Change "useraccountcontrol" for multiple objects Tag: 203307
  - 13
    - Retrieving monitor serial numbers from EDID Hey all.. I've been toying with this script: http://cwashington.netreach.net/depo/view.asp?Index=980&ScriptType=vbscript I've been using it to pull serial numbers from PC's on the network. There is one problem.. it doesn't look like DELL flat panels store their entire S/N in EDID. It's segmented. For example: A serial number of: CN0123472872567890A comes out as: 1234567890A I know manufacturers aren't *required* to pass info into EDID, but does anyone know DELL serials well enough to know if there's a way to calculate the missing data? Or is it stored someplace else in EDID? It's a shot in the dark.. but perhaps someone can help. Tag: Change "useraccountcontrol" for multiple objects Tag: 203306
  - 14
    - Delete Column In Excel, I need a macro that will delete a column based on a cell that will contain a name based on an input box. Thanks, Bernie Tag: Change "useraccountcontrol" for multiple objects Tag: 203296
  - 15
    - Unzip File I've got some code that unzips a file (supposedly). The person who wrote it says that it works fine on his computer. I've seen it work, too. :) However, I'm running it from my computer and I get an error message that says "The file exists". Error occurs on this line (Watch for word wrap): objShellApp.NameSpace(strWorkFolder).CopyHere objShellApp.NameSpace(strZipFilePath).Items Has anybody used the Shell Namespace for unzipping before? And if sso, would you please point out why this might not work? I'm running XP Professional with all the latest updates. Public Sub Extract() 'Declare variables Dim objFileSystem Dim workFolder As Folder Dim workFile As File Dim objShellApp Dim strUcaseFileName As String Dim strZipFilePath, strWorkFolder 'Initialize objects Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set workFolder = objFileSystem.GetFolder(strWorkPath) Set objShellApp = CreateObject("Shell.Application") For Each workFile In workFolder.Files strUcaseFileName = UCase(workFile.Name) If (Mid(strUcaseFileName, 1, 2) = "PS" Or _ Mid(strUcaseFileName, 1, 3) = "TLD" _ Or Mid(strUcaseFileName, 1, 2) = "RP" Or Right(strUcaseFileName, 4) = ".ZIP") Then objFileSystem.DeleteFile (strWorkPath & workFile.Name) End If Next 'Copy the file with unit extension to work 'directory with the name work.zip 'for processing the zip file. Assign the 'complete path of the file to a variable objFileSystem.CopyFile strLEWkPath & Infilename, strWorkPath & "work.zip" 'ShellApp.Namespace is not able 'to accept string type variables. 'hence we are taking a variant type local variables 'to hold work folder path and zip file name and path strZipFilePath = strWorkPath & "work.zip" strWorkFolder = strWorkPath & "Extract" strWorkFolder = strWorkPath 'Use Shell.Application object's "Copyhere" 'method to extract files from the zip file 'this depends on the default file extraction 'capability of windows it works in XP '********Important*********** This code will not 'work on windows 2000 Pro. objShellApp.NameSpace(strWorkFolder).CopyHere objShellApp.NameSpace(strZipFilePath).Items Set objFileSystem = Nothing Set objShellApp = Nothing End Sub Tag: Change "useraccountcontrol" for multiple objects Tag: 203294
  - 16
    - Unexpected Next Hi all Wicked head cold today and I can't think straight...anybody point out the obvious as my mind is incapable of any normal thought. <sniff><cough><sniff> '===============Start Here=================================== On Error Resume Next Dim EnvironmentType Dim objshell Dim dwcorrectValue Dim dwcorrectvalue2 Dim dwvalue Dim dwvalue2 Dim result '================================================== 'Check the Date seperator and the short date format 'if good then move on...if not Getdateformat.... '================================================== Set objShell = WScript.CreateObject("WScript.Shell") dwcorrectValue = objShell.RegRead("HKEY_USERS\.DEFAULT\Control Panel \International\sShortDate") dwcorrectValue2 = objShell.RegRead("HKEY_USERS\.DEFAULT\Control Panel \International\sDate") Wscript.Echo dwcorrectValue Wscript.Echo dwcorrectValue2 If dwcorrectvalue = "yyyy-MM-dd" Then Set objShell = WScript.CreateObject("WScript.Shell") dwcorrectValue2 = objShell.RegRead("HKEY_USERS\.DEFAULT\Control Panel \International\sDate") Wscript.Echo dwcorrectValue2 If dwcorrectvalue2 = "-" Then GetdateStatus Else Getdateformat End If Sub GetdateStatus() wscript.echo "Date format is correct" Wscript.Echo dwcorrectValue Wscript.Echo dwcorrectValue2 wscript.sleep 1500 End Sub Sub Getdateformat() '================================================== 'Force the Date seperator and the short date format 'then force a reboot '================================================== ' '================================================== ' 'Change the sShortDate entry 'Change the sDate entry ' '================================================== strKeyPath="HKEY_USERS\.DEFAULT\Control Panel\International" strEntryName="sShortDate" Const HKEY_USERS = &H80000003 dwValue="yyyy-MM-dd" dwvalue2="-" strComputer="." Set oReg=GetObject( _ "winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") oReg.SetDWORDValue _ HKEY_USERS,strKeyPath,strEntryName,dwValue oReg.SetDWORDValue _ HKEY_USERS,strKeyPath,strEntryName,dwValue2 'Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/ cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true") 'for each OpSys in OpSysSet ' OpSys.Reboot() Next End Sub Tag: Change "useraccountcontrol" for multiple objects Tag: 203290
  - 17
    - Convert .net xmlhttp code to vbs Can you please help me to finish converting the .net code below into vbscript? My vbs function at the end works when posting to another asp file on the same win server, but I need to post the xml to a .jsp file on a unix box. The jsp file just returns an internal server error. It crashes with a null pointer exception when trying to read the request. Presumably because it is not in an ascii byte array? How do I do those parts? If it is too complex, then let me know and I will use the .NET code as a relay. I would just prefer to have it all in one file. .NET CODE ========= // create a web request and set the method of the request to POST HttpWebRequest request = (HttpWebRequest) HttpWebRequest.Create(requestLocation); request.Method = "POST"; // encode the data and store the byte representation in an array ASCIIEncoding encoding = new ASCIIEncoding(); string postdata="xml="+HttpUtility.UrlEncode(xmlDoc); // string postdata="xml="+xmlDoc; byte[] requestData = encoding.GetBytes(postdata); // set the content type of the data being posted. request.ContentType="application/x-www-form-urlencoded"; // set the content length of the string being posted request.ContentLength = postdata.Length; // Status.Text += "Submitting activity message"; Stream requestStream = request.GetRequestStream(); requestStream.Write(requestData,0,requestData.Length); // flush out the data to the underlying stream and close it requestStream.Flush(); requestStream.Close(); // retrieve the response from the web server HttpWebResponse response = (HttpWebResponse) request.GetResponse(); StreamReader responseData = new StreamReader(response.GetResponseStream()); err+= responseData.ReadToEnd(); MY VBS CODE =========== Function iXMLPostSTX(STX_URL, POXMLData, ByRef XMLResp) Dim oHttp Set oHttp = Server.CreateObject ("MSXML2.ServerXMLHTTP") Dim status oHttp.open "POST", STX_URL oHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" oHttp.setRequestHeader "Connection", "Keep-Alive" oHttp.send POXMLData status = oHttp.statusText iLog("Status=" & status) XMLResp = oHttp.responseText End Function Tag: Change "useraccountcontrol" for multiple objects Tag: 203289
  - 18
    - HTA to create AD user account and mailbox Has anyone got or know where to download a HTA which will create a user account in active directory and a exchange 2000 mailbox? Tag: Change "useraccountcontrol" for multiple objects Tag: 203281
  - 19
    - checking response from readline hi, I have the following code which asks user a question and gets response. I need to check response for validity but the following if statement is always evaluated as true even when correct response is entered: wscript.stdout.write "What is the SOURCE file type? (user/computer/group): " strSourceFileType = trim(ucase(wscript.stdin.readline)) if strSourceFileType <> "user" or strSourceFileType <> "computer" or strSourceFileType <> "group" then err.raise 449 ErrHandler end if Even when I enter "user" or "computer" or "group" (without quotes) at the prompt the condition evaluates as true and returns "Microsoft VBScript runtime error: Argument not optional" I have witten value of strsourcefiletype to screen and it is populated correctly with no spaces, etc. as expected by the condition right after it is read. Now if i simply specify: if strSourceFileType <> "user" then without the other two OR conditions and type "user" at the prompt all works fine. I don't understand why I cannot look for the other values in the field too. ??? thanks again. Tag: Change "useraccountcontrol" for multiple objects Tag: 203280
  - 20
    - reading a file that has null or blank field hi, when reading through a CSV file and a field is missing I receive a run time error. I have the on error resume next commented out for now during debugging. But, how do I handle if a field is missing when trying to assign the array? In this case would missing mean "NULL"? The code is as follows: set objFSO = CreateObject("Scripting.FileSystemObject") set objSourceFile = objFSO.OpenTextFile(strSourceFilename, ForReading) if err <> 0 then ErrHandler do until objSourceFile.AtEndOfStream arySourceFields = split(objSourceFile.ReadLine,",",-1,1) if err <> 0 then ErrHandler wscript.stdout.write arySourceFields(0) '''remove. loop . . . Example of csv file contents: 500,world,1,1,5 501,now,2,6,0 . . . 600,,, 601 the problem occurs for records like 601 above. notice there are no commas seperating other fields. the csv just has first field and nothing in remaining fields like rest of records. Code works fine for all other instances including 600,,, Assigning arySourceFields(x) to any variable or simply doing the stdout.write above causes runtime of: createfiles.vbs(102,1) Microsoft VBScript runtime error: Subscript out of range: 'wscript.stdout' How do I prevent the error from occuring in my code without the on error resume next? Isn't there a function that would check to see if the subject is valid? Thank you. Tag: Change "useraccountcontrol" for multiple objects Tag: 203279
  - 21
    - I am having a problem with a logon script using VBscript trying to the computer name to the organizational unit in which it belongs. Dim objSystemInfo, objNetwork, CurrentComputer Dim strOu Const OrgUnit = "OU=PCBMRDD" Set objSystemInfo = CreateObject("ADSystemInfo") Set CurrentComputer = GetObject("LDAP://" & objSystemInfo.ComputerName) strOu = (Join(CurrentComputer.MemberOf)) If InStr(strOu, (OrgUnit)) Then WScript.Echo "Hello" End if Wscript.Echo "Not found" WScript.Quit I am trying to use the computername of the PC and compare it to which organizational unit belongs to. I am then going to map a drive based on the organizational unit the PC belongs to and map it to a specific location. When using the Echo statement after the GetObject statement I am able to display all the active directory information for the ComputerName. When I compile the code it will not check to see whether the computer name belongs to a specific organizational unit. Tag: Change "useraccountcontrol" for multiple objects Tag: 203276
  - 22
    - check if file open hi, I have the following code that writes to a text file. set objDestinationFile = objFSO.CreateTextFile(strDestinationFilename,true) . . . objDestinationFile.WriteLine FileTypeVal & "," & FileTypeVal After I write lines to the file and when a field changes I need to close the file and create a new one for writing. How do I check to see if the file is open by my code so that I can issue a close? If it isn't open I don't want to close it, I just want to create new file. The only time it wouldn't be open is the first time the script executes. Would doing the following accomplish my goals and be correct? if isobject(objDestinationFile) then objDestinationFile.Close After I issue close do I need to set the object variable to nothing or can I simply issue above set again. thanks alot Tag: Change "useraccountcontrol" for multiple objects Tag: 203275
  - 23
    - move users from AD I amusing thhis script On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set objFileIP= FSO.OpenTextFile(".\IP_Users_Groups.txt", 1) Set objFileOP = FSO.opentextfile(".\OP_Users_Groups.txt",2,True,-2) Const ADS_PROPERTY_DELETE = 4 Do While objFileIP.AtEndOfStream = False username,grpname =(objFileIP.ReadLine) Set objGroup = GetObject _ ("LDAP://CN=" & (grpname) & ",OU=Dept_Grps,ou=cam,ou=im,dc=nam,dc=nsroot,dc=net") objGroup.PutEx ADS_PROPERTY_DELETE, _ "member",Array("CN=" & (username) & ",OU=Dept_Grps,ou=cam,ou=im,dc=nam,dc=nsroot,dc=net") objGroup.SetInfo Loop WScript.Echo username & grpname '************************************************************************** objfileip.close objfileop.close WScript.Quit My problem is there will be different users anf group, will the following work Do While objFileIP.AtEndOfStream = False username,grpname =(objFileIP.ReadLine) I will have a text file with username, groupname - how will the LDAP know where to go. Do I use teo text files instaed of one? Tag: Change "useraccountcontrol" for multiple objects Tag: 203272
  - 24
    - Ad Disable Accounts We are in the need for a script that will search a dump .xls file and disable AD accounts. Can any one please help on this. Thanks Tag: Change "useraccountcontrol" for multiple objects Tag: 203270
  - 25
    - Write excel functions with VBSCRIPT Hellow all, I want to write an expression to sum values of a column like that: objExcel.Cells(1,5).value = "=SUM(D:D)" After vbscript write in the worksheet an error its returned. I dont think thats is an error, because the expression its ok and when I edit the cell and press enter, for example, the correct value is showed. I tried to add chr(13) or chr(10) at the end of string but not work. Anyone have a suggestion? Thanks in advance, StÃ©fano Terci Gasperazzo Tag: Change "useraccountcontrol" for multiple objects Tag: 203269
- Next
  - 1
    - Deactivating the User must change password on next logon Hi guys! Would really appreciate your help. We have an AD 2003 domain setup, similar to below. topleveldomain.com Retail OU Brand1 OU Store0001 OU Users OU User accounts in here 0001user bob jane Store0002 OU Users OU User accounts in here Store0003 OU Users OU User accounts in here Brand2 OU Store0001 OU Users OU User accounts in here What we need to do quickly is the following: Query AD for all user accounts that dont start with the numbers, in the Users OU of every StoreXXXX OU in the Brand1 OU only, not the Brand 2 OU Query these user accounts to see if the property "User must change password on next logon" is checked. If it is checked, we need the vbs script to uncheck it for every user account in the OU. Any help greatly appreciated. x Tag: Change "useraccountcontrol" for multiple objects Tag: 203261
  - 2
    - XML, VBScript, and HTA royal rumble I just started working with XML. However, I have been working with HTAs and VBScripts for a while now. I am building an HTA that would generate data into an XML file, and display it in a Data Island (which I found is the easiest way to display it in this case.. since there would an X number of data sources, with the same XML format). The problems came when I had to filter the XML data to show only a certain criteria. I could not embed XQuery code into the document as I am not sure if there is a way to get the XQuery and Data Island to work together to produce only a limited record set in the output table. I then started looking at multidimensional array sorting and class creation and sorting, I felt as though my mind was frying. XQuery seems much easier but there was no easy way to use it since the Data Island itself is a dynamic table with a dynamic data source spanning different data types. I thought probably the best way to achieve a filtered XML would be to obtain a XQuery application (a small portable parser) that would run against the original XML file producing a newer modified XML with the needed data. I could not find such an application. Has anyone got an efficient solution to such a problem? Thank you for your time. - Nasser Tag: Change "useraccountcontrol" for multiple objects Tag: 203260
  - 3
    - Obtain User SID from AD I need to obtain the User's SID's out of AD, but my script exits the loop after the echo statement during the first loop thru and doesn't return and presents a exit code of '0', which is success (which its not). Any other ideas?? I obtained the following code from: http://msdn2.microsoft.com/en-us/library/aa746535.aspx and http://msdn2.microsoft.com/en-us/library/aa746409.aspx Set objUser = GetObject("WinNT://" & strFQ_DomainName & "/" & objRecordSet.Fields("sAMAccountName")) arrUserSID = objUser.Get("ObjectSID") intElements = UBound(arrUserSID) Wscript.echo intElements ---> outputs 27, which is correct For intCounter = 0 to intElements wscript.echo "Loop: " & intCounter strUserSID = arrUserSID(intCounter) Next Tag: Change "useraccountcontrol" for multiple objects Tag: 203257
  - 4
    - how to update binary field types in ADO Hi, Having some difficulties updating binary fields. This bit of code seems to work fine in VB6, but when I make the minor changes necessary for it to run in VBscript the Update never happens. In fact the assigment to fld.Value doesn't appear to happen since msgbox fld.Value(0) after the assignment does nothing. Is this something that is beyong the capabilities of VBscript? Thank You! Dim arrBin(7) As Byte Dim b As Integer Dim strBin As String strBin = "bintest" For b = 1 To 7 arrBin(b - 1) = Asc(Mid(strBin, b, 1)) Next While Not oRs.EOF For Each fld In oRs.Fields lngtype = fld.Type Select Case lngtype Case adBinary, adVarBinary, adLongVarBinary fld.Value = arrBin oRs.Update End Select Next oRs.MoveNext Wend Tag: Change "useraccountcontrol" for multiple objects Tag: 203254
  - 5
    - SMS componets Are there any components for VBScript that will allow me to send an sms message? Thank you, Matthew Tag: Change "useraccountcontrol" for multiple objects Tag: 203253
  - 6
    - "Internal Error 2738" due to corrupt vbscript dll? I'm trying to install a small program just released by Microsoft. Everytime i get "Internal Error 2738" after setup starts. The installer log gives this reason: "DEBUG: Error 2738: Could not access VBScript runtime for custom action". Can anyone say more? No one else seems to have this problem installing the app, so i think it must be on my machine alone. How do i check access or run a reinstall of the "vbscript runtime"? Is that a .dll that's somehow corrupted? Tag: Change "useraccountcontrol" for multiple objects Tag: 203250
  - 7
    - Looping... I am looking for a way to pause a LOOP long enough to display the results before moving on to the next go around. In the immediate window I can see the results are there, just happening to fast to see results in form. Tag: Change "useraccountcontrol" for multiple objects Tag: 203249
  - 8
    - OBD Explorer HTA application , logic in VBScript Make OBD acquisition from car with mobydic interface. Works in debug mode without the interface ;) Environnemetn : Internet Explorer in HTA mode, VBScript and REALTERM a terminal software It 's an exemple of data acquistion over serial protocol in VBScript Using ActiveX/COM , WSH for disk access, XML for saving results SVG for display it http://perso.orange.fr/promethee60/data/technos/obd/OBDExplorer.html IE is Great !! Tag: Change "useraccountcontrol" for multiple objects Tag: 203248
  - 9
    - connecting to NON-Microsoft LDAP I'm trying to connect to a NON-Microsoft LDAP server. Has anyone been able to connect to a NON-Microsoft LDAP coding in vbscript and using ADSI? I sure do appreciate your response to this. Tag: Change "useraccountcontrol" for multiple objects Tag: 203247
  - 10
    - Where to start with vbscript? Hi all, I've been given a small fairly trivial project to automatically perform some operations on a spreadsheet like calculate days from dates and create charts. I've figured vbscript is a good option, I've seen code snippets that can get me most of what I need, but I'm wondering where there is say an API or some sort of users guid that will provide me with the info I need when I come across problems. Thanks Lionel. Tag: Change "useraccountcontrol" for multiple objects Tag: 203246
  - 11
    - Script Editor Does anyone know of a VB Script Editor/Debugger that is similar to VBSEdit? I purchased VBSEdit and it crashed. I can't get their tech people to respond to emails and I'm ready to move on to something else. Tag: Change "useraccountcontrol" for multiple objects Tag: 203239
  - 12
    - read user name and group from one text file. I have to remove different users and groups reading one file. I know how to do it with one but not both user and group. Can someone help me Tag: Change "useraccountcontrol" for multiple objects Tag: 203236
  - 13
    - ipaddress How can I grab just the first three oectets of a ipaddress? Regualar expression...(/\d+\.\d+\.\d+\./) For example, 10.116.189.34 after running a script I need to only have the following: 10.116.189. Tag: Change "useraccountcontrol" for multiple objects Tag: 203234
  - 14
    - Location-based Startup Script I would like to run a script at startup (and afeter hibernation) that checked my location, based on the network connection I get. From that, I would like to establish some defaults, like default printer. I don't know much about initiating this type of script, how to evaluate my network connection, and how to control default devices. If someone can point mem toward some tutorial-like info, I would appreciate it. Thanks, Tag: Change "useraccountcontrol" for multiple objects Tag: 203224
  - 15
    - read from excel sheet OK I have to remove about 300 users from different groups. Column A would have the different user names and column B would have the different groups than I have to write the results to a txt file ot another excel file. Tag: Change "useraccountcontrol" for multiple objects Tag: 203221
  - 16
    - VBScript and VB6 COM object type mismatch... Hi, Folks! I am trying to use a to use a COM object written in VB6. Set oSCNTool2 = CreateObject("SomeCompanyName.Tool2") This COM object has a property called "xml" where it expects, you guessed it, an XML string. Well, it turns out it's just expecting a plain string and not any special XML node or what-have-you. The problem is when I try to assign a string to this property I get a Type Mismatch error. oSCNTool2.xml = szXMLdata 'type mismatch error The problem is VBScript deals in Variants and VBS strings are of the Variant String subtype. This "xml" property is expecting the VB6 String variable type and not a Variant subtype. I do not have access to the source code of the COM object to change it. Does anyone know how to work around this issue? TIA... Tag: Change "useraccountcontrol" for multiple objects Tag: 203218
  - 17
    - Detect a scheduled script timed out. I have a vbscript scheduled task that has the scheduled task timeout set to 2 hours. How can I make the script aware that it is about to be terminated? Is there a script event I can use to do this? Tag: Change "useraccountcontrol" for multiple objects Tag: 203216
  - 18
    - browseforfolder to find file This code: Set oShell = CreateObject("Shell.Application") set oFolder = oShell.BrowseForFolder(0,"Select poem",BIF_BROWSEINCLUDEFILES + 1,5) Gives This Error the system cannot find the file specified Any thoughts??? Works great if I select a folder, dies if I select a file. works OK in VB6, fails in VBScript A Tag: Change "useraccountcontrol" for multiple objects Tag: 203208
  - 19
    - Is there a limit on WMI connections from one computer? I have some scripts which use WMI to get system info of printers, RAM, serial no., etc... Right now I want to use 10 copies of each script as there are about 10,000 computers I need to scan and doing the whole lot at once would take too long, especially if I need a report overnight. So I cut them up into 10 scripts to run at the same time, hitting 1,000 computers each, with all 10 scripts being identical except for the computer names and IPs they read from an excel sheet. The issue I'm having is that there seems to be a one session limit on WMI, so I can't run 10 scripts on one computer. The first script runs fine, the second I run on the same computer just quits after a few seconds (viewing task manager I see two wscripts, then it goes to one). Is there a way around the limit, registry hack or something? Doing a google search got me nothing on this. Thanks for any help. Tag: Change "useraccountcontrol" for multiple objects Tag: 203207
  - 20
    - Calling a WSH application where arguments refer to folder names that have spaces In an HTA file I have the code shown below. It used to run in a directory other than "My Report". The old folder name had spaces and there were no problems. When it runs in the "My Report" directory a message appears saying "System can not find the file specified". The string being sent to WSH.Run is: C:\My%20Folder\script.vbs "C:\My Report\a.txt" "C:\My Report\b.txt" Changing the string to C:\My%20Folder\script.vbs ""C:\My Report\a.txt"" "C:\My Report\b.txt"" and "C:\My%20Folder\script.vbs "C:\My Report\a.txt" "C:\My Report\b.txt" " and "C:\My%20Folder\script.vbs ""C:\My Report\a.txt"" ""C:\My Report \b.txt"" " and other permutations didn't work. What do I need to do? Thanks. <script language="VBScript"> Function CreateReport File1 = "C:\My Report\a.txt" File2 = "C:\My Report\b.txt" Set WSH = CreateObject("WScript.Shell") WSH.Run GetPath(document.location.pathname) & "my.vbs" & _ Chr(34) & File1 & Chr(34) & " " & _ Chr(34) & File2 & Chr(34) Window.Close End Function Function GetPath(Path) ix=InstrRev(Path,"\") Path=Left(Path,ix) GetPath = Path End Function </script> Tag: Change "useraccountcontrol" for multiple objects Tag: 203198
  - 21
    - Moving through files in a directory I am a newbie to VBScript, so any help is appreciated. I am trying to move files from one location to another. I would like to look at each file and check to see if that file is already in the destination location. If it is in that location I would like to echo out the file name. Is there a way I can create an Object and go through the files one by one? Would I try to move them all first and if I get an error message, echo out the files and keep moving on? Here is what I have so far, but this is a crude way of accomplishing the task. 'MoveFSO.vbs 'Moves files from the jump drive to network shares Option Explicit Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "F:\class3\*.wmf" , "O:\WWW\" , OverwriteExisting objFSO.CopyFile "F:\class3\*.jpg" , "O:\WWW\" , OverwriteExisting objFSO.CopyFile "F:\class2\*.wmf" , "N:\WWW\" , OverwriteExisting objFSO.CopyFile "F:\class2\*.jpg" , "N:\WWW\" , OverwriteExisting Const DeleteReadOnly = True objFSO.DeleteFile("F:\class3\*.wmf"), DeleteReadOnly objFSO.DeleteFile("F:\class3\*.jpg"), DeleteReadOnly objFSO.DeleteFile("F:\class2\*.wmf"), DeleteReadOnly objFSO.DeleteFile("F:\class2\*.jpg"), DeleteReadOnly Tag: Change "useraccountcontrol" for multiple objects Tag: 203197
  - 22
    - Moving through files in a directory I am a newbie to VBScript, so any help is appreciated. I am trying to move files from one location to another. I would like to look at each file and check to see if that file is already in the destination location. If it is in that location I would like to echo out the file name and the file. Is there a way I can create an Object and go through the files one by one? Here is what I have so far, but this is a crude way of accomplishing the task. 'MoveFSO.vbs 'Moves files from the jump drive to network shares Option Explicit Const OverwriteExisting = True Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "F:\class3\*.wmf" , "O:\WWW\" , OverwriteExisting objFSO.CopyFile "F:\class3\*.jpg" , "O:\WWW\" , OverwriteExisting objFSO.CopyFile "F:\class2\*.wmf" , "N:\WWW\" , OverwriteExisting objFSO.CopyFile "F:\class2\*.jpg" , "N:\WWW\" , OverwriteExisting Const DeleteReadOnly = True objFSO.DeleteFile("F:\class3\*.wmf"), DeleteReadOnly objFSO.DeleteFile("F:\class3\*.jpg"), DeleteReadOnly objFSO.DeleteFile("F:\class2\*.wmf"), DeleteReadOnly objFSO.DeleteFile("F:\class2\*.jpg"), DeleteReadOnly Tag: Change "useraccountcontrol" for multiple objects Tag: 203196
  - 23
    - WMI for Querying "Obtain DNS Server Address Automatically" Does WMI provide any way to query whether "Obtain DNS Server Address Automatically" is set for a NIC? I know that you can set the value in WMI by calling SetDNSServerSearchOrder with no parameters. So you might think that you could just query DNSServerSearchOrder and get back something empty or null if "Obtain DNS Server Address Automatically" is set. But actually, DNSServerSearchOrder returns the DNS addresses that are currently assigned, so you can't tell if they were automatically assigned or manually assigned. Thanks for any help. -- Joseph Morales Tag: Change "useraccountcontrol" for multiple objects Tag: 203194
  - 24
    - Event Log Query I've created a script that does the following: *All output goes to a text file* Searches through AD finding computer objects running a Server OS(using wildcards). Determines the disk space free on each physical drive for each machine found. For each machine found searches through the System and Application Log for all error entries in the past 8 days. Here is the script(it's not the prettiest and I know there are better ways/methods but here it is): Option Explicit Dim objFSA Dim objLogFile Dim objFSO Dim objLogItem Dim objFSF Dim objFinalLog Dim objFSU Dim objLog Const ForWriting = 2 Set objFSU = CreateObject("Scripting.FileSystemObject") Set objLog = objFSU.CreateTextFile("C:\deletefiles.vbs") Set objFSA = CreateObject("Scripting.FileSystemObject") Set objLogFile = objFSA.CreateTextFile("C:\tmpSrvAvail.txt") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objLogItem = objFSO.CreateTextFile("C:\tmpAllSrv.txt") Set objFSF = CreateObject("Scripting.FileSystemObject") Set objFinalLog = objFSF.CreateTextFile("MasterFile.txt") objLog.Write "Set objFSL = CreateObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34) & ")" objLog.Write vbCrlf objLog.Write "strScript = " & chr(34) & "C:\tmpAllSrv.txt" & chr(34) objLog.Write vbCrlf objLog.Write "objFSL.DeleteFile(strScript)" objLog.Write vbCrlf objLog.Write "Set objFSM = CreateObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34) & ")" objLog.Write vbCrlf objLog.Write "Set objFSN = CreateObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34) & ")" objLog.Write vbCrlf objLog.Write "strScript = " & chr(34) & "C:\tmpSrvAvail.txt" & chr(34) objLog.Write vbCrlf objLog.Write "objFSL.DeleteFile(strScript)" objLog.Write vbCrlf objLog.Write "strScript = Wscript.ScriptFullName" objLog.Write vbCrlf objLog.Write "objFSN.DeleteFile(strScript)" objFinalLog.Write "All Servers in Active Directory" objFinalLog.Write vbCrlf Const ADS_SCOPE_SUBTREE = 2 Dim objConnection Dim objCommand Dim objRecordSet Dim strDomain Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" strDomain = "DC=dms,DC=local" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = _ "SELECT Name FROM 'LDAP://" & strDomain & "' WHERE objectClass='computer' " & _ "and operatingSystem = '*Server*'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF objLogItem.Write objRecordSet.Fields("Name").Value objLogItem.Write vbCrLf objFinalLog.Write vbCrlf objFinalLog.Write objRecordSet.Fields("Name").Value objRecordSet.MoveNext Loop objFinalLog.Write vbCrlf objFinalLog.Write vbCrlf objFinalLog.Write "FREE DISK SPACE" objFinalLog.Write vbCrlf objFinalLog.Write vbCrlf Dim g_strHostFile Dim objFse Dim objTextStream Dim objWMIService Dim colDisks Dim g_strComputer Dim objDisk Const FOR_READING = 1 g_strHostFile = "C:\tmpAllSrv.txt" Set objFse = CreateObject("Scripting.FileSystemObject") If objFse.FileExists(g_strHostFile) then Set objTextStream = objFse.OpenTextFile(g_strHostFile, FOR_READING) Else WScript.Echo "Computer list, " & g_strHostFile & " not found." WScript.Quit End If Do Until objTextStream.AtEndOfStream g_strComputer = objTextStream.ReadLine On Error Resume Next Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & g_strComputer & "\root \cimv2") Set colDisks = objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk Where DriveType = 3") If Err = 0 Then objLogFile.Write g_strComputer objLogFile.Write vbCrLf End If Dim intFreeSpace Dim intTotalSpace Dim pctFreeSpace Dim intTotalGB Dim intFree For Each objDisk in colDisks intFreeSpace = objDisk.FreeSpace intTotalSpace = objDisk.Size pctFreeSpace = intFreeSpace / intTotalSpace If Err <> 0 Then objFinalLog.Write g_strComputer & " is offline, please check manually." objFinalLog.Write vbCrLf objFinalLog.Write vbCrLf Exit For End If intTotalGB = intTotalSpace/ 1024/ 1024/ 1024 intTotalGB = FormatNumber(intTotalGB, 1) & "GB" If intFreeSpace < 1073741824 Then intFree = objDisk.FreeSpace/ 1024/ 1024 Else intFree = objDisk.FreeSpace/ 1024/ 1024/ 1024 End If If intFreeSpace < 1073741824 Then intFree = FormatNumber(intFree, 1) & "MB" Else intFree = FormatNumber(intFree, 1) & "GB" End If objFinalLog.Write g_strComputer & " " objFinalLog.Write objDisk.DeviceID & " " objFinalLog.Write intFree & " Free " objFinalLog.Write intTotalGB & " Total " objFinalLog.Write FormatPercent(pctFreeSpace) & " Percent Free" objFinalLog.Write vbCrLf objFinalLog.Write vbCrLf Next Loop objTextStream.Close Dim dtmStartDate Dim DateToCheck Dim colLoggedEvents Dim objEvent g_strHostFile = "C:\tmpSrvAvail.txt" Set objFse = CreateObject("Scripting.FileSystemObject") If ObjFse.FileExists(g_strHostFile) Then Set objTextStream = objFse.OpenTextFile(g_strHostFile, FOR_READING) Else WScript.Echo "Computer list, " & g_strHostFile & " not found." WScript.Quit End If Const CONVERT_TO_LOCAL_TIME = True Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime") DateToCheck = CDate(Date()) dtmStartDate.SetVarDate DateToCheck - 8, CONVERT_TO_LOCAL_TIME Do Until objTextStream.AtEndOfStream g_strComputer = objTextStream.ReadLine Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & g_strComputer & "\root \cimv2") Set colLoggedEvents = objWMIService.ExecQuery ("Select * From Win32_NTLogEvent Where LogFile = 'System' AND TimeWritten >= '" & dtmStartDate & "' AND EventType = 1") If Err = 0 Then objFinalLog.Write "Error Events from System Log." objFinalLog.Write vbCrLf End If For Each objEvent in colLoggedEvents If Err <> 0 Then Exit For End If objFinalLog.Write g_strComputer objFinalLog.Write vbCrLf objFinalLog.Write "Category: " & objEvent.Category objFinalLog.Write vbCrLf objFinalLog.Write "Event Code: " & objEvent.EventCode objFinalLog.Write vbCrLf objFinalLog.Write "Message: " & objEvent.Message objFinalLog.Write vbCrLf objFinalLog.Write "Record Number: " & objEvent.RecordNumber objFinalLog.Write vbCrLf objFinalLog.Write "Source Name: " & objEvent.SourceName objFinalLog.Write vbCrLf objFinalLog.Write "Event Type: " & objEvent.EventType objFinalLog.Write vbCrLf objFinalLog.Write "Time Written: " & objEvent.TimeWritten objFinalLog.Write vbCrLf objFinalLog.Write vbCrLf Next Loop objTextStream.Close objFinalLog.Write VBCrLf objFinalLog.Write VBCrLf objFinalLog.Write "Error Events from Application Log." g_strHostFile = "C:\tmpSrvAvail.txt" Set objFse = CreateObject("Scripting.FileSystemObject") If objFse.FileExists(g_strHostFile) Then Set objTextStream = objFse.OpenTextFile(g_strHostFile, FOR_READING) Else WScript.Echo "Computer list, " & g_strHostFile & " not found." WScript.Quit End If Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime") DateToCheck = CDate(Date()) dtmStartDate.SetVarDate DateToCheck - 8, CONVERT_TO_LOCAL_TIME Do Until objTextStream.AtEndOfStream g_strComputer = objTextStream.ReadLine Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & g_strComputer & "\root \cimv2") Set colLoggedEvents = objWMIService.ExecQuery ("Select * From Win32_NTLogEvent Where LogFile = 'Application' AND TimeWritten >= '" & dtmStartDate & "' AND EventType = 1") For Each objEvent in colLoggedEvents If Err <> 0 Then Wscript.Echo "We made it here." & g_strComputer Exit For End If objFinalLog.Write vbCrLf objFinalLog.Write g_strComputer objFinalLog.Write vbCrLf objFinalLog.Write "Category: " & objEvent.Category objFinalLog.Write vbCrLf objFinalLog.Write "Event Code: " & objEvent.EventCode objFinalLog.Write vbCrLf objFinalLog.Write "Message: " & objEvent.Message objFinalLog.Write vbCrLf objFinalLog.Write "Record Number: " & objEvent.RecordNumber objFinalLog.Write vbCrLf objFinalLog.Write "Source Name: " & objEvent.SourceName objFinalLog.Write "Event Type: " & objEvent.EventType objFinalLog.Write vbCrLf objFinalLog.Write "Time Written: " & objEvent.TimeWritten objFinalLog.Write vbCrLf objFinalLog.Write vbCrLf Next Loop objTextStream.Close Wscript.Echo "Job Completed, check Master File for Output." On Error GoTo 0 Dim objShell Dim strDelete Set objShell = CreateObject("Wscript.Shell") strDelete = "C:\deletefiles.vbs" objShell.Run(strDelete) I was having problems deleting the files I create earlier in the script, hence the reason my script creates another one, which deletes the files and itself. My problem is that I need to run this is in multiple domains, for different clients. I do not believe this script will work correctly in a mixed environment ie running 2003 and 2000 Server OS's, which some of our clients have. Can someone advise me on how to get this to work in a mixed environment? Short of running a search on the 2000 machines, then another on the 2003 machines. Thanks. Tag: Change "useraccountcontrol" for multiple objects Tag: 203193
  - 25
    - Finding multiple memgers of a group Hi, I am working on a script that will determin if three different ID's are in the local Administrators group on a long list of servers. I can get my script to reliably report on ONE user, but If I try fro more than one, I get mixed results and I can't trust the accuracy. Can someone point me to a sample script or discussion on finding multiple users in a group? This script will tell me if JoeUser is a memger of the Administrators group on a list of servers. Option Explicit Dim objGroup, strComputer, objFSO, objTextFile Const ForReading = 1 On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("C:\Scripts\servers.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = Trim(objTextFile.Readline) If (strComputer <> "") Then Set objGroup = GetObject("WinNT://" & strComputer & "/ Administrators,group") Wscript.Echo "Members of local Administrators group on computer " & strComputer Call EnumGroup(objGroup, "") End If Loop Sub EnumGroup(objGroup, strOffset) Dim objMember For Each objMember In objGroup.Members 'Wscript.Echo strOffset & objMember.Name & " (" & objMember.Class & ")" If (objMember.Name = "JoeUser") Then Wscript.Echo strOffset & objMember.Name & " (" & objMember.Class & ")" End If Next End Sub Tag: Change "useraccountcontrol" for multiple objects Tag: 203192

I need a script that will modify the "useraccountcontrol" for systems
defined in a file. I have developed a very basic .vbs with static
inputs, but need assistance pulling values (objects to change) in from
a file.
My scripting skills are in a beginner state, any assistance will be
appreciated.

Top