Why does one logon script work and the other not work

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
    - Permission Denied and Path Not Found errors I'm stuck in a loop with a remote script: If I use the following line to connect to a remote system from a server, I get a "Permission Denied" error: Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputers(y) & "\root\cimv2") I can launch this script on one of my remote systems to connect to another remote system (rather than launching it from the server), and the entire script runs fine. So, I use the "Locator" version, which connects successfully: Set objSWbemLocator = CreateObject("WbemScripting.sWbemLocator") Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _ "\root\CIMV2", _ "strUser", _ "strPW", _ "MS_409", _ "NTLMDomain:" + strComputer) However, when I use this "Locator" version, the following line in my script fails with a "path not found" error: Set objTargetFolder = objFSO.GetFolder("\\" & strComputer & _ "\c$\" & strTargetFolder) I believe this is because "C$" is not accessible. Is there another way to access the C drive remotely? Thanks, -- Bill Baker PS: In case anyone notices, I had posted this question in the scripting.remote area, but no one seems to be home there. Tag: Why does one logon script work and the other not work Tag: 187668
  - 2
    - Exchange 2003 scripts Does anyone have good site with scripts for Exchange 2003. What I need is the script that will let me select number of user accounts and tell me number of emails in the each mailbox, may be the time email arrived to the mailbox etc.... Thanks a lot. Tag: Why does one logon script work and the other not work Tag: 187667
  - 3
    - List disabled accounts and deletet. Hi all, Has anyone script that will reed all NT4 disabled accounts and then give you choice to delete them.. Thanks a lot. Tag: Why does one logon script work and the other not work Tag: 187666
  - 4
    - 800A0046 error: permission denied in vbscript Hello, I downloaded the "List Web Service Setting Properties" script from Microsoft at: http://www.microsoft.com/technet/scriptcenter/scripts/iis/iis6/web/i6wevb14.mspx. I edit the strComputer variable to indicate the correct hostname. Script errors at the line beginning the For Each loop indicated in the code snip below. Can anyone help me determine what permission I need? (I am a local admin on the server, however, GPO policies removes some local privileges). strComputer = "correcthostname" Set objWMIService = GetObject _ ("winmgmts:{authenticationLevel=pktPrivacy}\\" _ & strComputer & "\root\microsoftiisv2") Set colItems = objWMIService.ExecQuery("Select * from IIsWebServiceSetting") For Each objItem in colItems *********************** Wscript.Echo "Access Execute: " & objItem.AccessExecute Wscript.Echo "Access Flags: " & objItem.AccessFlags Wscript.Echo "Access No Physical Directory: " & _ objItem.AccessNoPhysicalDir Wscript.Echo "Access No Remote Execute: " & _ Thanks in advance, Tag: Why does one logon script work and the other not work Tag: 187664
  - 5
    - File Sharing by VBScripts Is there any way that a VBScript can open a file for appending, without preventing other processes from opening the file for reading? Unfortunately, the OpenTextFile method doesn't seem to provide a parameter for specifying the file sharing mode. Thanks! -- Joseph Morales [To reply directly, remove "deletethispart." from my E-mail address ] Tag: Why does one logon script work and the other not work Tag: 187661
  - 6
    - Inconsistemt Results From ADSI We're using a VBScript as a logon script on a Windows 2003,SP1 server. We want to test Group Memberships and are using the sample code from the Server Help as follows: Const RM_205_G = "cn=rm_205_g" Const RM_212_G = "cn=rm_212_g" Const RM_206_G = "cn=rm_206_g" Set wshNetwork = CreateObject("WScript.Network") wshNetwork.MapNetworkDrive "h:", "\\WS_1\vol1\Users\" & wshNetwork.UserName Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) msgbox(strGroups) If InStr(strGroups, RM_205_G) Then wshNetwork.MapNetworkDrive "j:", "\\10.147.0.2\vol1\shared\rm205g" End If ... and so on. The problem is that the data inserted into strGroups is very inconsistent. For example, with administrator, all applicable groups are displayed in the msgbox command while for almost all other users some group memberships are omitted or no groups are displayed at all. In those cases where group memberships are retrieved properly, the applicable mapping commands complete as expected. We have no other issues with AD. Nothing seems to be broken. Any ideas why we're seeing this? Thanks! Tag: Why does one logon script work and the other not work Tag: 187660
  - 7
    - Rename list of computers in domain Howdy- Is there anyway to script a bulk-rename of computers (it's actually just the first two letters) using a text file and netdom with a vbs? TIA, BM Tag: Why does one logon script work and the other not work Tag: 187659
  - 8
    - Writing to Excel from a script How would you get excel to keep the data being written into the spreadsheet visiable? I have around 400 items and would like the spreadsheet to scroll along with the data. Thanks Tag: Why does one logon script work and the other not work Tag: 187658
  - 9
    - Reconnecting disconnected usb device Hi everyone, I've got a misbehaving USB drive that needs to have its cable unplugged and then replugged in every so often. I want to write a script to check if it is writeable, then if it isn't, virtually disconnect, then reconnect it. Does anyone know if it is possible to disconnect/reconnect a USB device with Vbscript? Any suggestions would be appreciated. -Barry Tag: Why does one logon script work and the other not work Tag: 187657
  - 10
    - -2147463168 errors I keep getting -2147463168 errors when I attempt to run this script. This used to work but when I went back to actually continuing using it these errors keep happening. I saw the microsofty post about this issue but it did not correct my problem. The problem occurs during the GetObject Line. Set oUser = GetObject("WinNT://" & Trim(sComputerName) & "/" &Trim(sOldUser) & ",User") Full code pasted below. Any help would be greatly appreciated. Paul Dim oFSO Dim memberlist Dim cname Dim changefile Dim chngdadmin Dim sComputerName Dim strComputerName Set oWshNet = CreateObject("WScript.Network") Set oFSO = CreateObject("Scripting.FileSystemObject") Set memberlist = oFSO.OpenTextFile("C:\Program Files\DIT Security Center\Administrator Account Change\memberservers.txt", 1, False) Set changefile = oFSO.OpenTextFile("C:\Program Files\DIT Security Center\Administrator Account Change\changefile.txt", 8, True) 'lnchfile.WriteLine "The DIT Security Center Utility to change the Administrator Account and Passwords has been launched" adminResponse = MsgBox("Are you sure that you want to change the Administrator account on the Member Servers?" & vbCrLf & vbCrLf & "If YES, you will be notified upon completion.", vbYesNo, "DIT Security Utility") 'If adminResponse = vbNo Then 'changefile.WriteLine "The task to change the administrtor accounts and passwords has been cancelled." 'lnchfile.WriteLine "The task to change the administrtor accounts and passwords has been cancelled." 'Call CancelMail 'End 'End If WScript.Echo "Opened Change File" changefile.WriteLine "********************************************************" changefile.WriteLine "" changefile.WriteLine Date & vbTab & Time changefile.WriteLine "" Do Until memberlist.AtEndOfStream cname = memberlist.ReadLine WScript.Echo "Pinging: " & cname Pinger (cname) 'MsgBox Pingcnt If Pingcnt > 5 Then changefile.WriteLine "Server Name: " & UCase(cname) changefile.WriteLine UCase(cname) & " is not online" changefile.WriteLine "" Else WScript.Echo cname & " is online" sComputerName = cname changefile.WriteLine "Server Name: " & sComputerName ' obtain current administrator name regardless of name OldUser = GetAdministratorName(sComputerName) WScript.Echo "Old Admin Account " & OldUser changefile.WriteLine "Old Administrator Account: " & sOldUser zz = 0 Do Until zz = 1000 zz = zz + 1 WScript.echo zz Loop ' create new user name, 15 characters long 'It will contains characters from all of the following four categories: 'English upper case characters (A..Z) 'English lower case characters (a..z) 'Base 10 digits (0..9) 'Following non-alphanumeric characters: ()&$%# 'ChangeAdmin (sComputerName) sNewUser = GenRandomName(15) WScript.Echo "New UserName: " & sNewUser sNewPwd = GenRandomName(15) WScript.Echo "New Password: " & sNewPwd 'snewUser = InputBox("What is the new administrator Account") 'MsgBox sNewUser Set oComputer = GetObject("WinNT://" & sComputerName) If Err.Number <> 0 Then MsgBox "Cannot Connect to Server" End If ' Turn off internal error handling On Error Resume Next ' connect to user object Set oUser = GetObject("WinNT://" & Trim(sComputerName) & "/" &Trim(sOldUser) & ",User") If Err.Number <> 0 Then WScript.Echo Err.Number & vbTab & Err.Description Exit Do End If ' rename user zz = 0 Do Until zz = 1000 zz = zz + 1 WScript.Echo "Round 2 " & zz Loop 'MsgBox oComputer 'oNewUser = "" Set oNewUser = oComputer.MoveHere(oUser.AdsPath, sNewUser) 'MsgBox oNewUser & vbCrLf & oUser.AdsPath & vbCrLf & sNewUser If Err.Number <> 0 Then MsgBox Err.Number & vbTab & Err.Description changefile.WriteLine "Failed to rename administrator user " & sOldUser Err.Clear changefile.WriteLine "" Else changefile.WriteLine "Administrator user is renamed to " & sNewUser changefile.WriteLine "" chngdadmin = GetAdministratorName(sComputerName) WScript.Echo sComputerName Wscript.Echo chngdadmin 'strComputer = "MyComputer" Set objuser = GetObject("WinNT://" & sComputerName & "/" & chngdadmin & ", user") 'MsgBox sNewPwd Objuser.SetPassword sNewPwd objuser.SetInfo changefile.WriteLine "New Password: " & sNewPwd changefile.WriteLine "" End If End If 'On Error GoTo 0 Loop 'If Err.Number <> 0 Then ' changefile.writeline Err.Number & vbTab & Err.Description ' Else changefile.WriteLine "" changefile.WriteLine "The admin account change has completed" changefile.WriteLine Date & vbTab & Time changefile.WriteLine "*****************************************************" MsgBox "The Administrator Account update has completed", vbInformation, "DIT Security Utility" changefile.Close 'oFSO.Copyfile "C:\Program Files\DIT Security Center\Administrator Account Change\changefile.csv", "\\file1\d$\wintel\Adminchange.csv" 'End If Function GenRandomName(Ilen) ' Generates a random 15 character string to be used for both the renaming of the administrator account and the new password Randomize 'Do sRS = "" For iPos = 1 To Ilen iChar = Int((69 * Rnd) + 1) sRS = sRS & Mid("AEIUBCDFGHJKLMNPQRSTVWXYZ" _ & "aeioubcdfghjkmnpqrstvwxyz23456789()&!$#%", iChar, 1) Next 'Loop Until REtest("[A-Z]", sRS) And REtest("[a-z]", sRS) _ 'And REtest("\d", sRS) And REtest("[&\$%#]", sRS) GenRandomName = sRS End Function Function GetAdministratorName(sComputerName) ' Connects to the remote member servers and determines the name of the local administrator account based on the SID Dim sUserSID, oWshNetwork, oUserAccount WScript.Echo "Starting to get Administrator Account Name" Set oUserAccounts = GetObject( "winmgmts:{impersonationLevel=impersonate}!//" & sComputerName & "/root/cimv2").ExecQuery( "Select Name, SID from Win32_UserAccount WHERE Domain = '" & sComputerName & "'") 'On Error Resume Next For Each oUserAccount In oUserAccounts If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _ Right(oUserAccount.SID, 4) = "-500" Then GetAdministratorName = oUserAccount.Name Exit For End If Next WScript.Echo "Finished Getting Admin Account NAme" End Function Sub GetsAMAccountName(strCN) Dim objRootDSE, strDNSDomain, objCommand, objConnection Dim strBase, strFilter, strAttributes, strQuery, objRecordSet Dim strDN, strDisplay, strObjectCategory, intIndex, myarray, objuser, strUPN Dim renameResponse ' Determine DNS domain name. Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strDNSDomain & ">" strFilter = "(cn=" & strCN & ")" strAttributes = "distinguishedName,objectCategory" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute If objRecordSet.EOF Then Wscript.Echo "Object not found with cn=" & strCN Wscript.Quit End If 'strDisplay = "Object(s) found" Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName") strDisplay = strDisplay & vbCrLf & strDN & " (" _ & strObjectCategory & ")" objRecordSet.MoveNext Loop myarray = Split(strDisplay, "(", -1) Set objuser = GetObject _ ("LDAP://" & myarray(0)) oldId = objuser.sAMAccountName ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objCommand = Nothing Set objConnection = Nothing Set objRecordSet = Nothing End Sub Sub Pinger(strcomputer) Dim objPing z = 0 Pingcnt = 0 Do Until z = 7 Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & strcomputer & "'") For Each objStatus In objPing If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then Pingcnt = Pingcnt + 1 Else End If Next z = z + 1 'WScript.Echo z Loop If Pingcnt > 5 Then 'rFile.WriteLine strcomputer & " is not Pingable" rescnt = rescnt + 1 End If End Sub Tag: Why does one logon script work and the other not work Tag: 187656
  - 11
    - tracert Bonjour, JE souhaite lancer une commande Tracert depuis un script VB. Existe t il une fonction deja toute faite en VBS (laquelle) ou faut il lancer l'execution d'une commande MSDOS ? Dans ce cas comment faire ? MErci -- Cordialement, Jérôme FOURNET Administrateur Réseaux jerome.fournet@apf.asso.fr Tag: Why does one logon script work and the other not work Tag: 187650
  - 12
    - Error "VB Script runtime error: Path not found" because of large-size folder I have a script that intends to get size of all subfolders of a folder. The below function is used to get size of a subfolder. Everything is good if the size of a subfolder is about below 1 GB, but VB script will show error ("VB script runtime error: Path not found") if the size of a subfolder is more than 1 GB. Ex: "FolderA" has 4 subfolders: - "FolderA1": 70 GB - "FolderA2": 500 MB - "FolderA3": 10 MB - "FolderA4": 40 GB VB script shows error when it runs function GetFolderSize for "FolderA4" - error at line (*****). I don't know why it can pass "FolderA1" without problem although FolderA1's size is bigger than FolderA4's size. P.S I found that some people have this problem like me. Any solution? '----------------------------------------- Function GetFolderSize(pStrFolderPath) Dim lObjFSO 'File System Object Dim lObjFolder 'Folder Object Dim lNumFolderSize 'Number Set lObjFSO = CreateObject("Scripting.FileSystemObject") Set lObjFolder = lObjFSO.GetFolder(pStrFolderPath) lNumFolderSize = lObjFolder.Size/(1024*1024) '(*****) GetFolderSize = lNumFolderSize End Function '----------------------------------------- Tag: Why does one logon script work and the other not work Tag: 187649
  - 13
    - equivalent of perl "next" command Greetings, in perl the "next" command skips the remainder of the current loop iteration & goes to the next iteration. What is the VBscript equivalent of this? Example For i = 1 to 5 IF i=3 Then <perl next command> End If Wscript.Echo i Next would print out 1 2 4 5 Thanks Tag: Why does one logon script work and the other not work Tag: 187647
  - 14
    - Closing down Firefox tab This isn't a VBScript question per se, but this is a pretty clever group, so perhaps someone has an idea. The summary is that I would like to be able to close a specific instance of Firefox, or rather a page thereof, when that page is cooperating to be closed. The scenario is that I want to have FF (Firefox.exe) iterate through a certain sequence of pages. If this was IE, what we'd do is bring up an instance of IE using Set IE=CreateObject("InternetExplorer.Application"), and then do IE.Navigate "...". With a little event notification code we're in business, and at the end of the day, if we never made IE visible, everything gets automatically shut down nice and tidy. With FF, you have a nifty add in called GreaseMonkey. The way it works is that for a given piece of javascript code that will be applied, you designate which pages GM (GreaseMonkey) will apply it to. The code itself will be run as soon as the page is loaded but before the onload kicks off. If it wants, this code can submit the page or forms thereof, and in this manner it can sequence through multiple pages. Very nifty. The only problem is that you can't shut down/close the starting page. In the usual situation, this is fine, because the intent behind GM is actually to allow one to modify pages (e.g. remove the ad at the top of a certain page. Moving a button to a more convenient place for another page, and so on). But with its built in power, this little add-in is going places. So I can now make a Firefox app and have an icon such that if I double click it, it will start FF off on a given page.htm file. This file will have a GM script all ready to go, but the problem is that window.close() doesn't work because as far as FF is concerned the window was not opened via script, so at the end, I am left with a useless window. Unfortunately, taskkill doesn't work (for reasons described at http://forums.mozillazine.org/viewtopic.php?p=2091165). Ultimately, I could make an OCX and have it identify the window in question and then have that window terminate, but I am wondering if there is a pure text based solution which is where the VBScript comes in. I should add that I could more or less get .Exec and .Terminate to work, but only if there were no other copies of FF active. Furthermore, FF seems to have precious few startup options. Anyway, it would be great if someone could point out something I might have missed. Csaba Gabor from Vienna Tag: Why does one logon script work and the other not work Tag: 187643
  - 15
    - Cannot handle date validation. Need help. I have a html form with few fields. The fields are claim number, month, day and year. Actually the month, day and year together forms the claim date. There is also a variable named QuarterEndDate which contains the quarter end date value which happens to be 12/31/05. Now, before submitting the form, I need to do some validation check. The first validation (which I cannot get it to work) is that the claim date should be less than the Quarter End Date. The second validation is that there has to be a claim number regardless (which works by itself but does not when the first validation comes up). I would like to know what is the problem with the first validation in the code below? In VBSCRIPT what is the best way to check what values are we comapring (e.g. we have response.write in asp). I appreciate any help/suggestion on this issue. Regards. Function frm_Details_OnSubmit validation = TURE If ((frm_Details.ExpMonth_0.value) & "/" & (frm_Details.ExpDay_0.value) & "/" & (frm_Details.ExpYear_0.value)) > DateValue(QuarterEndDate) Then Alert("You must enter claim date within the End Quarter Date") document.frm_Details.ExpMonth_0.focus frm_Details_OnSubmit =False ElseIf (frm_Details.ClaimNo_0.value = "") Then Alert("You must enter a value for Claim number.") frm_Details.ClaimNo_0.focus frm_Details_OnSubmit =False Else frm_Details_OnSubmit = True End If End Function Tag: Why does one logon script work and the other not work Tag: 187640
  - 16
    - Outlook Script to synchronize forms Hello, Would it be possible to supply a script that unticks the 'synchronise forms' setting in Outlook 200 or 2003?? Or is this profile setting stored in the registry or kept in a file that maybe houses the Outlook profile? Thnaks in advance, Liam Tag: Why does one logon script work and the other not work Tag: 187639
  - 17
    - CreateObject using different credentials I'm trying to write a script that checks a list of remote computers to see if they need patches installed from Windows Update. I would like to be able to use the Microsoft.Update.Session COM object to do so, since this seems to be the easiest way to accomplish the task. In VBScript, the CreateObject function allows you to create a COM object on a remote computer if you pass it a second parameter with the computer name. I intend to do something like this: --- Set updateObj = CreateObject("Microsoft.Update.Session","remoteComputer") --- The remote computers I will be checking have an alternate domain account that grants me local admin on the box. The domain account I will be running the script from has no access to the remote computers Is it possible to specify this alternate account before or after calling CreateObject? Alternately, is there a way for me to do this through the Microsoft.Update.Session object? I realize that I could perform a Run As on the script, but I won't be able to do that after I've created the skeleton for the script. Tag: Why does one logon script work and the other not work Tag: 187638
  - 18
    - Need a script for field techs to use to reset user passwords We have a Win 2K3 AD domain with multiple site. Spread out among these sites are field techs that assist the users with their PC issues. I need a script for field techs to use to reset user passwords. We do not want to give them access to AD Users and Computers. The problem is that I can write a script that uses an LDAP call such as ("LDAP://cn=user,ou=management,dc=domain,dc=com"). However these techs will not know what OU a specific user is in. I don't know a way to do this without the LDAP. Any suggestions? Thanks ccoates@gfs.com Tag: Why does one logon script work and the other not work Tag: 187637
  - 19
    - Page .asp to change password Hello all, I need one page to change password via .asp in network windows 2000. Anybody have some tips to this? Tag: Why does one logon script work and the other not work Tag: 187634
  - 20
    - Javascript Date Validation in MM/DD/YYY output format The following javascript code gives me the date validation that I need except after the correct date is entered into the field, it puts the date in the wrong format EXAMPLE: User enters 2/14/2006 and it shows in the field Feb 14 2006 after the onBlur I want it to leave the formatting of the date in the field as 2/14/2006 and not change the input to Feb 14 2006 I am very new to javascript and I don't know what to take out in the following code to accomplish what I need. Can Anyone HELP? Thanks so much <SCRIPT LANGUAGE="JavaScript">  </script> Tag: Why does one logon script work and the other not work Tag: 187631
  - 21
    - Expected end of statment 800A0400 Can someone help me with my problem UserSpreadsheet .vbs ' Sample VBScript to create User accounts from a spreadsheet ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 4.6 - June 2005 ' ------------------------------------------------------' Option Explicit...................................................................P roblem Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow Dim strUser, strOU, strSheet Dim strCN, strSam, strFirst, strLast, strPWD, strE-mail ' -------------------------------------------------------------' ' Important change OU= and strSheet to reflect your domain ' -------------------------------------------------------------' strOU = "OU=test ," ' Note the comma strSheet = "D:\Scripts\NewUser44.xls" ' Bind to Active Directory, Users container. Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) ' Open the Excel spreadsheet Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 3 'Row 1 often contains headings ' Here is the 'DO...Loop' that cycles through the cells ' Note intRow, x must correspond to the column in strSheet Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strCN = Trim(objExcel.Cells(intRow, 2).Value) strFirst = Trim(objExcel.Cells(intRow, 3).Value) strLast = Trim(objExcel.Cells(intRow, 4).Value) strPWD = Trim(objExcel.Cells(intRow, 5).Value) strE-mail = Trim(objExcel.Cells(intRow, 6).Value) ' Build the actual User from data in strSheet. Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.givenName = strFirst objUser.sn = strLast objUser.E-mail = strE-mail objUser.SetInfo ' Separate section to enable account with its password objUser.userAccountControl = 512 objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit WScript.Quit ' End of Sample UserSpreadsheet VBScript. Tag: Why does one logon script work and the other not work Tag: 187628
  - 22
    - Please critique this script (Checking folder size) Hello. I've created a script to check the size of folders on a number of remote servers. The script works, but I'm sure there's some redundancy that can be removed - particularly in my use of f, f1 and f2 with the (FSO) File System Object. I was orginally using just f and f2, but when I tried to insert the timestamp I found that f2 would not work, and I needed an f1. Any suggestions on how to streamline this script would be appreciated. Thanks! Watch for word wrap: ========= BEGIN Folder_Size_Check.vbs ================== Dim objFSO, f, f1, f2 ' ***** Create new date string for use with log file name Monthfrom = Month(Date) Dayfrom = Day(Date) Yearfrom = Year(Date) newDate = Yearfrom & "-" & Monthfrom & "-" & Dayfrom Set objFSO = CreateObject("Scripting.FileSystemObject") ' ***** Create log file for results of folder size check Set f1=objFSO.opentextFile ("Folder_Size_Check__" & newDate & ".log",8,True) ' ***** Insert timestamp in log file f1.writeline vbCrlf & Now & vbCrlf f1.close ' ***** Use Paths.txt for the list of folder paths to check Set objFile = objFSO.OpenTextFile("C:\Paths.txt", 1) Do Until objFile.AtEndOfStream path = objFile.ReadLine Set f = objFSO.GetFolder(path) ' ***** Write folder size info to log file ' ***** FormatNumber function is used to display the size in MB Set f2=objFSO.opentextFile ("Folder_Size_Check__" & newDate & ".log",8,True) f2.writeline VBcrlf f2.writeline path & VBcrlf & VBcrlf & FormatNumber(F.Size / (1024 ^ 2),0) & " MB" f2.writeline VBcrlf & "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" f2.close Loop Set objFSO = nothing Set f = nothing Set f1 = nothing Set f2 = nothing ========= END Folder_Size_Check.vbs ================== Tag: Why does one logon script work and the other not work Tag: 187627
  - 23
    - Getting filenames (selected by date) into a text file Hi, I would like to do a daily backup of some files from a folder, but only the 20 most recent files. I'm using straighforward NTBackup with the "bks" option which allows me to specify a parameter file which I call mybackup.bks. This is a plain text file that contains the paths and name of the files to backup. My idea was to have a vbscript to create a new mybackup.bks on the fly just before the backup started. Mybackup.bks is basically in two parts : **Part 1 is the stuff that never changes, i.e. the C: drive that is backed up every night : C:\ C:\pagefile.sys /Exclude C:\Documents and Settings\Admin.....Windows NT\NTBackup\data\ /Exclude then there's the data on D: where I have a software project. **Part 2 changes every day, because we make hard drive copies of our data and new software versions twice a day to a folder on D: named "Project Copies". That folder contains two folders per day. I want to back up all of C: then only the 20 latest (i.e most recent) files from the "Project Copies" folder. My idea was that the script should start by assigning all of the text of Part1 into a variable, MyPart1. Then read through the Project Copies folder and pick up all the filenames (into a temp file ?) and get them sorted (descending by date) and then assign the 20 latest (i.e most recent) paths and filenames to another variable, MyPart2. Then write the two variables MyPart1 and MyPart2 to Mybackup.bks. Then run the bat file that runs the NTBackup.exe with the Mybackup.bks fileset. Anyone there willing to give me a hand with that ? TIA Alex. Tag: Why does one logon script work and the other not work Tag: 187625
  - 24
    - Problems with registering Dll's Hi, I am using the following scrip to copy dll's to remote machines and then trying to register them, this is the part that is failing....Any help would be greatly appreciated. On Error Resume Next Const WbemAuthenticationLevelPktPrivacy = 6 strCredentials = InputBox _ ("Please enter the user name, a blank space, and then the password:", _ "Enter User Credentials") If strCredentials = "" Then Wscript.Quit End If arrCredentials = Split(strCredentials," ") strUser = arrCredentials(0) strPassword = arrCredentials(1) strNamespace = "root\cimv2" Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\scripts\pc-list.txt", ForReading) Do Until objTextFile.AtEndOfStream strComputer = objTextFile.Readline Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = objwbemLocator.ConnectServer _ (strComputer, strNamespace, strUser, strPassword) objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy ' ===================================================================== Const OverwriteExisting = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.CopyFile "C:\test_scripts\*.dll" , "C:\windows\system32\" , OverwriteExisting objShell.Run "regsvr32.exe /s c:\windows\system32\crviewer.dll" objShell.Run "regsvr32.exe /s c:\windows\system32\crviewer9.dll" ' ===================================================================== Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_OperatingSystem") For Each objItem in ColItems Wscript.Echo strComputer & ": " & objItem.Caption Next ' ===================================================================== ' End ' ===================================================================== Loop objTextFile.Close Tag: Why does one logon script work and the other not work Tag: 187619
  - 25
    - Drop-Down Box - Redirect onChange / onUpdate? Hi, I have a ASP which creates a table within which this a form created for each value returned by a recordset. ie R2Value1 : RSValue2 :Drop-Down box R2Value1 : RSValue2 :Drop-Down box R2Value1 : RSValue2 :Drop-Down box I would like each forms to submit individually to another ASP on the selection of a value of a drop-down box. In essence I am looking for the code which would submit the form as after the drop-down box has been changed. Any help or pointers would be greatly appreciated. -- Many thanks, Rob Tag: Why does one logon script work and the other not work Tag: 187618
- Next
  - 1
    - Scripting Windows Explorer to show details view I'm making a script that must configure Windows Explorer to show details view. This can be configured in Windows Explorers GUI, but how do I script this? I've tried to compare the registry before and after making the change in Windows Explorer. A few changes were detected, so this is what I did: I exported the modified key. Then, using Windows Explorer, I configured Windows Explorer to the default settings. I imported the previously exported key. Restarted Windows Explorer. No luck :-( Any ideas? -- Regards, Thomas Makro Tag: Why does one logon script work and the other not work Tag: 187617
  - 2
    - Mask data in input box Hey, Just wondering is het possible to mask the data that is enterned in a input box? Like when you enter a password?? Mirella Tag: Why does one logon script work and the other not work Tag: 187610
  - 3
    - WMI Query: Is it possibe to define a WMI Query which selects a nework adapter based on the IPAddress field? Set wmiobj = GetObject("winmgmts:\\" & cname) wql = "select * from win32_NetworkAdapterConfiguration where IPAddress = '192.168.9.1'" I know i can specify an for ... next in wich i can get the IP Addresses of all Adapters and compare them to my address. Tag: Why does one logon script work and the other not work Tag: 187608
  - 4
    - Need hep with VB script loging out after they have locked a progra i have this script running on a 2003 terminal server, but i want to make a script that forces the user logout afther they have shutdown the program. (i dont use the administrator user in the finale script) set WshShell = CreateObject("WScript.Shell") WshShell.Run "runas /user:administrator ""Program path" WScript.Sleep 20 WshShell.Sendkeys "administrator password{ENTER}" Tag: Why does one logon script work and the other not work Tag: 187607
  - 5
    - How to get the home directory of the .net framework? hi, everyone I want to write a script which must use the regasm.exe executable in the home folder of .net framework, is there any approach to get this folder name? Thanks very much! Yihan Tag: Why does one logon script work and the other not work Tag: 187606
  - 6
    - COM Objects Hi to all I need some advice on how to shutdown and work with COM objects. Binding to a COM object requires a ProgID, however, I do not know the component ProgID and cannot find it in the registry. In the "General" tab of the COM's properties i can see the COM's GUID but i cannot find the ProgID. Is there a way to shutdown the COM through a script? Is there a way to find out the COM's ProgID? How does one know what the COM's interface is(methods/functions/properties)? Any advice would be highly appreciated Thanks Tag: Why does one logon script work and the other not work Tag: 187602
  - 7
    - Table contents... I am developing a asp page with vbscript, I would like to create a table with heading in 1st row and contents. How can do so? Here is what I tried - <table width="100%" cellpadding="0" cellspacing="0" border="0" colspan="4"> <br> <tr bgcolor="#FEDFEG"> <td class="txtBody" colspan="4"> but this doesn't align all the columns. I would also like columns to be different length. I am not sure if this is the right group, if not please point me to the one. Thank you, -Me Tag: Why does one logon script work and the other not work Tag: 187596
  - 8
    - Files on an ftp sever. The anti-virus files are stored on an ftp server, behind the corporate firewall (no username or password required). I use a batch file to dump a directory listing, and copy the entire contents to the local server. I then use a script to go through all the updates, find the latest one (eg sdat4670.exe), copy it to the directory the users' machines update from, set the file permissions etc and run the update. I would like to save some bandwith and only download the latest update file, can anyone point me in the right direction? Tag: Why does one logon script work and the other not work Tag: 187594
  - 9
    - compilation error Can someone help me with my syntax? I think somethings wrong with my quotes. I'm getting an error: expected ')' What am I doing wrong? Const ALL_USERS = True Set objService = GetObject("winmgmts:") Set objSoftware = objService.Get("Win32_Product") errReturn = objSoftware.Install("C:\Temp\Roxio\ECDC_DVD\Roxio Easy Media Creator 7 Basic DVD Edition.msi", "TRANSFORM=""C:\Temp\Roxio\ECDC_DVD\Roxio7.mst" "REBOOT=""ReallySuppress"", ALL_USERS) Wscript.Echo errReturn Tag: Why does one logon script work and the other not work Tag: 187593
  - 10
    - creating BITS jobs by VBS can someone give me a pointer to create BITS (send and receive) jobs using VBS? I use BITSAdmin in a shell now to do the job. I suppose there are better ways. Tag: Why does one logon script work and the other not work Tag: 187592
  - 11
    - PageFile How do you create a script that will create a pagefile, and set it to System Managed? Tag: Why does one logon script work and the other not work Tag: 187589
  - 12
    - Add user in active directory How can I add mail with sours fraom excel. The rest of the script work fine. ' UserSpreadsheet .vbs ' Sample VBScript to create User accounts from a spreadsheet ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 4.6 - June 2005 ' ------------------------------------------------------' Option Explicit Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow Dim strUser, strOU, strSheet Dim strCN, strSam, strFirst, strLast, strPWD ' -------------------------------------------------------------' ' Important change OU= and strSheet to reflect your domain ' -------------------------------------------------------------' strOU = "OU=test ," ' Note the comma strSheet = "C:\NewUser33.xls" ' Bind to Active Directory, Users container. Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & _ objRootLDAP.Get("defaultNamingContext")) ' Open the Excel spreadsheet Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 3 'Row 1 often contains headings ' Here is the 'DO...Loop' that cycles through the cells ' Note intRow, x must correspond to the column in strSheet Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strCN = Trim(objExcel.Cells(intRow, 2).Value) strFirst = Trim(objExcel.Cells(intRow, 3).Value) strLast = Trim(objExcel.Cells(intRow, 4).Value) strPWD = Trim(objExcel.Cells(intRow, 5).Value) strMail = Trim(objExcel.Cells(intRow, 6).Value)..................problem ' Build the actual User from data in strSheet. Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.givenName = strFirst objUser.sn = strLast objUser.mail = strMail objUser.SetInfo ' Separate section to enable account with its password objUser.userAccountControl = 512 objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Loop objExcel.Quit WScript.Quit ' End of Sample UserSpreadsheet VBScript. Thanks Erik Gjertsen Tag: Why does one logon script work and the other not work Tag: 187588
  - 13
    - get volume sizes on various servers Greetings, I have a list of disk volumes on various servers (some are mounted within other volumes & have no drive letter). How do I write a script that remotely logs into each server & outputs the space used & free for each volume eg: <server1> o:\ 25 GB used 5 GB free <server1> o:\subvolume 15 GB used 10 GB free <server2> l:\ 25 GB used 5 GB free etc... Thanks Tag: Why does one logon script work and the other not work Tag: 187585
  - 14
    - VBS runs, VBE doesn't I have a script that does a recursive search of the entire C:\ drive looking for specific file types. If it finds any it writes a log file to a network share. I have a user name and password hard-coded in the script to mount that share, so I want to encrypt the script before it's deployed. The VBS version of the script runs correctly, but the VBE version does not. It's bombing with a "permission denied" error on a line that is part of the recursive read. I'm logged on as an admin while testing the script, but it's as if the encrypted script is running with user rights and attempting to read a folder that requires elevated rights to access. At least that's the same error and line that bombs if I'm logged on as a user and run the script. Anyone have an idea why the encrypted version would bomb, but the clear version would not? Thanks, Tom Tag: Why does one logon script work and the other not work Tag: 187584
  - 15
    - Overlapping Subnets Hi i am try to find a way to go through AD sites & service and check for and subnets that maybe overlapping , does anyone know of a script to do this ? Thanks Adrian Tag: Why does one logon script work and the other not work Tag: 187572
  - 16
    - DSN TO DSN LESS HELP Morning all, just moved servers and need to create a DSN Less connection to the database, below is the code as it is now. The location of the DB is C:\inetpub\wwwroot\tobias\online\internal\database\cabtrak.mdb  <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_classiconline_STRING Recordset1.Source = "SELECT * FROM booking_form WHERE driverNo = '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND allocated = 'allocated' ORDER BY DATE2 ASC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> Thanks in advance. Tag: Why does one logon script work and the other not work Tag: 187568
  - 17
    - Has Anyone Noticed... I frequently use 'CreateObject("InternetExplorer.Application")' constructs to present custom input screens or custom output screens for my scripts. I'm sure that many of us do this. The question is: has anyone noticed that the highlighted 'borders' on the body of the text window is transparent? My clients have pointed out that depending on what is behind the window at the time, shows thru in the thin highlighted border of the text area. Has anyone found a way to prevent this? I have to agree with the client that it can be annoyingly distracting. Not really a show stopper, but still distracting. Any suggestions...? Dick Tag: Why does one logon script work and the other not work Tag: 187564
  - 18
    - vbscript manipulation still not working I have a page with phone number where the area code is captured in a text box and so are the two sets of numbers following area code that are captured in two other text boxes. What I am trying to achieve using vbscript is that as the user finishes inputing three numbers in the area code text box, I want the cursor focus to automatically go to the next text box containing the three digit phone numbers. I am trying to achieve this using the following code: sub txt_PhoneAreaCode_LostFocus() if (Len(document.frmMain.txt_PhoneAreaCode.Value) > 3) Then document.frmMain.txt_Phone1.Focus end if end sub However, with the above code, I cannot achieve what I want. I would like to know whether the events chosen are incorrect or any other suggestion. Thanks in advance. Tag: Why does one logon script work and the other not work Tag: 187555
  - 19
    - listing users and email addresses I want to export the names and email addresses of users. I'm trying first just to list them. I'm using this script: Dim refWMI Dim colEveryone Dim refUser Set refWMI = GetObject("winMgmts:root\directory\LDAP") Set colEveryone = refWMI.ExecQuery("Select * from DS_User") For Each refUser in colEverone WScript.echo refuser.DS_cn WScript.echo refuser.DS_mail next Set colEveryone = nothing Set refWMI = nothing When I run the script I get "object not a collection" on line 6. I found this in a book but I really don't understand it. Thanks for any help you can offer, -- Dan D. Tag: Why does one logon script work and the other not work Tag: 187549
  - 20
    - VBScript question Gents, Can anyone tell me if the following is possible? I have a basic VBScript and would like to have several snippets included which I have stored on a remote server/workstation. E.g. Create a logon script which needs to have error handling. I have a error handling snippet stored as \\remote_machine1\snippets\errorvbs.txt, which I would like to have included in the script without having to copy this in there. In essence run this functionality from another location. Can this be done? Thanks in advance Tag: Why does one logon script work and the other not work Tag: 187547
  - 21
    - VBScript Error Trapping I'm running a code snippet that adds a User to a Group. For some reason the error checking does not work: WScript.Echo "Debug: " & UserAccount.ADsPath & " - " & objGroup.ADsPath On Error Resume Next objGroup.Add(UserAccount.ADsPath) If Err Then WScript.Echo "ERROR: " & Err.Message Err.Clear End If On Error GoTo 0 When I execute the above, it just loops through and the only thing that is printed out is the Debug message (This snippet is inside a loop). If I remove the Error block, then the error that gets thrown on the first iteration is: The object already exists. I know the User is already a member, but why is no Error being flagged when I run it with error checking? I'm running the script on about 200 accounts, and I'd like to know if any other error besides the already exists occurs. Thanks for the help! -jesse Tag: Why does one logon script work and the other not work Tag: 187546
  - 22
    - The quickest way to create large junk files on disk I have a very big disk (it's around 3.5Tb). I have a bunch of machines that run automated copies of Photoshop 7.0. Photoshop 7.0 can't save a file to a disk with more than (I'm guessing here) 2Tb of free space - it puts up an error saying the disk is full. Since I can't for the moment upgrade the copies of photoshop (the automation will fail), I've decided to implement a more "cunning" scheme. I'm going to fill the disk up with big temp files that a script will generate/delete as necessary to keep the freespace on disk below photoshop's artificial limit. So, do I really have to loop around writing zeros to a file object to create a big file (say 500Mb in size)? Is there a way to simply say "this file is 500Mb in size" and then save it? Asking here in case anyone has had any experience with this sort of thing (and out of curiosity too). Regardless, I'm going to experiment tomorrow and will report back. Tag: Why does one logon script work and the other not work Tag: 187544
  - 23
    - How to put focus to the next box once the max num on current is do Hi, I have a asp page with phone number where the area code is captured in a field and so are the two sets of numbers following area code that are captured in two other fields. While a user types numbers in the area code, as soon as three numbers have been typed I want the cursor focus to be in the next field containing the three digit phone numbers. I have the following code (as part of a longer code) to handle this: (document.frmMain.txt_PhoneAreaCode.value.length > 3) Then document.frmMain.txt_Phone1.focus However, this is not working. I am wondering where the problem is? Which trigger will this code go.Thanks for any help here. Tag: Why does one logon script work and the other not work Tag: 187543
  - 24
    - MSXML2.ServerXMLHTTP 4.0 -> ActiveX component Can't create object Hello group. I'm using the following script to download an image from the net. I have used this before without any problems on a different PC. Now that I'm trying on my current PC it doesn't seem to work. Why would it work on one pc, but not the other. One is XP Pro (dosn't work), and the other is XP home (does work). Any ideas? ActiveX component Can't create object: MSXML2.ServerXMLHTTP 4.0 With CreateObject("MSXML2.ServerXMLHTTP.4.0") 'error on this line .SetOption 2, 13056 ' Ignore all SSL errors .open "GET", FileToDownload, False .send aFile = .ResponseBody End With -- Thanks! Bryan Tag: Why does one logon script work and the other not work Tag: 187536
  - 25
    - Script to defrag local drives Found some code, but would like the defrag to exclude a folder from being included in the defragmentation. Is this possible? Tag: Why does one logon script work and the other not work Tag: 187535

I am trying to write a logon script for users logging into Windows 2003
terminal server. I need to determine what usergroups they belong to. I
downloaded two scripts and the first one only works for users in the
administrator group. The second script works for all users. I'm thinking it
is an Active Directory security setting. For my own education, how can I
make the first script work for all users.
Thanks for your help

' Only works for administrators
Set objADSysInfo = CreateObject("ADSystemInfo")
strUser = objADSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
For Each strGroup in objUser.memberOf
Set objGroup = GetObject("LDAP://" & strGroup)
Wscript.Echo objGroup.CN
Next

' works for everybody
Set WshShell = WScript.CreateObject("WScript.Shell")
strDomain = WshShell.ExpandEnvironmentStrings("%USERDOMAIN%")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")
Set objUser = GetObject("WinNT://"& strDomain &"/"& strUserName, user)
For Each objGroup In objUser.Groups
If strGroupList = "" Then
strGroupList = objGroup.Name
Else
strGroupList = strGroupList & ", " & objGroup.Name
End If
Next
WScript.Echo strGroupList

Top