Change Machine group policy with vbscript

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
    - 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: Change Machine group policy with vbscript Tag: 177755
  - 2
    - 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: Change Machine group policy with vbscript Tag: 177754
  - 3
    - 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: Change Machine group policy with vbscript Tag: 177753
  - 4
    - 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: Change Machine group policy with vbscript Tag: 177748
  - 5
    - 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: Change Machine group policy with vbscript Tag: 177741
  - 6
    - 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: Change Machine group policy with vbscript Tag: 177729
  - 7
    - 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: Change Machine group policy with vbscript Tag: 177723
  - 8
    - 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: Change Machine group policy with vbscript Tag: 177722
  - 9
    - 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: Change Machine group policy with vbscript Tag: 177721
  - 10
    - 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: Change Machine group policy with vbscript Tag: 177719
  - 11
    - 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: Change Machine group policy with vbscript Tag: 177717
  - 12
    - 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: Change Machine group policy with vbscript Tag: 177707
  - 13
    - 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: Change Machine group policy with vbscript Tag: 177706
  - 14
    - 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: Change Machine group policy with vbscript Tag: 177704
  - 15
    - 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: Change Machine group policy with vbscript Tag: 177695
  - 16
    - 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: Change Machine group policy with vbscript Tag: 177692
  - 17
    - 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: Change Machine group policy with vbscript Tag: 177689
  - 18
    - 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: Change Machine group policy with vbscript Tag: 177687
  - 19
    - 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: Change Machine group policy with vbscript Tag: 177685
  - 20
    - 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: Change Machine group policy with vbscript Tag: 177680
  - 21
    - 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: Change Machine group policy with vbscript Tag: 177670
  - 22
    - 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: Change Machine group policy with vbscript Tag: 177666
  - 23
    - 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: Change Machine group policy with vbscript Tag: 177663
  - 24
    - 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: Change Machine group policy with vbscript Tag: 177659
  - 25
    - 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: Change Machine group policy with vbscript Tag: 177657
- Next
  - 1
    - 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: Change Machine group policy with vbscript Tag: 177653
  - 2
    - 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: Change Machine group policy with vbscript Tag: 177647
  - 3
    - 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: Change Machine group policy with vbscript Tag: 177642
  - 4
    - 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: Change Machine group policy with vbscript Tag: 177641
  - 5
    - 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: Change Machine group policy with vbscript Tag: 177639
  - 6
    - 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: Change Machine group policy with vbscript Tag: 177638
  - 7
    - 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: Change Machine group policy with vbscript Tag: 177636
  - 8
    - 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: Change Machine group policy with vbscript Tag: 177623
  - 9
    - 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: Change Machine group policy with vbscript Tag: 177621
  - 10
    - 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: Change Machine group policy with vbscript Tag: 177620
  - 11
    - 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: Change Machine group policy with vbscript Tag: 177616
  - 12
    - 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: Change Machine group policy with vbscript Tag: 177610
  - 13
    - 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: Change Machine group policy with vbscript Tag: 177603
  - 14
    - 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: Change Machine group policy with vbscript Tag: 177600
  - 15
    - 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: Change Machine group policy with vbscript Tag: 177596
  - 16
    - 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: Change Machine group policy with vbscript Tag: 177593
  - 17
    - 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: Change Machine group policy with vbscript Tag: 177590
  - 18
    - Changing COM+ Application to "Run as NT Service" I have been trying to automate the configuration of my COM+ Application to "Run as NT Service". I have been able to set every thing I need expect for that value. I can do it manually, but that defeats the purpose of automating it. Does anyone know the proper way to change it? This is an excerpt from what I'm doing: 'Creates the Admin Catalog Dim objAdminCatalog Set objAdminCatalog = CreateObject("COMAdmin.COMAdminCatalog") 'sets the catalogue to the Applications area Dim objApplicationsColl Set objApplicationsColl = objAdminCatalog.GetCollection("Applications") objApplicationsColl.Populate ' Get the correct application, "MyCOMPlusApp". Dim AppObject For Each AppObject in objApplicationsColl If AppObject.Name = " MyCOMPlusApp" Then 'for my use MsgBox ( AppObject.Name ) 'exit the for loop stopped on the appropriate object item. Exit For End If Next 'sets the appropriate setting for the item. AppObject.Value("Activation") = 1 objApplicationsColl.SaveChanges 'This is where my trouble is 'this is a read only property 'AppObject.Value("ServiceName") = "LscExchAutoAccept" 'objApplicationsColl.SaveChanges Msgbox(AppObject.Value("Identity")) AppObject.Value("Identity") = "LocalSystem" AppObject.Value("Password") = "" objApplicationsColl.SaveChanges Msgbox(AppObject.Value("Identity")) 'objApplicationsColl.SaveChanges Tag: Change Machine group policy with vbscript Tag: 177588
  - 19
    - DHCP and VBScripting HiYa, Anyone got any quick links or coding to access the IP address of a reserved machine (server, router, printer, RIB card etc) in a Windows 2000 DHCP server using VB Scripting. I can only find C++ stuff which is leagues above my head and also banned (anyway) for security reasons, as the code needs to be transparent to anyone who wishes to check it. TIA. James. Tag: Change Machine group policy with vbscript Tag: 177585
  - 20
    - Replace Variable with value in a statement? Can I replace a varibale with its value in a statement? Dim strFunction strFunction = "TESTFUNC" CALL strFunction ==) This one should be on runtime 'CALL TESTFUNC' Function TESTFUNC () WScript.ECHO "HALLO" End Function Please help.... Cheers Tag: Change Machine group policy with vbscript Tag: 177582
  - 21
    - "restore points" from VBscript Is there a way to create and list restore points from a script? Tag: Change Machine group policy with vbscript Tag: 177579
  - 22
    - permission denied creating object I'm using a script in a SQL Server dts package and it runs fine in the package. When I schedule the package as a job it fails with this error: Permission denied: 'CreateObject' Error on Line 76 The code is: set fsObj = CreateObject("Scripting.FilesystemObject") Exactly what file on the drive is being used to create the object? What folder holds all of the files related to scripting? I want to check that file. I tried giving the user permissions to the entire drive but that didn't work. Thanks, -- Dan D. Tag: Change Machine group policy with vbscript Tag: 177578
  - 23
    - Help Please - wierd error with RegExp This line of code "suddenly" gave an error set oRE= New RegExp The error is "Library Not Registered". I have checked that the version of WScript is reporting as 5.6 and the IE is 6.0.2800.1106. Can anyone suggest what can cause the library to be "lost", and how to restore it. Please note that at the site some new versions of our applications have been installed (not the script), but I am not sure how to detect what has been "lost" that now stops this script working, nor how to restore it. Any pointers would be gratefully received. Tag: Change Machine group policy with vbscript Tag: 177576
  - 24
    - basic dateformat question Hi, I am a c# programmer trying to write a vbscript, so simple one here. I am trying to get the following date format yyyyMMdd How do you do this in vbscript. I have tried all the FormatDateTime Function, but none of them seem to return this format, and also i don't want to change my regional settings. I have also gotten str = year(date) & month(date) & day(date) but i'de prefer to have double digits for the month E.g. today would be 20050713, whereas this outputs 2005713 So, is there a function like the DateTime.ToString("yyyyMMdd") function TIA Tag: Change Machine group policy with vbscript Tag: 177565
  - 25
    - Object.get("description") I am writing a VBScript with the following line of code in the script to query all user objects in my AD for their description. Object.get("description") However when the script gets to a User object that has no description, the script errors out with the following error. "The directory property cannot be found in the cache" I think this is some limitation to using "Get" What code can I use so that when the script finds an empty description, it returns an empty value and goes on to the next? The results of the script are redirected to a file, so the intended results is to have a spreadsheet which lists all my user objects and their descriptions, even if blank. Any ideas Thanks Tag: Change Machine group policy with vbscript Tag: 177554

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

Top