Change fax # in AD

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
    - Querying AD with the LIKE operator I have a weird problem querying AD for computer accounts. I am trying to query AD for any computer in any OU that contains "server" in the name of the OU. EG: CN=cdecitrix9,OU=CAN,OU=!Citrix,OU=Servers,DC=MyDomain,DC=com CN=abccwrk1,OU=CAN,OU=Servers,DC=MyDomain,DC=com We have several nested OU's that I need to enumerate. Here code that searches the "name" attribute of AD computers: '<><><><><><><><><><><><><><><><><><><><><><> Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = "Select distinguishedName,Name from 'LDAP://DC=MyDomain,DC=com' where objectClass='computer' and name = '*MyComp*'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF Wscript.Echo objRecordSet.Fields("distinguishedName").Value objRecordSet.MoveNext Loop '<><><><><><><><><><><><><><><><><><><><><><> The above looks (starting at the root of the domain) for computers that have the string "MyComp" somewhere in their name. The above script works as expected. If I change the query command to: objCommand.CommandText = "Select distinguishedName,Name from 'LDAP://DC=MyDomain,DC=com' where objectClass='computer' and distinguishedName = '*MyComp*'" It doesn't work. You would think "distinguishedName" would return the same set of computers but it only returns and empty data set. Any ideas? Thanks, Dan Tag: Change fax # in AD Tag: 178009
  - 2
    - Monitor Serial Cable (Wire Leads) I want to create a custom application that monitors if one or more of the cables (one end is plugged into the PC's serial port the other end is cut off exposing the bare wires) on a serial end are connected or disconnected. Is there a way to enumerate what is going on through the serial cable? Tag: Change fax # in AD Tag: 178006
  - 3
    - UPS Rates Online Tools Hi everyone, I am trying to integrate UPS's Online Tools into my classic ASP project. Does anyone have some examples of this that I could look at? I am specifically looking for information on the "Rates and Service Selection" tool. Thanks, Ken. Tag: Change fax # in AD Tag: 178005
  - 4
    - Shortcut to a shared folder Hi, Is there a way that a vbscript can create a desktop shortcut to a shared folder that exists on a server? Thanks in Advance, JeffH Tag: Change fax # in AD Tag: 177999
  - 5
    - Membership... Please help. I would like to remove DOMAIN account from a LOCAL administrators group REMOTELY using vb script. Can anybody either point me the way for more reading material for the subject or present me with the vb script? The following script can remove the member of the Administrators group if the account is a LOCAL account to that computer. If the account is a DOMAIN account, I got the error with message: 'A member could not be added or removed from the local group because the member does not exist'. Dim oDomain,oGroup,sDomain,sGroup,sUser sDomain = "TheRemotePC" 'local host; member of the Active Directory domain sGroup = "Administrators" sUser = "JDow" 'a domain account; not an account to the local pc Set oDomain = GetObject("WinNT://" & sDomain) Set oGroup = oDomain.GetObject("Group", sGroup) oGroup.Remove("WinNT://" & sDomain & "/" & sUser) Tag: Change fax # in AD Tag: 177992
  - 6
    - number formating into a string I'm looking for some equivalent code that will convert a number using a mask and store the result into a string. In VBA: stringvar = Format$(I,"000") returns a 3 digit string. I.E. when I = 1; "001" is the result. Its just like the Text(I,"000") function that excel uses. How is this done in VBScripting? I have tried the FormatNumber() function but the 2nd parm that deals with leading zeroes, is a boolean var parameter that doesn't do what I need. -- Regards, John Tag: Change fax # in AD Tag: 177987
  - 7
    - Script to add additional static ip addresses to machine Does anyone know how to script the addition of static ip address (as in the advanced tcp/ip settings tab of the tcp/ip properties)? I can only find examples for adding a single static ip, netmask, gateway... Thanks, Rich Tag: Change fax # in AD Tag: 177986
  - 8
    - Accessing local group by group SID Hello all, perhaps someone could give me a hint for a small problem I have here. I would like to access local groups based on their well-known SID. Then check the members for the existence of certain groups. Currently I only know how to check the group based on the name. However, there is the problem, that "Administrators" group is not the same name in all languages. Is there any possibility to identify a local group based on the SID. Here's the part of the script that is currently doing the membership check: Set colGroups = GetObject("WinNT://" & strComputer & "") colGroups.Filter = Array("group") For Each objGroup In colGroups ' If objGroup.Name = "Administrators" Then For Each objUser in objGroup.Members If objUser.Name = strCheckMemberName Then bIsMember =True Else ... End If Next End If Next Thanks in advance for the help. Markus Tag: Change fax # in AD Tag: 177982
  - 9
    - Programmatically creating a USB printer port Is it possible to script the creation of a printer that's connected via a USB port? Using "prnadmin.dll" I've been able to add the drivers, and create the print object. However, I'm not able to create the port. After letting Windows XP detect the printer, the port description is "Virtual Printer port for USB." Any insight is appreciated. Thx, Curtis Tag: Change fax # in AD Tag: 177980
  - 10
    - Help with vbs / wmi script Being a bit of a newbie, I'm having trouble getting the script below to work. I'm trying to create a piece of code that will allow me to supply 3 parameters (a computer name, a WMI class and a WMI class property) and get a value returned. For ease of reading I've hard-coded the variable in the example below to make things more obvious. strComputerName = "Myserver" strClass = "Win32_Processor" strProperty = "MaxClockSpeed" Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\root\cimv2") Set objClass = objWMIService.Get(strClass) For Each objProperty in objClass.properties_ If objProperty.Name = strProperty Then strValue = objProperty.Value WScript.Echo objProperty.Name & " = " & strValue End If Next Any ideas why strValue never gets any value? Tag: Change fax # in AD Tag: 177973
  - 11
    - Extract information from text file I am automating FTP tranfers, and need to read a log file and extract the name of the files transferred. An example line of text is: 150 Opening ASCII mode data connection for testfile.txt(0 bytes). All that I want to extract from the line is "testfile.txt". The following code works - (the wscript.echo is the relevant line): If Left (strline, 3) = "150" then TestString = strline TestArray = Split(TestString , " ",-1, 1) wscript.echo Left(TestArray(7),InStr(TestArray(7),"(")-1) Else 'script not included in example End If However, if the file name is more than one word long 150 Opening ASCII mode data connection for new testfile.txt(0 bytes). The script fails. Can anyone suggest a better way to extract the file name? Thanks Jo Tag: Change fax # in AD Tag: 177972
  - 12
    - Validating dates with regular expressions in a German Windows PC Hi, I have an international vbs application and I am using regular expressions to validate the format of the dates entered by the user. It works fine when running on a English windows PC but it does not recognised valid dates if the PC has the German version of windows. This is the code I am using: Function FormatValRegExp(strValue, strRegExp) Dim re ' Regular Expression object Dim response ' response On error resume next response = "" Set re = new regexp ' Create the RegExp object re.Pattern = strRegExp ' set pattern re.IgnoreCase = true response = re.test(strValue) Set re = nothing FormatValRegExp = response End Function This function wiht the following parameters: strValue: 31.12.1996 strRegExp: \d{1,2}[.]\d{1,2}[.]\d{2,4}$ returns true in an English version of Windows and false in a German windows. Any ideas? Cheers Juan Tag: Change fax # in AD Tag: 177971
  - 13
    - Win32_PerfRawData_RemoteAccess_RASPort I use ZyXEL OMNI ADSL USB modem on my home PC (Windows XP SP2). When I launch the following VBScript, I get nothing! colItems has not objItem. Why? I want to get Bytes Received during current connection with Internet. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_RemoteAccess_RASPort",,48) For Each objItem in colItems Wscript.Echo "BytesReceived: " & objItem.BytesReceived Next Tag: Change fax # in AD Tag: 177968
  - 14
    - VBScript to create new users & their Exchange MailBox Hi, I'v been asked to create more than 200 new users account & their exchange mailboxes. I have all the information in Excell file First Name Last Name Initials I wonder if there is any way to write a VBScript whow read the user infromation from the Excell file and create the USER Account & MailBox in our AD. thanks for your help Windows platform is: windows server 2003 & Exchange Server2003 Tag: Change fax # in AD Tag: 177965
  - 15
    - Re: IE automation - how to tell when document is complete? Sorry, I accidently hit send. Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Option Explicit Dim oIEApp Dim iCount_BeforeNavigate2, iCount_NavigateComplete2 Set oIEApp = WScript.CreateObject("InternetExplorer.Application", "event_") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop Do Until iCount_BeforeNavigate2 = iCount_NavigateComplete2 WScript.Sleep 100 Loop MsgBox "Done navigating to aol.com" End With Sub event_BeforeNavigate2(objBrowser, strURL, Flags, _ TargetFrameName, PostData, Headers, bCancel) iCount_BeforeNavigate2 = iCount_BeforeNavigate2 + 1 End Sub sub event_NavigateComplete2(objBrowser, strURL) iCount_NavigateComplete2 = iCount_NavigateComplete2 + 1 End Sub This seems like overkill. Does anyone have a simpler way to reliably detect document complete? Thanks, -Paul Randall Tag: Change fax # in AD Tag: 177952
  - 16
    - How to access files from CIM_DirectoryContainsFile I'm trying to process files that are placed in a mapped network folder. Once a file is copied into the folder, I would like to check the filename against a list of known files, move it, rename it and process it. I was trying to get this example to work for me: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\scripts""'") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.PartComponent Loop But the objLatestEvent.TargetInstancePartComponent seems to be a string rather than an object. In other words, I can't do objLatestEvent.TargetInstance.PartComponent.Name , etc... Any ideas? TIA, Chester Tag: Change fax # in AD Tag: 177947
  - 17
    - need to get AD attributes using vbscript. please help i need a simple(?) script that will take an AD user as an argument and create a list of ALL AD attributes that apply to users, and if the attribute is used also list the value of the attribute. if the attribute is empty i still have to list it, but there will just be no value. can anyone point me in the right direction? thank you Tag: Change fax # in AD Tag: 177946
  - 18
    - ReadAll and RegExp Hello Everyone, I'm new to posting in this group and was hoping that I might be able to get some assistance with an issue that I'm having. Basically, what I'm doing is capturing AS/400 data with a software called PlanetPress Watch and when I get this data I need to run it through a VBScript to look for Index Values that will be grabbed and passed to a variable, then eventually using the variables to create delimited data file with path to a PDF, i.e. "field1"~"field2"~"field3"~@@path\pdf.pdf. My problem is that I've changed the script from using SkipLine and Skip, just in case an extra CRLF or something appears in the data, which would throw off the entire script in the fact that my Index values would be blank. I've recently discovered the power of RegExp and have been researching it over the past week to try and get a handle on it. I think I'm to the point of understanding it, but am having some issues with getting it to work in a VBScript. Part of my problem, other than being a self-taught programmer, is reading in the data file and passing it to a variable with the .ReadAll command. I think I may have the .ReadAll command now, but it's the RegExp pattern that isn't matching or something, even though it should match this: "CR\LF ACLU5801S2341380", that is CR LF Space String. Here's my code: '************************************************************** Option Explicit Const ForReading = 1, ForWriting = 2 Dim x Dim objFSO Dim objInputFile, objOutputFile, objIn Dim strTempName, strTempPath Dim strLine, strLineBack1, strLineBack2 Dim ContainerNo, insertValue Dim PhxRef, locationNumber, statementDate, counter, TypeBrokerage, TypeBreakbulk Dim DocNoP1, DocNoP2, DocNoP3, DocNoP4, DocNoP5, DocNoP6 Dim ShipperNo, ConsigneeNo, HAWBNo, AgentNo, AWBDate, MBillNo, HBillNo Dim DocNoP11, DocNoP22, DocNoP33, DocNoP44, DocNoP55, DocNoP66 Dim fcount, lncount, skipln, strData, objIntro, strLineIn, DataLine Set objFSO = CreateObject("Scripting.FileSystemObject") '***NOTE: PW_GetJobFilename is a special function for PPW, that gets the tempFileName of the datafile Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) strTempPath = objFSO.GetFile(PW_GetJobFilename).ParentFolder.Path strTempName = objFSO.GetTempName Set objOutputFile = objFSO.GetFolder(strTempPath).CreateTextFile(strTempName) Dim ss, re, rv, objMatch, ColMatches, StrReturnStr Set re = New RegExp re.Pattern = "(\r\n\x20)([A-Z\d]{12,18})" 're.Pattern = "c." re.Global = True re.IgnoreCase = True 'Set objInputFile = objFSO.OpenTextFile(PW_GetJobFilename, 1) Do While objInputFile.AtEndOfStream <> True strData = objInputFile.ReadLine '***NOTE: Watch.ShowMessage is a special function for PPW, like MsgBox 'Watch.ShowMessage(strData) Set ColMatches = re.Execute(strData) Loop For Each objMatch in ColMatches StrReturnStr = objMatch.value Watch.ShowMessage(StrReturnStr) Next 'Loop Watch.SetJobInfo 1, Chr(34) & "INV" & Chr(34) & Chr(126) & Chr(34) & DocNoP1 & DocNoP2 & DocNoP3 & DocNoP4 & DocNoP5 & DocNoP6 & Chr(34) & Chr(126) & Chr(34) & ShipperNo & Chr(34) & Chr(126) & Chr(34) & "ConsigneeNo" & Chr(34) & Chr(126) & Chr(34) & "BOLNo" & Chr(34) & Chr(126) & Chr(34) & "AgentNo" & Chr(34) & Chr(126) & Chr(34) & "Date" & Chr(34) & Chr(126) & Chr(34) & "DocNo2" & Chr(34) & Chr(126) & Chr(34) & "ContainerNo" & Chr(34) & Chr(126) & Chr(34) & HAWBNo & Chr(34) & Chr(126) & Chr(34) & HBillNo & Chr(34) & Chr(126) & Chr(34) & MBillNo & Chr(34) & Chr(126) & Chr(34) & "EntryNo" & Chr(34) & Chr(126) & Chr(34) & "CustAcctNo" & Chr(34) & Chr(126) & Chr(34) & "ImporterNo" & Chr(34) & Chr(126) & Chr(64) & Chr(64) & "D:\DocImport\INV\" & Watch.GetJobInfo (9) & ".pdf" objInputFile.Close objOutputFile.Close objFSO.DeleteFile PW_GetJobFilename, true objFSO.MoveFile strTempPath & "\" & strTempName, PW_GetJobFileName '************************************************************** Any suggestions that you could give would be greatly appreciated. Thanks in advance. --Ken Stulce Tag: Change fax # in AD Tag: 177944
  - 19
    - scripting uninstalling device drivers Anyone know of a method for uninstalling a device driver via vbscript? Such as a NIC. Tag: Change fax # in AD Tag: 177943
  - 20
    - RUNAS+.exe Does anyone know where I can get this. This is a scriptable runas that microsoft provides for free. Thanks Tag: Change fax # in AD Tag: 177940
  - 21
    - IE automation - how to tell when document is complete? Hi, I playing with IE automation. Many scripts in this newsgroup show code like the following to open a web page and wait for its completion: Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" End With Other scripts listen for the DocumentComplete event. If I count the occurences of the DocumentComplete event, I find that my 'done' message box appears after the DocumentComplete event has fired twice, and that the DocumentComplete event fires once more, perhaps right when msdn.microsoft.com is truely done loading. When just starting IE and navigating to one URL, waiting for a ReadyState of 4 is sufficient. Many of us are not satisfied with navigating to only one URL; we want to go more places. But the ReadyState remains 4 for a hundred or more millisecons after specifying a new URL, then changes to 3, and finally changes back to 4 when the page has loaded. So we need logic like this for the second URL: Option Explicit Dim oIEApp Set oIEApp = CreateObject("InternetExplorer.Application") With oIEApp .Visible = True .Resizable = True .FullScreen = False .Height = 600 : .Width = 600 .Top = 50 : .Left = 100 .Navigate("msdn.microsoft.com") Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to msdn.microsoft.com" .Navigate("aol.com") Do While.ReadyState = 4 : WScript.Sleep 2 : Loop Do Until .ReadyState = 4 : WScript.Sleep 100 : Loop MsgBox "Done navigating to aol.com" End With With this script, most of the time the AOL done message occurs when the page really is loaded. Occasionally, the AOL done message occurs long before the page really is loaded, especially when CPU usage is high. From this I have concluded that neither ReadyState nor the DocumentComplete event are reliable indicators of a web page's being complete. I've monitored how often various events occur by the time the MsgBoxes appear, and I'm currently using the following logic to determine completion. Thanks, -Paul Randall Tag: Change fax # in AD Tag: 177939
  - 22
    - How do I include/reference functions in another file? Simple question, as I build up my little library of some useful functions I want to keep all of these in a "myfuncs.vbs" script. Then when I write a quick new script I just want to be able to call funtions located in "myfuncs.vbs". How do I do this? Thanks for your help in advance! Regards, Craig. Tag: Change fax # in AD Tag: 177933
  - 23
    - Listing user name and other values http://www.rlmueller.net/Programs/CreateUserList2.txt I'm new to AD and have done some work with VB Script. I've been trying to modify the above to give me back a list of all the users as well as some of the values, say phone #, that is listed in AD. So far I've had very little success on this. Someone willing to point me in the right direction? -- Thanks Wayne Sepega Jacksonville, Fl Enterprise Library Configuration Console Module Generator http://workspaces.gotdotnet.com/elccmg "When a man sits with a pretty girl for an hour, it seems like a minute. But let him sit on a hot stove for a minute and it's longer than any hour. That's relativity." - Albert Einstein Tag: Change fax # in AD Tag: 177931
  - 24
    - Script Remote Access I am trying to find information on clients cpu and the script will only run on a few clients and not all. why is this? Tag: Change fax # in AD Tag: 177930
  - 25
    - RUNAS+.exe Does anyone know where I can get this? It supposed to be free from Microsoft yet I can't find it anywhere. It a scriptable runas utility. Thanks Tag: Change fax # in AD Tag: 177928
- Next
  - 1
    - Determining Win95 machines via login script I am needing to deploy some software to workstations that are Windows 95 (this is not a typo). What I have done so far is define a BAT file in AD for the User Login Script that uses the START \\myvbScript.vbs. The vbScript then tries to make a WINMGTS: connection and when it fails (Err.Number = 432, Class does not exist) it calls my 9xInstall.BAT file. For the most part this works since we do not have the WMI Core Environment out there but I'd rather be checking for the OS specifically, since that is what I really need to know. Unfortunately, I cannot find a way to do this without using WMI. Is there an object I can use to get the OS in vbScript or even a command in the BAT file that I can rely on? As always, thanks. Bart Perrier Tag: Change fax # in AD Tag: 177927
  - 2
    - Adding a Security group to Workstations I need to add a new security group to several workstations at two different facilities. The group to be added is different for both locations. I thought I would be easy to just query AD for the machines in eat locations OU and then just use a script that would then loop through that list and add the group. Sadly my scripting skills are still in their infancy and I'm having troubles finding the info I need to query AD in a manner I can understand. What I need to know is how to pull something out of a subfolder in an OU that may be 3 levels deep. I have found several scripts but Iâ??m not sure exactly what Iâ??m looking at. Does anyone know of an idiotâ??s guide so to speak for pulling things from AD? Tag: Change fax # in AD Tag: 177923
  - 3
    - Enable "Show Quick Launch" Is there any one that have a vbscript to enable ""Show Quick Launch" on Windows Xp clients. /Andreas Tag: Change fax # in AD Tag: 177919
  - 4
    - VBS, WSH scripting authoring tools Hello: We are currently looking for some of the top tools to do VBS and/or WSH scripting. Basically we are looking for authoring tools that have pre-defined functions, that are gui-based, for easy ability to create logon scripts, etc. So far we only know of Microsoft's own free tools (Scriptomatic, Tweakomatic), and we are looking for something a little better (commercial products are fine). Can anybody suggest some of the top tools that are out there now? Thanks a lot for all feedback... -- Chris Tag: Change fax # in AD Tag: 177915
  - 5
    - Converting CR to CR/LF Hi there I'm a very small newbee, and looking for an easy way to convert a text-file. Sinece the textfile came through ftp it has only lf at the end of the line, but I need an cr/lf. Thanks in advance for any help. Best regards Ralf Tag: Change fax # in AD Tag: 177904
  - 6
    - USER NAME ACCESS Hi All I am using connection manager administration kit to create a Windows VPN connection for all home users. I've written a batch file to map the users home drive once connected to the VPN net use H: \\Server\%username% The problem with the above, the Variable %USERNAME% takes the name from the user who is logged onto the local computer not the user who is connecting to the VPN. Does anyone know how I can get the name of the user how is logged onto the VPN connection into the %username% rather than the user who is logged onto the local computer. wayne PS I am not a scripter I am just learning starting with basic batch files Tag: Change fax # in AD Tag: 177903
  - 7
    - Microsoft.XMLHTTP I want to download file using "Microsoft.XMLHTTP" object. My URL is http://qqqqq.com/oo.php?52152 How to determine a real name of downloaded file? With CreateObject("Microsoft.XMLHTTP") .Open "Get", "http://qqqqq.com/oo.php?52152", False .Send Response = .ResponseBody With CreateObject("ADODB.Stream") .Type = 1 .Open .Write Response .SaveToFile RealFileName, 2 < - ???? End With Uka. Tag: Change fax # in AD Tag: 177899
  - 8
    - Date confusion Hi, I am developing a webpage in conjunction with MS access. I use dates as a primary attribute to search for data. However, on somedays the program will work with the date format mm/dd/yyyy and other times it is dd/mm/yyyy and sometimes it will work with both. When it works with both this causes the most confusion. In some parts of the program the application will work with the mm/dd/yyyy format and some other parts with dd/mm/yyyy. However other parts of the program will crash because it is of the wrong format. My question is... Is there some way of making it conssitent throughout the application? My regional settings is set to Australia. Thanks in Advance Tag: Change fax # in AD Tag: 177897
  - 9
    - Scriptomatic 2 fails @ line 452 I'm running Windows XP/SP2 and when I run Scriptomatic 2.0 and select an WMI_Class, I get a script error on line 452 where it's trying to create an "WScript.Network" object. This works fine if I issue the same commands from an VBS file. Do I need to do something special to make HTA's work on my PC? I disabled my antivirus software just in case (wasn't getting an error there), tried changing my security level for local intranets to LOW, nothing seems to work. The program works just fine under Win2k. Tag: Change fax # in AD Tag: 177888
  - 10
    - Adding method to response object Is it possible to add or override any of the methods in the Response object? I'd like to change how Response.Write works a little bit... -- J.B.Moreno Tag: Change fax # in AD Tag: 177887
  - 11
    - Domain information through vbs Good afternoon, Here is what I would like to achieve but do not know how! I would like to create a script that 1- run dos command "net group GROUPNAME /domain" and write it to a textfile 2- Using the textfile of users, run the dos command "net user USERNAME /domain" (using 1 by 1 the user from the textfile in 1) and write it to another textfile 3- Go through the textfile created in 2 and validate certain parameter such as "logon script". Can someone run me through this or point me to a web site that can provide me with the basics on how I can do this type of script. One of my main problem is how I can use the text file created in 1 in 2 since it is output in a tabular format (3 columns) and vbs will read it 1 line at a time. How can I transform the dos output into a valid format to use in 2? Thank you for any help! Daniel Tag: Change fax # in AD Tag: 177886
  - 12
    - Accessing Outlook Subfolders I'm trying to add/remove a user form a folders' ACL. This code works fine on a single folder: Set oInbox = oSession.GetDefaultFolder(CdoDefaultFolderInbox) Set oACLObject = CreateObject("MSExchange.ACLObject") oACLObject.CDOItem = oInbox Set oACEs = oACLObject.ACEs How do I change this to do the same for folders under the Outlook Inbox? Thanks! Tag: Change fax # in AD Tag: 177883
  - 13
    - Capture screen output of Telnet using vbscript Is there any way to capture the screen output of a telnet session to a text file? Code to do it would be very much appreciated as I'm on a short time limit. However, an explaination of how to do it will also suffice. I currently use a 3rd party program to do this however I am trying to accomplish this task with only what Windows 2000 Professional comes with (including WSH 5.6). I have tried to do this with batch files but was unable to do so. I wrote vbscript to send commands to telnet but can't find a way to capture the screen output to a text file. Thanks in advance, Chris Tag: Change fax # in AD Tag: 177880
  - 14
    - change mouse to hourglass? How can I change the mouse to an hourglass? Tag: Change fax # in AD Tag: 177875
  - 15
    - Copy folder with permisions intact I need to migrate users home folders to a new server. About 60 GB in all. So they need to be copied or moved with permisions and hopefully any share permisions intact. Can this be done with objFolder.CopyHere? or objFolder.Copy? Or would it be easier/better to use xcopy or something? Thanks Tag: Change fax # in AD Tag: 177870
  - 16
    - List OU's in an OU using VBS Hi I am new to VBscript and would like to be able to query an OU for it's contents (which is more OU's) and then display the results in the text field on an inputbox. This is so that the user can enter the name of one of the OU's listed into the inputbox input field. Hope this makes sense. Thanks in advance Keith Tag: Change fax # in AD Tag: 177867
  - 17
    - Writing xml.ResponseText to file Hello, I'm having some problems writing out xml.ResponseText to a text file. I can send it to a web browser using Response.Write, but I can not write it out to a text file. It's not a permissions issue, the file gets created without a problem and if you write a line of plain text to the file, it works perfectly. I tried casting xml.ResponseText to a string, but that did not work either. Is there anyway I can do this? <% Const ForWriting = 2 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://xxxx", False xml.Send set tfile=FSO.CreateTextFile("c:/pathtofile.asp", true) 'response.write xml.ResponseText <--- Works 'tfile.WriteLine "Hello World" <---- Works tfile.WriteLine(test) tfile.close set fso = nothing %> Tag: Change fax # in AD Tag: 177862
  - 18
    - Using Replace with wildcard How can I use replace to replace a dynamic string that is sent over to my broswer using a wildcard? Here is a snip of my code, extract = Replace(extract, "href", "") for example here is what the browser sees, href="javascript:show('1','http://server/page.asp=FDR2dmwjDE%3Byt2q%26FDT7w% 7Cq612d4 but I want it to look like " " instead after the 'href' is a long string that is dynamically changed each time the page is viewed, how can I use Replace to remove anything following the 'href' but nothing below that line of code? Thanks in advance.. Tag: Change fax # in AD Tag: 177859
  - 19
    - Newbie: Small Script to Delete files Hi Group, Hope your all well? I wonder if somebody could give me some help on this one, or maybe some Examples? I have a Directory call C:\HFSWIN\ In here I have around 90 files, with vereous file formats. I would like to be able to delete all files files that end with *.lbl, *.lbv, & *.lbb. Except these 9 files: Jordans1.lbl Jordans2.lbl Jordans3.lbl Jordans1.lbv Jordans2.lbv Jordans3.lbv Jordans1.lbb Jordans2.lbb Jordans3.lbb Is this possible? Many Kind Thanks Regards Simon Tag: Change fax # in AD Tag: 177853
  - 20
    - Right click on text vs. right click on hyperlink Is there a way that Windows script can tell whether the mouse has right clicked on the text area of a web page, or whether it has right clicked on a hyperlink on the webpage? I have a Windows script in an htm file that I want to behavior differently depending on whether the first condition or the second condition exists . Thanks, Larry Tag: Change fax # in AD Tag: 177843
  - 21
    - Trying to process a large AD group I'm trying to cycle through all the members of a large AD group, but it seems to hit some type of maximum at 1500. Below is the snippet of code: arrMemberOf = objGroup.GetEx("member") ' Loop = For Each .... Next WScript.Echo "Members of Group " & strContainer For Each strMember in arrMemberOf ' WScript.echo strmember Set objItem = GetObject("LDAP://" & strmember) strsAMAccountName = objItem.Get("sAMAccountName") ' WScript.Echo "sAMAccountName: " & strsAMAccountName <snip> Any ideas? Is 1500 the maximu number of elements in the array arrMemberOf? Thanks. (rookie VBS coder, go easy) -GT Tag: Change fax # in AD Tag: 177839
  - 22
    - Inserting images in RTF? How can I programatically insert images into my rtf-file? I generate the files with asp in combination with the rtf-spec but I can't figure out how I can insert images from file. Any suggestions? Tag: Change fax # in AD Tag: 177838
  - 23
    - Using WSH to Copmpare Files Hello all, Is there a way I can use WSH to compare two files for equality? Do I have to call the DOS 'fc' or 'comp' commands? I was thinking about writing my own comparison function by then I'd have to be able to read a binary file. Is this possible as well? Thank you. -- Tony LaPaso Tag: Change fax # in AD Tag: 177837
  - 24
    - Need freeware IDE I just started working with scripting (VBScript, WMI, WSH). I know how beneficial these tools will be, but I have not been able to convince anyone to cough up the cash for an IDE tool. What are some good free tools (Not Notepad) that I can use as an IDE? Thanks ccoates Tag: Change fax # in AD Tag: 177829
  - 25
    - Smart Tags to call vbscript? Anyone know if its possible to use smart tags to call a vbscript...without having to write a custom dll or use the sdk? Just wondering if its possible via a simple xml file. Tag: Change fax # in AD Tag: 177828

I am looking for a script that will prompt me for a user name in AD and then
allow me to change the Fax#. I have a script that will change all the fax
numbers in an OU to one number, but I need to be able to do this on
individual accounts.

TIA
Gavin...

Top

Re: Change fax # in AD by Jerold

Jerold
Sat Jul 23 08:42:14 CDT 2005

On Fri, 22 Jul 2005 16:17:52 -0700, "Gavin Ross" <gavin.ross.nospam@stewart.com> wrote:

>I am looking for a script that will prompt me for a user name in AD and then
>allow me to change the Fax#. I have a script that will change all the fax
>numbers in an OU to one number, but I need to be able to do this on
>individual accounts.
>
>TIA
>Gavin...
>
Try ADMOD.EXE, tip 8233 in the 'Tips & Tricks' at http://www.jsifaq.com

admod -b "CN=Test1 Test1,CN=Users,DC=JSIINC,DC=COM" "facsimileTelephoneNumber::770-678-6497"

Top