Adding domain user to local admin group

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
    - Windows Script Host - The system cannot find the file specified! Hi all, we have a W2K3 AD domain and we try to to automatically install printers in the domain W2K workstations.We use the following startup script applied in the appropriate domain Group Policy Objects: --------------------- Option Explicit Dim oNetwork, sPrintPath Set oNetwork = CreateObject("WScript.Network") sPrintPath = "\\printer_server\printer_shared_name" oNetwork.AddWindowsPrinterConnection sPrintPath oNetwork.SetDefaultPrinter sPrintPath Set oNetwork = Nothing ----------------------- During the workstation startup, the following error appears: Line:5 Col:1 Error: The system cannot find the file specified. Code:80070002 Source: Null Any clue? Thanx in advance pkonto Tag: Adding domain user to local admin group Tag: 163009
  - 2
    - script stops execution on error Hi all I have written this script to report on the files in certain folder and in its subfolders. It works fine but it gives an error if the folder it is trying to access does not have NTFS permissions for the user in whose context the script is run. I have tried inserting the line "On Error Resume Next" and this makes so that no error is genrated but still the script stops recursing into the folders and exits. How can I make so that if the script does not have access to a subfolder it skips it and continues to attempt accessing the other subfolders??? Thanks!!! ' *** Last access date for files in a folder and in its subfolders *** on error resume next Set shell = Wscript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set objFolder = FSO.GetFolder("c:\foldert") Set REPORTFILE = fso.CreateTextFile("REPORT.csv") call Recurse(objfolder) Sub Recurse(objFolder) For Each MYFILE In objfolder.Files MYLINE = objfolder.path & "," & MYFILE.Name & "," & MYFILE.DateLastAccessed & "," & MYFILE.Size REPORTFILE.writeline MYLINE Next For each objSubFolder in objFolder.SubFolders Recurse(objSubfolder) Next End Sub REPORTFILE.close Tag: Adding domain user to local admin group Tag: 163004
  - 3
    - Need to change User's password on WinXP by VBScript. Hello, I try to write the Vbscript to change the password on the WinXP machine, so my code is... sCom = "MyXP_Computer_Name" Set oUser = GetObject("WinNT:// " & sCom & "/my_username") oUser.ChangePassword "old_password", "new_password" WScript.Echo "Completed" set oUser = nothing ++++++++++++++++++++++++++++ It's always appear the error message here... c:\MyScript>change_password(2,1) (null): The filename, directory name, or volume label syntax is incorrect. I don't know what's wrong ? please suggest to me. Thanks. Tag: Adding domain user to local admin group Tag: 162991
  - 4
    - WMI Question... (newbie to scripting here) I have the following code which I have blatantly ripped off a publicly available script: Set oWMIService = GetObject ("winmgmts:" & "!\\" & strComputerName & "\root\cimv2") Set oAdapters = oWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True") For Each oAdapter in oAdapters strIPAddress = oAdapter.IPAddress(0) Wscript.Echo strIPAddress Next The For/Next loop results in the following display: 10.100.1.100 192.168.245.1 192.168.144.1 I am really only interested in obtaining the top IP address and assigning it to the strIPAddress variable. Currently, when that script runs the strIPAddress variable is left with the IP number of the lowest priority adapter and I would like to have only the IP address of the highest priority adapter. Can someone please show me how to re-write this code to accomplish this objective? Thanks in advance! Mike Tag: Adding domain user to local admin group Tag: 162988
  - 5
    - CDOMail/ADSI | There is no such object on the server Hi, I'm getting an error at the end of a long script that disables a user account and finally sends out an email about actions taken. DisableUser.vbs(212, 13) (null): There is no such object on the server. However, when the same script is run again - it runs successfully with no errors! Line 212: objEmail.Textbody = "Date Action Taken " & Date & " | Account Name:" & objUser.displayName & VbCrlf & But the objEmail has been created, the box has CDO installed (Exchange Sytem Admin tools installed), and the script wouldn't get this far if the user object - objUser - wasn't created and acted upon repeatedly in different earlier statements in the script. Any clues on what to look for? Thanks, Bharat Suneja Tag: Adding domain user to local admin group Tag: 162987
  - 6
    - File System Object-folder_onacess Is there a property, method or object in the FSO that will monitor client access to a specific folder on a file server, and pop-up a warning message upon access. Let's say server \\myserver has a shared folder called myshare. Does vbscript provide a method for executing a msgbox on the client machine that accesses that folder? sort of like myshare_onaccess do this x,y,z... msgbox "Files in this folder are deleted regularly" etc etc Tag: Adding domain user to local admin group Tag: 162985
  - 7
    - Script to determine the OU of a remote workstation? Gurus, here's a simple one-line script which will identify the local machine's OU the script is running on. But, how can a make a script so that it will determine the OU of a remote workstation? WScript.Echo CreateObject("ADSystemInfo").ComputerName -- Regards, Spin Tag: Adding domain user to local admin group Tag: 162984
  - 8
    - function/sub isDefined? Hey, I've looked every place I can think of ... is there a way to test to see if a Sub or a Function has been defined? I'm working in ASP classic 3.0. I need to do an IF statement and do something if something has been defined otherwise ... not ... Thanks for any pointers, :rob Tag: Adding domain user to local admin group Tag: 162978
  - 9
    - Problem With Move and Rename Script Hi All, I am trying to move and rename all files in a specific directory that begin with the word 'document'. I need to move them to a folder called 'document' and strip out the word 'document' in the filename. I tried to do it with the code below; but no joy. Basically I want to: find these files dump them into a temp folder rename them copy them to a documents folder Where is my error anyway here's the code: Sub MoveFiles(FolderSpec) Dim System Dim Folder Dim TempFolder Dim DocFolder Dim File Set System = CreateObject("Scripting.FileSystemObject") Set Folder = System.GetFolder(FolderSpec) TempFolder = Folder & "\" & System.GetTempName DocFolder = Folder & "\Documents" System.CreateFolder TempFolder For Each File In Folder.Files System.MoveFile File,TempFolder & LTrim(File.Name,8) Next 'File System.MoveFile TempFolder & "\*.doc",DocFolder System.DeleteFolder TempFolder End Sub Thanks Leon "Bullseye is the worst supervillain ever. His only powers are being Irish and being fairly good at darts." Eric Bristow Tag: Adding domain user to local admin group Tag: 162976
  - 10
    - WMI: DNS Settings Hi all. I was just wondering if anyone knows how to use WMI scripting to set the primary DNS suffix. So far my script can change the DNS Servers, WINS Servers and DNS Search Order. Any help would be much appreciated. Regards Sean Tag: Adding domain user to local admin group Tag: 162975
  - 11
    - extending client area This is a multi-part message in MIME format. ------=_NextPart_000_0012_01C49A44.D4D810C0 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable my templateHi, does anyone know how to extend the client working area of = Internet Explorer. I need it for my drawing program as I can't draw past = the bottom of the page - below. Thanks, Hilda ------=_NextPart_000_0012_01C49A44.D4D810C0 Content-Type: text/html; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML xmlns:v =3D "urn:schemas-microsoft-com:vml"><HEAD><TITLE>my = template</TITLE> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Dwindows-1252"> <STYLE>v\:* { BEHAVIOR: url(#default#VML) } </STYLE> <META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD> <BODY style=3D"BACKGROUND-COLOR: azure"> <DIV>Hi, does anyone know how to extend the client working area of = Internet=20 Explorer. I need it for my drawing program as I can't draw past the = bottom of=20 the page - below. Thanks, Hilda</DIV> <P><v:group=20 style=3D"LEFT: 0px; WIDTH: 100px; POSITION: relative; TOP: 0px; HEIGHT: = 100px"=20 coordsize =3D "100,100"><v:polyline points =3D=20 "210,62,175,153,239,208,358,149,360,92,297,55,210,60,346,355,297,52" = filled =3D=20 "t" fillcolor =3D "#f09" stroked =3D "t" strokecolor =3D "#959" = strokeweight =3D=20 "2pt"><v:stroke linestyle =3D "single" dashstyle =3D = "solid"></v:stroke><v:shadow on=20 =3D "f"></v:shadow><v:extrusion on =3D "t" type =3D = "parallel"></v:extrusion><v:fill=20 src =3D "k:\frost.gif" type =3D "gradient" color2 =3D=20 "#3f9"></v:fill></v:polyline></v:group></P></BODY></HTML> ------=_NextPart_000_0012_01C49A44.D4D810C0-- Tag: Adding domain user to local admin group Tag: 162974
  - 12
    - RSA/Key Pairs/CAPICOM Hello, In the past we have done all our encryption using MD5 hash, however I am now working with a new client that wants to exchange RSA keys. They are using pure Java on their side, and we are using scripts (vbs and javascript within asp pages) on our side (we are limited to this and cannot use .NET or JAVA at this time). They would like to send us a URL with some encrypted data (i.e. &token=xxxxx). They are asking me to generate a RSA key pair, send them my public key and then use my private key to decrypt the data they send via the URL. Based on the research I've done so far (admittedly I am somewhat confused), it looks like I need to generate the key pair using IIS (MMC snap-in with v5). Then I need to use CAPICOM to decrypt the data they send. I have tried using CAPICOM within my asp page and was able to load up a certificate they sent (one test) and was also able to encrypt and decrypt using the following example I found on the Internet: <% Const CAPICOM_ENCRYPTION_ALGORITHM_RC4 = 1 ' Use RSA RC4 encryption. Const CAPICOM_KEY_LENGTH_128_BITS = 3 ' Use 128-bit keys if available strTestMessage = "Hello World!" strPassphrase = "A#0x?\$dE<" 'Encrypt: Set xEncrypt = Server.CreateObject("CAPICOM.EncryptedData") xEncrypt.Content = strTestMessage 'Both methods below work xEncrypt.SetSecret strPassphrase 'xEncrypt.SetSecret "Password", CAPICOM_SECRET_PASSWORD xEncrypt.Algorithm.Name = CAPICOM_ENCRYPTION_ALGORITHM_RC4 xEncrypt.Algorithm.KeyLength = CAPICOM_KEY_LENGTH_128_BITS strEncryptedMsg = xEncrypt.Encrypt() Response.Write "Encrypted=" & strEncryptedMsg & "<P>" 'Decrypt: xEncrypt.Decrypt(strEncryptedMsg) strPlainText = xEncrypt.Content Response.Write "Decrypted=" & strPlainText Response.Write "<P>DONE" %> Question(s): Is the above example considered symmetric since the "same password" is used to encrypt/decrypt. Can a private key be used in place of the password? If so, is the private key automatically found on the server when calling the decrypt method or do I need to load it? If not, do I have to use the EnvelopedData method? Can I use EnvelopedData method even if the person sending the encrypted text used JAVA to generate? I would appreciate any help to clarify appropriate usage. Many Thanks, Kristine Tag: Adding domain user to local admin group Tag: 162973
  - 13
    - RSA/Key Pairs/CAPICOM Hello, In the past we have done all our encryption using MD5 hash, however I am now working with a new client that wants to exchange RSA keys. They are using pure Java on their side, and we are using scripts (vbs and javascript within asp pages) on our side (we are limitied to this and cannot use .NET or JAVA at this time). They would like to send us a URL with some encrypted data (i.e. &token=xxxxx). They are asking me to generate a RSA key pair, send them my public key and then use my private key to decrypt the data they send via the URL. Based on the research I've done so far (admittedly I am somewhat confused), it looks like I need to generate the key pair using IIS (MMC snap-in with v5). Then I need to use CAPICOM to decrypt the data they send. I have tried using CAPICOM within my asp page and was able to load up a certificate they sent (one test) and was also able to encrypt and decrypt using the following example I found on the Internet: <% Const CAPICOM_ENCRYPTION_ALGORITHM_RC4 = 1 ' Use RSA RC4 encryption. Const CAPICOM_KEY_LENGTH_128_BITS = 3 ' Use 128-bit keys if available strTestMessage = "Hello World!" strPassphrase = "A#0x?\$dE<" 'Encrypt: Set xEncrypt = Server.CreateObject("CAPICOM.EncryptedData") xEncrypt.Content = strTestMessage 'Both methods below work xEncrypt.SetSecret strPassphrase 'xEncrypt.SetSecret "Password", CAPICOM_SECRET_PASSWORD xEncrypt.Algorithm.Name = CAPICOM_ENCRYPTION_ALGORITHM_RC4 xEncrypt.Algorithm.KeyLength = CAPICOM_KEY_LENGTH_128_BITS strEncryptedMsg = xEncrypt.Encrypt() Response.Write "Encrypted=" & strEncryptedMsg & "<P>" 'Decrypt: xEncrypt.Decrypt(strEncryptedMsg) strPlainText = xEncrypt.Content Response.Write "Decrypted=" & strPlainText Response.Write "<P>DONE" %> Question(s): Is the above example considered symmetric since the "same password" is used to encrypt/decrypt. Can a private key be used in place of the password? If so, is the private key automatically found on the server when calling the decrypt method or do I need to load it? If not, do I have to use the EnvelopedData method? Can I use EnvelopedData method even if the person sending the encryted text used JAVA to generate? I would appreciate any help to clarify appropriate usage. Many Thanks, Kristine Tag: Adding domain user to local admin group Tag: 162972
  - 14
    - Deny local user the ability to change password Does anybody know what code i would need to use to deny a local user account the right to change their password. I can find plenty of code for Active directory accounts but none for local user accounts Tag: Adding domain user to local admin group Tag: 162970
  - 15
    - WSH ver. 5.6.0.8515 problem? Hi, I have noticed that a lot people is reporting problems with Windows scripting host version 5.6.0.8515. Well, I have also problem. Although I have registered WSH on my w2k3 server I'm recieving error on my ASP page on line: Set regEx = Server.CreateObject("VBScript.RegExp") error is well know: Server object error 'ASP 0177 : 8002801d' Server.CreateObject Failed I have found post people suggesting to register old DISPEX.DLL ver. 5.6.0.6626 from IE6 SP1 but I would like to know if somebody have done that and is this solution on our problems with new WSH? Can anyone help solving this problem? Nenad Tag: Adding domain user to local admin group Tag: 162967
  - 16
    - ExecNotificationQuery -- how to distinguish among events How can I use ExecNotificationQuery to get Win32_ProcessStartTrace and Win32_ProcessStopTrace events and distinguish them from each other? The following script gives me two events per user application, and these are likely the StartTrace and StopTrace events that are subclasses of the Trace event asked for by the script. If this is so, how can I tell them apart as the arrive? Of course, I can query for Win_32ProcessStartTrace or Win_32ProcessStopTrace separately, and that works too, but I want to see both events as they occur. on error resume next set objServices = GetObject("winmgmts:root\cimv2") objServices.Security_.ImpersonationLevel = 3 set events = objServices.ExecNotificationQuery _ ("select * from Win32_ProcessTrace") for i = 1 to 2 Set NTEvent = events.NextEvent For Each objProperty in ntevent.properties_ wscript.echo objProperty.name Next WScript.Echo now() & " " & ntevent.processid & " " & ntevent.processname next Thanks. Randy Scarborough Tag: Adding domain user to local admin group Tag: 162966
  - 17
    - Class doesn't support Automation (Apologies in advance - couldnt find a specific WMI newsgroup...) Am running scriptomatic on my Win 2003 DC, running TS server. Tried running one of the builtin scripts to query W32_ComputerSystem. Get Windows Script Host error: Error: Class doesn't support Automation Code: 800A01AE Source: Microsoft VBScript runtime error (This is when run from an Administrator account.) What could be causing this? Am thinking that this might be an access rights issues as: 1] Also get errors 1065 in Event Viewer "Windows cannot perform filter check for Group Policy Object" for group policy objects that have an attached WMI Filter. When users are given administrator access then this problem goes away. 2] Also get error 1097 "Windows cannot find the machine account, the Local Security Authority cannot be contacted" at server startup. Thanks PL Tag: Adding domain user to local admin group Tag: 162961
  - 18
    - Can't run script from MS Script Editor I've just started using Microsoft Script Editor and have fallen at the first hurdle. I have a simple VBS file that opens an application and works fine when I double-click it in Windows Explorer. However, when I open it in the Script Editor and try to run it (using start, step into, run to cursor, etc), the title bar shows [run] briefly then returns to [design] and nothing appears to nothing (the requested application does not open). If I set a breakpoint the code does not stop at the selected line. I've tried searching the internet and found one or two posts that suggest others have had a similar problem, but I've not seen a solution. One post indicated that the problem occurred after the Script Editor had been working for a few months. Could it be that a virus has caused it? I did get infected a while back by something that caused pop ups to keep appearing in Internet Explorer but thought I had got rid of it and all its effects. Any advice or suggestions would be appreciated. Tag: Adding domain user to local admin group Tag: 162958
  - 19
    - authenticate to domain Hi. I have the problem that my domain admin password changes randomly. There is nothing to see in the logs. (logging raised allready)... there is an other thread for this. What would be very helpfull would be a script that checks if the authentication to the domain with a certain account and password works and pipes the result into a text file. Check should be every 30 secs or so. Can someone give me a hint where to start (a function name or so) or even a working script ;-)? Thanks Robert Tag: Adding domain user to local admin group Tag: 162956
  - 20
    - referencing Type libraries in vbs files Can I reference a type library (such as CDO) within a regular, plain vanilla .vbs script file? We're not using a WSC, which would help I know. Ben Tag: Adding domain user to local admin group Tag: 162954
  - 21
    - Make a printer the default on remote computer ?? I have multiple computers that have the "Generic / Text Only" printer installed, along with other printers. Is there a way/VB Script to change make the Generic... the default printer (Set as Default Printer)on these remote printers?? I know I can use RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n "Generic / Text Only" on the local computer but can this setbe done on a list(.txt) of remote computers. THanks sooo much Tag: Adding domain user to local admin group Tag: 162949
  - 22
    - Authorization levels and login scripts Note: cross-posted to microsoft.public.scripting.vbscript and microsoft.public.windowsxp.security_admin Hi guys, I'm in need of some information about how the security and impersonation of scripts works. I'm trying to create a login vbscript that will enumerate certain types of files on the HD. The problem is that we want it to run more often than when the computer is rebooted, so it can't be a startup script. As a login script, the user logging in doesn't have priveleges to see all the directories on the machine (notably the documents & settings folders for other users), but we want to enumerate the contents of those folders. What would you suggest? Is there a way to use the machine account instead of the user account when it's a login script? (from what I've read, it seems not) From the reading I've done, it seems the only way really to do it is to provide other credentials and run the script as another user. I'd prefer not to use this option as storing the credentials of another user with elevated priveleges in the script would be a security risk. If this is the only way to do it, does anybody have tips on making this option as secure as possible? Thanks very much, -Ryan Tag: Adding domain user to local admin group Tag: 162945
  - 23
    - Find Files Is there any way to define wild characters to search for the file like "*paypal*.txt or just *paypal* to look for files like paypal2.exe or paypal.word (Any file or extension with paypal in it). Below is the code I used to search with exact name '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ strComputer = "." strFilename = "paypal" ' without extension strExtension = "txt" ' file extension - use lowercase Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("Select name, extension from CIM_Datafile where Filename = '"&strFilename&"'") For Each objFile in colFiles If objFile.Extension = strExtension then Wscript.Echo objFile.Name 'nRet = objFSO.DeleteFile(objFile.Name,True) End If Next '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Tag: Adding domain user to local admin group Tag: 162942
  - 24
    - VBSCRIPT + Outlook 2003 Hi, I got an Intranet asp page with some user infomations from a database. I need to transfert these informations into an outlook Contact. For this I wrote: <html> <body> <script language="VBScript"> function olContact() on error resume next Set ol = GetObject("Outlook.application") if err.number = 0 then Set olns = ol.GetNameSpace("MAPI") Set MyFolder = olns.GetDefaultFolder(10) Set MyItem = MyFolder.Items.Add("IPM.Contact.MyForm") MyItem.Display myCode ..... else msgbox "ERROR" end if end function </script> </body> </html> But I always got an error: "ActiveX component can't create object" I customed the security level of my Intranet Site in IE but nothing ..... I use: Win2K SP4 Office 2003 SP1 IE6 Any idea please ? Thanks. Tag: Adding domain user to local admin group Tag: 162938
  - 25
    - Help creating Exchange Eventsink Hi I need to create an eventsink for Exchange 2003. It needs to preform a fairly simple operation: Check all inbound mail, if a certain domain is used, reply with a standard message. (Customer has changed their domain name and wants to inform everybody). Can anybody point me in the direction of eventsink documentation. Specificly I need to how to read the sender and recipient information off of a inbound mail, using VBScripting. Regards, Mike Tag: Adding domain user to local admin group Tag: 162936
- Next
  - 1
    - sleep, wait, or pause in HTML page The following HTML page will open an IE window, load a search page, wait for it to finish loading, and then use SendKeys to perform a query at that location (based on a passed search string). It works. However, I'm wondering if there is a better way to do the pause (Sub sSleep) while waiting for IE to finish loading the page (this version uses PING to insert a delay). Without it, IE complains that "A script on this page is causing Internet Explorer to run slowly ..."; and, WScript's Sleep method does not seem to be available to IE. TIA, Bruce <html><head><title>Page Search</title> <script language="VBScript"> Dim sSearch 'remove leading "?" from search string sSearch = Replace(window.location.search, "?", "") 'change URLEncoded "%20"s back to spaces sSearch = Replace(sSearch, "%20", " ") 'open a new IE window and navigate to the search page Dim oIE Set oIE = createobject("internetexplorer.application") oIE.navigate "http://somesearchpage.com/thesearchpage.asp" oIE.Visible = True 'if there is a search string, do search If Not window.location.search = "" Then 'wait til page is loaded Do until oIE.readystate=4 sSleep 1 Loop 'enter the search criteria then ENTER Dim oWSShell Set oWSShell = CreateObject("WScript.Shell") oWSShell.SendKeys sSearch oWSShell.SendKeys "{ENTER}" End If 'remove this window window.close() Sub sSleep(seconds) 'pause script about 1 second Set oWSShell = CreateObject("Wscript.Shell") cmd = "%COMSPEC% /c ping -n " & 1 + seconds & " 127.0.0.1>nul" oWSShell.Run cmd,0,1 End Sub </script> </head><body></body></html> Tag: Adding domain user to local admin group Tag: 162930
  - 2
    - formatting dates hi, I'd like to format a date using vbscript to this format: 1995-01-03 00:00:00 Unfortunately, if I use month(date), then it returns me a single digit number for January through September. Same goes for the day(date) function. Is there an easy way to retrieve this date format? I know .net cdate can do this.. cdate(strdate).tostring("s") to get that format. Is there an equivalent in vbscript? Thanks, Vicky Tag: Adding domain user to local admin group Tag: 162925
  - 3
    - Re: Unable to remove remembered drives Its a common error but... Who are you running the scheduled task as? Does the account have rights to the network resource? P Tag: Adding domain user to local admin group Tag: 162920
  - 4
    - Change the way a file name is displayed (remove the c:\ and change to http) What I would like to do in my script is change the c:\ to http:// before it is written in my database, any help would be great, thanks! ' on error resume next strComputer = "." Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\\small\\'") For Each objFile in colFiles Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "DSN=Filename;" objRecordset.CursorLocation = adUseClient objRecordset.Open "SELECT * FROM Filename" , objConnection, adOpenStatic, adLockOptimistic objRecordset.AddNew objRecordset("Filename") = objFile.Name objRecordset.Update Next objRecordset.Close objConnection.Close Tag: Adding domain user to local admin group Tag: 162918
  - 5
    - How to Read From a Carriage Return File. Hi Everybody, I have a TextFile which has data some thing like below, abc, 1 def, 1 ghi, 1 How do read line by Line using a FileSystem Object. The above data is in a Text file and it has Carriage Returns. Any help is Appreciated. -- Santosh Tag: Adding domain user to local admin group Tag: 162914
  - 6
    - multiprocessors and hyperthreading Hi I am trying to find out if a multiprocessor system with say, 2 or 4 processors, is using Hyper-threading or not. Is there a way i can do this programatically, preferably using VBScript or VB6? Thanks. Tag: Adding domain user to local admin group Tag: 162911
  - 7
    - Open Access Table Hi, Can anyone give me the sample codes to open and manipulate the data in the Access table with vbscript? I want to open the Access table and extract cirtain information from it on a daily basics. The script is running automatically in a scheduler. Thank you. Fan Tag: Adding domain user to local admin group Tag: 162909
  - 8
    - Open an application using script I'm using Win XP Home and have Microsoft Office Professional installed. I'm a complete novice as far as VB Script is concerned and would be grateful if someone could tell me whether you can use it to open an Access database (in MS Access)?. I tried setting up an object variable using CreateObject and then called the OpenCurrentDatabase method but this didn't work. Does the object variable go out of scope when the script finishes thus closing Access even if it was opened momentarily? I don't want to have to write a VB program to do the job because I want something simple that doesn't require installation. The reason that I want a user to run code rather than simply open the Access database is because I want to check that the latest version of the application resides on the user's machine and if not replace it with the latest version copied from the server. Any advice would be appreciated. Tag: Adding domain user to local admin group Tag: 162907
  - 9
    - The DIR function Hi all, Is there any way to have the DIR function in Visual Basic 6, return the file list in Sorted Order? I could do it internally, but about twice a year I could have upwards of 5000 files to sort. -- Tim Tag: Adding domain user to local admin group Tag: 162906
  - 10
    - Use VBscript to read messages in inbox I want to schedule a script to open a users inbox, check the messages and perform a function (i.e. write a to the event log) based on wether or not it finds an email with a particular subject. The script will run on one of our Exchange 2000 servers. Any ideas/examples? Tag: Adding domain user to local admin group Tag: 162899
  - 11
    - Get DHCP lease information Hi Does anyone know how to get a list of active leases from a DHCp server using VBscript. I have been looking about the web for ages, but the only thing I have came across is DHCP Objects 1.0 from the windows 2000 res kit, but there is little documentation on how to extract the information that I want. Can anyone Help??? Tag: Adding domain user to local admin group Tag: 162898
  - 12
    - replace a string Hy I need to replace a string in a large text BUT even occurrences are upper or lower case e.g. Museo Archeologico, Museo archeologico, museo archeologico with "Museo Archeologico" I can I do? Thanks Tag: Adding domain user to local admin group Tag: 162894
  - 13
    - WMI provider is not capable of the attempted operation Hi. I have been looking all over the web for how to set values with the use of WMI, but cannot find much information. I am using the PUT_ method but it generates the following message "provider is not capable of the attempted operation" Can anyone tell me why I receive this message?? Or even better.. How to use wmi to set values. My script looks like this: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\citrix") Set colapps = objWMIService.ExecQuery _ ("Select * from MetaFrame_Application") For Each objApp in colApps 'Display the metaframe application im trying to disable Msgbox objApp.Name 'disable applic|ation objApp.EnableApp = False 'Save the data objApp.Put_ Next Tag: Adding domain user to local admin group Tag: 162886
  - 14
    - Future version(s) of VBS and strong typing Hello everyone, I've been using VB, VBA and VBS both as a Windows scripting tool and in a few ASP pages as well for a long time now. I've learned to deal with having only the variant data type, but that doesn't mean I don't despise it still. Now I am curious whether future version(s) will support typing or not. I already know about .NET and ASP.NET, where typing is allowed, but I'm talking about VBS as we know and use it now. Does anyone know of plans to "upgrade" the scripting language and support strong typing at any time? For that matter, does anyone know WHY it was not included in the first place? I mean, would it have been THAT hard to implement from the beginning? Sure, you can accomplish quite a bit the way it is, just not EVERYTHING, and I've personally had quite a few occasions when variable typing would have made my job tons easier. Just curious... Tag: Adding domain user to local admin group Tag: 162884
  - 15
    - function call I'm having a problem declaring and calling a function. I need to create a function that will return an array. I get this error running the following code: Error: An exception of type "Microsoft VBScript runtime error: Type mismatch: 'RndArray'' was not handled. RndDiamonds = RndArray( 2, RecCount) 'this line of code raises the error Function RndArray( size, RecCount) ReDim aArray( size ) for i = 0 to size aArray(i) = -1 next RndArray = aArray End Function Tag: Adding domain user to local admin group Tag: 162881
  - 16
    - Passing link text as session variable Hi, Is there a way to pass link text as a session variable to the linked page? Here's what I'm trying to do : The page has a list of groups. Each group name appears in a <A HREF> </A> tag. The page has a binding to the group(s) and has the displayName & distinguishedName of the group. When a user clicks on the group name - which appears between the <A> </A> tags and is a variable - the sAMAccountName or displayName of the group, the corresponding distinguishedName should be passed to the next page as a session variable. (I can do it with a separate button and a hidden form value, but that doesn't work for all names with a space.) Thanks, Bharat Tag: Adding domain user to local admin group Tag: 162878
  - 17
    - Vbs: How To Read Variables From An external File? Thank you SO SO SO much :) it worked. thanks :) Tom Lavedas wrote: > *I believe you want a line like ... > > Execute Command > ' To illustrate that this worked as you wanted ... > wsh.echo "Today's date is", today, vbnewline, "Sec = ", Sec > > If you intend to use this within a method and want the results to be > global > use ExecuteGlobal, instead. > > Tom Lavedas > =========== > * -- Saleh ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Adding domain user to local admin group Tag: 162876
  - 18
    - scripting word I need to create labels in word xp using script only. what I have so far. set objLbls = create object("word.application") objLbls.visible=true in between these 2 lines I need to populate the label fields and set the type of avery sheet as well. is that even possible, if so is there a knowledge base for it? else please someone provide a sample code. thanks Tag: Adding domain user to local admin group Tag: 162875
  - 19
    - ' messing up code I am working in front page and connecting to a data base. I have a back end function where people can enter data to show up in the website. I have found that when they enter a word that has an apostrophe in it example I have the word "let's" and it messes up the code. How do I get around this? This is the error I get. [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression ''35th Annual MR/LD Tootsie Roll Drive - September 17-19, 2004Alternate Drive Dates - September 24-26, October 1-3, and October 8-10! Tootsie Rolls are for Everyone. Help support the special children. Let's make this year a record year. Volunteer and y'. Thanks, Dave Tag: Adding domain user to local admin group Tag: 162853
  - 20
    - How to sign a VBScript in a web page? Maybe I am in the wrong place and doing this the wrong way... please tell me if you think there is a better way. I need to transfer some files from a server to the client workstation. The transfer has to be initiated from a page served up by the web server. This is easy enough to do with VBScript and the FSO but I have to loosen up the browser security and my (military) employer will not allow that. So, is there some way I can take this script and sign it and the user can run it once the certificate is accepted? I am not resigned to using VBScript, it just seemed to be the easiest way and works well. If it makes more sense to make an exe with something like cpp and sign it, that's OK too. Surely there are some tutorials on the web on how to do this, but I can't find any, which makes me fear that it can't be done. I could use an HTA if there is a way to initiate the HTA from the web page and to pass it a parameter (the folder with the files - it will vary with each transfer). FWIW, I can create a page with links to all the files and by clicking on them cause the 'save as' dialog to come up and let the user save them. Problem is, sometimes there will be lots of files and I don't want the user to have to click and save each one individually. Any help will be greatly appreciated... TIA Steve Tag: Adding domain user to local admin group Tag: 162852
  - 21
    - Re: ADsDSOObject question? Hi, Yevgen Thank you very much for your time. I found why i failed before. It works fine after I changed the format of strDomain in (objCommand.CommandText = "Select CN,DistinguishedName from 'LDAP://" & strDomain & _ "' where objectClass='user' and CN = '" & strEmpID & "'") from "DC=MyDomain,DC=COM,DC=TW" to "mydomain.com.tw". I think this is due to i use this script in a cross domain scenario. Both"DC=MyDomain,DC=COM,DC=TW" to "mydomain.com.tw" works fine if i run this script on a member server of same domain. Thank you very much for your time. best regards, Eric Wu From: Yevgen Lazaryev Date Posted: 9/3/2004 5:13:00 AM "Eric Wu" <eric_wu@alphanetworks.com> a écrit dans le message de news:euydtkJkEHA.324@TK2MSFTNGP11.phx.gbl... | Hi All, Or i can use another way to do same | check? Any suggestion or feedback will be greatly appreciated. Thank you for | your time. .... Maybe you try WinNT provider instead of LDAP for this check ...It's more simple ...One thing to keep in mind is that objUser.Name in WinNT corresponds "userPrincipalName" or "sAMAccountName" in LDAP or logon name of a user ....Then you can check the domain like this ... strUser = "another" strDomain = "domain.com" UserExists = false Set colUsers = GetObject("WinNT://" & strDomain & "") colUsers.Filter = Array("user") For Each objUser In colUsers oldUser = objUser.Name If oldUser = strUser Then UserExists = true End If Next If UserExists Then 'EnableUser() Wscript.Echo "Here" Else 'DSCreateUser() Wscript.Echo "None" End If From: Eric Wu Date Posted: 9/1/2004 9:13:00 PM Hi All, I wrote a script to check if user already existing before create user account, if user exists, i use enable instead of create. This works fine in my own domain, but it failed when i try to connect to another domain. Due to this script will runs on a standalone server, i must solve this problem. I tried to found authentication method about ADsDSOObject on MSDN web site. But all failed. The command object returns nothing when connect to another domain. Did anyone has any idea about this? Or i can use another way to do same check? Any suggestion or feedback will be greatly appreciated. Thank you for your time. Best regards, Eric Wu Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" 'No error here, but not working objConnection.Properties("User ID") = strUser objConnection.Properties("Password") = strPassword 'objConnection.Properties("Encrypt Password") = True objConnection.Properties("ADSI Flag") = 2 'No error here, but not working, too objConnection.Open "Active Directory Provider",strUser,strPassword Set objCommand = CreateObject("ADODB.Command") Set objCOmmand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1500 'objCommand.Properties("Timeout") = 30 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = "Select CN,DistinguishedName from 'LDAP://" & strDomain & _ "' where objectClass='user' and CN = '" & strEmpID & "'" Set objRecordSet = objCommand.Execute If objRecordSet.RecordCount = 1 Then EnableUser() Else DSCreateUser() End If Tag: Adding domain user to local admin group Tag: 162846
  - 22
    - ASP version or code problem? Hi everyone, I just resumed working with ASP after a year or so out of the loop and I have this problem (using a simple html editor). Here's my code: dim temp (5) temp(1) = "blablabla" ReDim Preseve (temp(10)) Response.Write temp(1) when I run it I get an error Error Type: Microsoft VBScript runtime (0x800A0009) Subscript out of range: '[number: 10]' /index.asp, line 18 Code seems legit, but something else led me to believe it could be a problem with the Personal Web Server version: When I starting an ASP.NET Web Application with my Visual Studio.NET it told me "Visual Studio .NET has detected that the specified Web server is not running ASP.NET version 1.1. You will be unable to run ASP.NET Web Applications or services" and it does not start the project. Has anyone encountered that before? Appreciate any input. Thanks, Lev Tag: Adding domain user to local admin group Tag: 162837
  - 23
    - Convert Long array to Byte array Hi, Anyone know an efficient way to convert a long array to a byte array. Of course you can do this by masking and dividing by 256 four times for each long element, but is there anything built into VB to accomplish this faster? Dave Tag: Adding domain user to local admin group Tag: 162827
  - 24
    - ADSI/ASP: How to pass distinguishedName as hidden form field? [FOLLOW-UPS TO microsoft.public.scripting.vbscript] Hi All, I'm running into issues with passing the distinguishedName of a user as a hidden form field in a form from one page to the result page. Page 1: User enters user name in a form field Page 2: Queries AD, gets distinguishedName, binds to the user. Need to add more info to the user if attributes not present. Relevant portion of FORM: Response.Write("<B>ID: " & objUser.ID & "<Font color='Red'>not entered! </font></B>" & _ "<FORM NAME='Form_Addid' ACTION='addid.asp' METHOD='post'>" & _ "<INPUT TYPE='text' NAME='inputId' SIZE=5 MAXLENGTH=6><br>" & _ "<INPUT TYPE='hidden' NAME='Username' value=" & objUser.sAMAccountName & ">" & _ "<INPUT TYPE='hidden' NAME='UserDN' value=" & objUser.distinguishedName & ">" & _ "<INPUT TYPE='submit' NAME='Submit_id' value='Add ID'></FORM>") Page 3: Process form from prevoius page, populate attributes for the same user. Relevant portions of ASP code to get user's details from previous page. <% strUsername=Request.Form("Username") strUserDN = Request.Form("UserDN") Response.Write("Username: " & strUsername) Response.Write("Distinguished Name" " & strUserDN) %> Questions: i) Can the user bind on Page 2 be carried over to page 3 so there's no need to search and bind to the user again? ii) If not, can the distinguishedName be passed on to Page 3 (like I'm trying to do) to eliminate the search portion and simply bind to the distinguishedName? When I try to pass the distinguishedName to Page 3 as a hidden form field, and display the field using Response.Write - I only get a partial distinguishedName - just the CN portion. sAMAccountName seems to be passing without any issues (but then I'd need to search and bind again based on that). Thanks, Bharat Suneja Tag: Adding domain user to local admin group Tag: 162825
  - 25
    - Displaying computer OU in ASP I'm trying to display the OU (or the full ADSPath) in ASP using the following code: <% Set con = CreateObject("ADODB.Connection") con.Provider = "ADsDSOObject" con.Open "Active Directory Provider" Set ocommand = CreateObject("ADODB.Command") ocommand.ActiveConnection = con ocommand.CommandText = "<LDAP://DC=MY,DC=DOMAIN>;(name=MYCOMPUTERNAME);adspath;subTree" Set RS = ocommand.Execute While not RS.EOF Response.write RS.fields(0) RS.MoveNext Wend %> The script works, but it returns: LDAP://DC=mycomputername,DC=my.domain,CN=MicrosoftDNS,CN=System,DC=my,DC =domain As you can see, there is no OU information listed. I've tried several different methods of returning the ADSPath and I always get the above output. The same script works perfectly as a VBScript. *** Sent via Developersdex http://www.developersdex.com *** Don't just participate in USENET...get rewarded for it! Tag: Adding domain user to local admin group Tag: 162824

Hello all,

I am using the following script excert to add a domain user to
the machine local admin group. However, when I try it it states
it can not access the domain to get the user. My question is -
how can I add domain login credentials to the script so it can
log on as an admin to pull the name off the AD?

Many Thanks,
Jamie.

strNetBIOSDomain = "uk"
strComputer = objWshNet.ComputerName

MsgBox(strnetbiosdomain & " " & strcomputer)

Set objGroup = GetObject("WinNT://" & strComputer &
"/Administrators,group")
Set objUser = GetObject("WinNT://" & strNetBIOSDomain & "/" &
strUser & ",user")

' suppress errors in case the user is already a member
On Error Resume Next
objGroup.Add(objUser.ADsPath)
On Error Goto 0

----------------------------------------------
Posted with NewsLeecher v1.0 beta 32 (RC3)
* Binary Usenet Leeching Made Easy
* http://www.newsleecher.com/?usenet
----------------------------------------------

Top