AD user parameters

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
    - Export and import DHCP configuration Hi there I need to backup my dhcp datas to be able either to reload them in case of problem on my DHCP service or to load them on another DHCP server in case of crash of my DHCP server. I'd like to record the datas in a text file to be able to modify it easily (In case of crash I'll need to change the range of my dynamic IP adresses). Thanks in advance Phil Tag: AD user parameters Tag: 181647
  - 2
    - HTA Minimize IE window method ?? I've searched high and low without success for a HTA method that will Minimize and then Maximize the active HTA window. Can someone point me to a URL or detail how to perform this task? Tag: AD user parameters Tag: 181646
  - 3
    - Creating a shortcut icon in All users start menu? Hi. I would like to add a few icons to the "All users" start menu using a VBScript. Are there any examples i can have a look at. What i especially need is to know. 1. How can i find out the correct path to X:\document and settings\All users\Start menu\ using some variable? 2. how do i create and place a shortcut in the start menu? thanks in advance k Tag: AD user parameters Tag: 181645
  - 4
    - Enable DNS Server automatically Hi Group I want to Write a script to automatic enbale the "DNS Server Address" and enter a fixed server IP as "172.18.2.1" Please help me for this. Regards Kathy Tag: AD user parameters Tag: 181644
  - 5
    - Script to Update Driver Hi Group I want to Write a script to Update the driver of keyboard. Right now I am doing it manually by going in control panel and selecting the keyboard, right click and cliking on the "Update driver" option fron the specefic location. I want to do it automatically, Can anyone help me for this. Thanks and Regards Kathy Tag: AD user parameters Tag: 181643
  - 6
    - Need Help getting PC data into a file Hi There I am very very very new to scripting. If any one can guide me in the right direction I will really really appreciate. I am building a sql data base of my computers at work (about 1000) of them. I was wondering if I can write a batch file, which will get me the following info into a text file Ram MAC HD size Proc speed Does nay one know how? THx a lot Tag: AD user parameters Tag: 181638
  - 7
    - Script bombs if user not member of any groups I have a script that deletes a specific group from user accounts. It works (deletes the group, if present) as long as the user account is a member of any other group besides Domain Users. The script bombs if the user not member of any group (other than Domain Users) at this line: arrMemberOf = ouser.GetEx("memberOf") The error is: Active Directory: The directory property cannot be found in the cache. How can I get my script to finish? Tag: AD user parameters Tag: 181635
  - 8
    - Unable to register vbscript.dll I attempt to register vbscript.dll using regsvr32 but I'm unable to. I get the error DllRegisterServer failed. Is there any solution to get around this? Tag: AD user parameters Tag: 181634
  - 9
    - I'm unable to register vb or jscript.dll I cannot use regsvr32 in a Windows XP Home environment to register said .dll files. The unit I'm working on currently has multiple spyware infections. Without being able to register these files I'm unable to install certain spyware programs. Any ideas as to why this is happening? I tried to reinstall Windows Scripting 5.6 to no avail. Tag: AD user parameters Tag: 181631
  - 10
    - Unable to add a Variable to a SELECT statement Hi, I'm learning VBScript by actually writing "proof of concept" code for work. One VBScript piece has my head being driven mad. It must be simple but I can't find any code on the web (I might be looking in the wrong place). Staff save work files and folders to an individual folder on a server - this needs deleting every so often. Eventually I will connect this code with an excel spreadsheet and loop through possibly hundreds of folders and contents to be deleted. The problem is how to add the variable: "strDelete" to the SELECT part of the statement (assuming I have got that peice of code right?) Here's what I have so far. ======================================================================== On Error Resume Next dim strComputer, strStaff, strOffice, strDelete strComputer = InputBox("Please enter a workstation number") strOffice = InputBox("Please enter a staff number") strStaff = InputBox("Please enter a staff number") strDelete = "\\" & strComputer & "\e$\data\" & strOffice & "\users\" & strStaff Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery ("SELECT * FROM Win32_Directory _ WHERE Name = 'strDelete' ") For Each objFolder in colFolders errResults = objFolder.Delete Wscript.Echo errResults Next ' example of path: \\<strServer>\e$\data\<strOffice>\users\<strStaff> ' real example: \\london01\e$\data\OxfordRoad\users\MatthewsFolder ========================================================================= TIA James Tee Tag: AD user parameters Tag: 181627
  - 11
    - Excel AddIns.Add problem Hi! :-) I've made a installation script for a templates package we use. It includes a .xla file (= an Excel Add-In). When I started testing the script on the rest of the It dept two (of 20+) got an error. Not in my script but in the .xla code: I install the add-in with: If objFileSystem.FileExists(strFileName) Then Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Add Dim objAddIn : Set objAddin = objExcel.AddIns.Add(strFileName,True) objAddIn.Installed = True On Error Resume Next Dim objAddInWorkbook : Set objAddInWorkbook = objExcel.Workbooks(objExcel.AddIns(objAddIn.Name)) If Err <> 0 Then Set objAddInWorkbook = objExcel.Workbooks.Open(objAddIn.FullName) On Error Goto 0 objExcel.Quit End If The error seemes to occur in Excel when the "Set objAddInWorkbook = objExcel.Workbooks.Open(objAddIn.FullName)" row is run. The error message in excel is: Run-time error '-2147467259 (80004005)': Metod 'OnAction' of object '_CommandBarButton' failed I would prefer to solve this problem by changing my script but if it's easier/possible in the -xla file. Here's the sub where the problem occurs, it's started from the workbook_open sub, I don't know if it's also run automatically or not: Private Sub Load_Menus() Dim myMenuBar As CommandBar Dim newMenu As CommandBarControl Dim ctrl1 As CommandBarButton Dim ctrl2 As CommandBarButton Dim ctrl3 As CommandBarButton Dim ctrl4 As CommandBarButton Dim mnuMenu As CommandBarControl Dim mnuMenuItem As Variant Set myMenuBar = Application.CommandBars.ActiveMenuBar Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True) newMenu.Caption = "&Leanstream" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True) ctrl1.Caption = "&Spara som nytt dokument i e-pärm" ctrl1.OnAction = "ThisWorkbook.GetMyProjects" Set ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True) ctrl2.Caption = "&Checka in och stäng dokumentet" ctrl2.OnAction = "modCheckIn.CheckaIn" Set ctrl3 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True) ctrl3.Caption = "&Uppdatera fält i dokumentet" ctrl3.OnAction = "modDocOpen.DocOpen" Set ctrl4 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1, Temporary:=True) ctrl4.Caption = "&Hjälp om Leanstreamfunktioner" ctrl4.OnAction = "ThisWorkbook.VisaHjalp" 'Knöligt men nödvändigt. Om man använder Application.CommandBars.FindControl(ID:=748).OnAction = "ThisWorkbook.LSArkivSparaSom" så funkar det inte! If Application.CommandBars.FindControl(ID:=748).Caption = "Spara so&m..." Then Application.CommandBars("Worksheet Menu Bar").Controls("&Arkiv").Controls("Spara so&m...").OnAction = "ThisWorkbook.LSArkivSparaSom" ElseIf Application.CommandBars.FindControl(ID:=748).Caption = "Save &As..." Then Application.CommandBars("Worksheet Menu Bar").Controls("&File").Controls("Save &As...").OnAction = "ThisWorkbook.LSArkivSparaSom" End If End Sub The row Excel marks yellow is "ctrl1.OnAction = "ThisWorkbook.GetMyProjects"". I solved the proplem on one of the machines by adding the .xla manually. Though the whole point of this is not to have to do things manually so any input's welcome!! :-) Thanks a million! :-) /Sofia Tag: AD user parameters Tag: 181623
  - 12
    - Cluster Monitoring Has anyone come across a script to monitor cluster wmi events to per4form notification when a cluster failsover? Paul Tag: AD user parameters Tag: 181621
  - 13
    - Replace / with , in a text file I need to open every *.log file in a folder and replace all occurances of "/" with a "," inside a text file. Each .log file probably has 2000 lines. I am officially lost. Is there a simple solution for this? Any ideas where I can info on how to do this? Thanks Steve Tag: AD user parameters Tag: 181618
  - 14
    - retreive contents of add/remove programs Hi, Is there a sample script that I could run over a large network reporting what is registered in add/remove programs on each workstation? Perhaps via a GPO? TIA Tag: AD user parameters Tag: 181615
  - 15
    - How to create a self extracting zip file that starts excel with a macro I have created a pivot report against a .CSV data file. Everymonth I want to email the combination of the CSV file and the Excel pivot report to our users. So once the user clicks on the zip file it must save the CSV file in say c:\temp and then save the Excel pivot report as well in c:\temp and the Excel workbook pivot report start against the file in C:\temp Please help with code how I can do this. Thanks Karen Tag: AD user parameters Tag: 181611
  - 16
    - Copying Folders by Using the Shell Folder Object Hello I am copying folders like: objFolder.CopyHere "C:\Scripts", &H100& I want to pass more than one argument, e.g &H100& and &H4&. How do I do that? Thanks in advance /Svensson Tag: AD user parameters Tag: 181607
  - 17
    - Script in .asp updating records in Access database Hi, New to ASP and VB script and an amateur, so please forgive. I'm trying to make a competition results section for my golf club's web site. I've constructed an Access database with a table (tbl2005) which holds competition results in eight fields: ID (key), date1, day, event1, Agrade, Bgrade, Cgrade and NTP. I've successfully made .asp pages that will add records to the table (via a form) and delete a record. Now I'm trying to make one to update a record that might have been added incorrectly. I've got an .asp page that will bring up the records in a table so one can be selected for updating, and then one that places the selected record fields in a form so the record can be altered. These seem to work correctly. Then I've got the following page (make_update.asp) to process the amended form and update the table. ======================================================================== <% Dim ID,date1,day,event1,Agrade,Bgrade,Cgrade,NTP ID = Request.Form("ID") date1 = Request.Form("date1") day=Request.Form("day") event1 = Request.Form("event1") Agrade = Request.Form("Agrade") Bgrade = Request.Form("Bgrade") Cgrade = Request.Form("Cgrade") NTP = Request.Form("NTP") Dim Conn ,Rs, sql Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("results.mdb") sql= "Update tbl2005 Set date1='"& date1 & "', day='"& day & "', event1='"& event1 & "', Agrade='"& Agrade & "', Bgrade='"& Bgrade & "', Cgrade='"& Cgrade & "', NTP='"& NTP & "' where ID="&ID Conn.Close Set Rs=Nothing Set Conn = Nothing Response.Write "Competition list has been updated" End If %> ======================================================================== However, while it gives the "success" message, it doesn't update the record in the table. The problem seems to be in the "sql= ..." line. Any suggestions? -- Thanks Colin Wilson ------------------------------------------------------------------ Trentham Golf Club: http://www.trenthamgolf.com ------------------------------------------------------------------ Tag: AD user parameters Tag: 181602
  - 18
    - Adding a new printer share then remove old The situation I'm in is we are renaming all our printers and shares. I have used in the past a script that checks for the old printer, installs the new one, checks for if it was a default then deletes the old. Unfortunately this was when we where changing server names and the difference is we are keeping the same server name but changing the printer names and shares. However I can't seem to get this script working because the old printer name no longer exists because it has been renamed. Is there a way around this? Below I have a copy of our test script strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer") For Each objPrinter in colPrinters on error resume next If Lcase(objPrinter.name) = Lcase("\\appprint\test1") Then Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\appprint\testprint1" Else If Lcase(objPrinter.name) = Lcase("\\appprint\test2") Then Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\appprint\testprint2" End If End If Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer Where Default = TRUE") For Each objPrinter in colPrinters If Lcase(objPrinter.name) = Lcase("\\appprint\test1") Then Set objNetwork = CreateObject("WScript.Network") objNetwork.SetDefaultPrinter "\\appprint\testprint1" Else If Lcase(objPrinter.name) = Lcase("\\appprint\test2") Then Set objNetwork = CreateObject("WScript.Network") objNetwork.SetDefaultPrinter "\\appprint\testprint2" End If End If Next Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer") For Each objPrinter in colPrinters on error resume next If Lcase(objPrinter.name) = Lcase("\\appprint\testprint1") Then Set objNetwork = CreateObject("Wscript.Network") objNetwork.RemovePrinterConnection "\\\appprint\test1" Else If Lcase(objPrinter.name) = Lcase("\\appprint\testprint2") Then Set objNetwork = CreateObject("Wscript.Network") objNetwork.RemovePrinterConnection "\\appprint\test2" End If End If Next Tag: AD user parameters Tag: 181597
  - 19
    - hopefully simple update of AD through vbscript? We are running MS Exchange (2003?) that has added some extensionAttributes to Active Directory. One group started using those extenstionAttributes and now the values need pushing down. I have been tasked with moving attributes 3->5 -> 5->8, meaning put the value from 3 into attrib 5, the value from 4 into attrib 6, the value from 5 into attrib 7. All the touched users are in the same OU. Seems I should be able to: attach to ADS create some sort of query for all users in OU update each user setting attrib8 = '' attrib7 = attrib5 attrib6 = attrib4 attrib5 = attrib3 attrib4 = '' attrib3 = '' end user end loop If I AD were a database I could connect to: update users set attrib7 = attrib5 where ou = OU; update users set attrib6 = attrib4 where ou = OU; update users set attrib5 = attrib3 where ou = OU; update users set attrib4 = '' where ou = OU; update users set attrib3 = '' where ou = OU; I've done a little vbs, but not this much. Anyone have this code or code that can be easily adapted to this? Mike Tag: AD user parameters Tag: 181591
  - 20
    - Editing a GPO I need to create and edit a GPO. The creating part I have: sGPO = "Outlook Web" set oGPM = CreateObject("GPMgmt.GPM") set oGPMConstants = oGPM.GetConstants() set oGPMDomain = oGPM.GetDomain(DomainName, "", oGPMConstants.UseAnyDC) set oGPO = oGPMDomain.CreateGPO() oGPO.DisplayName = sGPO That part is ok. The part that is kicking MY tail is scripting a piece that EDITS a value in that GPO. I need to change the location of the Start Menu folder, redirect it to a specific location. I have gone through the GPMC .chm file, and am now just really confused! heh heh Can anyone give me a hand with this? TIA, DS --- Life is all about ass; you're either covering it, laughing it off, kicking it, kissing it, busting it, trying to get a piece of it, behaving like one, or living with one! *** Sent via Developersdex http://www.developersdex.com *** Tag: AD user parameters Tag: 181588
  - 21
    - Dynamic Window/Control Updates Does anyone know how to dynamically create and update an HTA form? I want to update a field repetitively for longer processes and I don't want to use a backend ASP script. Tag: AD user parameters Tag: 181586
  - 22
    - Forward events in real time Hi, I want the events in Security log to be forwarded in real time to a database/evt format /text file. How to do it with a script? Thanks, Wensi Tag: AD user parameters Tag: 181582
  - 23
    - Remove DHCP Leases with script I am trying to write a script that will remove leases from our DHCP server. We have many notebook computer leases that have to be cleaned out often. We currently do it maunally, but a script would sure be easier. Thanks for any ideas. -- Wildflower MCSE 2004 Tag: AD user parameters Tag: 181580
  - 24
    - How to copy/paste from one file to another I need to copy cells from an Excel csv file and paste them into an Excel xls file. Does anyone know how this can be done using vbs? Thanks... Tag: AD user parameters Tag: 181579
  - 25
    - IE history and typed URL erase Need help witht his script: I want it to automatically select yes and delete all clear typed URLs and not prompt for user. And second part of script opens IE history. On that I would like it to select all and delete. I am using this script as a log off for students in a classroom. Thanks On Error Resume Next strExplain="ClearTypedURL clears individual items from the history of URLs typed into Internet Explorer." & vbCRLF & "The program will prompt for each item in the list." & vbCRLF & vbCRLF strTitle="Clear Run MRU" Dim Sh Set Sh = WScript.CreateObject("WScript.Shell") ReportErrors "Creating Shell" Sh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\" & Wscript.ScriptName & "\", Chr(34) & Wscript.ScriptFullName & Chr(34) Sh.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\" & Left(Wscript.ScriptName, Len(Wscript.ScriptName)-3) & "exe" & "\", Chr(34) & Wscript.ScriptFullName & Chr(34) ReportErrors "Updating App Paths" NoOfURLs=0 x=1 Do t=Sh.RegRead("HKCU\Software\Microsoft\Internet Explorer\TypedURLs\Url" & CStr(x)) If Err.Number=-2147024894 then Err.Clear Exit Do Else NoOfURLs=NoOfURLs + 1 x=x+1 End If Loop If MsgBox (strExplain & "Number of entries" & vbtab & NoOfURLs & vbCRLF & vbCRLF & "Continue?", vbYesNo + vbInformation, strTitle) = 6 then Dim MRUItem() ReDim Preserve MRUItem(0) For x=0 to NoOfURLs - 1 MItem=Sh.RegRead("HKCU\Software\Microsoft\Internet Explorer\TypedURLs\Url" & CStr(x +1)) Sh.Regdelete "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\Url" & CStr(x + 1) If MsgBox ("Do you want to delete " & vbcrlf & vbcrlf & MItem & vbcrlf & vbcrlf & "Yes" & vbtab & "To delete" & vbcrlf & "No" & vbtab & "To keep", vbYesNo + vbQuestion, strTitle) <> 6 then ReDim Preserve MRUItem(UBound(MRUItem)+1) MRUItem(UBound(MRUItem))=MItem End If Next If UBound(MRUItem) > 0 Then For x=1 to UBound(MRUItem) Sh.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\Url" & CStr(x),MRUItem(x) Next End If If MsgBox ("Visited URLs are also stored in the History folder. Each item can be deleted there." & vbcrlf & vbcrlf & "Open History folder?", vbYesNo + vbQuestion, strTitle) = 6 then Sh.Run "Explorer /e,/root," & Sh.RegRead ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\History") End If End If Tag: AD user parameters Tag: 181578
- Next
  - 1
    - Running a vbscript on a remote XpPro computer. Error: remote ser I am as scripting newbie trying to run a vbscript from a computer named "Alpha" on a remote computer named "Zappa" in my lan. I get the error message: "Error: The remote server machine does not exist or is unavailable: 'GetObject', Code: 800A01CE, Source: Microsoft VBScript runtime error OK" We're on a win2k server. Both Alpha and Zappa are running WinXpPro, and are completely updated. Each computer sees the other in My Network Places. I placed the remote script ("Logoff.vbs") into the Windows folder of the remote computer ("Zappa"), to avoid any questions about finding the path to the script. I am logged into Alpha as "Marxp" which is an administrator on both computers. Here's the script I'm running on Alpha (which I cannibalized from the web): strRemoteComputer = "Zappa" strWorkerScript = "Logoff.vbs" Set objWshController = WScript.CreateObject("WshController") Set objRemoteScript = _ objWshController.CreateScript(strWorkerScript, strRemoteComputer) objRemoteScript.Execute Do While Not objRemoteScript.Status = 2 Wscript.Sleep(100) Wscript.Echo "Remote script not yet complete." Loop Somewhere on the web, I saw something about a program called "poledit.exe", but (being a newbie at this), I did not know where to find it or what to do. Any pointers would be much appreciated. marc ee poo Tag: AD user parameters Tag: 181575
  - 2
    - Pause or Wait in VBscript how can I add a pause or wait in VBS Tag: AD user parameters Tag: 181574
  - 3
    - Way to execute asp pages I'm looking for a way to execute asp pages outside from browser. I can't save them to .VBS extension because of little diferences (server.createobject and other some little differences) Final objective is to schedule execution of this page that do some processes and I should avoid schedule opening browser to exec it... Any help appreciated. -- Gibe si è fatto passare perchè Rossi dietro è come una purga, prima o poi una cagata te la fa fare...! Tag: AD user parameters Tag: 181569
  - 4
    - Configure Windows Explorer hey guys, where can i find hints about configuring windows explorer? need such things as satusbar enable, view all documents/folders... donÂ´t want to click this every time on a new pc. thanks for your help! Flo Tag: AD user parameters Tag: 181568
  - 5
    - Running a vbscript on a remote XpPro computer. Error: remote server machine does not exist or is unavailable I am trying to run a vbscript from a computer named "Alpha" on a remote computer named "Zappa" in my lan. I get the error message: "Error: The remote server machine does not exist or is unavailable: 'GetObject', Code: 800A01CE, Source: Microsoft VBScript runtime error OK" We're on a win2k server. Both Alpha and Zappa are running WinXpPro, and are completely updated. Each computer sees the other in My Network Places. I placed the remote script ("Logoff.vbs") into the Windows folder of the remote computer ("Zappa"), to avoid any worries about finding the path to the script. I am logged into Alpha as "Marxp" which is an administrator on both computers. Here's the script I'm running on Alpha (which I cannibalized from the web): strRemoteComputer = "Zappa" strWorkerScript = "Logoff.vbs" Set objWshController = WScript.CreateObject("WshController") Set objRemoteScript = _ objWshController.CreateScript(strWorkerScript, strRemoteComputer) objRemoteScript.Execute Do While Not objRemoteScript.Status = 2 Wscript.Sleep(100) Wscript.Echo "Remote script not yet complete." Loop Somewhere on the web, I saw something about a program called "poledit.exe", but (being a newbie at this), I did not know where to find it or what to do. Any pointers would be much appreciated. marc ee poo Tag: AD user parameters Tag: 181567
  - 6
    - TIMEZONE Hello i am looking a sricpt to set time zone when user log on w2k server domain Thank you Tag: AD user parameters Tag: 181563
  - 7
    - vbscript and task scheduler I have a script that runs just fine when I run it manually. I tried to create a schedule task for this so it would run nightly, and when the scheduler executes it the processor goes to 100% cpu and stays there and the script never completes. I can't see it being a permissions issues because the script starts. I have never had this prolem with any other script. The script it'self is simple, it quries a database and writes the results to excel. I can see the excel process gets started but again it never completes. Anyone have any ideas???? Tag: AD user parameters Tag: 181558
  - 8
    - AD, the last date in that a PC was lit / started I need a script, to know through the AD, the last date in that a PC was lit / started. I have five domain controllers. Thank you in advance Tag: AD user parameters Tag: 181557
  - 9
    - Unable to read program's output I'm trying to shell out and run an exe and read its ouput. What I'm finding is that my VBS script is unable to see any of the text normally seen when running the program from the console. This is a simplified version of the code: Dim exec, s0, somepgm, inputfile somepgm = "C:\Program Files\somepgm.exe" inputfile = "C:\data\somefile.ext" Set shell = CreateObject("WScript.Shell") Set exec = shell.Exec("""" & somepgm & """ """ & inputfile & """") Do While exec.Status = 0 WScript.Sleep 100 Loop Do Until exec.StdOut.AtEndOfStream s0 = exec.StdOut.ReadLine WScript.Echo "s0: " & s0 Loop I've also noticed that I can't capture any of the program's output if I run it from the command line using a file redirect: C:\>"C:\Program Files\somepgm.exe" "C:\data\somefile.ext" >output.txt This generates an empty file. Any ideas how I can read the output? Tag: AD user parameters Tag: 181555
  - 10
    - Problem with Enumerating Software Hi, I have run this snippet on both XP machines and Small Business Server 2003. Set colSoftware = objWMIService.ExecQuery _ ("Select * from Win32_Product") wscript.echo "Count " & colSoftware.count When running it on XP, I get a count of software packages installed. When run on the SBS server, I get an invalid class error when trying to display the count. (The same thing happens when trying to display the items in the collection.) Is there a way to get a listing of the software installed on a server? Thanks Tag: AD user parameters Tag: 181553
  - 11
    - Need event after back button I need the event or coding when a page is returned to. Example, in vbscript I add some highlighting to the page. If a link on the page is fired then the linked page comes up, then if hit back button, I get original page back but without the highlighting. I've tried to look at things like the onactivate (which works) but that requires that the page returned to be clicked on with the mouse. What event routines or coding might be available upon just returning to a page with the back button? So that I can have it recall my highlighting routine, so that the page can then look the same as they left it. TIA, mtnw Tag: AD user parameters Tag: 181550
  - 12
    - Sorting strings in vbscript I have a string containing a list of items in it seperated by vbcrlf. Can anyone think of a clever/elegant way to sort that list? Tag: AD user parameters Tag: 181544
  - 13
    - Join the domain Hey all: Is it possible that a VBS script be written to move a machine from one domain to another (And into an ou that is different from the default workstations ou) ex from abc to ad remotely and not reboot the machine? THanks for any suggestions. Tag: AD user parameters Tag: 181536
  - 14
    - Changing Font Color and clearing screen Hello all, I am running vbs scripts from the command line using cscript. Is it possible to send commands to the command interpreter such as clear screen (CLS) and change color of lines as the script progresses and writes output all without calling a second cmd from the script? THX Tag: AD user parameters Tag: 181535
  - 15
    - Finding Char > 3 in many files Hi Not sure if correct Group Delete Rows with more than 3 Characters on many files in 1 directory I have multiple files in the following .Txt format ABP,20040102,1.15,1.15,1.12,1.12,46552 ABS,20040102,3.54,3.54,3.50,3.50,4683 ABX,20040102,1.85,1.85,1.85,1.85,14000 ABXO,20040102,1.50,1.50,1.50,1.50,4000 ACL,20040102,0.60,0.60,0.60,0.60,19500 ADA,20040102,0.86,0.86,0.86,0.86,4802 ADB,20040102,8.08,8.08,8.05,8.05,53474 ADBHB,20040102,92.50,92.50,92.50,92.50,100 ADBPA,20040102,106.00,106.00,106.00,106.00,100 ADG,20040102,3.70,3.70,3.70,3.70,2431 I want to delete the rows which contain > 3 Characters eg ABXO, ADBHB and ADBPA Then save the file under it's existing file name Then move to next file and repeat, until last file in Directory. I am using Win2000 Many Thanks Graham White Tag: AD user parameters Tag: 181533
  - 16
    - Newbie - This Doesn't Work New to VB scripting, but an old programmer. I'm having fun playing with all this stuff! I'm trying to figure out how to create a directory, then copy a file to it. Here's what I have so far: Set objFSO = CreateObject("Scripting.FileSystemObject") Set SwapFolder = objFSO.CreateFolder("D:\work\swapper") objFSO.CopyFile "c:\asdf.txt" , SwapFolder I get an error on the CopyFile line when I run this. I can't figure out what the proper format for the SwapFolder item should be on that line. Thanks Tag: AD user parameters Tag: 181532
  - 17
    - Dynamically execute a Sub, possibly with help of "ScriptControl" [The language is VB6, but as it's about implementing dynamic call of another method from the same module with the ScriptControl object, it shouldnt matter too much..] Hi, I'd like to do something like that (see explanations after the code snippet) : Sub mainSub (foo as String) Dim msScript As New ScriptControl msScript.Language = "VBScript" Dim someVar as String 'that'll be a parameter for the secondary sub someVar = "blah" Dim statement As String 'that's gonna be the dynamic statement to execute statement = foo & "_otherSub " & blah '"reality check" call, equivalent to what I want, but static: two_otherSub "blah" 'The thing...: msScript.execute(statement) 'Using: foo = "two" end Sub Sub one_otherSub (bar as string) 'do something end Sub Sub two_otherSub (bar as string) 'do something end Sub I'd like to use that because: mainSub takes a table name as parameter, fills a recordset with it and exports it to a flat file. Now, if I can have different subs for the formatting of the FIELDS of the recordset (when I write to file) and call these subs dynamically depending on the table name parameter, then I don't need anymore hard code in the mainSub... (like a big ugly SELECT CASE with 100 branches) Is that possible? Am I on the right track? I made some tries but without success, an hour of googling without much success either. Besides, I don't know whether I should use the .Eval, or .Run or .Execute method.. If it helps to picture the case, here are the signatures: 1) moduleName.export(tableName As String) The calling statement (in its "passive" form): For Each fld In rs.Fields TABLE_NAME_formatFields outFile, fld Next 2) TABLE_NAME_formatFields(outFile As moduleName.outFile, fld) Here's how it's handeld: With outFile Select Case fld.Name Case "FIELD_1": .AddToLine 0, fld.value, 5 Case "FIELD_2": .AddToLine 2, fld.value, 25 'etc. for each field.. End Select End With NB: outFile's type is a class I made, where .AddToLine is working like this: AddToLine(spaceBefore as Integer, content as String, fieldLength as Integer) Thanks, bye! Tag: AD user parameters Tag: 181529
  - 18
    - Struggling with WScript.Arguments.Named parameter and double quotes Hello all, I made a script that adds or removes a prefix and suffix from strings read from a file, using WScript.Arguments.Named to pass the correct prefix and suffix to be added or removed. All works well, except for one thing: the string can't add and remove double quotes, since those characters are command line parameter delimiters. Also creating something like cscript myscript.vbs /i:C:\input.txt /o:c:\output.txt /ap:'"' or cscript myscript.vbs /i:C:\input.txt /o:c:\output.txt /ap:" doesn't work (the first adds two single quotes, the latter does nothing). Can anyone come up with a solution for this? I tried to replace " with &doublequotes; when parsing the input file, but the correct prefix or suffix still needs to be specified somehow. Any ideas? C. Tag: AD user parameters Tag: 181526
  - 19
    - Hidden Shell.Exec How can I hide the cmd window using the Exec method with the Shell? Thanks Tag: AD user parameters Tag: 181524
  - 20
    - Access Denied error I am trying to install IP printer port using the script. I have modified the sample script from the Scripting Center by simply changing the IP addresses (I have used DNS name instead of IP, but this name can be successfully resolved to IP, so I donâ??t think it makes any difference). According to Microsoft, the script should run on Server 2003. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objNewPort = objWMIService.Get _ ("Win32_TCPIPPrinterPort").SpawnInstance_ objNewPort.Name = "hplj1160s1N04" objNewPort.Protocol = 1 objNewPort.HostAddress = "hplj1160s1N04" objNewPort.PortNumber = "9100" objNewPort.SNMPEnabled = True objNewPort.Put_ The script runs fine on Windows XP Pro, SP1. But when I run the script on Windows Server 2003, with or without SP1, I get the following error message: Script: installport.vbs Line: 12 Char: 1 Error: Access Denied Code: 80041003 Source: SwbemObjectEx Line 12 in this case is this one: objNewPort.Put_ I have tried to run the script as: Domain user, member of Domain Admins group, domain administrator, local administrator. Same negative results every time. Looks like I am missing some permissions, but I don't know where. Please help. Thanks, Dmitry Tag: AD user parameters Tag: 181522
  - 21
    - Shell.Exec bug? After observing that ADSystemInfo often gave more reliable information about who was logged onto the local PC than other methods, I cobbled together the following script: Option Explicit Dim objArgs, objSysInfo, objFileSys Dim objUser, objIPAddr, objWShell, objExec, objStdOut Dim strPC, strThisPC, strUser, strSrcFile, strDestDir, strOutput strSrcFile = "D:\VBScript\WhoIsOn.vbs" Set objArgs = WScript.Arguments If objArgs.Count = 0 Then WScript.Echo "Use:" WScript.Echo " WhoIsOn <machinename>" WScript.Echo " " WScript.Quit 1 End If strPC = objArgs( 0 ) Set objSysInfo = CreateObject( "ADSystemInfo" ) strThisPC = Mid( objSysInfo.ComputerName, 4, _ InStr( objSysInfo.ComputerName, "," ) - 4 ) If UCase( strPC ) = UCase( strThisPC ) Then WScript.Echo WScript.Echo "Users On " & strPC & ":" WScript.Echo WScript.Echo "Via ADSystemInfo:" strUser = Mid( objSysInfo.UserName, 4, _ InStr( objSysInfo.UserName, "," ) - 4 ) WScript.Echo " " & strUser Else If Not IsPingable( strPC, "" ) Then WScript.Echo( "Can not ping " & strPC & "; aborting." ) WScript.Quit( 3 ) End If strDestDir = "\\" & strPC & "\C$\Temp\" Set objFileSys = CreateObject( "Scripting.FileSystemObject" ) If Not objFileSys.FolderExists( strDestDir ) Then ObjFileSys.CreateFolder( strDestDir ) WScript.Echo( " Created directory " & strDestDir & "." ) End If WScript.Echo( " Copying " & strSrcFile & " to " & _ strDestDir ) objFileSys.CopyFile strSrcFile, strDestDir Set objWShell = CreateObject( "WScript.Shell" ) Set objExec = objWShell.Exec( "cscript " & _ strDestDir & "WhoIsOn.vbs" & " " & strPC ) Set objStdOut = objExec.StdOut WScript.Echo "DEBUG POINT 1" strOutput = objStdOut.ReadAll WScript.Echo "DEBUG POINT 2" WScript.Echo strOutput End If WScript.Quit( 0 ) ' ================================================================== Function IsPingable( strHost, intPings ) ' Returns True or False based on the output from ping.exe ' Author: Alex Angelopoulos/Torgeir Bakken ' strHost is a hostname or IP ' intPings is number of ping attempts (defaults to 2) Dim objWShell, objFileSys, objPingFile Dim strTemp, strPingFile, strResults If intPings = "" Then intPings = 2 Set objWShell = CreateObject( "WScript.Shell" ) Set objFileSys = CreateObject( "Scripting.FileSystemObject" ) strTemp = objWShell.ExpandEnvironmentStrings( "%TEMP%" ) strPingFile = strTemp & "\ping_whoison.tmp" On Error Resume Next objWShell.Run "%comspec% /c ping -n " & intPings & " " & _ strHost & ">" & strPingFile, 0 , True On Error Goto 0 Set objPingFile = objFileSys.OpenTextFile( strPingFile, _ 1, 0, -2 ) strResults = objPingFile.ReadAll objPingFile.Close objFileSys.DeleteFile( strPingFile ) Select Case InStr( strResults, "TTL=" ) Case 0 IsPingable = False Case Else IsPingable = True End Select End Function When the script runs, it determines if the specified system is the system it is running on. If so, it simply uses ADSystemInfo to report who is logged on, and then exits. If not, it copies itself to the specified system using FileSystemObject, and then tries to run itself remotely. However, when I try to run it, it successfully copies itself and then hangs: D:\VBScript>WhoIsOn.vbs remote_pc Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. Copying D:\VBScript\WhoIsOn.vbs to \\remote_pc\C$\Temp\ DEBUG POINT 1 It hangs there forever, or until I hit Control-C. I used the DEBUG statements to narrow down the error to the line strOutput = objStdOut.ReadAll Can anyone help me figure out why it is hanging at this point? I have admin rights on both the local and remote systems. Thanks in advance to all who respond. Leslie Tag: AD user parameters Tag: 181521
  - 22
    - how to script a reply email message i'm having problem with doing a reply link in my vb script. i have it automatically email users the group members from AD gorups for verification, and i have it set up with 2 hyperlinks, 1 to say members are correct, and 1 to say members are not correct please make x modifications. everything works, but i need it to copy the original message on the reply, is there a way to do this using the mailto syntax? i've tried using replyto syntax, but it keeps asking me for a .exe file when i click on the hyperlink - which is strange. any help would be appreciated! Tag: AD user parameters Tag: 181519
  - 23
    - VBS RND File Creator. I was looking for one of these and could not find one. This is down and dirty but gets the job done. I also was attempting to simulate the size of files so you will find that in this also. I generated 1 million files if you looking for this number; I would set the script to do a 10,000 that and launch 10 different versions of the application. This went pretty fast on a Dell 2850. Enjoy: '========================================================================== ' ' NAME: FileCreator.vbs ' ' AUTHOR: Anthony Flower ' DATE : 08/17/2005 ' ' COMMENT: Creates rnd files in the directory process runs in. ' '========================================================================== ' Setting Constants 'Continues on all errors. On Error Resume Next 'Sets the constants for the FileSystemObject Const ForReading = 1, ForWriting = 2, ForAppending = 8 'Setting Vars Dim ofso, oFile, Start 'This is getting the current local time and setting it to var start. Start = Now ' If set to true will change the size of each file to be between 0 and 5mb. RNDSize = True '========================================================================== WScript.Echo "Do not run this using WSCRIPT" WScript.Echo "File Creator" 'Setting the file system object to ofso var. Set ofso = WScript.CreateObject("Scripting.FileSystemObject") 'Starting for loop to change the nubmer of files change the last number at the end of the for. For t = 1 To 100 ' exanple For t = 1 to 100 will create 100 files Q = "Random_File_"& Rnd & "." & t & ".tmp" 'Creating text file with rnd name. ofso.CreateTextFile Q, 1 Set oFile = ofso.OpenTextFile(Q, 2) 'Placing information into the file itself, this will prevent this from being empty. oFile.WriteLine("This is a random file - Can be deleted.") 'If RNDSize is set to True this will change the size of the file. If RNDSize = True Then oFile.WriteLine("") oFile.WriteLine("START RANDOM INFORMATION") RNDSizeFileCreator oFile.WriteLine("") oFile.WriteLine("STOP RANDOM INFORMATION") oFile.WriteLine("") oFile.WriteLine("File Gererated by FileCreator 1.0") oFile.WriteLine("AJF Software") End If oFile.Close WScript.Echo Q Next WScript.Echo "File Creator Finished!" WScript.Echo t & " Files Created in " & DateDiff("s",Start,Now) & " Seconds!" Sub RNDSizeFileCreator On Error Resume Next Dim CHiP, t, x If MaxSize = "" Then MaxSize = 500000 '5MB End If Randomize RNDValue = Int((100 * Rnd) + 1) t = Round(MaxSize / RndValue) oFile.WriteLine "Max File Size = " & MaxSize & " Devided by " & RndValue x = 0 Do CHiP = CHiP + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" &_ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" &_ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" &_ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" &_ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" &_ "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" x = x + 372 ' WScript.Echo x Loop Until x >= t ' I never wrote a true random routine. This worked well. oFile.Write (CHiP) End Sub Tony Tag: AD user parameters Tag: 181513
  - 24
    - Manipulating a table (part 2) Yesterday I posted a question about some VBScript coding regarding manipulating a table. The help provided there has enabled me to get some working source code, so thanks for that. However, the result was not what I wanted. Instead of manipulating the contents of a table, I manipulated the table itself. What I am trying to do is to create a Word document using VBScript code in an ASP file. Inside this document, two tables are created. Creating the document and then consecutively the tables works. Now I am trying to select one particular column and set the alignment of the contents of the cells in that column to the right (as opposed to the left, which is the default). The code I tried was With StyTable.Table .Alignment = wdAlignRowRight but as said, this affects the table itself, not the contents of the cells within the table. Besides thinking about setting the default behaviour for specific cells, I have also considered the option of setting the alignment of the text as it is being inserted into the table. I've gone over the MSDN library and knowledge base, hoping to find any useful information, but I am stuck. Can anyone point me to where I need to look, to affect the way cells behave, instead of the table as a whole? Tag: AD user parameters Tag: 181503
  - 25
    - calling 2nd script hi, i have a LOOP at the end of my first script. how can i call my 2nd script to run after the LOOP has completed? thanks Tag: AD user parameters Tag: 181500

Hi there

When I create a user in AD via a script I can tell his (her) firstname,
lastname, username etc
I want to add his (her) email adress, description, office.
What's the name of the fields? or where can I find them?

Thanks

Phil

Top

Re: AD user parameters by Jerold

Jerold
Wed Oct 05 06:47:45 CDT 2005

On Wed, 05 Oct 2005 09:16:53 +0200, moi <moi.invalid@free.fr> wrote:

>Hi there
>
>When I create a user in AD via a script I can tell his (her) firstname,
>lastname, username etc
>I want to add his (her) email adress, description, office.
>What's the name of the fields? or where can I find them?
>
>Thanks
>
>Phil

Email is mail
Description is description
Office is physicalDeliveryOfficeName

Jerold Schulman
Windows Server MVP
JSI, Inc.
http://www.jsiinc.com
http://www.jsifaq.com

Top