apply group policy via wmi

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
    - Check verion if version not euql run batch file Const HKEY_LOCAL_MACHINE = &H80000002 Const ForReading = 1 Dim shell set shell=createobject("wscript.shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\scripts\EPO.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.Readline Path = ("\\" & strComputer & "\c$\Program Files\Network Associates\Common Framework\FrameworkService.exe") version = objFSO.GetFileVersion (Path) Text = "3.6.0.546" If version = text Then WScript.Echo "Versions are equal" Else WScript.Echo "Versions are not equal" End If Wscript.Echo strComputer & " EPO File Version is " & objFSO.GetFileVersion (Path) ' ======================= Get McAfee Version =============================== strKeyPath = "Software\McAfee\DesktopProtection" strValueName = "szProductVer" Set oLocator = CreateObject("WbemScripting.SWbemLocator") Set oService = oLocator.ConnectServer(Machine, "Root\DEFAULT", strAdminUser, strAdminPass) Set oRegistry = oService.Get("StdRegProv") strKeyPath = "Software\McAfee\DesktopProtection" strValueName = "szProductVer" oRegistry.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName,strValue WScript.Echo strComputer & " McAfee Version: " & strValue Loop objTextFile.Close The Script run fineso far but I want to add the following: If version = text Then WScript.Echo "Versions are equal" Else run batch file on the remote machine --- I do not know how to excute a batch file on the remote machine End If Tag: apply group policy via wmi Tag: 216309
  - 2
    - about CapabilityDescriptions I have a HP LaserJet 5100 printer.I run the following script to receive its capability description. It is strange that I receive "color" capability description,though HPLJ5100 is a black and white printer.Why? ######################VBS################################ Set colPrinters=objWMIService.instancesof("win32_printer") For Each objPrinter in colPrinters WScript.Echo "Device Name: " & objPrinter.name CapabilityDescriptions= objPrinter.CapabilityDescriptions For Each Capability In CapabilityDescriptions WScript.Echo Capability next next Tag: apply group policy via wmi Tag: 216307
  - 3
    - How to read text files on remote servers without mapping/unmapping 1) We have a script that maps and unmaps drives. This script is an audit script. So it is called say from Box1 to BoxA, BoxB, BoxZ etc... To find out where BoxA-BoxZ have been running backups, the script interrogates the backup logs on BoxA-BoxZ. To read the BoxA-BoxZ the script maps a drive ( V: in this instance) objNetwork.MapNetworkDrive "V:", "\\" & strComputer & "\" & "C$", , strUser, strPwd and open to read the back up logs strFilePath = "V:\Program Files\Tivoli\TSM\baclient \dsmsched.log" When finished the drive gets disconnected/unmapped. If there multiple script jobs running concurrently, this could be a problem as there could be a job querying the log file as the volume could have been dismounted from another job. What would be the best way to read the log on a server without mounting the drives? 2) Another reason for mounting the drives, there are some windows commands like "ipconfig" we usually run the command, save as a text file errReturn = objProc.Create ("cmd.exe /c ipconfig > C:\temp \ipview.txt", Null, Null, intPID) Is there a better way of executing command and read the output directly without having to creating an extra file? Tag: apply group policy via wmi Tag: 216293
  - 4
    - WMI and Joining Domain (sysprep related) I'm looking to add a touch more automation to our PC deployments and am starting to grasp at straws. I am currently using WDS to deploy XPsp2 (slipstreamed) pretty much unattended. Sysprep is performing a JoinDomain using a preset name with wildcards (Computer-xxxxx) which works well - I simply logon to the pc after deployment and manually rename using our naming solution (<3_letter_Building_Code><5digit_Asset_#>[special_use_suffix]) ie: EMC12345LAB Our asset database (Oracle based) contains information (entered manually) and includes mac address, building code, asset#, and any additional suffix. The db is currently exported every 10 minutes into a MySQL db. Q: Is there any way to automatically have the systems named properly by querying the database for the info (I don't want db drivers installed on the workstation though so am willing to have the db exported to csv or to some flatfile for reading if necessary). I have vbscript examples for renaming the workstation and can manually run it once the local admin group has been added to the pc but want something unattended. The local admins group isn't added to the workstations Administrators group until the workstation is moved into the proper AD container. One partial method I have available and can use after the fact is to open an IE window (scripted) with an url containing the workstations mac address which returns the full workstation name in the innerhtml (IE: objExplorer.Navigate "http://internalweb/hwaddr/?hw_address=" & MACAddress) What I'd like is to have WDS or a post-install script run (with privileges to allow renaming the pc on the domain or have the script join the domain and put it into the proper container) that will modify sysprep.inf or whatever else is needed to have the computer join with the appropriate workstation name. The only field tying the whole thing together in the db that can be automatically retrieved would be the mac address. Ideally I'd like to have 2 functions. 1: Name workstation using database info and join to domain. WDS to image the workstation. At the end of sysprep mini-setup, query for the what the workstation name should be (and maybe retrieve a container name also..based on an entry in the asset db) Join the Domain with the proper wsname. 2:via HKLM...Run: Silently run a vbscript that will check for admin privileges, check computername against the db and if it is different call a computer rename script. Can I launch a vbscript from cmdlines.txt (during the sysprep mini-setup) to get the wsname? I have a generic domain admin acct setup with its only privilege as being able to add/rename on the domain. Any help is appreciated! Eric Gustafson Springfield School District Tag: apply group policy via wmi Tag: 216287
  - 5
    - Associated External Account Question I have created a script that will disable a user's account, move it into a specified ou and then add the associated external account permission to the SELF account. My problem is that the associated external account permission only gets assigned to the SELF account in a newly created user account. If the user account is used (ie the user logs into OWA or a PC) or pre-existing then nothing happens. The script is displayed below. Any ideas? ************************************************************ 'On Error Resume Next 'Defines from which container search will start Const ADS_SCOPE_SUBTREE = 2 Const ADS_USERDISABLED = &H00002 const E2K_MB_FULL_MB_ACCESS = &H00001 const E2K_MB_SEND_AS = &H00002 const E2K_MB_EXTERNAL_ACCOUNT = &H00004 const E2K_MB_READ_PERMISSIONS = &H20000 const E2K_MB_TAKE_OWNERSHIP = &H80000 const ADS_ACE_REVISION_DS = &H00004 const ADS_ACETYPE_ACCESS_ALLOWED = &H00000 const ADS_ACEFLAG_INHERIT_ACE = &H00002 'Sets User Flag Parameter Const ADS_UF_ACCOUNTDISABLE = &H2 'Dim strUserName Dim strUserName 'Creates an input box to type in user's name strUserName = InputBox("Enter the username:") 'connect to AD Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand = CreateObject("ADODB.Command") Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _ "SELECT ADsPath FROM 'LDAP://DC=london,DC=glenrand'" & _ "WHERE objectCategory='User'" & _ "AND cn='" & strUserName & "'" Set objRecordSet = objCommand.Execute 'Get user record objRecordSet.MoveFirst Do Until objRecordSet.EOF strPath = objRecordSet.Fields("ADsPath").Value Set objUser = GetObject(strPath) intUAC = objUser.Get("userAccountControl") objUser.Put "userAccountControl", intUAC OR ADS_UF_ACCOUNTDISABLE objUser.SetInfo Call SetmsExchMasterAccountSid 'Move user to Ex Employees OU Set objNewOU = GetObject("LDAP://OU=exemployees,DC=london,DC=glenrand") intReturn = objNewOU.MoveHere(strPath, vbNullString) objRecordSet.MoveNext Loop 'msgbox "The user account for " & strUserName & " has been disabled" msgbox strUserName & "'s user account has been disabled" 'This function sets the msExchMasterAccountSid value in ADSI to SELF. 'ie Adds Associated External Account permission to the SELF account. Function SetmsExchMasterAccountSid Dim objSD Dim objACL Dim objACE Dim found 'Set the primary Account to SELF objUser.Put "msExchMasterAccountSid", objUser.Get("objectSID") 'Get the mailbox security descriptor set objSD = objUser.Get("msExchMailboxSecurityDescriptor") set objACL = objSD.DiscretionaryAcl found = false for each objACE in objACL 'Iterate through the ACL to find the SELF-Account if objACE.Trustee = "NT AUTHORITY\SELF" Then found = true wscript.echo "exists" Exit For end if next if not found then 'If no SELF-Account is present, create it set objACE = CreateObject("AccessControlEntry") objACE.Trustee = "NT AUTHORITY\SELF" wscript.echo "created" objACE.AceFlags = ADS_ACEFLAG_INHERIT_ACE objACE.AceType = ADS_ACETYPE_ACCESS_ALLOWED objACL.AddAce objACE end if 'Give the SELF-Account the External-Account right objACE.AccessMask = objACE.AccessMask OR E2K_MB_READ_PERMISSIONS OR E2K_MB_FULL_MB_ACCESS OR E2K_MB_EXTERNAL_ACCOUNT 'Save the changes objUser.Put "msExchMailboxSecurityDescriptor", objSD objUser.setInfo Set objSD = Nothing Set objACL = Nothing Set objACE = Nothing End Function Tag: apply group policy via wmi Tag: 216285
  - 6
    - Line Spacing I have a vbscript reading active directory attributes to create an email signature. When the "streetaddress" is pulled in, it double spaces the lines, even though the "streetaddress" is not double spaced. Is there a code for single line spacing i can place before the street address to force single space? Thanks, Michael Tag: apply group policy via wmi Tag: 216281
  - 7
    - New things and free download.... New things and free download.... just click the link......... u'll got a new expereience........ free download softwares and games..... etc..... http://bajagu.guys.googlepages.com/www.newinfoproducts.c-o.in Tag: apply group policy via wmi Tag: 216275
  - 8
    - How to monitor print job I write a VBS to monitor print job. The following script works well. ##############VBS-1#################### Set colPrintJobs = objWMIService.ExecQuery("Select * from Win32_PrintJob") For each objPrintJob in colPrintJobs Wscript.echo objPrintJob.caption next ######################################### But when I use ExecNotificationQuery to retrieve the object collection,it throws out a running time error which tells me that object does not support the property or method :"objPrintJob.caption".Could you tell how to monitor print job? ##############VBS-2#################### Set colPrintJobs = objWMIService.ExecNotificationQuery("Select * from __instancecreationevent WITHIN 1 WHERE TargetInstance ISA 'Win32_PrintJob'") Do While True Set objPrintJob =colPrintJobs.NextEvent() WScript.Echo "Caption: " & objPrintJob.Caption Loop ######################################### Tag: apply group policy via wmi Tag: 216273
  - 9
    - currency format How do you format the following for currency? <% varAmt = rsTemp.Fields("SAmount") %> Is it something like the following? The following doesn't however. <% varAmt = String.Format("{0:c}", rsTemp.Fields("SAmount")) %> Tag: apply group policy via wmi Tag: 216270
  - 10
    - Need script to find I/O Reads of a specified process Is there any way to find the I/O Reads value of a specific process. I looked up the properties of the Win32_Process but did not see this option. TIA -- Greg Tag: apply group policy via wmi Tag: 216269
  - 11
    - Changing power scheme for all users Hollo everyone. I have pasted a two part script. I'm new to this so I don't know how to prevent the first part from echoing the chassis type. What I need for this script to do is check the chassis type and if the chassis type is a laptop(8,9,10) the script should run the second part of the script. The second part of the script changes the power scheme for the current user. Please help. This seems like it should be easy for for someone with a scripting background. I unfortunately don't know how to script. Thank you in advance. WScript.Echo GetFormFactor Function GetFormFactor Const adTypeBinary = 1 Dim objColl, o, obj, sResult, f, fso Set fso = CreateObject("Scripting.FileSystemObject") GetFormFactor = "D" Set objColl = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_SystemEnclosure") For each obj in objColl For each o in obj.ChassisTypes If (o = 8) or (o = 9) or (o = 10) Then : GetFormFactor = "L" Next Next End Function Dim intSleepTime intSleepTime = 5000 Set WshShell = WScript.CreateObject("WScript.Shell") ' Set the Default to be "Custom Profile" ' Turn off Hibernation WshShell.Run "%COMSPEC% /c POWERCFG /SETACTIVE ""Custom Profile""" WshShell.Run "%COMSPEC% /c POWERCFG /Hibernate off" ' Start changing Power Management profiles' settings ' Change "Home/Office Desk" profile settings WshShell.Run "%COMSPEC% /c POWERCFG /CHANGE ""Home/Office Desk"" /monitor-timeout-ac 5 /monitor-timeout-dc 5 /disk-timeout-ac 10 /disk-timeout-dc 10 /standby-timeout-ac 30 /standby-timeout-dc 30 /hibernate-timeout-ac 0 /hibernate-timeout-dc 0" WScript.Sleep intSleepTime ' Change "Portable/Laptop" profile settings WshShell.Run "%COMSPEC% /c POWERCFG /CHANGE ""Portable/Laptop"" /monitor-timeout-ac 5 /monitor-timeout-dc 5 /disk-timeout-ac 10 /disk-timeout-dc 10 /standby-timeout-ac 30 /standby-timeout-dc 30 /hibernate-timeout-ac 0 /hibernate-timeout-dc 20 /processor-throttle-ac adaptive /processor-throttle-dc adaptive" WScript.Sleep intSleepTime ' Cleanup Set WshShell = Nothing WScript.Quit(0) Tag: apply group policy via wmi Tag: 216268
  - 12
    - OutLook Express 6.0 Script Folks: I am using Microsoft Outlook Express 6 as my email client software. I would like to get access to a script that would alarm.(play an audio file) when email is received from a specific address. maybe such a script already exists. Thanks, JoJo. Tag: apply group policy via wmi Tag: 216264
  - 13
    - Quoting within already quoted command I am trying to create a script that allows a user to start and stop a service on a remote computer. I am having troubles with spaces in the command. Here is what I have so far. I am having troubles with line following Case "1" and Case "2" Any advice would be greatly appreciated. ================================================================ Option Explicit Dim objmenu, username, wshshell, fso Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Username = InputBox("Enter your admin username (domain\username)", "Enter Username") 'create an object from the gui_menu class Set objmenu = New gui_menu 'start the application objmenu.getInput Class gui_menu private Input, quit, strText, cmd, arrMenu, i, return, strProg Private Sub pickInput 'if you add anything to the menu array below, make sure you add a corresponding entry here Select Case Input Case "1" cmd = " ""sc \\remotecomputer stop" "Service with spaces in name""" startProg cmd WScript.Sleep(22000) getInput Case "2" cmd = " ""sc \\remotecomputer start "Service with spaces in name""" startProg cmd getInput Case "3" quit = MsgBox ("Are you sure?", 36, "Want To quit?")'52 If quit = 6 Then WScript.Quit Else getInput End If Case "" quit = MsgBox ("Are you sure?", 36, "Want To quit?")'52 If quit = 6 Then WScript.Quit Else getInput End If Case Else MsgBox ("That is an incorrect entry, try again") getInput End Select End Sub 'pickInput Public sub getInput 'add any menu names you want in this array, make sure you adjust the select/case in pickInput() accordingly arrMenu = Array("STOP Service","START Service","Quit or click Cancel") strText = "Enter selection below." & vbNewLine 'build the menu For i = 1 To (UBound(arrMenu) + 1) strText = strText & i & ". " & arrMenu(i - 1) & vbNewLine Next Input = InputBox(strText, "Make your selection") pickInput End sub 'getInput Private Sub startProg(cmd) return = WshShell.Run("%windir%\system32\runas.exe /user:" & username & cmd, 1, False) End Sub 'startProg End Class 'gui_menu ============================================================== Tag: apply group policy via wmi Tag: 216260
  - 14
    - vbscript and Junctions Does anybody know what the syntax is to determine if a directory is a junction? In Vista the c:\documents and settings is a junction. Tag: apply group policy via wmi Tag: 216252
  - 15
    - Add network printer in WMI, how can I actually add a new network printer, configuring its properties like shared, shared name, port/portname, device etc... ? Im actually using C# to code but can understand VBScript/WMI scripting so thats no a problem, I just want to know how to do this and execute the method/operation to go ahead and create the printer. Tag: apply group policy via wmi Tag: 216241
  - 16
    - vbscript using getfolder I've posted this question in so many forum's with no answer. Why does the following script get a permission denied error on vista even when run as administrator or run while logged in as the builtin administrator? Int n On Error Resume Next Dim fs, f Set objShell = CreateObject("Shell.Application") Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("c:\windows\system32) n = f.Size If Err.Number <> 0 Then MsgBox Err.Number & ": " & Err.Description & " folder: " & f.name Err.Clear End If str = UCase(f.Name) & " uses " & n & " bytes." wscript.Echo str Tag: apply group policy via wmi Tag: 216226
  - 17
    - Help Required Please refer to the below vb script Dim oFS, oFolder Dim objexcel, r, lnameArray, lname, nameLength set oFS = WScript.CreateObject("Scripting.FileSystemObject") set oFolder = oFS.GetFolder("C:\test") Set objExcel = createobject("Excel.application") objexcel.Workbooks.add objexcel.Cells(1, 1).Value = "Folder Name" objexcel.Cells(1, 2).Value = "Size (MB)" objexcel.Cells(1, 3).Value = "# Files" objexcel.Cells(1, 4).Value = "# Sub Folders" objexcel.Visible = True Wscript.Sleep 20 r=2 ShowFolderDetails oFolder, r objexcel.ActiveWorkbook.SaveAs("C:\FolderReport.xls") objexcel.Quit Function ShowFolderDetails(oF,r) Dim F objexcel.Cells(r, 1).Value = oF.Name objexcel.Cells(r, 2).Value = oF.Size /1024\1024 objexcel.Cells(r, 3).Value = oF.Files.Count objexcel.Cells(r, 4).Value = oF.Subfolders.count r = r+1 for each F in oF.Subfolders ShowFolderDetails F, r next End Function Instead of the folder test, i require the script to search folder based on date - specifically folder created on the previous date. Any help appreciated. Tag: apply group policy via wmi Tag: 216223
  - 18
    - WMI error This line in our logon script... Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") ...returns an error code 80041002 on some systems. Anyone have ideas what might be causing it? Thanks, Tom Tag: apply group policy via wmi Tag: 216221
  - 19
    - Changing file/folder permissions Hi All I understand I can call the cacls command from a VB script to alter permissions on files/folders. I was just wondering if there is a pure VB way of doing this? Changing permissions of a folder on a PC which is a member of a domain (if that makes a diff?) Thanks gerryR Tag: apply group policy via wmi Tag: 216218
  - 20
    - problem with vbscript hi guys i'm Alex and i have a problem, i want create a VBscript with copyfolder command for each profile into PC: folder source: c:\test (in the folder there are many files and folders) folder destination: ...\"user profile"\Applications data this copy run for default user, administrator and all users but don't work for all profiles first create. can you help me???? Tag: apply group policy via wmi Tag: 216216
  - 21
    - Delete Local Profiles for WinPe I am trying to delete the local profiles on my computer. However, whenever I try to delete a users profiles under C:\Users\* on my Vista machine, my script fails. It seems to be that it can't some of the special folders in C:\Users\*\AppData. For example, my script always fails on C:\Users\*\AppData\Local\Application Data. This appears to be a redirector but my script sees it as a folder and tries to delete it. I have spent many hours trying to get around this but every time my script fails with an Access Denied error. I have used WMI and the FileSystemObject. Any help with this problem would be greatly appreciated. Thanks Tag: apply group policy via wmi Tag: 216204
  - 22
    - Backing up files with vbscript and maybe Volume Shadow Copy Hello, I'm looking to write a small vbscript to backup a laptop users PST files to a network drive. I would like this to happen without the need for a user to close Outlook. I have read a little about Volume Shadow Copy and I'm wondering if this is the best thing to use and how you can control it from Vbscript / Windows XP. Currently we are using a batch file however it "coughs, sputters, barfs, farts then explodes" every time it comes to a PST file (file in use). Thanks in advance. Tag: apply group policy via wmi Tag: 216200
  - 23
    - Move file if created in last two minutes I have an application which writes a txt file to a certain directory. The application writes to this file twice using the logged in users credentials, in quick succession. Once this process is finished I need to retrict access to the file by the creator. Two options spring to mind:- 1. Restrict the directory and change the file owner once the application has completed 2. Move the finished file to a directory the creator does not have access to. Option 2 seems the simplest if I can script to check file creation date is more than say 2 minutes older than current system time. There are several utilities mentioned previously in the forums but mostly they deal with date, not time. Appreciate any guidance. Tag: apply group policy via wmi Tag: 216191
  - 24
    - If possible to add domain user to a workstation's local administrators group by scrpting? I am wondering if possible to add domain user to a workstation's local administrators group by scrpting. You konw, in most scenario we use {objLocalGroup}.add function to achieve this target, but what if a workgroup? When I try this on workgroup, script prompts fails with "unknow user name or bad password". Any ideas? Tag: apply group policy via wmi Tag: 216189
  - 25
    - help with cancel loops How do I loop a the cancel button here : Do StudentUserName = InputBox ("Please Enter a Student Username ?",_ "Student User Credentials") If IsEmpty(StudentUserName) Then Wscript.Quit Loop until StudentUserName <> "" I want to loop to the start of the entire script. iAnswer = Msgbox("Would you like to configure a Student ?" &vbCrLf &vbCrLf _ & "Select Yes to Continue, Select No to Configure a Staff !",vbYesNoCancel + vbquestion, _ "Config Script") I've see this and asked a similar question before but have totally messed it up. If possible can you please explain how you did it too. I am trying to learn more about it. The entire script is below: *************************************************************************************************************** Dim user, StudentUserName, StaffUserName, StudentComputerName, StaffComputerName, iAnswer, iConfirm iAnswer = Msgbox("Would you like to configure a Student ?" &vbCrLf &vbCrLf _ & "Select Yes to Continue, Select No to Configure a Staff !",vbYesNoCancel + vbquestion, _ "Config Script") If iAnswer = vbYes Then user = "student" ElseIf iAnswer = vbNo Then user = "staff" Else iAnswer = vbCancel Wscript.Quit End If select case user case "student" Do Until iConfirm = vbYes Do StudentUserName = InputBox ("Please Enter a Student Username ?",_ "Student User Credentials") If IsEmpty(StudentUserName) Then Wscript.Quit Loop until StudentUserName <> "" iConfirm = Msgbox("Please Confirm the following Information" &vbCrLf &vbCrLf & _ "Student User Name: " & StudentUserName &vbCrLf &vbCrLf & _ "Select Yes to Continue, No to Change User Information ",vbYesNo + vbinformation, _ "Student Details") Loop StudentComputerName = StudentUserName + "x" msgbox "You username is " & StudentUserName msgbox "You Computer Name is " & StudentComputerName case "staff" Do Until iConfirm = vbYes Do StaffUserName = InputBox ("Please Enter a Staff Username ?",_ "Staff User Credentials") If IsEmpty(StaffUserName) Then Wscript.Quit Loop until StaffUserName <> "" iConfirm = Msgbox("Please Confirm the following Information" &vbCrLf &vbCrLf & _ "Staff User Name: " & StaffUserName &vbCrLf &vbCrLf & _ "Select Yes to Continue, No to Change User Information ",vbYesNo + vbinformation, _ "Staff Details") Loop StAffComputerName = StaffUserName + "x" msgbox "You username is " & StaffUserName msgbox "You Computer Name is " & StaffComputerName end selec Tag: apply group policy via wmi Tag: 216187
- Next
  - 1
    - account creation Please help I am trying to modify the below creat user account script. I would like the account creator to enter the OU in text box so account can be created in that location. (eg OU=***,OU=***,DC=***,DC=***,DC=UK) enter in text box. unfortunately I am receiving error messages. please help. strpath = ("LDAP://" & strOuList) set objOU = GetObject(strPath) Set objUser = objOU.Create("User", "cn=" & strUser) objUser.Put "sAMAccountName", LCase(strUser) objUser.SetInfo I have also tried Set objOU = GetObject("LDAP://" & strOuList) Set objUser = objOU.Create("User", "cn=" & strUser) objUser.Put "sAMAccountName", LCase(strUser) objUser.SetInfo Tag: apply group policy via wmi Tag: 216174
  - 2
    - VBS = Error - ASP = OK - Why ?? Hi I have a .VBS file - contents below: ===================================================================== dataBaseRoot = "d:\Servers\byers\data\mmailing\" DBConLS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dataBaseRoot & "data\listShares.mdb" set ConLS = CreateObject("ADODB.Connection") ConLS.Open DBConLS ===================================================================== When I double click on it, the error shown below is generated. --------------------------- Windows Script Host --------------------------- Script: D:\Servers\Byers\wwwroot\mmailing\connectionTest.vbs Line: 7 Char: 1 Error: Provider is not specified and there is no designated default provider. Code: 800A0EA9 Source: ADODB.Connection --------------------------- OK --------------------------- I have a Classic ASP file - contents below ===================================================================== dataBaseRoot = "d:\Servers\byers\data\mmailing\" DBConLS = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & dataBaseRoot & "data\listShares.mdb" set ConLS = Server.CreateObject("ADODB.Connection") ConLS.Open DBConLS ===================================================================== When I run the ASPage in Internet Explorer - it runs OK (and actually Opens the Database) I have tried the "Jet" provider - same results I have Installed the latest MDAC (2.8) Why does it work in the ASP but not in the VBS (It works on other servers - but not this new one) THE SERVER IS Operating System Microsoft Windows Server 2003, Standard Edition OS Service Pack Service Pack 2 Internet Explorer 7.0.5730.11 DirectX 4.09.00.0904 (DirectX 9.0c) Thank you Pete (Northolt UK) Tag: apply group policy via wmi Tag: 216170
  - 3
    - Replacing single apostrophe (') with two single quotes ('') I am using RC wintrans as the software to localize our company`s software. To localize the strings being used in our software i export all the strings with their string IDs to an excel file and send them for translation. Now when i try to import the translation back into the DB of RC wintrans, excel does not return the strings starting with single quote ' , hence the translation of such strings are not imported automatically into RC wintrans. I would like to write a script, which searches through the strings in the excel file and replace every string starting with single quote ' with two single quotes '' ( remind you its not double quote but two single quotes). Can anybody help me with that? Can you please share it with me if you have any script that could help. Tag: apply group policy via wmi Tag: 216168
  - 4
    - Trading Forex WHO WE ARE? We are a partnership based in India and USA. We have a collective FOREX trading experience of 4 years.We decided to start this venture with the intent of helping people in India and other countries take advantage of immense potential profits from the FOREX markets. We act as Liasons between our clients and our partner forex broker and ensure that our clients receive adequate support inspite of being in different countries. WHY CHOOSE US? * FREE!! No extras commission spreads. * Get a friendly advocate in USA in case of broker assistance. * FREE assistance on forex related queries [Educational /Trading Decisions /Trading Sysems /Regulations]. * Live Trading Chat facility to discuss live calls. WHY INTERBANKFX? * We have had excellent experience with InterbankFx. * Professional Charting. * MetaTrader Support. * Credit Card deposit facility available. * Minimum required to open an account as little as USD 250. * No Dealing desk. * Full hedging and trailing stops. * Efficient spreads [as low as 2 on euro, subject to market volatility]. -------------------------- http://www.eecpindia.com http://www.anchorfx.com *** Sent via Developersdex http://www.developersdex.com *** Tag: apply group policy via wmi Tag: 216166
  - 5
    - Open File with VB 6.0 Hello Y'all I am wondering if anyone knows how to open a file via VB 6.0 I don't ant to open it into VB, just use vb to open the file e.g. When cmdOpen is clicked Open run.bat Thank you, Jacob Stone Tag: apply group policy via wmi Tag: 216160
  - 6
    - I need a login script that rejoins a machine to a new domain I need a login script or script that rejoins a machine to a new domain. I have over 100 workstations in the organization and I need a script that can automate this task. Thank You Tag: apply group policy via wmi Tag: 216158
  - 7
    - I need a login script that copies certain profile folder data from I need a login script that copies certain profile folder data such as my favorites, desktop and my documents over to a new domain profile. My company has over 100 workstations. We took over for another IT firm. Everyones profile in the organization was not a domain profile. I recently joined every workstation to the domain. I now need a script that copies old profile information over to their new domain profile. The folders I need copied are the desktop, my favorites and my document folders. Is there a vbs script I can use to automate this task. Doing it manually will probably take years? hah hah Thanks Tag: apply group policy via wmi Tag: 216157
  - 8
    - Re: printing character ' and " in asp using vbscript how to print apostrophe character ' and double quote " in asp using vbscript. my code using response.write replaces " character with inverted question mark. please help Tag: apply group policy via wmi Tag: 216152
  - 9
    - printing character ' and " in asp using vbscript how to print apostrophe character ' and double quote " in asp using vbscript. my code using response.write replaces " character with inverted question mark. please help Tag: apply group policy via wmi Tag: 216150
  - 10
    - Logging FIle Deletions I currently have a script that will delete files after a given time period. I would like to incorporate logging to to see what files have been deleted when the script runs. Any help would be most appreciated. *** Sent via Developersdex http://www.developersdex.com *** Tag: apply group policy via wmi Tag: 216147
  - 11
    - Setting FileSystem & Service Permissions on logon I have prepared .NET 2.0 Desktop App for my college library. My college System Admin set-up the library network with Windows 2003 server & XP clients, and has handed over its responsibilities to me. I have some experience with Active Directory & Group Policies, but I'm not an Admin. I have set-up OUs & appropriate Group Policies for various clients. I am looking for help in 2 specific areas: 1) First, each client has a varying number of hard-disk partitions. Active Directory Group Policy allows me to restrict access to either A,B,C,D or all drives. Some of these clients have up-to 6-7 partitions & I need to restrict access to some of them depending upon the Login. I did not see a direct way to do it. The only solution I see are Login scripts. Is there any other way to deny access to a partition depending upon who is logging in (for drive letters such as E & F). If I need to use scripts, can someone provide me a sample script to deny access to say F: for users in OPAC organizational unit. 2) The second thing is Service. Some clients have Sql Express installed for local use. Again, I need to start-up Sql Service only if OPAC user is logging in. Is there any way other than scripts, and if no, again I would request a sample script??? Tag: apply group policy via wmi Tag: 216145
  - 12
    - Easy way to iterate through text list? I have a comma delimited "list" in a string variable that I iterate over in a For loop. Currently, I first split the list into an array and then iterate over the array. searchfor = "album,artist,genre" searchtags = Split(searchfor, ",", -1, vbTextCompare) For Each tag In searchtags ... Next Is there a simpler way to do this, without having to split the list first? Tag: apply group policy via wmi Tag: 216135
  - 13
    - Can 'MInifying' vbscript provide performance gain? Can removing all comments, blank lines, tabs etc from vbscript code provide any performance boost? We are looking to tweak any performance we can get out of our app, I know it's a bit extreme of a move but is it viable? I have created a script to do this and it removes about 12mb from the file system footprint. Do you think that when the scripts are interpretted this could save some time? Tag: apply group policy via wmi Tag: 216130
  - 14
    - Search data with vbscript I 'm trying to write vbscript that will do search for specific key word or phrase (will be defined in script) inside PHP files in current folder, include subfolders. Once key word is found, it just opens this file and highlight this word. Any help is appreciated. thanks. Tag: apply group policy via wmi Tag: 216129
  - 15
    - Switches Folks: I have an EXE file from a Visual Basic application & I would like to identify the available switches. Generally, with Microsoft windows EXE files, we can gain access to the SWITCHES associated with these file. By typing "Filename.EXE /?" or "Filename.EXE /Help" I can get a list of all the available switches. This approach does NOT work with my VisualBasicFile.EXE file. * Is there another way to identify the switches associates with my EXE file ? * Can Microsoft deliberately hide these switches so that "/Help " or "/?" do NOT show any results ? * Appreciate any references to study this issue a bit more Thanks JoJo Tag: apply group policy via wmi Tag: 216124
  - 16
    - Create ActiveX object in VBS without console login Iâ??m running a VB script that has been spun off of a Windows Service which is configured as running as Local System, interact with DeskTop. The VB script is driving an IE application â?? and the IE application creates a new IE browser. My script is trying to find the browser with Shell.Application, using the Windows method to cycle through the windows, finding the one I want. My problem is that I get the error ActiveX Canâ??t Create Object when I try to use the Windows method. However it works if Iâ??m logged into the system console. Is there a permission/setting I can set to have it work without having the system console logged in? Tag: apply group policy via wmi Tag: 216107
  - 17
    - VBScript to send email if file is in folder I'm trying to figure out how to write a VBScript that will read a folder, and send an email if there is a file with an extension of BAD. I have a block of code that works to send the email using Outlook from other scripts I have in place. I have no idea where to start with the rest of the script. The files will have numerous names, but they will only have an extension of BAD or ERR. If they are there, I want to move them after the email is sent so I don;t continue to get false alerts. Any help pointing me in the right direction would be great! Tag: apply group policy via wmi Tag: 216099
  - 18
    - response.write issue This should be incredibly easy. But, I am having issues with the following. Why am I not getting the value to write out? Thanks. <%@ LANGUAGE="VBSCRIPT" %> <% Response.Buffer = True %> <html> <head> <title>testing</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <FORM name="testing" target="_top" action="testing.asp"> <select name="testing"> <option value="first" selected>first</option> <option value="second">second</option> </select> <input type="submit" name="Submit" value="Submit"> </FORM> <% strtesting = request.form("testing") response.write (strtesting) %> </body> </html> Tag: apply group policy via wmi Tag: 216096
  - 19
    - multiple choice boxes Hi, I am programming scripts to easily process a lot of measurement data from work. In order to be able to group certain data into summary output files, I would like to give the user the chance to select grouping criteria via multiple choice boxes, such as: Group by: [ ] Date [ ] Measurement Target [ ] Process ..... Is there any way to bring up such a multiple choice box in VB Script and react to the responses via select? Alternatively, is there any way to bring up a MsgBox where I can actually customize the reply buttons? So far, I only saw options like "Yes", "No" and "Cancel". Are you aware of any publicly posted subfunction that does either one of these? Thanks, Martin Tag: apply group policy via wmi Tag: 216089
  - 20
    - help with loops Hello everyone, I am after some help from more experienced programmers. I have used other scripts as examples from here and ones i have found on google. The script I have provided below is quite basic, but at this stage I am having some issues with my looping code. When I ask the user for a Blue or Red team name with an Input box they are presented with an OK and a cancel box. A cancel exits the script, however how do I loop a cancel to then loop all the way to the top of the script so they now seeing the Msgbox asking again if they are part of blue or red team with a Yes or No response ? I have looked at loops but if there is something else I can use please let me know. I hope someone can provide me some assistance. Thanking you in advance. *************************************************************************** Dim team, BTeam, RTeam, pick, choice pick = Msgbox("Are you part of Blue Team, Otherwise your on Red Team",vbYesNoCancel) If pick = vbYes Then team = "Blue" ElseIf pick = vbNo Then team = "Red" Else pick = vbCancel Wscript.Quit End If select case Team case "Blue" Do Until choice = vbYes BTeam = InputBox ("What is your Blue Team name ?") msgbox "Blue Team Name is " & BTeam Wscript.Quit Loop case "Red" Do Until choice = vbYes RTeam = InputBox ("What is your Red Team name ?") msgbox "Red Team Name is " & RTeam Wscript.Quit Loop end select Tag: apply group policy via wmi Tag: 216086
  - 21
    - How to test VB Script How to test a VB Script. As it is placed in my .msi and if it doesnt work properly it is not possible for me to remove the application from my system. So before putting that VB Script i jst wants to test the working of script file. Tag: apply group policy via wmi Tag: 216085
  - 22
    - Error 80041017 Looping through Array on Win 2000 I have the following script running (snippet from full script) on a Windows XP box with no errors. When I move the script to a Windows 2000 box (production) I receive an error 80041017 on line with For, character 1. All I've found online is that some of the winmgmt objects are named differently in Win2K but I cant seem to find mine as a problem. Does anyone see my problem? sSomefolder = filepath 'sPathSpec = Replace(Mid(Dir, 3) & "\", "\", "\\") sComputer = "." ' local machine 'Queries the sSomefolder to find any files like the name in ivrpins. 'This is necessary since the last characters before the extension are different Set qWMISrv = GetObject("winmgmts:\\" & sComputer & "\root\cimv2") Set aFiles = qWMISrv.ExecQuery("Select * from CIM_Datafile Where "_ & "Drive = 'C:' AND Path = '" & Dir1 & "' AND FileName Like '" _ & stamp_file & sqldate & "%'", , 48) For Each File In aFiles msgbox file.FileName Tag: apply group policy via wmi Tag: 216079
  - 23
    - What's wrong with my line counter script? Hello, Below is the contents of my linecounter.vbs file, which I hoped was going to be useful in telling me how many lines a text file includes, but seems to max out at 65,000 (give or take) even though I know my files are over 800,000 lines of text. Any suggestions? I'm obviously oversimplifying or else this wouldn't be a problem. Thanks, Eric ----linecounter.vbs-------------------------------------------- Dim objArgs Set objArgs = WScript.Arguments TgtFile = objArgs(0) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(TgtFile) ra = f.ReadAll msg = objArgs(0) & vbcrlf msg = msg & " line count: " & f.Line WScript.Echo msg --(end)------------------------------------------------------------ Tag: apply group policy via wmi Tag: 216073
  - 24
    - Access Denied I'm trying to dynamically remove and add users to a group on a domain using a login script but I get an access denied error on objGroup.Remove objUser.AdsPath Does anyone know why and how to resolve it? wscript.echo "Test Script." ' Remove AD LDS User from AD LDS Group. Dim objADAM ' Binding object. Dim objGroup ' Group object. Dim objUser ' User object. Dim strGroup ' Group. Dim strPath ' Binding path. Dim strOU ' Organizational unit. Dim strUser ' User. ' Construct the binding string. strPath = "ldap path" WScript.Echo "Bind to: " & strPath ' Specify User. strUser = "CN..." ' Specify Group. strGroup = "CN..." WScript.Echo "Remove: " & strUser WScript.Echo " from" WScript.Echo " " & strGroup ' Bind to root. Set objADAM = GetObject(strPath) ' Output error if bind fails. If Err.Number <> vbEmpty Then WScript.Echo "Error: Bind failed." WScript.Quit End If ' Remove User from Group. Set objGroup = objADAM.GetObject("group", strGroup) Set objUser = objADAM.GetObject("user", strUser) objGroup.Remove objUser.AdsPath ' Output success or error. If Err.Number <> vbEmpty Then WScript.Echo "Error: Remove failed." WScript.Echo Err.Description Else WScript.Echo "Success: User removed from group." End If Tag: apply group policy via wmi Tag: 216071
  - 25
    - Xcacls.vbs output format problem Hello all. I'm using Xcacls.vbs to enumerate the directory permissions on a remote server. http://www.jsifaq.com/SF/Tips/Tip.aspx?id=8225 If you look at the example output in the above website, you'll see the various columns; Type, Username, Permissions and Inheritance. The problem I'm seeing is that if an entry in the Username column has too many characters, it is being cut off. For example: "ServerName12345\IUSR_ServerName12345" is being displayed as "ServerName12345\IUSR_Se" I found a couple posts that appeared to deal with this issue, but the listed solution didn't work for me: http://www.itnewsgroups.net/group/microsoft.public.windows.server.general/topic5960.aspx http://www.webservertalk.com/message1843654.html Any suggestions on how to solve this would be greatly appreciated. Thanks! - Dave Tag: apply group policy via wmi Tag: 216066

I woule like to apply group policy via wmi

RE: apply group policy via wmi by CoreyThomasMCSEMCSAMCDBA

CoreyThomasMCSEMCSAMCDBA
Thu Mar 20 13:05:19 CDT 2008

Hi Freddy,

I'm not quite sure what you are wanting to do. Are you wanting to apply
similar settings or just wanting to make a policy apply?

Most all group policy settings are just registry entries that you can set
via script.
If you are looking at just forcing the policy to download and apply, then
gpupdate.exe is your answer.

It will update all the policies on your machine as well as remote machines.
You only need to pass it the remote machine name.

-Corey
http://vbscripter.blogspot.com

"freddy" wrote:

> I woule like to apply group policy via wmi

Top