Exec with Alternate Credentials - How?

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
    - get attachment from outlook email and save to a file with new name Hi all. Due to a short sighted process that I did not design, I get a single text file everyday that has the same name called "daily.txt." So I have like a three-hundred of these emails, and I would like to use a script to save them from email to a file on my harddrive, preferably with a name thats based on the date that email attachment was received. If that date thing is not possible, I would be happy just to get the files saved off with a unique name for each. Any one help? Tag: Exec with Alternate Credentials - How? Tag: 190042
  - 2
    - Last logon date for users... Can anyone please help me out. I've noticed a fair amount of VBScripts created for Domain Controllers, but I'm trying to quey a Windows 2000 and 2003 workgroup server (non Domain) for all the users and last logon date... Can anyone please help me? TIA...Your help is appreicated! Tag: Exec with Alternate Credentials - How? Tag: 190039
  - 3
    - Import data file & update with SQL I would like to be able to use a vbs script to 1) import a text file of a known, specific format into a table 2) Delete records that match a criteria (a delete SQL?) 3) Save to a new file. Any pointers? or suggestions? This does not have to be a DB/table solution, but I am an ACCESS programmer with very basic vbs specific knowledge. Would like this to be a simple drag and drop operation for the end user if possible. What specific info do I need to supply to have an intelligent answer? TIA - Z Tag: Exec with Alternate Credentials - How? Tag: 190037
  - 4
    - vbscript to identify and restart hanging services. I have written a script that restarts services that have stopped, that are set to auto start. The problem I'm having is that hanging services don't get identified, and therefore remain in a hung state. Is there a way using VBscript to identify a hung service? Thanks, any help is greatly appreciated, Josh Tag: Exec with Alternate Credentials - How? Tag: 190036
  - 5
    - Scan AD Computers for text file Our users have a flag file at the root of their profiles (C:\Docume~1\%USERNAME%), based on whether or not they received our printer migration logon script. I'd like to scan all of these computers to see who has the flag file, but I've never used VB to pull names of computers from AD before. Does anybody have a generic canned script that will pull names of computers from AD to check for a file on each computer? Thanks for any help or suggestions! Tag: Exec with Alternate Credentials - How? Tag: 190034
  - 6
    - RegRead Method for Newbie's Hi I would like to read few keys under a specific key and then delete it but I didn't find a way to do this with the regread method. Did you know a way to do this ? Thanks Peter Tag: Exec with Alternate Credentials - How? Tag: 190027
  - 7
    - help with script Hi, I need help with a script that until i couldn't do right to work. My script is shown below: '***************************************************************** Const GRUPO_TECNICO = "cn=tecnico" Const GRUPO_CONSULTORIA = "cn=consultoria" Const GRUPO_SUPERVISAO = "cn=supervisao" Set wshNetwork = CreateObject("WScript.Network") '********************************** '**** Define user's group '********************************* Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) Set colGroups = CurrentUser.memberOf '=================================================================== Dim group=("tecnico","consultoria","supervisao") ' Mount user's directory wshNetwork.MapNetworkDrive "z:","\\MyDomain\" & wshNetwork.UserName ' Mount all user's group which the user is in ' For Each group In colGroups wshNetwork.MapNetworkDrive "y:","\\MyDomain\$grupo" Next '***************************************************************** My script has to do as follow: 1.) If the user has only 1 group it will mount his home directory and groups direcotry which he is in. Example: User joe is in group tecnico then it will mount: z:\\MyDomain\Joe y:\\Tecnico 2.) If the user has two or more groups it must mount his home directory and groups directory which he is in. Example: User joe is in groups tecnico and supervisao then it will mount: z:\\MyDomain\Joe y:\\Tecnico y:\\Supervisao See if you can help with it. Thanks in Advance, Anderson Tag: Exec with Alternate Credentials - How? Tag: 190026
  - 8
    - Thumbnailing hi-res jpegs Hi all, I'm not sure if this is the right group for this, so if anyone knows a better group, please let me know. I have a web application that thumbnails hi-res jpeg's on the fly, up to some 200-300 images at a time. It runs on ASP using VBScripts. With the latest camera's, file sizes and 2GB cards the process is becoming very slow. I have been looking around for a better component to use in my asp pages. At the moment I am using 'dImage'. I have tried a few others but they run at the same speed. The process I am running creates small thumbnails and saves them to disk before displaying them through the browser. This way if they are required for view again the thumbnail does not have to be created again. Using image browsing software produces fast thumbnails, why can I not find something in a web component that will do the same. Any help much appreciated. Cheers, Blinky. Tag: Exec with Alternate Credentials - How? Tag: 190023
  - 9
    - Point to vbs file on the network I have a script that adds a network printer when executed. It now points to a vbs file on my desktop. But I need to put the vbs file on the network for others to access it also. How do I tell the script to point to a network file. <Html> <Head> <Script> function open(PStrApplication, PstrFilePath) { var WshShell = new ActiveXObject("WScript.Shell"); WshShell.run(PStrApplication + " \"" + PstrFilePath + "\""); } </Script> </Head> <Body> Install Printer<p> <a href="javascript:open('wscript.exe', 'printer.vbs')">Install Printer</a> </Body> </Html> Tag: Exec with Alternate Credentials - How? Tag: 190021
  - 10
    - Convert string to corresponding ASCII character Hi, Quick question...if I have a string (let's say it just consisted of "123"), what would be the vbscript syntax to output the corresponding ascii chars to the screen - e.g. in this example to programmatically derive an output of "061 062 063"...? Obviously the other way round would be response.write chr(61) & chr(62) & chr(63), but I don't know the converse Thanks for any assistance Tag: Exec with Alternate Credentials - How? Tag: 190016
  - 11
    - Match Input string with a predifined set I would like to know the most efficient way of take user input such as Jan and matching it against a predefined set of values such as "Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec" If the input string does not match I wish to display an error. I am writing a simple backup program but require input validation. Source = "ntbackup backup O:\acuchris\dat /f " Dest = "O:\Chris\User\12mth\" Slash ="\" Ext = ".bkf" Wild = " /m copy" strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") strInput = InputBox ("Please enter the First 3 letters of the Month in lowercase ") If str1 = str2 Then Wscript.Echo "The strings are equal." Else Wscript.Echo "The strings are not equal." End If Set oWshShell = CreateObject("WScript.Shell") oWshShell.Run Source & Dest & strInput & Slash & strInput & Ext & Wild Tag: Exec with Alternate Credentials - How? Tag: 190014
  - 12
    - Retrieve AD data Hi, Does anyone know a script to retrieve active directory data like e-mail, terminalserver enabled, ... Thx. Tag: Exec with Alternate Credentials - How? Tag: 190013
  - 13
    - Folder access / User Hi, Does anyone know a script that gives all the folders where a user has access too. Thx. Tag: Exec with Alternate Credentials - How? Tag: 190012
  - 14
    - VBScript for WMI - IMF Counters Does anyone know how I can use VBScript to get WMI counters for the Intellengent Message Filter (Exchange 2003 SP2)? Thank you. - Gabe Tag: Exec with Alternate Credentials - How? Tag: 190011
  - 15
    - Reading Event Logs I have a vbscript that processes the event logs on several remote servers, compares the collection against a event list to report and another list of excludes to ignore. It works very well on all but one server server in our company and it looks like the connection is hanging. I added a echo statement to show me how many events were being returned from the 24hr window query but it never seems to get the collection. My question is is there a way to set timeouts on WMI queries and/or understand what is making this server look like it hangs? Thanks for any help. Dale Tag: Exec with Alternate Credentials - How? Tag: 190010
  - 16
    - Is there a size limit to text input? Hello to all. I hope this is posted in the correct forum. If not, m apologies, and please correct me. I'm very glad to have found you. I'm actually a Flash developer, whic increasingly seems to mean I'll be asked how to do Everything. A client wants to build a form in .NET which allows users to paste ver large blocks of text into input fields. People have mentioned 'tex fields' and 'textareas'. So I need to know: 1] is there a difference? 2] what is the capacity of each? 3] Not for nothing: is there a constant 'max number'? Thanks, Pau - freedmani ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Exec with Alternate Credentials - How? Tag: 190003
  - 17
    - Delete selected rows in Excel Hello, In the below code lines I get a type mismatch error message when I try to use variables inside the quotes, I need to programmatically stuff in variables if my script is going to work, like this objExcel.Rows("intRow:intLastRow).Select() 'Doesn't work. objExcel.Rows("44:91").Select() 'Works. objExcel.Selection.Delete Seems only regular numbers works inside the quotes. Any idea of what to do ? TIA Svein,Oslo Tag: Exec with Alternate Credentials - How? Tag: 190001
  - 18
    - Recursing through folders without changing Last Accessed Date HI all, I am writing a script which should enumerate the Folder permissions of a share. I was successful in doing this until i get a new requirement which says that the Last Accessed dates should not be changed. I am using for each subfol in fol.subfolders to get the subfolder properties (i.e, Path,size) but what i believe is, it is the culprit which is changing the date. I tried using Directory.GetDirectory to get the subdirectories but that attempt also went into vain as it is also doing the same thing. I tried using GetLastAccessTime and SetLastAccessTime for setting the earlier time but to give the path as input i need to get it by using fol.subfolder property only. Please suggest me in this regard . I need some alternate solution for this Tag: Exec with Alternate Credentials - How? Tag: 189995
  - 19
    - Excel SaveAs Fileformat I have a script that starts up Excel, opens a CSV file, does a bunch of stuff to the contents, and then I want to save the results as a normal Excel workbook. Everything works great except the SaveAs part. Here is the line: objExcel.ActiveWorkbook.SaveAs "Foobar.xls", xlNormal The error is "SaveAs method of Workbook class failed" I've tried a number of random variations on the theme, to no avail. Any suggestions would be greatfully received. Thanks! Tag: Exec with Alternate Credentials - How? Tag: 189989
  - 20
    - How to List Folder Permissions Hi All, I need to do a vbcript program to list the permissions to an specific folder on a 2003 server. I am a beginner vbscripter and could'nt find a sample fo that anywhere else... Any hint on how can I do that? Thanks to all! Tag: Exec with Alternate Credentials - How? Tag: 189981
  - 21
    - Include Mechanism Hello world, in a .vbs script, how can I use functions that are defined in another .vbs file? Is there an equivalent to #include in C? Should be a rather simple question, but i haven't found anything about this... Jens Tag: Exec with Alternate Credentials - How? Tag: 189979
  - 22
    - Import/Export email addresses Is it possible to write a script which can read .wab (Windows Address Book) file? I have 8 .wab files on my computer. I want to extract email addresses from those files and put it in a notepad file. Is this possible? Tag: Exec with Alternate Credentials - How? Tag: 189978
  - 23
    - Install Updates Not Working... Help! Hi All, I am trying to use my logon script to do the ms updates (I am beginner vbscripter...) . I got a script from MS which seems to work pretty fine for identifying the necessary updates and another script to do the actual installation (below). The problem is that the installation does not actually occurs and the resultcode property shown in the last line is set to 4. I rode that anything <> 0 is an error which would explain that but I have no idea of what result code "4" means... Would anyone knows what code "4" means or, even better, have a list of result codes and descriptions? (or even better... have a script that works? I've seen Mark F's post and its just to much complicated for me... maximilliand code is no longer acessible) Thanks in advance! Set objCollection = CreateObject("Microsoft.Update.UpdateColl") Set objSearcher = CreateObject("Microsoft.Update.Searcher") Set objResults = objSearcher.Search("UpdateID='" &id &"'") Set colUpdates = objResults.Updates objCollection.Add(colUpdates.Item(0)) Set objInstaller = CreateObject("Microsoft.Update.Installer") objInstaller.Updates = objCollection Set objInstallResults = objInstaller.Install Wscript.Echo objInstallResults.RebootRequired Wscript.Echo objInstallResults.ResultCode Tag: Exec with Alternate Credentials - How? Tag: 189976
  - 24
    - run vbs file as administrator It took me hours of work. ie. im st00pid, but here it is. Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\VBSFile\Shell\runas\command] @="wscript.exe \"%1\"" Tag: Exec with Alternate Credentials - How? Tag: 189969
  - 25
    - InStr Always Returns 0.... I've been beating on this script for the past day and am getting some very odd results. I'm pulling a users' group associations from AD and matching it to a known group so I can map drives accordingly. I am pulling the group names easily enough but I can't seem to get a match. I am printing out the value of the groups string and the group match string but I always get a 0 from InStr. Can someone tell me what I'm doing wrong here? When debugging the print out of strGroup is always "cn=owners,cn=users,dn=domain,dn=com" and OWNERS_GROUP is always "cn=users" I can't figure out why I can't match OWNERS_GROUP to part of the string in strGroups... TIA Dim objNetwork, objUser, CurrentUser, strGroup, GroupList, colGroups Dim OWNERS_GROUP, STAFF_GROUP OWNERS_GROUP = "cn=owners" STAFF_GROUP = "cn=staff" Set objUser = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & objUser.UserName) colGroups = CurrentUser.memberOf If IsEmpty(colGroups) Then strGroups = "" ElseIf TypeName(colGroups) = "String" Then strGroups = LCase(colGroups) Else strGroups = LCases(Join(colGroups)) End If 'WScript.Echo " Groups: "& strGroups 'WScript.Echo " Groups Str: "& OWNERS_GROUP 'GroupList = "" & CurrentUser.MemberOf 'Response.Write GroupList 'strGroups = LCase(Join(GroupList)) pos=InStrRev(strGroup, OWNERS_GROUP) WScript.Echo " Pos: "& pos ' Extra code just to add a message box 'WScript.Echo " Launch Explorer, check: "& strDriveLetter If InStrRev(strGroup, STAFF_GROUP) Then wshNetwork.MapNetworkDrive "s:", "\\server\public" ElseIf InStrRev(strGroup, OWNERS_GROUP) Then wshNetwork.MapNetworkDrive "o:", "\\server\private" wshNetwork.MapNetworkDrive "s:", "\\server\public" End If Tag: Exec with Alternate Credentials - How? Tag: 189962
- Next
  - 1
    - Dictionary Item() does not like objects? The following sample does not work: class clsX public m1 public m2 end class set objDict = CreateObject("Scripting.Dictionary") set w = new clsX w.m1 = "foo" w.m2 = "bar" objDict.Add "0", w w.m1 = "FOO" w.m2 = "BAR" objDict.Item("0") = w 'Object doesn't support property or method objDict.Item("0") = "fubar" 'Works OK The line "objDict.Item("0") = w" produces the error: Object doesn't support this property or method. Remove that line and the subsequent line "objDict.Item("0") = "fubar"" works just fine. The Item() method/property only permits string variants to be assigned to it? Tag: Exec with Alternate Credentials - How? Tag: 189959
  - 2
    - read text from html table cell containing and anchor tag Is there a property of an html anchor tag that contains the anchor's visible text? I need to sort an html table but one of the columns contains links. I want to sort on that column by its text not by the href contained in it. Below is a bit of code the sorting routine currently uses but doesn't quite do what I want. ... = findFirstLinkChild(row1.cells[column]).href thanks LJB Tag: Exec with Alternate Credentials - How? Tag: 189957
  - 3
    - RegExp without duplicate matches I using the following to create hyperlinks of every 7 digit number in an html table. The problem is there are some duplicate numbers and they create href's within href's. How do I get rid of the duplicates in a matches collection before I use vbscript's replace function? I first thought of using regular expression's replace method and sub-matches but wasn't successful. The desired result is given 1234567 create href="./7/1234567.shtml" sub MakeHyperlinks(strTable) dim match, regEx set regEx = Server.CreateObject("VBScript.RegExp") regEx.Global = True regEx.Pattern = "\d{7}" for each match in regEx.Execute(strTable) strTable = Replace( _ strTable, _ match, _ "<a href=""./" & right(match,1) & "/" & match & ".shtml"">" & match & "</a>") next set regEx = nothing end sub thanks LJB Tag: Exec with Alternate Credentials - How? Tag: 189949
  - 4
    - Read folder/file security Hi, Can anyone tell me how I can read the security settings of a local folder and file with vbs? Thx. Tag: Exec with Alternate Credentials - How? Tag: 189933
  - 5
    - Renaming Computer AND Join a Domain Hello all, I want to rename a computer and then join the domain WITHOUT a reboot This code works BUT The Account created on the domain uses the old computer name (but the DNS Name field is using the new name). Do I have to use the MoveHere method of ADSI to apply the new name to the account or there is a better way? '************** RENAME ************** NewName = "VBTest" Set objWMIService = GetObject("Winmgmts:root\cimv2") For Each objComputer in objWMIService.InstancesOf("Win32_ComputerSystem") objComputer.rename(NewName, NULL, NULL) Next '************** JOIN DOMAIN ************** strDomain = "ActiveDirectory" strPassword = "password" strUser = "username" Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objComputer = GetObject _ ("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & _ "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'") objComputer.JoinDomainOrWorkGroup(strDomain, strPassword, strDomain & _ "\" & strUser, NULL, 1 + 2) Tag: Exec with Alternate Credentials - How? Tag: 189931
  - 6
    - Record URL in database I have a file that has table with 5 rows and 5 columns. I have named this file as index.asp on the IIS Inetpub directory. Every cell in this table has a onclick event. Whenever user clicks on any cell out of these 25 cells in the table, a new window opens. I want to capture this url and put it in the MS Access database (The database has just one field - URL). In short, I want to see which cell get most number of clicks. The reason why I just don't want the click count and want to record the URLs because today the first cell will open a website and tomorrow there would be a different website on the same cell. What vbscript code do I have to write and how will I link it to the tables? Tag: Exec with Alternate Credentials - How? Tag: 189921
  - 7
    - Problem walking through Radio buttons For intPosIdx = 0 To Document.formname.fieldname.length - 1 If Document.formname.fieldname(intPosIdx).checked Then blnSelFd = "Y" Exit for end if Next However, if there is a single radio button this code fails. I my scenario 1-n radio buttons may be available. How do I code to take care of the single button scenario also? -- --------------------- Thanks Rajiv Das Tag: Exec with Alternate Credentials - How? Tag: 189920
  - 8
    - Question Enumerating scheduled job. I am aware that we can use w32_scheduledjob class to enumerate the task scheduler's job. However, this is only for jobs that are scheduled using the "at" command. Is there way to enumerate for those scheduled jobs created with the wizard ? Thanks. Tag: Exec with Alternate Credentials - How? Tag: 189914
  - 9
    - Script to configure DNS I am trying to write a script to un-check the DNS box "Register Connection's Addresses in DNS" on a windows XP Professional workstation. It is changing the wring box. Does anyone have the code to accomplish this task? Thanks in advance. Ray Tag: Exec with Alternate Credentials - How? Tag: 189912
  - 10
    - Delete files in a folder Hello, In the scriptcenter of MS I found a little script to remove all files from a folder. It works perfect except when there a files in that folder that are in use. In that case the script crashes with a RT-error: Access denied - code 800A0046. The directory I need it for must be cleaned up everyday but there are always files of the current day in use. Could someone help me to modify the current script so it will cleanup all files except the one's in use. The current script is: Const DeleteReadOnly = TRUE Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile("F:\webMethods\IntegrationServer4\logs\*.*"), DeleteReadOnly Thanks Frank -- FVG ------------------------------------------------------------------------ Posted via http://www.codecomments.com ------------------------------------------------------------------------ Tag: Exec with Alternate Credentials - How? Tag: 189907
  - 11
    - Bonkers Hello, I sure hope someone can pull my head out... OK, I have a USB device that I want to see if its present or plugged in. Now, this works fine, using cscript on the client as a VBS: ********************************************************** Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." strValue = "Device Not Found!" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PnPEntity WHERE service = 'HidUsb'",,48) For Each objItem in colItems strKeyPath = "SYSTEM\CurrentControlSet\Enum\" & objItem.DeviceID Next if len(strKeyPath) > 1 then Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strEntryName = "LocationInformation" objReg.GetExpandedStringValue HKEY_LOCAL_MACHINE, strKeyPath, strEntryName, strValue end if Wscript.Echo strValue ********************************************************** When the device is attached objItem.DeviceID returns a portion of the registry KEY, and I get the value from the registry LocationInformation. When unplugged I get Device Not Found! Wonderful, works great. Problem... How would I do this using ASP and client side scripting? IIS6.0 would be the host of the ASP, clients are Windows XP Pro. Nothing fancy, just a response.write to the clients browser with whats contained in strValue. Thanks ninefofo Tag: Exec with Alternate Credentials - How? Tag: 189906
  - 12
    - Problem Using ObjUser.Title with WinNT:// Hello, I am trying to update Title information of multiple users using following script. I would like to know what would be the correct namespace/object which I need to use with WinNT:// for ObjUser.Title. It seems ObjUser.Title is compatible with LDAP:// and not with WinNT://. When I run the script I get -2147463153 error. Password change at next login setting works fine. I did Google for the same but did not find anything helpful. Hoping I might get some help here. -------------------------- Function IsAccountDisabled( strDomain, strAccount ) Dim objUser Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user") IsAccountDisabled = objUser.AccountDisabled End Function Dim strUser, strDomain, objUser, fso, tf, tf1, strTXT strTXT = Replace(CStr(Date),"/","-") & "_" strTXT = strTXT & Replace(CStr(Time),":","-") Set fso = CreateObject("Scripting.FileSystemObject") Set tf1 = fso.CreateTextFile("\\somepath\" & "Done_" & strTXT & ".txt", True) Set tf = fso.CreateTextFile("\\somepath\" & "Errors_" & strTXT & ".txt", True) Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open _ ("D:\somepath\UserInfoUpdate.xls") intRow = 2 Do Until objExcel.Cells(intRow,1).Value = "" On Error Resume Next strAccount = objExcel.Cells(intRow, 2).Value strDomain = "my.domain.com" Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user") If (IsAccountDisabled(strDomain, strAccount) = -2147022675) Then 'Wscript.Echo Err.Number tf.WriteLine( "UserName - " & strAccount & " dosn't exist or there is a typo in the username.") Else 'Wscript.Echo Err.Number tf1.WriteLine(strAccount & "'s account properties have been updated.") objUser.PasswordExpired = 1 objUser.title = cstr(objExcel.Cells(intRow, 5).Value) Wscript.Echo Err.Number objUser.SetInfo End if intRow = intRow + 1 Loop objExcel.Quit -------------------------------------------------- Tag: Exec with Alternate Credentials - How? Tag: 189901
  - 13
    - Changing IE Settings I'm attempting to write an HTA that to allow users to toggle the IE proxy server between one of two servers we use or toggle it between enabled and disabled. We have IE setup so proxy settings are per machine so, as far as I can tell, that should put me addressing only these two keys... (string) HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer (dword) HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable I can change the keys with a script, but when I go into the browser and drill down through the tools menu the changes don't appear. Anyone know why that is? Thanks, Tom Tag: Exec with Alternate Credentials - How? Tag: 189898
  - 14
    - Convert Win32 error code to text Hi all, How do I convert a win32 error code into either the error macro or the error description in a VBS applet? For example, if I input 32, I want it to output ERROR_SHARING_VIOLATION, or "The process cannot access the file because it is being used by another process." (The former ideally.) I know I could have the winerr.h file handy and parse that, but I'm sure there must be an easier way. Cheers Mark Tag: Exec with Alternate Credentials - How? Tag: 189894
  - 15
    - HTA position Is there a way to have a HTA box startup in a certain X,Y position on the screen? Tag: Exec with Alternate Credentials - How? Tag: 189893
  - 16
    - Script to create environment variable containing serial number I am trying to write a simple script to query the BIOS for the system serial number, then save that to an environment variable (unless blank). My knowledge of scripting is very limited so my my progress has been pretty slow. Does anyone have some tips or sample scripts that may get me on the right path? Thanks! Tag: Exec with Alternate Credentials - How? Tag: 189888
  - 17
    - Detect valid URL from within a webpage I have a website that uses iframes, within one of these iframes, I have a HTML form that asks for a user input. The frame is then updated with a page based on the users input. example User is asked to enter a Customer Number - i.e. 12345 The iframe is then loaded with the webpage - /customer/12345/index.htm If the customer number is invalid, I get a 404 error returned, as it cannot find the page. I am unable to have custom error pages, so would like a way of checking if the link exists first and then loading either the correct page or a failure page into the iframe. Any help greatly appreciaed. I am currently using the following code <script language="vbscript"> sub chkpass dim sPwd sPwd = document.mainform.password.value window.location = "customer\\" & sPWD & "\\index.htm" end sub </script> <body> <form name="mainform"> Cutomer ID : <input name="password" type="text" value=""> <INPUT name="button" onClick="chkpass" type="button" value="Go"> </form> </body> Tag: Exec with Alternate Credentials - How? Tag: 189887
  - 18
    - help with if logic problem I wrote a script that gets the MAC addresses of a vendor device. The problem I encounter is the process can return 2 or three MAC addresses. I know that two of them are always bogus. For example, When I run the process it returns 010203040506(bogus) 00157010f99C(valid) -will be different based on device. 000000000000(bogus) The valid MAC seems to show up in first, second or last , so using a Left or mid will not work. I don't know how to go about the logic , when I come across the two bogus MACS to still continue. IF I come across 000000000000 or 010203040506 still continue. OR if it so happens a valid MAC is first, store that MAC and exit process. Tag: Exec with Alternate Credentials - How? Tag: 189884
  - 19
    - Change Value Data in Script I need help with a script for about 3000+ PCs, the value I am trying to change is in regedit. But will be different for each workstation it touches. The value I am trying to change is that of network printers which is going to be different for it PC. The string Im editing is "PNAME" = "\\server\printer,0" To "PNAME" ="\\server\printer,1" So basically all I need to do is switch the 0 to a 1 on the printer options. I have scripts to change the whole thing but none to change if the printer is going to be different everytime. Any Suggestions would be helpful? Tag: Exec with Alternate Credentials - How? Tag: 189875
  - 20
    - Script to ping specific hostnames I am looking for a script (or utility) that will import a text or CSV file of multiple hostnames, ping them, and then output the results to a text or CSV file. Anyone have anything like this? Thanks very much in advance, Phil Tag: Exec with Alternate Credentials - How? Tag: 189872
  - 21
    - Targeting VBScript to rename PCs I am working on a project to clean up our AD environment. I am working on three initiatives: Remove aged accounts, Move Computers to the correct OU based on subnet, and rename all computers with predefined designation and last 7 characters of the serial. I am not a very good scripter but I have managed to pull off the first two. I have the script for the last one working but not in the automated fashion I need. I can run it against an inputbox for the target but I really need to run it against a text list of computers. So basically I need helpwith an array that pulls from a list of targets . I have found some info but am having trouble getting it to work.. Below is the current functional script minus any arrayâ?¦ My eventual plan is to have a text box at start of the script that asks if it should prompt for single target or run against pre set text fileâ?¦ any help would be appreciated.. Thank you 'On Error Resume Next '*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*# 'Rename PC and domain machine account '4/5/2006 Added WMI variable creation for new name 'Added reboot '*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*#*# '##################################################### 'Variables '##################################################### Dim sNewCname Dim sOldCname Dim StrUsername Dim StrPassword Dim StrFullSer, StrTrimmedName sOldCname = InputBox("Enter computers current name") StrUsername=InputBox("Enter Domain Username:") StrPassword=Inputbox("Enter Domain User Password:") '******************************************************** 'Create Function '******************************************************** Function Rencomp() '##################################################### ' WMI pull serial and append to pre set name ' WMI pull serial and create new name added 4/4/06 ' Trim serial to right 7 and append preset '##################################################### msgbox ("sOldCname: " & sOldCname) Set objWMIService = GetObject("winmgmts:\\" & sOldCname & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Systemenclosure") For Each objItem in colItems StrFullSer= objItem.SerialNumber next 'msgbox ("StrFullSer: " & StrFullSer) StrTrimmedSer = trim (StrFullSer) 'msgbox ("StrTrimmedSer: " & StrTrimmedSer) sTrimmedName = Right(StrTrimmedSer, 7) 'msgbox ("sTrimmedName 7 : " & sTrimmedName) sNewCname = ("NUSEGLLU" & sTrimmedName) 'msgbox ("sNewCname Complete: " & sNewCname) '##################################################### 'create Shell '##################################################### 'open the file system object Set oFSO = CreateObject("Scripting.FileSystemObject") set WSHShell = wscript.createObject("wscript.shell") '##################################################### 'Rename PC ' yesno to commented out after addition of array '##################################################### yesno = MsgBox _ (sOldCname & " will be renamed to: " & sNewCname, _ vbYesNo, "Script continue") if yesno = 6 then Call WSHShell.Run("cmd.exe /k NETDOM RENAMECOMPUTER " & sOldCname & " /newname:" & sNewCname & " /userd:" & StrUsername & " /passwordD:" & strPassword & " /force ") '##################################################### ' Reboot PC '##################################################### WScript.Echo "Rebooting..." set objWSHShell = WScript.CreateObject("WScript.Shell") objWSHShell.LogEvent 0, "Computer renamed from: " & sOldCname & " To: " & sNewCname objWSHShell.Run "shutdown.exe -r -m \\" & sOldCname else Msgbox "Rename Aborted!" end if '******************************************************** end Function rencomp -- System Admin Tag: Exec with Alternate Credentials - How? Tag: 189865
  - 22
    - How to identify W2k versions? Hi I need to identify if the operating system is Windows 2000 Server or Professional. I was hoping to use the OS version number but they are the same for both systems. Is there another way to do this without using the OS name to check if it contains "Server" or "Professional"? Regards Wayne Tag: Exec with Alternate Credentials - How? Tag: 189861
  - 23
    - Locate a substring in a string HI Does VB5 have a function like Pascal's "POS" or "CHARINDEX" in SQL? I need to find the index of a specific substring in a string. cheers Henry Tag: Exec with Alternate Credentials - How? Tag: 189856
  - 24
    - Dynamic variables? What I like to use in VBS is what I used in Foxpro/Clipper a long time ago : (see http://www.ghservices.com/gregh/clipper/trix0003.htm) X := 10 Y := 'X' ? &Y. Displays 10 Here is another example: 01 X := 10 02 Y := 'X + 1' 03 ? &Y. // Displays 11. Here is the first step, substitution: 03 ? &'X + 1'. The macro operator and period cancel the quotes: 03 ? --X + 1-- Which leaves this code: 03 ? X + 1 Is this in any way possible with VBS ? Best regards, Gert Tag: Exec with Alternate Credentials - How? Tag: 189854
  - 25
    - Differneces between GetObject and ConnectServer ? I have a script that has been running well using GetObject srings (#1 below) to access registry info on remote servers. I have recently changed this to a ConnectServer string (#2 below) to access servers running in non-trusting domains and workgroups so I can pass credentials. All other WMI requests are working but the GetString function fails (#3 below). Is the ConnectServer function only good for standard WMI collections and not accessing registry info or am I missing something? Hopefully a second pair of eyes can see my mistake. Thanks in advance for any input. (#1) Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\default:StdRegProv") (#2) Set objReg = SWBemlocator.ConnectServer(strComputer, _ "\root\default:StdRegProv",strUserName,strPassword) (#3) objReg.GetStringValue HKEY_LOCAL_MACHINE,strSAVKeyPath,_ strSAVValueName,strAV Dale Tag: Exec with Alternate Credentials - How? Tag: 189848

Hi ALL,

I need to start a proces on a remote computer like in the sample below
(starts "Calc.exe"). However, I am clueless on how to provide alternate
credentials for that. How can I pass the proper user/password?

Thanks in advance!

strComputer = "."
strExe = "Calc.exe"
' Connect to WMI
set objWMIService = getobject("winmgmts://"& strComputer & "/root/cimv2")

' Obtain the Win32_Process class of object.
Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_( _
"Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

Top

Re: Exec with Alternate Credentials - How? by W

W
Tue Apr 11 18:36:05 CDT 2006

Save yourself some time and effort.... Go to
http://www.sysinternals.com/FileAndDiskUtilities.html and download PSTOOLS.
Among the PSTOOLS you will find PSEXEC.EXE. Run PSEXEC from a command
prompt and all the parameters are explained. Freeware. Execellent set of
tools that I use all the time, especially PSLIST and PSKILL.

--

----------------------------------------------------
This mailbox protected from junk email by MailFrontier Desktop
from MailFrontier, Inc. http://info.mailfrontier.com

"Geraldo Rosado" <GeraldoRosado@discussions.microsoft.com> wrote in message
news:E2CFB2AA-803A-4704-991A-0E4A4F4E6170@microsoft.com...
> Hi ALL,
>
> I need to start a proces on a remote computer like in the sample below
> (starts "Calc.exe"). However, I am clueless on how to provide alternate
> credentials for that. How can I pass the proper user/password?
>
> Thanks in advance!
>
> strComputer = "."
> strExe = "Calc.exe"
> ' Connect to WMI
> set objWMIService = getobject("winmgmts://"& strComputer & "/root/cimv2")
>
> ' Obtain the Win32_Process class of object.
> Set objProcess = objWMIService.Get("Win32_Process")
> Set objProgram = objProcess.Methods_( _
> "Create").InParameters.SpawnInstance_
> objProgram.CommandLine = strExe

Top