using a text file as source for strcomputer in vbs script.

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
    - WshController error Hello all, I've been doing some research on WshController, and I read recently that one hang up that WshController has is that it can't be used with UI. I'm trying to execute a vbscript that uses WshController from a jsp page. According to an article I read it says: "the script passed to the WshController object's CreateScript method doesn't interact with the UI. In other words, you need to avoid using WScript.Echo, STDIO, WshShell::Popup, MsgBox, InputBox, and other UI functions in the script that the target remote computer will run." Is this true? Has anyone been able to interact with WshController from a jsp? Tag: using a text file as source for strcomputer in vbs script. Tag: 177776
  - 2
    - How to create a variable of type Long Hi, VBScript has a lot of predefined constants with predefined data types. For example, vbYellow is type long and has the value &h00FFFF (65535). How can I create constant myYellow of type long, given a hex string of the format &h00FFFF? The following obviously doesn't work: --- const myYellow = &h00FFFF MsgBox "(vbYellow = &h00FFFF) is " & (vbYellow = &h00FFFF) & vbCrLf & _ "(vbYellow = 65535) is " & (vbYellow = 65535) & vbCrLf & vbCrLf & _ "(myYellow = &h00FFFF) is " & (myYellow = &h00FFFF) & vbCrLf & _ "(myYellow = 65535) is " & (myYellow = 65535) --- The script gives me: (vbYellow = &h00FFFF) is False (vbYellow = 65535) is True (myYellow = &h00FFFF) is True (myYellow = 65535) is False Thanks, -Paul Randall Tag: using a text file as source for strcomputer in vbs script. Tag: 177775
  - 3
    - open a excel document using vbscript Hello, The following script should open an excel file so as to read and parse it. If I execute it manually, every thing works well. However, if I plan its execution in the task scheduler, it doesn"t work... It seems that the task scheduler is not able to create the "Excel.application" object.... Have you ever seen this problem ? Have you an idea on how I can do to localize the problem ? thanks in advance, and excuse me for my poor english... ------------------------ source code: ------------------------ on error resume next fichierXL = "\\Serv\Partage\lefichierExcel.xls" fichierLog = "C:\exploitation\autoHierarchiques\logs\test.log" Set fso = CreateObject("Scripting.FileSystemObject") Set logFile = fso.CreateTextFile(fichierLog, True) logFile.writeLine("checkpoint 1 : " + Cstr(Err.number) + " // " + Cstr(Err.description)) set XlObj = Wscript.CreateObject("Excel.Application") logFile.writeLine("checkpoint 2 : " + Cstr(Err.number) + " // " + Cstr(Err.description)) call XlObj.Workbooks.Open(fichierXL,0) logFile.writeLine("checkpoint 3 : " + Cstr(Err.number) + " // " + Cstr(Err.description)) XlObj.Sheets(feuilScript).Activate logFile.writeLine("checkpoint 4 : " + Cstr(Err.number) + " // " + Cstr(Err.description)) logFile.Close XlObj.quit ------------------------ resulting logfile, manual execution: ------------------------ checkpoint 1 : 0 // checkpoint 2 : 0 // checkpoint 3 : 0 // checkpoint 4 : 0 // ------------------------ resulting logfile, taskScheduler execution: ------------------------ checkpoint 1 : 0 // checkpoint 2 : -2147024891 // Impossible de crÃ©er l'objet appelÃ© "Excel.Application". checkpoint 3 : 424 // Objet requis checkpoint 4 : 424 // Objet requis (traduction : checkpoint 2 : -2147024891 // Impossible to create the object named "Excel.Application". checkpoint 3 : 424 // Object requiered ) ------------------------ Other information: ------------------------ The script is executed on a windows 2000 domain controler, as domain administrator Tag: using a text file as source for strcomputer in vbs script. Tag: 177767
  - 4
    - How to define a function launched only at the end of script My script runs from CRT application (telnet, ssh, serial, ... application). In the script, I create a temporary file who contains instructions to push to CRT window and log information are pushed in an history log file. Now, i would like to remove temporary file and close history file when the script is finished (on error, on abort or at the end on script) Any idea ? Thanks Tag: using a text file as source for strcomputer in vbs script. Tag: 177766
  - 5
    - How to get usable screen size (maybe WMI?) Hi all, I am trying to determine the usable screen size of desktop computers. I found WMI classes that would return the desktop resolution BUT I need: [screen height] - [taskbar height] = [usable screen size] Is there a way to determine if the auto-hide is enabled? Can I determine the height of the taskbar? I use the "Win32_DesktopMonitor" WMI class at the moment but this only returns the set screen resolution. Any idea on how to do this via WMI or maybe read values out of the registry. I looked into some TechNet articles but I didn't find anything helpful yet. Regards, Hadi Tag: using a text file as source for strcomputer in vbs script. Tag: 177765
  - 6
    - File download How can I use vbscript to download a file from web server? ... or should I use other means to do the task? (The web server is general one.) TIA Milos Tag: using a text file as source for strcomputer in vbs script. Tag: 177763
  - 7
    - Newbie - How to fill forms without a button click Hi, 1. Automatically filling in a form from a database. When the user logs in, it should take the user to something like the Registration page and automatically fill in the fields from a database. I know to do document.Register.FirstName.value = "Hello World" but I need to fill in the fields before a button is pressed. I am not sure how I can fill in the fields before a button is pressed? Perhaps somehow getting a message from the login.asp page that clicks the button? P.S. I just started monkeying around with ASP pages. I am not sure what the difference is between VBScript, JavaScript, C#, XML. I noticed in a tutorial that VBScript is not supported in all browsers. Does that go for JavaScript? Is C# supposed to be better than Java or VB? Thanks, -- Christopher J. Holland Holland Projects 8444 Capricorn Way Suite 2 San Diego, CA 92126 web: http://home.san.rr.com/webmain email: chollan2@san.rr.com phone: (858) 530-0122 cell: N/A Fax: N/A Tag: using a text file as source for strcomputer in vbs script. Tag: 177762
  - 8
    - Change Machine group policy with vbscript Hi, I need to change local machine group policy to set the security level for .js extensions to "Unrestricted" This will not be overwritten by domain gp. Can this be done by vb script. I've tried with caspol .bat but without any luck. any ideas much appreciated. Cheers Matt Tag: using a text file as source for strcomputer in vbs script. Tag: 177761
  - 9
    - Write data to and read data from RS232C Hello, IÂ´m looking for a Sample-Script (VBScript or JScript), which is able to write data to the Com1-Port (RS232C) and read data from this port. I don't have MSCOMM32 on my system. I think, there should be some other solutions (e.g. with use command-line functionality via RUN or an Active-X-Object, that can use with CreateObject. Thanks for helpful hints.-- V.Schmidt Tag: using a text file as source for strcomputer in vbs script. Tag: 177755
  - 10
    - ASP SQL Update Query I am trying to update a field in an Access DB using ASP, but I get the following error. Microsoft JET Database Engine error '80004005' Operation must use an updateable query. If I put the same code into a VBS file the update works file (See below) ******************************************************************* DatabaseFile = """C:\web\changes.mdb""" Set adoCon = CreateObject("ADODB.Connection") adoCon.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseFile) strReason = "Work Damn you" SQLQuery = "UPDATE Table SET Table.Reason='" & strReason & "' Where id=54" adoCon.execute(SQLQuery) ******************************************************************** Does anyone know why the exact same code wont work in ASP? Tag: using a text file as source for strcomputer in vbs script. Tag: 177754
  - 11
    - email Any good utilties or built in objects with Windows 2000 that will allow me to send email via vbscript and attaching a file. Tag: using a text file as source for strcomputer in vbs script. Tag: 177753
  - 12
    - Standardize screensaver and wallpaper Hi, I need to manage 100 desktops which are Win98, WinNT, Win2K and WinXP. I want to standardize the screensaver and wallpaper. I know this can be done by group policy but I need to do it by executing script from a server. Thank for your attention and advice. Best Regards, Boteasy Tag: using a text file as source for strcomputer in vbs script. Tag: 177748
  - 13
    - Can I script a IE session Hi I'm looking for a way to control which JAVA JRE to use in a IE session. Is there a way to control this? When installing Java JRE it looks like it should be possible to use a specific Java JRE version when opening IE, anyway I need this possibility, I've got two application and they don't support the same Sun Java JRE. Hoping for the best Kjell Liljegren Tag: using a text file as source for strcomputer in vbs script. Tag: 177741
  - 14
    - copy files hello ng, i will copy all files (exclude my vbscript file copy.vbs) to a folder... in vb there was a app.path parameter... is there something in vbscript so i can copy files from a "unknown" Folder (there is my copy.vbs) to a defined location??? thanks for help manfred büttner Tag: using a text file as source for strcomputer in vbs script. Tag: 177729
  - 15
    - How to get long filename from short filename? This demonstration script is not yet successful. I would like to get the long name from the short name of a file (in this case, given as a command-line argument). I was hoping that either the name or the path property of the file object would do it, but no joy. The name property = the same short name given. The path property (default) also just gives the short name after the subdirectory. There is no "longname" property. So how is it done? ---------------------------------------------- dim oArgs, oFi, oFS set oArgs = Wscript.Arguments if oArgs.count=0 then wscript.echo "No argument given" wscript.quit end if set oFS = CreateObject("Scripting.FileSystemObject") set oFi = oFS.GetFile(oArgs.item(0)) wscript.echo oFi.name wscript.echo oFi Tag: using a text file as source for strcomputer in vbs script. Tag: 177723
  - 16
    - Writing a text file from within a script only if a candition is th I've write a VB script that retrive all error events from Event Logs on the local machine (by Win32_NTLogEvent) and write it to an output text file. The script is scheduled to run every day at a specified time and retrive only events occurred in the previous 24 hours. Actually it open and write the output text file always, even if no error events logs occurred (in this case the output text file is, obviously, empty). The question is: is there a way to open and write the output text file only if it is no empty (if an error occurred) and in wich mode? In this way, in fact, every day I'll check the local machine and only if there was errors in the event logs in the previous day I'll find the output text file without the needs to check and read an empty output text file. Thanks in advance. Cosimo MERCURO Tag: using a text file as source for strcomputer in vbs script. Tag: 177722
  - 17
    - Difference Between Two Pages Hi, I have content for a 'Live' page in one cell in Table_A and content for an 'edited' page in anotehr cell in Table_B. How do I track differences? Hihlight additions, changes and deletions? Ideally I'd show the two pages (frames maybe) and show the differences between the two. Any ideas? Any scripts floating about already? Thanks Tag: using a text file as source for strcomputer in vbs script. Tag: 177721
  - 18
    - Change permission remotely Hi, I would like to change security permission for everyone from "no access" to "read only" on each temp folder. I have about 200 computers to reset. Is it a way to do it by VBscript? Thanks Tag: using a text file as source for strcomputer in vbs script. Tag: 177719
  - 19
    - Query IP Addresses from DHCP I have an SBS03 Server and I would like to be able to look up the IP address from an Computer Name. The application is a script to turn on a group of computers every morning. These are workstations in the exam rooms of a doctor's office. The staff is always forgetting to turn all of them on in the morning and the doctor then has to wait for the computer to boot while the patient is sitting there. It would also fit well for turning them on early and letting them load their updates before business hours. My concern is if their lease runs out and DHCP issues them a new IP, then the WOL magic packet will end up at the wrong computer. Thanks, Bernie Tag: using a text file as source for strcomputer in vbs script. Tag: 177717
  - 20
    - How to change current directory? I have an application I need to run, however, it needs to execute in a specific directory. This directory it needs to run in is different to the one that my .vbs script is running in. How can I change the current directory so that the program executes from within that directory. eg. I have C:\script.vbs which must run C:\foo\bar.exe. Modifying bar.exe is beyond my control, and it must run in C:\foo. The down side is that script.vbs must run from c:\ I have tried using the .Run method on the Shell object to run DOS commands, but I keep getting the error: C:\script.vbs(283, 10) (null): The system cannot find the file specified. This would be where line 283 is something like: oShell.run "dir" Thanks. Tag: using a text file as source for strcomputer in vbs script. Tag: 177707
  - 21
    - cannot execute my vbscript in a batch file called from a jsp Hello all, I'm trying to execute my vbscript through a batch file. I can run it if by double clicking, but I want to attach the execution of the button to a button click on a jsp page. I have the code setup for that, but it looks like when I click the button in the jsp page, my vbscript errors out. my code is pasted below: strEssbaseServer = "someserver" strStartupScript = "test.vbs" filLog.WriteLine "Setting vars worked" Set objWshController = WScript.CreateObject("WshController") filLog.WriteLine "setting objWshController worked" Set objRemoteScript = objWshController.CreateScript(strStartupScript, strEssbaseServer) filLog.WriteLine "Setting objRemoteScript worked" Wscript.ConnectObject objRemoteScript, "Remote_" filLog.WriteLine "Setting wscript.connectobject worked" If Err.Number <> 0 Then filLog.WriteLine "Error creating remote script." Err.Clear End If objRemoteScript.Execute It looks like it's erroring out at this line: Set objRemoteScript = objWshController.CreateScript(strStartupScript, strEssbaseServer) Any thoughts? Do I have to follow a different syntax since I'm executing this from a bat file which is called by a jsp page? Thanks in advance. Ian Tag: using a text file as source for strcomputer in vbs script. Tag: 177706
  - 22
    - ASP error traping problem I am unable to trap and handle errors in ASP. I am running function which returns value. When in the function and error is raised (ADO or VBscript related) the function simply ends. NO error handling or whatever code after line where error arouse gets executed. Function just returns with no return value. Is that normal and what can i do? Tag: using a text file as source for strcomputer in vbs script. Tag: 177704
  - 23
    - Reading From and Writing To text files Greetings, I posted earlier on my project which is to create vbscript to take a text file that has spaces between columns of data and convert it so that the field are separate by semi-colons instead of a block of spaces. I have figured out most of the code I'm going to need for this project, but there is one area where I'm still hanging. I need to know how to: select a text file by name Open it Read characters from it into a variable or array after processing I need to: Write the converted to anothe text file Name that file (save it) and close it I've read up on this at a couple of sites, but I'm still confused. Does anyone know of a good tutorial on this or could someone post this information. Any help at all would be greatly appreciated. Thanks, Tammy Tag: using a text file as source for strcomputer in vbs script. Tag: 177695
  - 24
    - Net Send script help I've created a user interface in VBScript that compliments the NET SEND command. It allows the user to input any number of computer names seperated by a comma (,), then input the message that they want to send. Finally, It displays a summary of what message was sent and the computer names. This thing is that I'd like for it to display all the computer names on the same message box. The way I have it now, it displays each PC in it's own popup box. How can I modify my script to display a list of all the PCs that got the message using the msgbox function? Dim arrPCnames() intSize = 0 Set objShell = Wscript.CreateObject("WScript.Shell") 'Get computer names PC2Reach = InputBox("Please enter the computer name. For additional computers, separate each with a comma (,)" 'Get message Message2Send = InputBox("Type your message.", "Send a message") arrStations = Split(PC2Reach, ",") 'Send message For Each PC2Reach In arrStations objShell.Run "net send " & PC2Reach & " " & Message2Send ReDim Preserve arrPCnames(intSize) arrPCnames(intSize) = PC2Reach intSize = intSize + 1 Next 'Summary of command MsgBox "Here's you message:" & vbCrLf & _ vbCrLf & _ Message2Send & vbCrLf & _ vbCrLf & _ "Computers that got the message:" For Each strName in arrPCNames Wscript.Echo strName Next Tag: using a text file as source for strcomputer in vbs script. Tag: 177692
  - 25
    - Kill process based on a user who started it I am using this script to kill all java.exe on my system: set wmi = getobject("winmgmts:") wql = "select * from Win32_Process " _ & " where name='java.exe'" set results = wmi.execquery(wql) for each app in results app.terminate next I need to be more specific and kill only java.exe processes that had been started by a particular user. How can I do this? Thx YuriW Tag: using a text file as source for strcomputer in vbs script. Tag: 177689
- Next
  - 1
    - Drive Map Script not Reading User Groups We recently moved to W2K servers from NT and therefore have not used scripts on the servers before. I have in the past, but I am a bit rusty. Anyway, I have written a script to map network drives based upon a user's group. I know the script works in regard to mapping since I've included a test mapping at the end by making the Group set to NULL. What I can't figure out is why the User Groups are not being properly pulled into the script by the code I have written. Any help will be appreciated greatly. Tech@HillCenter ------------------------------------------------------------------------------ 'All actual server names have been removed from the script. On Error Resume Next 'PC User Logon Script to Automate Drive Mappings" Const ADMIN_GROUP = "cn=Admin" Const ADMISSIONS_GROUP = "cn=Admissions" Const DEVELOPMENT_GROUP = "cn=Development" Const FACULTY_GROUP = "cn=Faculty" Const FINANCE_GROUP = "cn=Finance" Const MARKETING_GROUP = "cn=Marketing" Const PROF_DEV_GROUP = "cn=ProfDev" Const SPOC_GROUP = "cn=SPOC" Set wshNetwork = CreateObject("WScript.Network") Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) If InStr(strGroups, ADMIN_GROUP) Then wshNetwork.MapNetworkDrive "U:", "\\FILESERVER\ADMIN\" wshNetwork.MapNetworkDrive "I:", "\\FILESERVER\IMAGES\" wshNetwork.MapNetworkDrive "L:", "\\FILESERVER\FORMS\" ElseIf InStr(strGroups, ADMISSIONS_GROUP) Then wshNetwork.MapNetworkDrive "W:", "\\FILESERVER\ADMISSIONS\" ElseIf InStr(strGroups, DEVELOPMENT_GROUP) Then wshNetwork.MapNetworkDrive "G:", "\\FILESERVER\DEVELOPMENT\" ElseIf InStr(strGroups, FACULTY_GROUP) Then wshNetwork.MapNetworkDrive "H:", "\\FILESERVER\FACULTY\" ElseIf InStr(strGroups, FINANCE_GROUP) Then wshNetwork.MapNetworkDrive "F:", "\\FILESERVER\FINANCE\" ElseIf InStr(strGroups, MARKETING_GROUP) Then wshNetwork.MapNetworkDrive "M:", "\\FILESERVER\MARKETING\" ElseIf InStr(strGroups, PROF_DEV_GROUP) Then wshNetwork.MapNetworkDrive "P:", "\\FILESERVER\PROFDEV\" ElseIf InStr(strGroups, SPOC_GROUP) Then wshNetwork.MapNetworkDrive "S:", "\\FILESERVER\SPOC\" ElseIf InStr(strGroups, " ") Then wshNetwork.MapNetworkDrive "T:", "\\FILESERVER\FACULTY" End If Tag: using a text file as source for strcomputer in vbs script. Tag: 177687
  - 2
    - Determining whether the Word window is minimized Gary Terhune created this handy vbs code for me a while back. It activates the already open (but not activated) Word window. I run it with a Winkey combo and it works fine, though there is a slight pause (which I can probably address with more memory). . However, I'm wondering if I might also speed it up by checking to see ifWord is minimized, and then only run the SendKeys statement if the window is minimized. That might help the code work faster. So how would I determine if Word is minimized? Option Explicit dim w With WScript.CreateObject("WScript.Shell") w = .AppActivate("Microsoft Word") ' restores Word if Word is minimized .SendKeys ("% r") End With Thanks, Larry Tag: using a text file as source for strcomputer in vbs script. Tag: 177685
  - 3
    - Null Error in my Script, HELP!! I keep getting this error when I attempt to run a vbscript (logon script) on my users computers that has some numbers and source is just (null). The part of the code is as follows: Const G_MCEDENDrAccess = "cn=mc_eden_drive_access" Dim oNetwork Dim oADSysinfo Dim oUser Dim sGroups 'Defining values and querying AD for user information Set oNetwork = CreateObject("WScript.Network") Set oADSysInfo = CreateObject("ADSystemInfo") Set oUser = GetObject("LDAP://" & oADSysInfo.UserName) sGroups = LCase(Join(oUser.MemberOf)) I get the error at Set oUser = GetObject......... Its almost like an LDAP problem query for group membership in Active Directory. Now it works on my account, which I am a domain admin, which should not matter because everyone cannot be a domain admin. someone please help. Thanks Tag: using a text file as source for strcomputer in vbs script. Tag: 177680
  - 4
    - excel object I am working on a script to automate merging excel files but I think I ran into a snag. In order to crete an excel object do I have to have excel on the server? My guess is yes but I can't move yet to a server for testing. Set xlApp = CreateObject("Excel.Application") Set xlOutBook = xlApp.Workbooks.Add Thanks Mike Tag: using a text file as source for strcomputer in vbs script. Tag: 177670
  - 5
    - How to get first element in a collection of items? For a logon script I would like to retrieve the screen resolution of our desktops. The following script is working fine on single monitor desktops. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48) For Each objItem in colItems Wscript.Echo "ScreenHeight: " & objItem.ScreenHeight Wscript.Echo "ScreenWidth: " & objItem.ScreenWidth Next But if more monitors are connected I am interested only in the first one. How do I get that information? I tried: Wscript.Echo "ScreenHeight: " & colItem(0).ScreenHeight ... but it doesn't work. What am I doing wrong? Thank you for looking into this! Hadi Tag: using a text file as source for strcomputer in vbs script. Tag: 177666
  - 6
    - Win32_NetworkConnection on Remote Computer How to extract Win32_NetworkConnection from Remote Computer? If know next info Win32_LogonSession.LogonId = <AnyID>, Win32_LogonSession.LogonType = 2 (interactive) Tag: using a text file as source for strcomputer in vbs script. Tag: 177663
  - 7
    - Script help!! Can some one help me out with this. I created this script and I am trying to apply it to a group policy that I created for AD. ' ' Printers.vbs - Windows Logon Script. Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\recwarehouse\label_printer." The ending for the printer share name is label_printer. I have placed the script in \\hh.hrm.lan\SysVol\hh.hrm.lan\Policies\{97F3974A-8BEC-42E7-A663-C229A972637A}\User\Scripts\Logon. When the user that I applied the GP to his OU logs in he gets this error on his screen. Windows Script Error - Line: 4 Char: 1 Error: The specified module could not be found. Code: 8007007E Source: (null). This is my first attempt at using scripts so if some one knows and can explain in detail that would be helpful. Thanks! -- Scott Micale Director of IT 330-877-3631 Tag: using a text file as source for strcomputer in vbs script. Tag: 177659
  - 8
    - Script help!!!! Can some one help me out with this. I created this script and I am trying to apply it to a group policy that I created for AD. ' ' Printers.vbs - Windows Logon Script. Set objNetwork = CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\recwarehouse\label_printer." The ending for the printer share name is label_printer. I have placed the script in \\hh.hrm.lan\SysVol\hh.hrm.lan\Policies\{97F3974A-8BEC-42E7-A663-C229A972637A}\User\Scripts\Logon. When the user that I applied the GP to his OU logs in he gets this error on his screen. Windows Script Error - Line: 4 Char: 1 Error: The specified module could not be found. Code: 8007007E Source: (null). This is my first attempt at using scripts so if some one knows and can explain in detail that would be helpful. Thanks! -- Scott Micale Director of IT 330-877-3631 Tag: using a text file as source for strcomputer in vbs script. Tag: 177657
  - 9
    - GetObject("LDAP:// error 8007200a Hi, first post, wahooo I had an IIS5 ASP web running on a Win2k DC the web connected to AD no problems at all, it goes and gets users... I have moved the web to a member server win2k3 IIS6 now getting AD connection errors error '8007200a' /core.inc, line 60 Here is Line 59 & 60 Set RootDSE = GetObject("LDAP://RootDSE") Set PeopleRoot = GetObject("LDAP://OU=People, " & RootDSE.Get("DefaultNamingContext")) if I fire up the old DC and run the web the same code works! any help, please Thanks in advance. Tag: using a text file as source for strcomputer in vbs script. Tag: 177653
  - 10
    - Another LastLogon question Hello, I have yet another "lastlogon" question... I use Richard Mueller's "LastLogon.vbs" to audit the Active Directory forest my computer is a member of (company's HQ), which works quite well. I've now been directed to expand that audit to all of my company's Active Directory forests. Unfortunately, each site has it's own forest (9 sites), and each forest is trusted by the HQ forest in a hub configuration. I've been trying to find a way to successfully adapt the "LastLogon.vbs" script to accept the other site forest names and produce a list for each of the sites to be combined for a comprehensive audit. Does anyone have a working script that can handle this configuration, or provide pointers on changing the script to work, or another way to query all of the forests and process the results to produce a list that can be easily audited without a lot of manual processing? Thanks in advance. ---------- Mark L. Woods Saint Louis, MO USA Tag: using a text file as source for strcomputer in vbs script. Tag: 177647
  - 11
    - script to create a folder Hi, Is there a way I can write a script and include it in my logon.vbs that creates a folder in Documents and Setting/User folder on a PC? Thanks Vivek Tag: using a text file as source for strcomputer in vbs script. Tag: 177642
  - 12
    - hyperlink and webdav I need to open a webfolder with input frm thse user https://webdav.domain.com/userinput userinput will be a text box users enter and then click on a open box to open their webdav folder. How can this be done? Tag: using a text file as source for strcomputer in vbs script. Tag: 177641
  - 13
    - Scheduled Tasks Hello all, I have the following script '******************Script Starts Here***************** 'Enumerating Scheduled Tasks strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colScheduledJobs = objWMIService.ExecQuery _ ("SELECT * FROM Win32_ScheduledJob") For Each objJob in colScheduledJobs strHTML = strHTML & "Caption: " & objJob.Caption & vbcrlf strHTML = strHTML & "Command: " & objJob.Command & vbcrlf strHTML = strHTML & "Days Of Month: " & objJob.DaysOfMonth & vbcrlf strHTML = strHTML & "Days Of Week: " & objJob.DaysOfWeek & vbcrlf strHTML = strHTML & "Description: " & objJob.Description & vbcrlf strHTML = strHTML & "Elapsed Time: " & objJob.ElapsedTime & vbcrlf strHTML = strHTML & "Install Date: " & objJob.InstallDate & vbcrlf strHTML = strHTML & "Interact with Desktop: " & objJob.InteractWithDesktop & vbcrlf strHTML = strHTML & "Job ID: " & objJob.JobID & vbcrlf strHTML = strHTML & "Job Status: " & objJob.JobStatus & vbcrlf strHTML = strHTML & "Name: " & objJob.Name & vbcrlf strHTML = strHTML & "Notify: " & objJob.Notify & vbcrlf strHTML = strHTML & "Owner: " & objJob.Owner & vbcrlf strHTML = strHTML & "Priority: " & objJob.Priority & vbcrlf strHTML = strHTML & "Run Repeatedly: " & objJob.RunRepeatedly & vbcrlf strHTML = strHTML & "Start Time: " & objJob.StartTime & vbcrlf strHTML = strHTML & "Status: " & objJob.Status & vbcrlf strHTML = strHTML & "Time Submitted: " & objJob.TimeSubmitted & vbcrlf strHTML = strHTML & "Until Time: " & objJob.UntilTime & VbCrLf & VbCrLf Next Wscript.Echo strHTML '******************Script Ends Here***************** What I do not understand is why it will only retrieve info on tasks that were created through a script. Those tasks that a user manually entered do not get retrieved???? How can I get a list of ALL scheduled task on a system? If possible please explain the how's and why's that my script fails to do what I intended it to do, if at all possible. Thank you, Daniel Tag: using a text file as source for strcomputer in vbs script. Tag: 177639
  - 14
    - Automate DCOM configuration in VBS/WSH need help.. trying to configure DCOM application settings programatically. settings such as security and identity. any ideas would be greatly appreciated. thanks, craig j. Tag: using a text file as source for strcomputer in vbs script. Tag: 177638
  - 15
    - Run As Administrator? This is a multi-part message in MIME format. ------=_NextPart_000_05E0_01C58885.BE08E8D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I have a script that lets me know who is logged into a remote = computer...I would like to be able to pass administrator rights into the = script so that it will work under a standard power user account...how do = I do that?? Thanks in advanced strComputer =3D "nameofcomputer " Set objWMIService =3D GetObject("winmgmts:" _ & "{impersonationLevel=3Dimpersonate}!\\" & strComputer & "\root\cimv2") = Set colComputer =3D objWMIService.ExecQuery _ ("Select * from Win32_ComputerSystem") For Each objComputer in colComputer Wscript.Echo "Logged-on user: " & objComputer.UserName Next --=20 SHANE CLARK ------=_NextPart_000_05E0_01C58885.BE08E8D0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1499" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3DArial size=3D2>I have a script that lets me know who = is logged=20 into a remote computer...I would like to be able to pass administrator = rights=20 into the script so that it will work under a standard power user = account...how=20 do I do that??</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks in advanced</FONT></DIV> <DIV><FONT face=3DArial size=3D2><FONT size=3D2> <P>strComputer =3D "nameofcomputer "</P> <P>Set objWMIService =3D GetObject("winmgmts:" _</P> <P>& "{impersonationLevel=3Dimpersonate}!\\" & strComputer & = "\root\cimv2") </P> <P>Set colComputer =3D objWMIService.ExecQuery _</P> <P>("Select * from Win32_ComputerSystem")</P> <P></P> <P>For Each objComputer in colComputer</P> <P>Wscript.Echo "Logged-on user: " & objComputer.UserName</P> <P>Next</P></FONT><BR>-- <BR>SHANE CLARK</FONT></DIV></BODY></HTML> ------=_NextPart_000_05E0_01C58885.BE08E8D0-- Tag: using a text file as source for strcomputer in vbs script. Tag: 177636
  - 16
    - Search for event ID Hello, I would like to see the vbscript codes that can search for certain event IDs on a remote computer/server. Specifically, I would like to know if event ID 4121 (HD drive failure on Raid 5, for example.) occurs in anyone of my 30 servers. Of cause, I can get to the event logs and set filter to ID 4121. But that is time consuming. Please help. Fan Tag: using a text file as source for strcomputer in vbs script. Tag: 177623
  - 17
    - excel script Can a script be written to combine ~5 spreadsheets on a schedule? I would like to have a script (.vbs) run everynight a midnight and combine all worksheets from ~5 workbooks and then save it as a workbook. Is this doable? Thanks Mike Tag: using a text file as source for strcomputer in vbs script. Tag: 177621
  - 18
    - Script to delete files Im trying to make a simple script, that can delete some files older than 30 days, but im not soure where to start. I hope someone can help me using the filesystemobject. Tag: using a text file as source for strcomputer in vbs script. Tag: 177620
  - 19
    - addwindowsprinterconnection fails Hello Newsgroup, I want to use a VBScript to add some printer connections: (Printers are shared on a Windows 2003 PDC) When I try to run the script on the server, I always get this error message: "The filename, directory name or volume syntax is incorrect" (Error Code: 8007007b). But the UNC Path is correct, if I use some other path I get an error that the printer name is not correct... An Example Script: Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.AddWindowsPrinterConnection "\\10.152.108.1\Farblaser Epson C2000" Any ideas? Thanks, Matthias Tag: using a text file as source for strcomputer in vbs script. Tag: 177616
  - 20
    - ownership Hello, I just got done with a file migration from novell to windows server 2003. Now im working on setting up disk quotas for my user folders. I know that the users need to have ownership of their folders in order for disk quota to work. However only the administrator has ownership of each individual user not the users themselves. Is there a tool or a script that goes through every user folder and selects the appropriate user and makes he or she the current owner of that folder. -- The only easy day was Yesterday Tag: using a text file as source for strcomputer in vbs script. Tag: 177610
  - 21
    - See the file extensions and hidden files Hello all I need create an script that allow me to see the extensions that Windows XP hidden by default and the hidden files. Could you help me please? Thanks Henry Tag: using a text file as source for strcomputer in vbs script. Tag: 177603
  - 22
    - Open Files In Computer manager, under shared folders, there is the option to view open files. I am wanting a VBS script that will dump a list of open files to a textfile for emailing. I can do the email bit, I can do the textfile bit, I can slso schedule the task. BUT, I don't know how to get the actual list Any advice gratefully receievd Thanks Jeff Tag: using a text file as source for strcomputer in vbs script. Tag: 177600
  - 23
    - Net Send script help Hi. In Windows XP, I want to create a user interface in VBScript that compliments the NET SEND command. This is what I have so far: Set objShell = Wscript.CreateObject("WScript.Shell") Comp2Reach = InputBox("Enter in Computer name.") Message2Send = InputBox("Type your message.") objShell.Run "net send " & Comp2Reach & " " & Message2Send This works, except I want to have two text boxes on the same interface. Is this possible? Also, is there a way to use allow the user to input multiple computer names to send the same message? Either question answered would be a big help, especially the one about the two text boxes on the same interface. Thanks. Tag: using a text file as source for strcomputer in vbs script. Tag: 177596
  - 24
    - How to stop "SAPI.SpVoice" script Thanks in advance! I am using a text-to-speech vbs script (below) that works great. But sometimes it would be useful to stop, before finishing speaking the entire clipBoard. So how can i stop it in mid sentence, so to speak? I could probably just kill the wscript.exe [PostMessage(AppHandle, WM_QUIT, 0, 0)], but would rather do it with a script.. Set ISpeechVoice = CreateObject("SAPI.SpVoice") 'read from clipboard Set oIE = WScript.CreateObject("InternetExplorer.Application") oIE.navigate "about:blank" ISpeechVoice.Speak oIE.document.parentWindow.clipboarddata.getData("text"), SPF_DEFAULT Set oIE = Nothing -- ô¿ô V e r n www.parentpresent.org NoWorrys = KidSafe Internet Filter (Freeware) Tag: using a text file as source for strcomputer in vbs script. Tag: 177593
  - 25
    - monitoring insertion of memory card? I have the following problem and I am not a programmer: When inserting a memory card from digital camera in reader I want to copy files to my local disk in a folder, AND the files should also be copied to an external drive, just the files and not the directory structure. So a window (is it called a file selector window?) should appear upon insertion, then I browse to my local hard drive, create a new folder and copy the files to that folder. Then the same files should also be copied to the external hard disk automatically. Can this be done, especially the monitoring of the insertion of the card? Thnx, Jos Tag: using a text file as source for strcomputer in vbs script. Tag: 177590

I have the following VBS script for ending a process on a remote pc.
as follows

strComputer = "COMPUTERNAME"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer &
"\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'PROCESSNAME'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next

However if I want to run this on the whole of an OU how should I go
about this? I can get a list of pcs into a text file, but how do I
have it so that the computer name is sourced from this list?

Thanks
Dan

Top

Re: using a text file as source for strcomputer in vbs script. by Torgeir

Torgeir
Mon Jul 18 11:21:28 CDT 2005

Dan wrote:

> I have the following VBS script for ending a process on a remote pc.
> as follows
>
> strComputer = "COMPUTERNAME"
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer &
> "\root\cimv2")
> Set colProcessList = objWMIService.ExecQuery _
> ("Select * from Win32_Process Where Name = 'PROCESSNAME'")
> For Each objProcess in colProcessList
> objProcess.Terminate()
> Next
>
> However if I want to run this on the whole of an OU how should I go
> about this? I can get a list of pcs into a text file, but how do I
> have it so that the computer name is sourced from this list?
>
Hi,

An example in this link (it also uses the function IsConnectible
to see if the computer is online before trying to connect to it
with WMI):

http://groups.google.co.uk/group/microsoft.public.scripting.vbscript/msg/0e17fd9e8ee66b35?dmode=source&hl=en

--
torgeir, Microsoft MVP Scripting and WMI, Porsgrunn Norway
Administration scripting examples and an ONLINE version of
the 1328 page Scripting Guide:
http://www.microsoft.com/technet/scriptcenter/default.mspx

Top