File Permissions

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
    - Object COMAdminCatalogObect Hi everyone, I have made a VB Script that shutdown my own created object is this failed, this is an example of a part of my own code ______________________________________________ ...... ' Get the correct component, "My Component". Dim CompObject As COMAdminCatalogObject For Each CompObject in Components If CompObject.Name = "My Component" Then Exit For End If Next .... ______________________________________________ This work absolutelly right, but I want to make it better, I want to know for how long time has been my own Component working, but I don't know wich "property" show me this data. Thanks in advance to anyone can help me Tag: File Permissions Tag: 180737
  - 2
    - Generate Certificate Signing Request (CSR) for Verisign or other trusted Generate Certificate Signing Request (CSR) for Verisign or other trusted Certificate Authority from command line? Can this be done? (2003 6.0 IIS resource kit doesn't seem to have this.) Tag: File Permissions Tag: 180728
  - 3
    - Allow Dialin via script I'm trying to simplify a load of AD admin tasks using vbscripts. One of these tasks is allowing (or denying) dialup. I have found the msNPAllowDialin AD attribute but looking at the schema - see the link at the bottom of the post - it looks like I should be using something else. The preferred admin interface (found by following the link) seems to be via a RASadmin dll using C, which is way out of my league (to be honest, I'm fairly new to scripting). Is there an approved simple way to allow/deny ras access via vbscript? Or do I have to bodge it and set msNPAllowDialin to True or False directly? Cheers Azi http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adschema/adschema/a_msnpallowdialin.asp Tag: File Permissions Tag: 180727
  - 4
    - troubles deleting a regkey via regdelete OK - I've done a bit of research and it seems that by using the regdelete method you need to replace "\" with "\\" if the valuename has any backslashes in it. However, for some odd reason, I can't seem to get it to delete the following: Key: HKLM\SOFTWARE\Microsoft\NAL\CLIENT\Preferred AbExprtDB\CAP List for site KNA\ Value Name: MSWNET:["SMS_SITE=SITENAME"]\\\CAP_SITESERVER\ No Value Data The error generated states invalid root - which tells me that it is hanging up on the backslashes in the value name. Ok, that's fine, I figured if I replaced the "\" with "\\", then it would solve my problem, but it still didn't work after that, resulting in the same error. Is there something I'm missing here? Thanks all...! Rob ------------------------------------------------- strSMSSiteName = "SITENAME" strCAPServer = "SITESERVER" strComputer = "." const HKEY_LOCAL_MACHINE = &H80000002 Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\NAL\CLIENT\Preferred " _ & AbExprtDB\CAP List for site SITENAME" oReg.EnumValues HKEY_LOCAL_MACHINE, strKeyPath,_ arrValueNames, arrValueTypes For i=0 To UBound(arrValueNames) If UCase(arrValueNames(i)) <> UCase("MSWNET:[" & Chr(34) _ & "SMS_SITE=strSMSSiteName" & Chr(34) & "]\\" & strCAPServer _ & "\cap_" & strSMSSiteName & "\") Then strDeleteKey = arrValuenames(i) 'Here's where I tried strDeleteKey = replace(arrValuenames(i),"\","\\") to no avail. strDelete = "HKLM\" & strKeyPath & "\" & strDeleteKey WshShell.RegDelete strDelete End If Next Tag: File Permissions Tag: 180725
  - 5
    - Domain last-logon script -- can it also show where? The following script by Richard Mueller shows the last time each user in a domain logged on. Does anyone know how it might be modified to show the system that was logged onto as well as when the logon occurred? Thanks in advance to all who respond. Leslie ' LastLogon.vbs ' VBScript program to determine when each user in the domain last logged ' on. ' ' ---------------------------------------------------------------------- ' Copyright (c) 2002 Richard L. Mueller ' Hilltop Lab web site - http://www.rlmueller.net ' Version 1.0 - December 7, 2002 ' Version 1.1 - January 17, 2003 - Account for null value for lastLogon. ' Version 1.2 - January 23, 2003 - Account for DC not available. ' Version 1.3 - February 3, 2003 - Retrieve users but not contacts. ' Version 1.4 - February 19, 2003 - Standardize Hungarian notation. ' Version 1.5 - March 11, 2003 - Remove SearchScope property. ' Version 1.6 - May 9, 2003 - Account for error in IADsLargeInteger ' property methods HighPart and LowPart. ' Version 1.7 - January 25, 2004 - Modify error trapping. ' ' Because the lastLogon attribute is not replicated, every Domain ' Controller in the domain must be queried to find the latest lastLogon ' date for each user. The lastest date found is kept in a dictionary ' object. The program first uses ADO to search the domain for all Domain ' Controllers. The AdsPath of each Domain Controller is saved in an ' array. Then, for each Domain Controller, ADO is used to search the ' copy of Active Directory on that Domain Controller for all user ' objects and return the lastLogon attribute. The lastLogon attribute is ' a 64-bit number representing the number of 100 nanosecond intervals ' since 12:00 am January 1, 1601. This value is converted to a date. The ' last logon date is in UTC (Coordinated Univeral Time). It must be ' adjusted by the Time Zone bias in the machine registry to convert to ' local time. ' ' You have a royalty-free right to use, modify, reproduce, and ' distribute this script file in any way you find useful, provided that ' you agree that the copyright owner above has no warranty, obligations, ' or liability for such use. Option Explicit Dim objRootDSE, strConfig, objConnection, objCommand, strQuery Dim objRecordSet, objDC Dim strDNSDomain, objShell, lngBiasKey, lngBias, k, arrstrDCs() Dim strDN, dtmDate, objDate, lngDate, objList, strUser Dim strBase, strFilter, strAttributes, lngHigh, lngLow ' Use a dictionary object to track latest lastLogon for each user. Set objList = CreateObject("Scripting.Dictionary") objList.CompareMode = vbTextCompare ' Obtain local Time Zone bias from machine registry. Set objShell = CreateObject("Wscript.Shell") lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _ & "TimeZoneInformation\ActiveTimeBias") If UCase(TypeName(lngBiasKey)) = "LONG" Then lngBias = lngBiasKey ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then lngBias = 0 For k = 0 To UBound(lngBiasKey) lngBias = lngBias + (lngBiasKey(k) * 256^k) Next End If ' Determine configuration context and DNS domain from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("configurationNamingContext") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. ' This will identify all Domain Controllers. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strConfig & ">" strFilter = "(objectClass=nTDSDSA)" strAttributes = "AdsPath" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Enumerate parent objects of class nTDSDSA. Save Domain Controller ' AdsPaths in dynamic array arrstrDCs. k = 0 Do Until objRecordSet.EOF Set objDC = _ GetObject(GetObject(objRecordSet.Fields("AdsPath")).Parent) ReDim Preserve arrstrDCs(k) arrstrDCs(k) = objDC.DNSHostName k = k + 1 objRecordSet.MoveNext Loop ' Retrieve lastLogon attribute for each user on each Domain Controller. For k = 0 To Ubound(arrstrDCs) strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">" strFilter = "(&(objectCategory=person)(objectClass=user))" strAttributes = "distinguishedName,lastLogon" strQuery = strBase & ";" & strFilter & ";" & strAttributes _ & ";subtree" objCommand.CommandText = strQuery On Error Resume Next Set objRecordSet = objCommand.Execute If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Domain Controller not available: " & arrstrDCs(k) Else On Error GoTo 0 Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName") lngDate = objRecordSet.Fields("lastLogon") On Error Resume Next Set objDate = lngDate If Err.Number <> 0 Then On Error GoTo 0 dtmDate = #1/1/1601# Else On Error GoTo 0 lngHigh = objDate.HighPart lngLow = objDate.LowPart If lngLow < 0 Then lngHigh = lngHigh + 1 End If If (lngHigh = 0) And (lngLow = 0 ) Then dtmDate = #1/1/1601# Else dtmDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) _ + lngLow)/600000000 - lngBias)/1440 End If End If If objList.Exists(strDN) Then If dtmDate > objList(strDN) Then objList(strDN) = dtmDate End If Else objList.Add strDN, dtmDate End If objRecordSet.MoveNext Loop End If Next ' Output latest lastLogon date for each user. For Each strUser In objList Wscript.Echo strUser & " ; " & objList(strUser) Next ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objConnection = Nothing Set objCommand = Nothing Set objRecordSet = Nothing Set objDC = Nothing Set objDate = Nothing Set objList = Nothing Set objShell = Nothing Tag: File Permissions Tag: 180724
  - 6
    - Disk Statistics across many UNC path I have the requirement to check total size and free space for a variety of UNC paths on EMC datamovers to check the file system sizes; I planned on mapping drives to them and running the script below; which works fine but I am limited to 22 drive letters at a time and I have over 300 unc paths to test. Can someone point me in a more efficient direction where I can pass UNC paths to a script similiar to below that will give me the data needed? On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",,48) For Each objItem in colItems WScript.Echo "Description: " & objItem.Description WScript.Echo "DeviceID: " & objItem.DeviceID WScript.Echo "DriveType: " & objItem.DriveType WScript.Echo "FileSystem: " & objItem.FileSystem WScript.Echo "Size(GIG): " & (objItem.Size/1024)/1024/1024 WScript.Echo "FreeSpace(GIG): " & (objItem.FreeSpace/1024)/1024/1024 WScript.Echo "" Next Tag: File Permissions Tag: 180723
  - 7
    - showModalDialog and customservercontrols Hi, on my baseform 'FormLoggedIn.aspx' I've added a Button with: Button2.Attributes.Add("onclick", "window.showModalDialog('WebForm3.aspx',Null ,'status:no;dialogWidth:370px;dialogHeight:720px;dialogHide:false;help:no;scroll:Yes');") When the user click on the button webform3 is loaded, exactly how I like it. But on Webform3 I've implemented a customservercontrol with several events depending on the users input. When such an event fires (server site) a new form is loaded in stead of updating the existing form. The result of the event took place in the new opend form. But when I use: Button2.Attributes.Add("onclick", "window.open ('WebForm3.aspx')") everythings works fine, allthough the form is not a modal form. Is something wrong with the parameters of the showModalDialog? Please reply Ton Tag: File Permissions Tag: 180720
  - 8
    - import a .REG file based on Operating system condition. Hello all, I'm new to VBS, however need to figure out a way to create a logoff script, that can check the OS version of the machine, then based on that condition, import a .REG file. For example, I only work with 2000 and XP workstations. If the machine is a 2000 machine, I want lines A of code to execute, however if the machine is a XP machine, I want lines B of code to execute. Then perhalps in the lines B of code, I can put another check for whether it is a SP1 or SP2 machine, then have different code execute based on that.... Can anyone help me get started on this? Thanks Tag: File Permissions Tag: 180715
  - 9
    - Error on no results Hello There I am writing a script to query for services of a particular name, at this stage I am just echoing out the status of the service, this so far is working, I then tried to catch it when the query found no services, and so far I cant. I have fudged it together with a count but I really don't want to leave it like that, so I was hoping someone could have a look at it for me and tell how I could do it better Just remove the % for it not to find the Print service <SNIP> SERVICE_NAME = "Print%" Count = 0 Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colServiceList = objWMIService.ExecQuery _ ("Select * from Win32_Service where DisplayName Like '" & SERVICE_NAME & "'") For Each objService in colServiceList Count = Count +1 Next If Count > 0 Then For Each objService in colServiceList Wscript.Echo objService.State Next Else Wscript.Echo "No Service Found" END IF </SNIP> TIA Tag: File Permissions Tag: 180712
  - 10
    - Disable Exchange 2003 Mailbox features using VBScript Hi all, I have a AD2K3 domain running Exchange 2003. I want to create a script that will run through all users and disable some of the default enabled Exchange Features - namely POP3 access and OWA. Does anyone know the AD object that I need to query/change? TIA, R. Tag: File Permissions Tag: 180711
  - 11
    - Urgent Script Password Good morning, do I need a script so that when an user is connected to the office by means of VPN, the administrator's local password is changed by security, you can help me?. I don't have a lot of idea of programming. I sit down it. Thank you. Tag: File Permissions Tag: 180709
  - 12
    - Common tasks of script developer Hello Scripters, I'm working on an article about development productivity. I'm trying to figure out common daily tasks of script developer and Windows administrator. Probably some one can share information about his tasks with me. Beforehand thanks, Alexander. Tag: File Permissions Tag: 180708
  - 13
    - How to download files. You open file directly after clicking a link in web.For example,there is a link,it points a gif file.after you click the link ,you will open the gif file,on the one hand. On the other hand,if you don't install word and the link points a doc file ,if you click the link,you will not open doc file in IE and you will get saving dialog,however ,if you installed word,you will open it directly. I want to get saving dialog but open file directly ,how to ? Thanks. Tag: File Permissions Tag: 180707
  - 14
    - Insert binary image file to Excel Hi, I have a vbscript program that is connected to MS SQL Server 2000. Now, i would like generate a report which contains some pictures. However, the image field datatype stored in binary format, not physical path, how can i insert the image to Excel. Best Regards, Sexball Tag: File Permissions Tag: 180706
  - 15
    - WMI access SNMP Blackberry provide a MIB for SNMP with their Entererise Server. There is some information I need to access through SNMP, I have installed the 'WMI Provider for SNMP' but can't see the blackberry objects through WMI. I have looked through Script-o-matic but can't find the WMI objects to query. Does anyone know how to access this SNMP information or could help point me in the right direction. Thanks Tag: File Permissions Tag: 180700
  - 16
    - REQ: Script to find which PC a userID is logged into G'day all I'm looking for a script that will tell me which PC a user is logged in to. Any hel - links would be great. Thanks regards Mark Tag: File Permissions Tag: 180699
  - 17
    - Error Connecting to the database Dear experts, I'm a newbie to vbscript. Currently, I am trying to connect to an Access Database using DSN-less connection. I tested to run the script, the following error message prompt. I have added my own workgroup to the .mdw file. I manage to open the access database manually, but not through the script. Error Type: Microsoft JET Database Engine (0x80004005) You do not have the necessary permissions to use the 'C:\Inetpub\wwwroot\SeokBee\Leave\DB\leaves.mdb' object. Have your system administrator or the person who created this object establish the appropriate permissions for you. The script that I wrote is as follow: <% dim dbConnection, mdbFilePath, DSNtest, strConnection strConnection= "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/leave/DB/leaves.mdb") Set dbConnection = Server.CreateObject("ADODB.Connection") dbconnection.open strConnection %> Please assist me on the solving this problem. Many thanks in advance. Regards, Seok Bee Tag: File Permissions Tag: 180698
  - 18
    - find multiple logons hi, does anyone have a utility or script to check if a domain ID is logged onto which computer on the network? thanks Tag: File Permissions Tag: 180695
  - 19
    - Possible bug with VB Scripting Dictionary Hard to know how to classify this question so apologies for the cross-post. I am writing an application using VBA Retail 6.4.9972 over VB 6.3 inside AutoCAD 2002 (Wait! Don't abandon this question VB programmers - you really don't need to know anything about AutoCAD in order to help). It's a fairly sizeable application (10,000+ lines) and is working quite well but this thing has had me pulling my hair out since yesterday. I am using a Dictionary to store information about roof struts but I've found that modifying the Item for a particular key modifies not only the intended item, but also another (seemingly unrelated) item!! It's true! I've stepped through line by line and can see in the Watch window that they *both* change when the one assignment line is executed. Now the data structure is not straightforward and it may be related to that but I've tried various modifications on the theme and the same problem keeps happening. Here's the relevant code: In a class module named Strut2DClass ------------------------------------ Public MaxPosition Public MinPosition Public MinHalfSpread As Double Public ActualPosition Public ActualHalfSpread As Double Public LineHandle As String Public StrutLength As Long Public ParentDetails As New Dictionary In the standard AutoCAD module named ThisDrawing ------------------------------------------------ Private Sub Strutting2DTree(Strut2DDict As Dictionary) Dim Strut2D As New Strut2DClass Dim CurrentBranch As String Dim StrutLength As Double . . . Strut2DDict.Add CurrentBranch, Strut2D . . . Strut2DDict(CurrentBranch).StrutLength = StrutLength Struts may be Vertical or Fan struts and the Dictionary key CurrentBranch contains the series of struts at the current level, eg "FF", "FVFV". When the last line of code above is executed for CurrentBranch "FFF", the .StrutLength is changed for both "FFF" *and* "FFV" (as witnessed in the Watch window). How can this be?? The other point that *may* be relevant (although I don't see how) is that this procedure Strutting2DTree can recursively call itself in certain circumstances (hence the references to "tree" and "branch"). I would very much appreciate any suggestions. Thanks Wayne Ivory Senior Analyst Programmer Electronic Business Development Wespine Industries Pty Ltd Tag: File Permissions Tag: 180694
  - 20
    - unable to uncheck Disable Script Debugging I want to enable script debugging, but IE won't let me uncheck the Disable Script Debugging setting. When I do, and then apply the change, the next time I look at the setting, it is still checked. How do I fix this? Thanks Tag: File Permissions Tag: 180688
  - 21
    - ShellExecute - permission denied I get "Permission Denied" error code when execute the following script from HTML page. The error happened on ShellExecute call. I have tried it on Win 2000 PRO, WIn XP Home SP2 with the latest version of IE and SPacks. What is the problem?? The test file c:/aaa.txt is OK and I have administrator account <P><INPUT type=button value="test button" id=button4 name=button4></P> <SCRIPT LANGUAGE="VBScript">  </SCRIPT> Tag: File Permissions Tag: 180687
  - 22
    - Recordset.Close() vs. dropping out of scope Some colleagues and I are debating the absolute necessity of executing the Close() method on a recordset once you're done with it. I have always heard it recommended that you should always execute the Close() method, and that failure to do so could result in the recordset remaining open and never closed and unloaded until it falls out of scope. But my argument is that there is a handy word "could" in the above statement. I have perused documentation and web sites and I can see no specific evidence of this happening except: a) the garbage collector is too slow to keep up (i.e. on a multi-threaded web site hosting millions of people at once), or b) the recordset is passed into another scope context, such as the Session object. I have NEVER heard of this problem outside of these two criteria. Has anyone else??? My position is that if you only have a few hundred users pounding on a connection pool at once, and you've got a local subroutine going on, and you aren't putting the Recordset or its Connection anywhere else (a global or static collection), even if it is a healthy, good idea to Close() it and mark it for destruction, it's nonetheless 100% safe to just forget about it and let the garbage collector handle it. Why specifically am I wrong? Is there a known defect within ADO that proves me wrong? What is the KB #? Thanks, Jon Tag: File Permissions Tag: 180676
  - 23
    - arry int question how to declare an array and initialize in one step similar to c string myarry() = {"a", "b",....} instead of element by element or devious split string? Tag: File Permissions Tag: 180675
  - 24
    - Parsing files I need to parse a | pipe-delimited text file to exclude lines which contain a certain numerical value Here is a sample: #90053 | 6480| 90000| 100000| | 343| 0| 0| | |#90665 | 8| 0| 102400| | 2| 0| 0| | | Now, assuming I can figure out how to parse this file, I need to factor in a *nix password file which will take the #90xxx number and give me a text user name. I need to take these excluded users and remove their entries in an excel file. I am lost. Any help out there? I've gotten some good stuff from here in the past... Tag: File Permissions Tag: 180668
  - 25
    - Learning VBScript Could some tell me good books or resources to use in learning to write VBScripts. Thanks Tag: File Permissions Tag: 180665
- Next
  - 1
    - running an application in a VB script What would the command be to run the following program in a VB script: "C:\program files\Norton SystemWorks\Norton CleanSweep\Qdcsfs.exe" I honestly don't know a whole lot about VB scripts, and I have one that calls up disk defragmenter with the following command: WshShell.Run "dfrg.msc" and the script automatically finds disk defragmenter in the following location %systemroot%\System32\dfrg.msc I even tried using the same command after putting the file Qdcsfs.exe In the System32 folder and changing the command to WshShell.Run "Qdcsfs.exe" But even that did not work. I tried putting the file via the path name both thru the network \\brian\program files\norton systemworks\... etc and also C:\program files\norton systemworks\...etc to no avail. BTW this is Norton Clean Sweep Fast&Safe cleanup if you're curious. Brian Tag: File Permissions Tag: 180664
  - 2
    - remove a remote pcs specific printer I am looking for some help on a quick script to remove a printer on about 100 pcs can anyone help me out. Anything appreciated Thanks Tag: File Permissions Tag: 180658
  - 3
    - wmi property Below is a script to check if a LAN cables is plugged in. I run the script on XP and it works great. I found out when running on a Windows 2000 box I get an error. It appears that there are additional wmi properties. Does anyone know if there is a WMI update or download to WMI for Windows 2000? I am not sure what version of WMI is installed otherwise, I would have posted. ' connect to WMI and retrieve collection. Set objSet = GetObject("WinMgmts:").ExecQuery _ ("select * from Win32_NetworkAdapter WHERE DeviceID = '1' ") 'Get final value and display result. For Each obj in objSet strStatus = obj.NetConnectionStatus 'Err.Number = obj.NetConnectionStatus Next WScript.Echo strStatus If strStatus = 2 Then WScript.Echo "connected" Wscript.Quit 0 elseif strStatus = 7 Then WScript.Echo "Not Connected" WScript.Quit 1 End if Tag: File Permissions Tag: 180657
  - 4
    - Problem with TargetPath while creating desktop shortcut My problem is this. Iam trying to create a shortcut for a Client Access session (.ws file). However when I add the path to the actual .ws file into the TargetPath part, it seems the shortcut doesnt recognize the path unless I manually edit a piece of the target path. Once I delete and recreate a character it works just fine. Any help will be greatly appreciated. Here is the script: Dim WSHShell Dim Shortcut, Desktop, DesktopPath Set WSHShell = WScript.CreateObject("WScript.Shell") DesktopPath = WSHShell.SpecialFolders("Desktop") Set fso = CreateObject("Scripting.FileSystemObject") Set objNetworkPrinter = CreateObject("WScript.Network") Set objNetworkDrive = Createobject("Wscript.Network") set oParent = getObject (oUser.parent) Dim gDomainName, gUsername, gFullname Dim oNetwork Dim oGroupList Dim strQuotationmark Dim WSPath Dim CAPath Dim Space Dim PPath gUsername = "" gDomainName = "domain" strQuotationmark = """" WSPath = Chr(34) + "g:\CAccess\%clientname%\caccess1.ws" CAPath = "C:\Program Files\IBM\Client Access\Emulator\pcsws.exe" + Chr(34) PPath = Chr(34) + "g:\CAccess\%clientname%\caccessp.ws" Space = " " Set ONetwork = createObject("wscript.network") Set oGroupList = CreateObject("Scripting.Dictionary") Call LoadNTGroups() 'also assigns gUsername If InGroup("domain users") Then 'Wscript.Echo End if If InGroup("Session_users") Then Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\Session.lnk") Shortcut.TargetPath = CAPath & Space & WSPath Shortcut.WorkingDirectory ="C:\Program Files\IBM\Client Access\Emulator" Shortcut.WindowStyle = 4 Shortcut.IconLocation = "C:\Program Files\IBM\Client Access\Emulator\pcsws.exe,0" Shortcut.Save 'Else 'fso.delete (DesktopPath & "\Session.lnk") End If If InGroup("Session_users") Then Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\Printer.lnk") Shortcut.TargetPath = CAPath & Space & PPath Shortcut.WorkingDirectory ="C:\Program Files\IBM\Client Access\Emulator" Shortcut.WindowStyle = 4 Shortcut.IconLocation = "C:\Program Files\IBM\Client Access\Emulator\pcsws.exe,0" Shortcut.Save 'Else 'fso.delete (DesktopPath & "\Printer.lnk") End If '======================== Sub LoadNTGroups() ' ' Load oGroupList (Dictionary) with user's NT group membership... ' '======================== Dim oUser Dim oGrp On Error Resume Next While gUsername = "" Err.Clear: gUsername = oNetwork.username If Err Then WScript.Sleep 100 Wend On Error Goto 0 Set oUser = GetObject("WinNT://" & gDomainName & "/" & gUsername) gFullname = oUser.Fullname oGroupList.CompareMode = vbTextCompare For Each oGrp In oUser.Groups oGroupList(oGrp.name) = True Next End Sub '======================== ' Function InGroup(sGroup) ' ' Emulates the KIX InGroup function... ' '======================== InGroup = oGroupList.Exists(sGroup) End Function Tag: File Permissions Tag: 180654
  - 5
    - Setting permissions on a folder tree Hi all, I'm hoping to get some help from someone who knows this stuff better than I... I need to set permissions on all of the files and folders in a directory tree. I would guess that this is the sort of thing that I need WMI to do, but I always get lost trying to figure out how to deal with WMI. I want to set this permission set on the root folder, whose path is stored in a string variable: Administrators: Full control Authenticated users: Read and Execute I want to recursively set all of the contents of the root folder to inherit privileges from their parent folder. TIA! - Bob Tag: File Permissions Tag: 180651
  - 6
    - Script Engine [WILDPACKET] when I run a small test vbscript on my XPP with SP2 pc this is what I get .... CScript Error: Can't find script engine "VBScript" for script c:\test.vbs. Advise please. Thanks in advance. Tag: File Permissions Tag: 180633
  - 7
    - Error opening file ....... [WILPACKET] Running a WMI via GPO to collect hardware inventory at logon - A small VBScript. Most of it is working but few PCs not running the script. When I connect to sysvol and run the script manually on those pcs ...........it gives me this error message Error opening script file. Any thoughts? Thank you in adv. Tag: File Permissions Tag: 180631
  - 8
    - diskpart Is there a way in VBScripting to perform the same function as diskpart? Or is there a way to scan a formatted document and pull the value from a line? I can take diskpart and output its "Disk List" command to a text document but it goes in as one line with characters to delineate the lines and fields. If I use wordpad I can read it correctly but I need to then save it to a text document to loose the formatting. -- Andrew C. Madsen Network Specialist Harley-Davidson Motor Company Tag: File Permissions Tag: 180629
  - 9
    - Change DNS I need a script to change the primary DNS and the Secondary DNS for pcs Windows Professional XP SP2. Do you help me to build it?. I don't have a lot of idea of VB. Thank you. Tag: File Permissions Tag: 180628
  - 10
    - VB Script an update in access Hello all. First, thanks for any assistance. Now to the problem, I'm trying to run an SQL update to an access db through vb script. Getting the following error: An error was flagged objAccessdbRecordset.Open "select * from DBBackup_Query [Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 5. Here's the syntax: Set objAccessdbConnection = CreateObject("ADODB.Connection") Set objAccessdbRecordset = CreateObject("ADODB.Recordset") 'Hard Coded DSN of the Access DB objAccessdbConnection.Open "DSN=DBA_2000;" 'WScript.Echo objAccessdbConnection.ConnectionString If Err.Number <> 0 Then WScript.Echo "An error was flagged opening the DSN=DBA_2000;." WScript.Echo Err.Description Err.Clear End If 'objAccessdbRecordset.CursorLocation = adUseClient objAccessdbRecordset.Open "update DBBackup_Query set last_back = ""01/01/2005"" where servername = [FHECOMDB] And dbname = [CMDB]", objAccessdbConnection, adOpenStatic, adLockOptimistic If Err.Number <> 0 Then WScript.Echo "An error was flagged objAccessdbRecordset.Open ""select * from DBBackup_Query" WScript.Echo Err.Description Err.Clear End If wscript.echo "Thanks again!" Tag: File Permissions Tag: 180627
  - 11
    - Limiting number of chars in a TEXTAREA Hi If I want to limit the numbers in a chars in a "input type=text"-control I use the maxlength property. However there doesn't seem to exist such a property for the textarea control. Can anyone please tell me how to limit the number of chars entered in a TEXTAREA control? Regards PO Tag: File Permissions Tag: 180626
  - 12
    - how do I change this vbscript so that I can use it remotely? Hi all...the following is a local script that displays 'software update services' settings on a Windows machine. I need to run this script remotely against a list of machines in order to determine if the users have fiddled with their SUS/WUS settings. Can someone help me convert this to a remotely runnable script? Or post a vbs example of how to get the same results? Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate") Wscript.Echo "Service enabled: " & objAutoUpdate.ServiceEnabled Set objSettings = objAutoUpdate.Settings Wscript.Echo "Notification level: " & objSettings.NotificationLevel Wscript.Echo "Read-only: " & objSettings.ReadOnly Wscript.Echo "Required: " & objSettings.Required Wscript.Echo "Scheduled Installation Day: " & _ objSettings.ScheduledInstallationDay Wscript.Echo "Scheduled Installation Time: " & _ objSettings.ScheduledInstallationTime Tag: File Permissions Tag: 180623
  - 13
    - Set Permission for User Hi , I could write a script to create a newuser but unable to deny the permissions like "Read & Execute","List Folder Contents","Read" Permisions for this User.Please Help. Thanks, Kathy Tag: File Permissions Tag: 180619
  - 14
    - Error Code! Hello Everybody.... When I need to force logoff for a user, after the disabling of the account, nothing is work. I mean the user can logon again even that his account is disabled. The error of the script: Object not a collection Code:800A01C3 Can anyone tell me how can I force the logoff of the user without letting him enter th domain again; because of the disabling of the account??? Tag: File Permissions Tag: 180618
  - 15
    - script for ping and ipconfig Hello, My 2003 server loses Internet connectivity frequently which I can get back by ipconfig/release and ipconfig/renew. I am looking for a script to ping an internet address and if it receives no reply to run ipconfig release and renew. Preferably the script would check at regular intervals like every hour, other wise I could schedule it with task scheduler. Thanks for any help. Tag: File Permissions Tag: 180616
  - 16
    - Rookie needs help I have a file "VSSetup.exe" that need to be installed with local admin rights. I want to install through a script, but there is no way I am going to give the users elevated rights. How can I install the (McAfee Antivirus Product) with elevated permisions? Thank you all, Tag: File Permissions Tag: 180612
  - 17
    - rookie needs help I have a file "VSSetup.exe" that need to be installed with local admin rights. I want to install through a script, but there is no way I am going to give the users elevated rights. How can I install the (McAfee Antivirus Product) with elevated permisions? Thank you all, Tag: File Permissions Tag: 180611
  - 18
    - Session Variables between 2 servers Hi, is there a way to pass a session variable between 2 servers? Tag: File Permissions Tag: 180603
  - 19
    - Validate Username / Password on Active Directory ? Help !!! I am looking or some assistance on how to validate a user name and password that our onsite engineers enter to initiate a build. The username is used to add the workstation to its OU after the build is complete, but if the password is incorrect this fails. They all have accounts set up in our AD. Can't find anything at all. We have resorted to doing a temporary mapping to a test folder to validate the credentials, which will fail is username of password is incorrect. Crude approach but it works. Does anybody have any suggestion on how I can validate, via VBS these credentials. Cheers. PB to initiate a build. The username is used to add the workstation to its OU after the build is complete, but if the password is incorrect this fails. They all have accounts set up in our AD. Can't find anything at all. We have resorted to doing a temporary mapping to a test folder to validate the credentials, which will fail is username of password is incorrect. Crude approach but it works. Does anybody have any suggestion on how I can validate, via VBS these credentials. Cheers. PB Tag: File Permissions Tag: 180599
  - 20
    - Validate Username / Passowrd on Active Directory ? Help !!! I am looking or some assistance on how to validate a user name and password that our onsite engineers enter to initiate a build. The username is used to add the workstation to its OU after the build is complete, but if the password is incorrect this fails. They all have accounts set up in our AD. Can't find anything at all. We have resorted to doing a temporary mapping to a test folder to validate the credentials, which will fail is username of password is incorrect. Crude approach but it works. Does anybody have any suggestion on how I can validate, via VBS these credentials. Cheers. PB Tag: File Permissions Tag: 180598
  - 21
    - logon script, username and registry edit I'm trying to modify a registry key in HKLM to receive the value of the currently logged on user (%username%). I need this to run as part of the normal user logon script...whether it is embedded in the current script or called separately. My logon script is simply a *.bat file that synchronizes the time, maps some drives and copies files to the local machine. I'm not a scripter so I tried Scriptomatic and Tweakomatic with similar (negative) results. The key in question is a string value. I'm running a W2K3 domain if this matters. Thanks! Tag: File Permissions Tag: 180589
  - 22
    - Urgent Script PLEASE Problem that I have now, like I can by means of GPO to make Replace permission on existing subkeys in the key HKEY_CLASSES_ROOT\TypeLib that is the one that gives the failure?? Or can you tell me as making a script? Tag: File Permissions Tag: 180587
  - 23
    - Exchange Server WMI Instance problem Anyone know of a reason whereby using the Exchange_Server WMI instance from the ExchangeServerV2 namespace might not work? I have tried running remotely and locally on the Exchange Server itself, just doing reads. All the other instances under V2 work just fine (verified with Scriptomatic), but even the basic scriptomatic "reads" fail when the Exchange_Server instance is selected. The scripts just hang with no errors. (on error resume is off) Greg Tag: File Permissions Tag: 180584
  - 24
    - sheet protection in excel with editable range Hi, I've created a script to enumerate critical security groups (Domain Admins, Enterprise Admins, etc etc) in Active Directory for manager review on a regular basis. Since this is a control we're putting in place for SOX compliance, one of the specifications was that the data in the report be unalterable. I was able to get protection working but I've got a new feature request for a editable "comments" column for the managers to use during their review. I can't seem to get the Sheet.Protection.AllowEditRange.Add functionality to work. I get the following error: Microsoft VBScript runtime error: Object doesn't support this property or method: 'sheet.Protection.AllowEditRange' Can anyone help? Code: FOR EACH sheet IN myworkbook.sheets sheet.activate SET objRange = sheet.columns("F:F") Sheet.Protection.AllowEditRange.Add objRange 'initially tried the following instead of objRange, 'cc from macro and gives a compilation error ' Title:="Range1", Range:=sheet.Columns("F:F") 'this works by itself but not with any other arguments Sheet.Protect strmypassword NEXT Tag: File Permissions Tag: 180583
  - 25
    - Script to write Info to MS access file. I need script that I can attached to Group policy where users on login will be asked to type in there Extension NO and Department and write all this in to the MS Access file for me to publish in the intranet. Script should read Users name from the login ID and write that to file too without allowing user to amend there name. Tag: File Permissions Tag: 180582

Does anyone have a vbscript that can set NTFS file permissions on
remote machines? I've looked at calling subinacl and xcacls reskit
utilities, but both still seem to have that bug that orders the DACL
permissions incorrectly, as explained in Microsoft Article Q296865.

I need to write a vbscript that will copy user files and folders from
one server to another, which is easy enough. However, once I get these
user files copied to their destination, I will need to grant only the
user owner NTFS file permissions to their files.

Top

Re: File Permissions by Greg

Greg
Wed Sep 14 16:12:45 CDT 2005

if the permissions are staying the same, just use robocopy with the /sec
switch.

<jacksneed2000@yahoo.com> wrote in message
news:1126724813.873281.247080@o13g2000cwo.googlegroups.com...
> Does anyone have a vbscript that can set NTFS file permissions on
> remote machines? I've looked at calling subinacl and xcacls reskit
> utilities, but both still seem to have that bug that orders the DACL
> permissions incorrectly, as explained in Microsoft Article Q296865.
>
> I need to write a vbscript that will copy user files and folders from
> one server to another, which is easy enough. However, once I get these
> user files copied to their destination, I will need to grant only the
> user owner NTFS file permissions to their files.
>

Top