[Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - How long a user has been logged on for... I know this is far from a new question but I am looking for a way to determine how long a user has been logged on to a remote XP/2003 machine (either logged on locally or remotely via RDP). I know how to get who is logged onto a machine both locally and through RDP sessions so I don't need any help there. I've tried a combination of Win32_LogonSession and Win32_LoggedOnUser but that didn't work. I'm aware that when a user logs on to a machine in a AD environment it updates the "lastLogon" property for their account on the domain controller but there must be something stored locally on the machine. I base my previous comment on the fact that when you open the "Terminal Services Manager" mmc snap-in and connect to a remote machine it lists the currently logged on users, their session type (Console or RDP), their state (Active or Disconnected), idle time, and their Logon Time. I've done some looking and have had no luck finding where "Terminal Services Manager" get's its information from. If it were possible to use the information that is uses then you would have the logon times for the individuals logged on to a specific machine and it would be trivial to determine how long they have been logged on once you have that tidbit of information. Anyone have an idea or where "Terminal Services Manager" gets its information from or if you can interface with "Terminal Services Manager" via vbscript? Nate Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191096
  - 2
    - Why Use Scripting I know here are millions of wonderful uses for automating with scripts (I use login scripts for numerous things) but I have a question regarding the use of scripts to create/delete AD user accounts. All of the scripts I have seen are really plain and simply create a domain account with no properties set. Not even the full name. It seems pointless to use a script like this as I still have to edit the account properties and fill in the blanks. I've also seen none that will create the associated Exchange mailbox. Since we perform a number of tweaks to a new account I had hoped to use scripting to make is simpler and more consistent. I must be missing something. I would envision a script that sets all the default properties for an account (i.e. disables terminal services) and prompts for input like Full Name, Ext, Fax, etc... as well as creating the Exchange mailbox. Is this too complex or am I not finding these scripts in my search of the web? Comments are much appreciated Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191095
  - 3
    - Enum stale computer accounts? Hello, Anyone have a quick vbScript that will enumerate AD for "stale" computer accounts?? Thanks, Troy Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191094
  - 4
    - Excel Application.DDEInitiate fails if invoked from VBScript Hi all, I am very new to VBScripting. I have the following situation, I hope someone could help me out. I have to write the code in VBScript to invoke a macro in Excel, which is available as an XLA file. It has to be a VBScript, since a different program decides which macro should be invoked. It would then generate this VBScript file. The user could then download this VBScript and execute on his computer. All the XLA-macros are making some DDE requests, or opening other Workbooks. If I run the macros from VBA, or Excel, they work fine. But if I try to execute the macros from VBScript: * The DDEInitiate() function in the macro returns "0". * Workbooks.open(....) returns "Nothing". - Is there a way to solve these problems ? - Is there a better way to acheive the same solution ? Any help would be greatly appreciated. I use the following VB Script to open an XLA and execute a macro. Dim objxl, xlapath, macro Set objxl = CreateObject("Excel.Application") xlapath = "C:\myxla.xla" macro="myxla.xla!macro1(""param1"",""param2"")" With objxl .Visible = True .Workbooks.Open xlapath .Workbooks("myxla.xla").RunAutoMacros 1 'xlAutoOpen .Run macro End With Within the xla-macro, I try to open another workbook. Public Sub macro1(param1 As String, param2 As String) Dim wb As Workbook Dim url As String url = "http://localhost/test.csv" Debug.Print "Attempting to open : " & url Set wb = Workbooks.Open(Filename:=url, UpdateLinks:=False, ReadOnly:=True, Editable:=False, AddToMru:=False, Format:=1) If wb Is Nothing Then Debug.Print "Could not open the page: " & url else Debug.Print "Successfully opened : " & url End If End Sub Public Sub macro2(service As String, topic As String, request as String) channel = Application.DDEInitiate(service, topic) If channel > 0 Then result = Application.DDERequest(channel, request) Debug.Print "Result of DDE Request: " & TypeName(result) & " Channel: " & channel Application.DDETerminate (channel) Else Debug.Print "DDE failed to initialize." End If End Sub Thanks in advance. Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191093
  - 5
    - Remote Desktop Hi all, can i enable the "remote desktop" in windows xp sp2 using a script ? Thanks. Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191090
  - 6
    - SHINBAUM OR ANYONE... Hi Shinbaum or Anyone... Can you help to create a function to destroy connection as Shinbaum sad?? http://groups.google.com.br/group/microsoft.public.scripting.vbscript/browse_thread/thread/a9f48bef34fa6725/?hl=pt-BR# Please look this topic... Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191089
  - 7
    - windows 2000 server event log query I am looking for a solution to check the event logs over the last 24 hrs for specific events on a windows 2000 server can anyone help ? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191088
  - 8
    - How to verify if a number if an integer? I need to write a function that when receive a number "x" is able to undestand if this number is multiple of 3 How can I do? I hoped that exists a math function to do so but.... Thanks Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191086
  - 9
    - call macro Hello guys, How can execute open a macro in from vbscript, I wrote this but doesn't not work objExcel.run objWkb.name &"!"&"getfunctioncitrix.workbook_open" ina Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191080
  - 10
    - Getting domain information from a machine not in the domain.. Essentially I am trying to come up with a more universal mapping/logon script - even for the laptop users who may be running a script to connect to their domain resources on occasion. The trouble so far has been that all the scripts I have done to check for domain membership and the likes, fail miserably when ran on a machine outside of the domain (not joined to the domain.) I assumed this was because the scripts, unless told, would be trying to communicate with the domain using local credentials - which would undoubtedly fail. In my research I came across a few pages mentioning this, including: http://www.rlmueller.net/NameTranslateFAQ.htm and http://www.scriptinganswers.com/Community/DiscussionForums/tabid/154/view/topic/forumid/6/postid/4108/Default.aspx However - implementing/testing those still gives me the dreaded: "The specified domain either does not exist or could not be contacted" "Code: 8007054B" And I am positive the credentials are correct - am positive that I can contact the domain - as I am actually VPN'd into the network at the time and a simple \\domain.com\netlogon at the run prompt (subbing in my actual domain of course) works as expected and asks me for the username/password. I've verified DNS settings, verified everything I can think of is correct. I am likely missing something simple - and I would love if someone here could point out the thing I am missing.. The examples of the code I am using can be found on the pages above (as they will give the same error as my larger script.) -- Shenan Stanley -- Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191066
  - 11
    - retrieve HTML from a website using VBScript I need help for creating a VBScript that can retrieve HTML from a given web site (perhaps typing the URL in an Inputbox) and the store that in my local computer.(the HTML) Any Idea? Thanks Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191064
  - 12
    - Querying MSDE ISA Logs I want to create customize reports on ISAS 2004. How can I query the MSDE database? Need help on this. Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191058
  - 13
    - Re: Querying MSDE ISA Logs sorry. posted on the wrong group. please disregard "M P" <mark@textguru.ph> wrote in message news:... > I want to create customize reports on ISAS 2004. How can I query the MSDE > database? Need help on this. > Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191057
  - 14
    - Folder Deletion Query Problem I hope someone can tell me where I am missing a step. I am trying to delete local profiles stored in Documents and Settings that do not match the last user to logon to a worksation. I can parse the user and the profile path fine, but when I want the script to delete all folders that do not match the criteria from the Documents and settings ROOT, it wants to delete all folders (including c:\) that does not match my "c:\documents and settings\SomeonesProfiles" string. I obviously don't want to do this. here is my code. Any help or guidance is appreciated. Thanks Mario Set fso = CreateObject("Scripting.FileSystemObject") Set ProfileLog = fso.OPenTextFile("c:\temp\Profile.log",8,true) Set TestLog = fso.OpenTextFile("c:\temp\Test.Log",8,True) '******************************************************************** '* DECLARE VARIABLES * '******************************************************************** strComputer = "." strDate = "20060501000000.000000-420" '******************************************************************** '* End Variable Declarations * '******************************************************************** '******************************************************************** '* Query Local Security Event log for Successful logon to * '* workstation * '******************************************************************** Set objWMIService = GetObject("winmgmts:{(Security)}\\" & strComputer & "\root\cimv2") Set colEvents = objWMIService.ExecQuery _ ("Select * from Win32_NTLogEvent Where Logfile = 'Security' and " _ & "EventCode = '528'") '******************************************************************** '* Once found, DO these actions if meets date and logon criteria * '* Parses User Identity from scif\scifid1 * '* Queries Local Directory Service for instances matching Document * '* and Settings\SCIFID1 * '******************************************************************** For Each objEvent in colEvents If objEvent.InsertionStrings(3) = 2 Then If objEvent.TimeWritten > strDate Then UserID = objEvent.User SCIFID = Split(UserID,"\") ProfileID = SCIFID(1) Wscript.Echo ProfileID Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"_ & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _ ("SELECT * from Win32_Directory WHERE Name <> 'C:\\Documents and Settings\\%" & ProfileID & "'") For Each objFolder in colFolders Wscript.Echo objFolder.Name & " will be deleted" Next End If End If ' Exit For Next Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191056
  - 15
    - scripting vss (check in, check out) from vba (instead of batch files) Is there a way to communicate with VSS from commands in vb or vba to * find out if a file exists in vss * find out if a file is checked out already * check a file out * check a file in * add a file * etc. ? I know you can generate bat files do do some of this stuff, for instance set path=c:\program files\microsoft visual studio\common\vss\win32 set ssuser=myusername set ssdir=\\myserver\vss\ ss cp $/myproject/mysubfolder ss.exe checkout myfile.vb ss.exe checkout myfile2.vb ss.exe checkin myfile.vb ss status myfile2.vb ss add myfile3.vb etc. but is there a way to issue these commands directly from VBA without having to script out a batch file and resort to shell? Furthermore, how do you get back status of some of these commands? For instance, "ss status myfile3.vb" might return "myfile3.vb myuser Exc 5/04/06 5:11p c:\myproject\mysubfolder" if the file is checked out. "No checked out files found." if the file is in VSS but not checked out "myfile3.vb is not an existing filename or project" if the file is not yet in VSS. At the very least we would need the batch file to generate some kind of output file that VB or VBA code can later read to see if the command went through (kludgey at best), but from the command box if I try to pipe a command to an output file, like ss status myfile2.vb > c:\myfile2_status.txt an empty file gets created (it works for a simple DIR command however) Is there any good example of vb directly sending commands to vss and getting back status messages? Any help appreciated... Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191054
  - 16
    - Debugging VBscript in embedded browsers I know how to debug a vbscript running in an HTML page being displayed in Internet Explorer. But what if IE is not stand alone, bur rather it is embedded in another application? When the script hits an error, all I get is an error notification, but not the option to open the debugger. Is there a setting I, as the end user, can change in the embedded browser, or is it up to the application developer to allow this? Thanks! Carlos Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191051
  - 17
    - Pre-setting print driver options Trying to set up a USB label printer through a Citrix session to a 2003 terminal server. I need to preset default form-to-tray assignment, the paper size, print density, and also write the printer name to an INI file. The problem: the printer name changes each time you log on. The name that MS creates for this is nasty - and example is "lp (on SOT5912) in session 39" The part "SOT5912" is the machine name, should be static for each station, but the session number, "39", changes EVERY time you log onto the server. I've tried "setprinter", but it doesn't have the proper settings and switches for my needs. I know it is not too hard to get the printer name - search for one that starts with characters "lp (on ", and use it. Presetting the needed driver settings is the real pain. I found the registry settings that need to be changed, but I need help. The setting that needs to be changed or inserted is in HKEY_CURRENT_USER\Printers\DevModePerUser and HKEY_CURRENT_USER\Printers\DevModes2. The name for the binary vaue is the printer name, it's the binary data needed that is my main problem. Here is an example, truncated at line 11 - the rest is all nuls, like the last line: [HKEY_CURRENT_USER\Printers\DevModePerUser] "lp (from SIS5029) in session 5"=hex:6c,00,70,00,20,00,28,00,66,00,72,00,6f,00,\ 6d,00,20,00,53,00,49,00,53,00,35,00,30,00,32,00,39,00,29,00,20,00,69,00,6e,\ 00,20,00,73,00,65,00,73,00,73,00,69,00,6f,00,6e,00,20,00,35,00,00,00,00,00,\ 01,04,00,05,dc,00,34,02,43,ef,81,07,01,00,c9,00,79,03,16,01,64,00,01,00,0f,\ 00,2c,01,01,00,01,00,2c,01,02,00,01,00,33,00,30,00,32,00,35,00,36,00,20,00,\ 53,00,68,00,69,00,70,00,70,00,69,00,6e,00,67,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,01,\ 00,00,00,02,00,00,00,01,01,00,00,ff,ff,ff,ff,00,00,00,00,00,00,00,00,00,00,\ 00,00,00,00,00,00,44,49,4e,55,22,00,00,00,34,02,00,00,3c,61,11,dc,00,00,00,\ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\ The hex data up to the 20th character on line 3 (0x35) is the printer name, truncated at 30 characters, and separated by 00. The rest of the data is static, and represents the needed printer settings. Anyone work with something like this before? My thoughts, I need a script to pull the appropriate printer name, create the hex data from the name with the 00 between letters, add the rest of the string as a pre-defined string, write the 2 needed registry entries. I have another registry entry to add to, but if I can get help with this hex entry, the rest of what I need will be EASY. Been working too long on this, trying to find the needed areas in the registry and verifying what was needed. Can someone help with the script? Thanks Randy Reimers Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191047
  - 18
    - Group Member listing. I am trying to list out members of group which contains members from another forest that we have established at trust with. The problem is that the members from the other forest only show up in the output as their SID identifier. Is it possible to pull a display name from another forest using a only a users SID? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191045
  - 19
    - Scripting.filesystemobject Issues on Windows 2003 I have an administrative script running on a 2003 Server. The script runs with backup operator permissions, and calls the scripting.filesystemobject. This used to work no problem, but at some point stopped working. (could be patch related?) Anywho, the error it through is on the line: set fs = CreateObject("Scripting.FileSystemObject") and the error is "ActiveX component can't create object: 'Scripting.FileSystemObject'" Code: 800A01AD I checked the permissions on scrrun.dll, and auehtenticated users have read and execute. Also, I reinstalled WSH 5.6 for Windows 2003. Any ideas what is happening to cause this issue? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191044
  - 20
    - Editing the Local Group Policy Hi, Can anyone refer me to some resources that show how to edit the "Local Group Policy" ( gpedit.msc). Basically I need to add a startup script e.g. Local Computer Policy > Computer Configuration > Windows Settings > Scripts(Startup/Shutdown). Or are there other command line utilities that can do this? Thanks, Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191041
  - 21
    - Using netsh command I'm unable to use the following script as it produces errors: oShell.Run("cmd /c" ("netsh interface ip set wins name=" local area connection "source=static addr=10.186.157.11") Any ideas on how to format this to use the netsh command? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191040
  - 22
    - IE7 beta2 objet Wscript.CreateObject("InternetExplorer.Application") Hello, Before it used the following function and now with IE7 beta2 does not work. as it is used now? Set objIntExplorer = Wscript.CreateObject("InternetExplorer.Application") With objIntExplorer .Navigate "about:blank" .ToolBar = 0 <----------------Error .Menubar = 0<----------------Error .StatusBar = 0<----------------Error .Width = 700<----------------Error .Height = 350<----------------error .Left = 100<----------------Error .Top = 100<----------------Error End With Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191038
  - 23
    - check bxes Can you make a vbscript have check boxes? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191035
  - 24
    - Help parsing text file I need to take a text file that contains information similar to the following: 6700011111001SomeText Here 00000360391260{ 00000400617000{ And output it to a new file only containing the las 6 numbers of the first set of numbers. I have tried regular expressions, instr and cannot find a way to do it. Thank you, Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191034
  - 25
    - MS dos and incrementing variables. Here is what I need help with... set JOB_PATH=.\faxes set JOB_NAME=fax1.job set JOB_FOLDER=%JOB_PATH%\fax1 type sec1.txt > %JOB_PATH%\%JOB_NAME% echo DIDNumber(*5000*9042452000*) >> %JOB_PATH%\%JOB_NAME% type sec2.txt >> %JOB_PATH%\%JOB_NAME% echo From_FaxNumber(*5000*9042452000*) >> %JOB_PATH%\%JOB_NAME% type sec3.txt >> %JOB_PATH%\%JOB_NAME% mkdir %JOB_FOLDER% copy %JOB_PATH%\SinglePageFaxSeed %JOB_FOLDER% I know this is going to have to change but it's what I have to start with. I need to be able to change job name and folder name from fax1 to fax2 to fax3 and so on with each copy. the 5000 that is part of the did number, i need to take from user input. Essentially it will ask the user for the DNIS number, they input whatever, then it will loop through 100 times with that same number but you will end up with fax1...fax100 all with the same number. then I can rerun the program with another number. I keep trying to use linux commands and I think that's why I am getting myself so confused. thanks for the help! Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191028
- Next
  - 1
    - Active Directory Import I was wondering if the is away when importing from a csv file to put the names with Lastname, Firstname MI. I use the fullname object when importing with script but it doesn't show in AD that way. Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191026
  - 2
    - Determining Currently Mapped Drives I'm trying to come up with a script that will request input for a computer name and then connect to that remote PC to determine currently mapped drives and thier full unc path as well as currently mapped drives. I tried using WMI's Win32_MappedLogicalDisk but that doesn't tell me what the drives are mapped to. Does anyone have any idea how to do this? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191025
  - 3
    - Exporting a Binary object from AD to a file. i'm trying to script part of our termination process. Part of that process is to save any "published certifcates" for an AD user account to a file, which we currently do via ADUC. I can't find a model script to steal to help with this process. The AD attirbute for each published certificate is named usercertificate and is a binary field. Got help! Thanks in advance, Matthew Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191023
  - 4
    - stdout/stderr atendofstream Hi, I have a question with regard to the properties atendofstream. I have some batch exe that I would like to run with the exec function. Some of the exe uses both stdout and stderr and i have a loop to capture both stream Do Until oExec.StdOut.AtEndOfStream And oExec.StdErr.AtEndOfStream And oExec.Status <> 0 wscript.echo "in loop" If Not oExec.StdOut.AtEndOfStream Then sText = oExec.StdOut.ReadLine If len(sText) > 0 Then StdOutLog sText End If End If If Not oExec.StdErr.AtEndOfStream Then sText2 = oExec.StdErr.ReadLine If len(sText2) > 0 Then StdErrLog sText2 End If End If Loop The problem is StdOut.AtEndOfStream will read past the buffer and hangs. This only happens with executables that write to both stdout and stderr. Anyone else had the same problem and is there any way to resolve it? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191020
  - 5
    - vbscript open macro in Excel Hello guys, I have this code: in vbscript description: I would like to open an workbook and execute two macro one in sheet1 et another in sheet2 (I have already done it and already set the private workbook_open() macro <HTML> <body> <h1>Tools</h1> <hr> <table><tr><td> </td></tr></table <h2><strong>GetInfo</strong></h2> <table><tr><td> </td></tr></table <p>>Please Click to have information</p> <form name="lx1"> <input type=button name=btn1 value="Ok"> </form> <SCRIPT LANGUAGE=VBScript> Dim objExcel Sub Btn1_onclick() call OpenWorkbook("getinfo.xls") Excel.Run "refresh" 'here I reflesh my macro End Sub Sub OpenWorkbook(strLocation) Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Open strLocation objExcel.Visible = true objExcel.WindowState = xlMinimized objExcel.WindowState = vbMaximizedFocus objExcel.WindowState = vbMaximized objExcel.UserControl = true objExcel.run "workbook_open" ' I would like to execute the private workbook_open bu ' but no way it doesn't work Set objExcel = Nothing End Sub </SCRIPT> </HTML> any help Will be really appreciated :() Ina Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191017
  - 6
    - Need help making script more efficient I have the following script to take Large_Logfile and split it up into several Smaller_Logfiles. Its very crude and could use some help so Im posting it here to see what you all can suggest. The purpose behind doing this may also be relivant(sp). What I am doing is taking a txt file of PC names and I have a Script we are running against that list to gather back information. If the PC Names list has alot of PC's in it it takes hours to run. What I want todo is split up the PC Names file into several smaller files and then run the script against all the smaller files at the same time to speed up the process. So far its cut the time down alot, the current state of the script is probably really raw and could use some assistance hence me posting it here. Any advice or suggestions is greatly appreciated. Mike.. Code - This is the entire Code ( Line breaks might be a problem ) Again this is very crude - just the begining of my thinking/script I hope to slim it down alot. SCRIPT ********************************* Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set fso = CreateObject("Scripting.FileSystemObject") Set Comps = fso.OpenTextFile("C:\OurStuff\Mikes_Scripts\AOP_Check\PCs.txt", ForReading) fPCLog_00 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_00.txt" fPCLog_01 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_01.txt" fPCLog_02 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_02.txt" fPCLog_03 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_03.txt" fPCLog_04 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_04.txt" fPCLog_05 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_05.txt" fPCLog_06 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_06.txt" fPCLog_07 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_07.txt" fPCLog_08 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_08.txt" fPCLog_09 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_09.txt" fPCLog_10 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_10.txt" fPCLog_11 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_11.txt" fPCLog_12 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_12.txt" fPCLog_13 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_13.txt" fPCLog_14 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_14.txt" fPCLog_15 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_15.txt" fPCLog_16 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_16.txt" fPCLog_17 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_17.txt" fPCLog_18 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_18.txt" fPCLog_19 = "C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_19.txt" Set PCLog_00 = fso.OpenTextFile(fPCLog_00, ForWriting, True) Set PCLog_01 = fso.OpenTextFile(fPCLog_01, ForWriting, True) Set PCLog_02 = fso.OpenTextFile(fPCLog_02, ForWriting, True) Set PCLog_03 = fso.OpenTextFile(fPCLog_03, ForWriting, True) Set PCLog_04 = fso.OpenTextFile(fPCLog_04, ForWriting, True) Set PCLog_05 = fso.OpenTextFile(fPCLog_05, ForWriting, True) Set PCLog_06 = fso.OpenTextFile(fPCLog_06, ForWriting, True) Set PCLog_07 = fso.OpenTextFile(fPCLog_07, ForWriting, True) Set PCLog_08 = fso.OpenTextFile(fPCLog_08, ForWriting, True) Set PCLog_09 = fso.OpenTextFile(fPCLog_09, ForWriting, True) Set PCLog_10 = fso.OpenTextFile(fPCLog_10, ForWriting, True) Set PCLog_11 = fso.OpenTextFile(fPCLog_11, ForWriting, True) Set PCLog_12 = fso.OpenTextFile(fPCLog_12, ForWriting, True) Set PCLog_13 = fso.OpenTextFile(fPCLog_13, ForWriting, True) Set PCLog_14 = fso.OpenTextFile(fPCLog_14, ForWriting, True) Set PCLog_15 = fso.OpenTextFile(fPCLog_15, ForWriting, True) Set PCLog_16 = fso.OpenTextFile(fPCLog_16, ForWriting, True) Set PCLog_17 = fso.OpenTextFile(fPCLog_17, ForWriting, True) Set PCLog_18 = fso.OpenTextFile(fPCLog_18, ForWriting, True) Set PCLog_19 = fso.OpenTextFile(fPCLog_19, ForWriting, True) Do Until Comps.AtEndOfStream On Error Resume Next PCLog_00.WriteLine Comps.Readline PCLog_01.WriteLine Comps.Readline PCLog_02.WriteLine Comps.Readline PCLog_03.WriteLine Comps.Readline PCLog_04.WriteLine Comps.Readline PCLog_05.WriteLine Comps.Readline PCLog_06.WriteLine Comps.Readline PCLog_07.WriteLine Comps.Readline PCLog_08.WriteLine Comps.Readline PCLog_09.WriteLine Comps.Readline PCLog_10.WriteLine Comps.Readline PCLog_11.WriteLine Comps.Readline PCLog_12.WriteLine Comps.Readline PCLog_13.WriteLine Comps.Readline PCLog_14.WriteLine Comps.Readline PCLog_15.WriteLine Comps.Readline PCLog_16.WriteLine Comps.Readline PCLog_17.WriteLine Comps.Readline PCLog_18.WriteLine Comps.Readline PCLog_19.WriteLine Comps.Readline Loop WScript.Sleep 5000 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_00.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_01.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_02.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_03.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_04.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_05.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_06.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_07.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_08.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_09.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_10.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_11.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_12.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_13.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_14.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_15.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_16.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_17.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_18.txt", 1, False) WScript.Sleep 20 Return = oShell.Run("c:\Ourstuff\Mikes_Scripts\AOP_Check\IsAlive.vbs C:\OurStuff\Mikes_Scripts\AOP_Check\PCLog_19.txt", 1, False) Set oShell = Nothing Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191011
  - 7
    - Creating AD users from Excel help Hey, I found this script on the internet to import users from an excel spreadsheet, and using LDAP, create accounts in AD. The script works fine if all the cells in the spreadsheet contain some type of data. However, in the speadsheet that I need to use, there are a lot of blank fields. I realize that the problem lies with the line; Do Until objExcel.Cells(intRow,1).Value = "" but I don't know how to modify it enough to allow the script to pass over blank cells and not stop. I've tried adding a ~ as the value for the above line and made that the last entry in the excel spreadsheet, but to no avail. Any help would be greatly appriciated. Andy Option Explicit Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow Dim strUser, strOU, strSheet Dim strCN, strSam, strFirst, strInit, strLast, strDisp, strPWD, strUPN, strMail, strDesc strOU = "OU=ANDYTEST ," strSheet = "C:\ADImport.xls" Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 3 Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strCN = Trim(objExcel.Cells(intRow, 2).Value) strFirst = Trim(objExcel.Cells(intRow, 3).Value) strInit = Trim(objExcel.Cells(intRow, 4).Value) strLast = Trim(objExcel.Cells(intRow, 5).Value) strDisp = Trim(objExcel.Cells(intRow, 6).Value) strUPN = Trim(objExcel.Cells(intRow, 7).Value) strPWD = Trim(objExcel.Cells(intRow, 8).Value) strDesc = Trim(objExcel.Cells(intRow, 9).Value) strMail = Trim(objExcel.Cells(intRow, 10).Value) Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.givenName = strFirst objUser.initials = strInit objUser.sn = strLast objUser.displayName = strDisp objUser.userPrincipalName = strUPN objUser.description = strDesc objUser.mail = strMail objUser.SetInfo objUser.userAccountControl = 512 objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit WScript.Quit Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191010
  - 8
    - Multimonitor script I am writing a script to set up a workstation to run in kiosk. The script is to open internet explorer on a workstation that has 4 monitors connected to it. IE is to open on each monitor. So far I've been able to open IE, navigate to the webpage needed, and login to the site. But all this is happening on one monitor. Any ideas as to get IE to open on each monitor? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 191009
  - 9
    - CDate problem I have a script which reads in a date field from an external source, which is in the following format: 2006-02-06 00:00:00.000 Now, I need to do a CDate() on this...the problem is, this causes a type mismatch because of the '.000' part of the date "string". A quick diagnostic has shown that it would work fine if the format was 2006-02-06 00:00:00 - sadly though it's not! How can I get cdate to accept the date in its current format? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190997
  - 10
    - VBS Script Required to Delete Registry Keys Hi, I'm relatively new to all this, so be gentle ;) I need to make a .vbs script to delete 9 keys in the registry. I know the exact keys but I don't want to make a mistake. They all fall under HKey_Local_Machine Can one of you clever folks give me a script so I just need to fill in the path, please? Thanks a million Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190992
  - 11
    - [VBScript] Create new table in SQL server Greetings. I have created a database in SQL Server 2005 Express edition. Now I would like to create tables in this database using vbscript. Fields in all tables are the same. Does anyone know, how to do this? Peter -- mcmallar ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190990
  - 12
    - RDP permission Windows 2000 Hi, there, I am running windows 2000 servers with Terminal services enabled for remote administration mode. I want to create a new group and permit logon to the servers remotly by using terminal services without the need to be administrator. Is there any way to script the RDP permissions than using the TS GUI for RDP permissions? I already found an WMI class but that works only for W2K3 and later. Thanks for any advice. Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190989
  - 13
    - Adding IP Ports and Printers to a Print Server tauerbach wrote: > *I have a script that I've gotten from various sources that allows m > to have a spreadsheet that lists the Portname, IP address, printe > driver, and printer name. > > The script adds the appropriate port and printer and seems to wor > just fine. > > What I'm trying to do now is include the Location of the printer an > even though it seems to read in the information for the Location jus > fine from the spreadsheet when it creates the printer the Locatio > field is still blank. > > Here is the code for the section that adds the printer. Mind you I' > a novice at this so any help would be much appreciated. I should als > add that none of this code is original, just bits and pieces fro > portmgr, prnmgr and another script that someone wrote to read th > info from a spreadsheet. > > > ' Adding a Printer > > ' The sample code in this section creates any required objects, add > a printer to a remote server, and > ' configures some driver and port information. > > 'dim oMaster > dim oPrinter > > > ' The following code creates the required PrintMaster and Printe > objects. > > set oMaster = CreateObject("PrintMaster.PrintMaster.1") > set oPrinter = CreateObject("Printer.Printer.1") > > 'The following code specifies the name of the computer where th > printer will be added. To specify the local > 'computer, either use empty quotes (??) for the computer name, or d > not use the following line of code. If > 'ServerName is not set, the local computer is used. Always preced > the name of a remote computer > 'with two backslashes (\\). > > oPrinter.ServerName = "\\coscsap004793" > > 'The following code assigns a name to the printer. The string i > required and cannot be empty. > > oPrinter.PrinterName = oXL.activecell.offset(0, 4).Value > "ScriptedPrinter" > > 'The following code specifies the printer driver to use. The strin > is required and cannot be empty. > > oPrinter.DriverName = oXL.activecell.offset(0, 2).Value ' "H > LaserJet 4000 Series PS" > > 'The following code specifies the printer port to use. The string i > required and cannot be empty. > > oPrinter.PortName = oXL.activecell.offset(0, 0).Value > "IP_169.254.110.160" > > 'The following code specifies the location of the printer. The strin > is required and cannot be empty. > > 'oPrinter.Location = oXL.activecell.offset(0, 3).Value ' "Todd' > Office" > > > 'The following code specifies the location of the printer driver > This setting is optional, because by default > 'the drivers are picked up from the driver cache directory. > > 'oPrinter.DriverPath = "c:\drivers" > > 'The following code specifies the location of the INF file. Thi > setting is optional, because by default the INF > 'file is picked up from the %windir%\inf\ntprint.inf directory. > > 'oPrinter.InfFile = "c:\winnt\inf\ntprint.inf" > > wscript.echo oPrinter.Location > > 'The following code adds the printer. > > oMaster.PrinterAdd oPrinter > > > > 'The following code uses the Err object to determine whether th > printer was added successfully. > > if Err <> 0 then > > 'An error occurred > > end if * Through a little bit of trial and error I finally figured out what needed to do. There seemed to be another step that I had to do usin oMaster.PrinterGet and oMaster.PrinterSet - tauerbac ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190986
  - 14
    - Adding IP Ports and Printers to a Print Server I have a script that I've gotten from various sources that allows me t have a spreadsheet that lists the Portname, IP address, printer driver and printer name. The script adds the appropriate port and printer and seems to work jus fine. What I'm trying to do now is include the Location of the printer an even though it seems to read in the information for the Location jus fine from the spreadsheet when it creates the printer the Locatio field is still blank. Here is the code for the section that adds the printer. Mind you I'm novice at this so any help would be much appreciated. I should also ad that none of this code is original, just bits and pieces from portmgr prnmgr and another script that someone wrote to read the info from spreadsheet. ' Adding a Printer ' The sample code in this section creates any required objects, adds printer to a remote server, and ' configures some driver and port information. 'dim oMaster dim oPrinter ' The following code creates the required PrintMaster and Printe objects. set oMaster = CreateObject("PrintMaster.PrintMaster.1") set oPrinter = CreateObject("Printer.Printer.1") 'The following code specifies the name of the computer where th printer will be added. To specify the local 'computer, either use empty quotes (??) for the computer name, or d not use the following line of code. If 'ServerName is not set, the local computer is used. Always precede th name of a remote computer 'with two backslashes (\\). oPrinter.ServerName = "\\coscsap004793" 'The following code assigns a name to the printer. The string i required and cannot be empty. oPrinter.PrinterName = oXL.activecell.offset(0, 4).Value "ScriptedPrinter" 'The following code specifies the printer driver to use. The string i required and cannot be empty. oPrinter.DriverName = oXL.activecell.offset(0, 2).Value ' "HP LaserJe 4000 Series PS" 'The following code specifies the printer port to use. The string i required and cannot be empty. oPrinter.PortName = oXL.activecell.offset(0, 0).Value "IP_169.254.110.160" 'The following code specifies the location of the printer. The strin is required and cannot be empty. 'oPrinter.Location = oXL.activecell.offset(0, 3).Value ' "Todd' Office" 'The following code specifies the location of the printer driver. Thi setting is optional, because by default 'the drivers are picked up from the driver cache directory. 'oPrinter.DriverPath = "c:\drivers" 'The following code specifies the location of the INF file. Thi setting is optional, because by default the INF 'file is picked up from the %windir%\inf\ntprint.inf directory. 'oPrinter.InfFile = "c:\winnt\inf\ntprint.inf" wscript.echo oPrinter.Location 'The following code adds the printer. oMaster.PrinterAdd oPrinter 'The following code uses the Err object to determine whether th printer was added successfully. if Err <> 0 then 'An error occurred end i - tauerbac ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190985
  - 15
    - why can't I catch errors? Hi, I am using a simple script to start some services but I want to output if the service does not start. I am using the following code. The services start fine but if I disable a service there is no error. please help Dim InfoMessage Dim sService(2) Sservice(0) = "MSSQLSERVER" Sservice(1) = "PhoneServer" Sservice(2) = "PhoneManager" InfoMessage = "Please Wait" Set oShell=WScript.CreateObject("WScript.Shell") Dim oService For each x in sservice SetLine2 CStr(Infomessage) infoMessage = "Now Starting " & x ' Start service: oShell.Run "Net Start " & Chr(34) & x & Chr(34) ,true If Err.Number <> 0 Then msgbox x&" Failed to start or is already started nad returned error number" & err.number end if SetLine2 CStr("hello "&intCount) Next Crumb Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190975
  - 16
    - why can't I catch errors? Hi, I am using a simple script to start some services but I want to output if the service does not start. I am using the following code. The services start fine but if I disable a service there is no error. please help Dim InfoMessage Dim sService(2) Sservice(0) = "MSSQLSERVER" Sservice(1) = "PhoneServer" Sservice(2) = "PhoneManager" InfoMessage = "Please Wait" Set oShell=WScript.CreateObject("WScript.Shell") Dim oService For each x in sservice SetLine2 CStr(Infomessage) infoMessage = "Now Starting " & x ' Start service: oShell.Run "Net Start " & Chr(34) & x & Chr(34) ,true If Err.Number <> 0 Then msgbox x&" Failed to start or is already started nad returned error number" & err.number end if SetLine2 CStr("hello "&intCount) Next Crumb Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190974
  - 17
    - Can't read help file? I just downloaded (again) the WIndows Script 5.6 Help file from: http://www.microsoft.com/downloads/thankyou.aspx?familyId=01592c48-207d-4be1-8a76-1c4099d7bbb9&displayLang=en&oRef=&Hash=MGDGXGC I saved the .chm it to my local C: drive and then openeed it - so far, so good, eh? It opened with the typical MS HELP browser (tabbed treeview on the left pane, help text on the right pane), only, while I can see and browse the tree contents to see, say: "Microsoft Windows Script Technologies -> VBScript -> VBScript Language Reference -> Functions (VBScript) -> FormatDateTime Function" When I click on *anything* in the treeview list, all I get on the right is: "The page cannot be displayed The page you are looking for is currently unavailable. The Web site may be experiencing technical difficulties, or you may need to adjust your browser settings. Please try the following: <insert here a long list of Microsoft suggestions that should have _nothing_ to do with reading a compiled .chm file off my local C: drive> Cannot find server or DNS Error Internet Explorer" ...any suggestions? (ps. I can broswe the internet just fine, thanks - I even used the MSDN Newsgroup Web interface to post this question to the newsgroup!) Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190969
  - 18
    - Capture mouse and keystrokes into VBScript Hey all! I have a cool tool that captures mouse and keyboard operations directly into an AutoIT script. The result is something that does require some editing, but is a serious time saver when trying to script out manual stuff. Anyone ever see anything like this that produces VBScript? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190965
  - 19
    - WMI question Hope someone can help, I am pulling information from the win32_NTLogEvent in WMI as I want to know what errors and warnings there are on my servers, the question I have is does anyone know where in WMI can I find the same information for the Security Logs, I can only see Application and System... I want to be able to pull failed logins and I have no idea where to find this info... Thanks Gavin... Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190961
  - 20
    - How do I add a USB printer port via script? I have in the past used the â??RunDLL32 printui.dll,PrintUIEntryâ??, to install the drivers and assign the printer to the LPT port. But LPT ports are already defined on the system where as USB printer ports are not. How can I programmatically create the USB port and assign the printer to it before plugging in the printer? Windows 2000 SP4 HP Laserjet 3050 (USB) Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190960
  - 21
    - If .... & ... Then Question If (left(arrFileLines(i),1) = chr(34)) & IsDate(Replace(SplitArray(0), Chr(34), "")) then I get a Runtime error; type mismatch '[string: "TrueTrue"]' On the above line of code. Is it not possible to do this or is the syntax inccorect? Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190958
  - 22
    - Windows 2000 Server Shutdown script while Locked?????????? OK, I have 10 Windows 2000 Server SP4 servers running on my network. All servers are left logged in but locked for security reasons. I have used shutdown.exe from the W2K resource kit to automatically restart servers overnight. Now after upgrading the hardware on all servers, shutdown.exe does not work on 3 of these servers now. I have tried everything and have given up on shutdown.exe. Now I have created two vbscripts: one to restart the server; the other to shutdown the server. They work great, even when scheduled through Task Scheduler. The problem is that they do not work when the server is in the locked state. The servers are logged in with a domain admins account, but are locked. My question is how I can get these vbscripts to run when the server is in the locked state. I cannot leave the servers unlocked. the scripts are below: Restart Dim strComputer, objWMIService, colOperatingSystems, objOperatingSystem strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.Reboot() Next Shutdown Dim strComputer, objWMIService, colOperatingSystems, objOperatingSystem strComputer = "." Set objWMIService = GetObject _ ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.Win32Shutdown(1) Next Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190956
  - 23
    - Scheduled Restart of a Windows 2000 server which is Locked!!!! OK, I have 10 Windows 2000 Server SP4 servers running on my network. All servers are left logged in but locked for security reasons. I have used shutdown.exe from the W2K resource kit to automatically restart servers overnight. Now after upgrading the hardware on all servers, shutdown.exe does not work on 3 of these servers now. I have tried everything and have given up on shutdown.exe. Now I have created two vbscripts: one to restart the server; the other to shutdown the server. They work great, even when scheduled through Task Scheduler. The problem is that they do not work when the server is in the locked state. The servers are logged in with a domain admins account, but are locked. My question is how I can get these vbscripts to run when the server is in the locked state. I cannot leave the servers unlocked. the scripts are below: Restart Dim strComputer, objWMIService, colOperatingSystems, objOperatingSystem strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.Reboot() Next Shutdown Dim strComputer, objWMIService, colOperatingSystems, objOperatingSystem strComputer = "." Set objWMIService = GetObject _ ("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.Win32Shutdown(1) Next Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190955
  - 24
    - Can I enable SSl using a script. Hi, I was looking for a way to enable the SSL on my defaulkt website by the means of a script which would do all the tasks and not use the IIS management Ui for it. I need to dothis coz i want to test my website once with SSL and again without it. and i want to do it automated using a script. -Much appreciated Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190951
  - 25
    - Renaming a group of files in a folder using a list of names kept in a text file. I would really appreciate some help here. I have a large amount of PDF files I will need to rename on a monthly basis. The files will be on a fileserver, but for testing sake, I have everything local. I am attempting to read in the list of files in the folder, and putting them into an array. I then open the text file, and the idea is I would like to go through the array, and rename the files using the names located in the text file. Here is what i have so far. Dim oFSO, sFolder, nFSO Dim i, ts, tsloc Const ForReading = 1 Set oFSO = CreateObject("Scripting.FileSystemObject") sFolder = "C:\Script Test\" Set oFolder = oFSO.GetFolder(sFolder) aFiles = array() i = 0 For Each oFile In oFolder.Files ReDim Preserve aFiles(i) aFiles(i) = oFile.Path Next Set nFSO = CreateObject("Scripting.FileSystemObject") Set tsloc = "C:\SCRIPTS\book1.txt" Set ts = nFSO.OpenTextFile(tspath, ForReading, True) For i = 0 To UBound(aFiles) Set oFile = oFSO.GetFile(aFiles(i)) sName = oFile.Name sNewName = ts.ReadLine oFile.Name = sNewName & ".pdf" Next At line 20, 1 I am getting an error that states Object required:'[string:C:\SCRIPTS\book1.txt"]' Any help would be appreciated. thank you Tag: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment Tag: 190944

Microsoft just released RC1 of PowerShell (formerly monad / Microsoft
Shell).

DesktopEngineer.com offers training that teaches you PowerShell while
leveraging your current skills in scripting.

http://DesktopEngineer.com/PowerShellTraining

Top

Re: [Ann] Training on PowerShell (formerly Monad) - Microsoft's New Scripting / Shell Environment by asdf

asdf
Tue May 09 02:15:25 CDT 2006

I have city trash collection bi-weekly.

Power companies' readers are laser enabled for drive by monkeys.

10 years of my taxes finance killings in other countries for car owners and
tv addicts.

The most progessive friends of mine in business have win2000 sp4.

-----------------------

Hope you are having a good time with that "Washington Mutual Money"

-----------------

I am an old dog.

Show me that trick you think you can teach me.

I see no trick that you can teach me.

"Darwin Sanoy" <Darwin@DesktopEngineer.com> wrote in message
news:e3UUCiFcGHA.1320@TK2MSFTNGP04.phx.gbl...
> Microsoft just released RC1 of PowerShell (formerly monad / Microsoft
> Shell).
>
> DesktopEngineer.com offers training that teaches you PowerShell while
> leveraging your current skills in scripting.
>
> http://DesktopEngineer.com/PowerShellTraining
>
>

Top