Enumerating user's universal groups membership from ANOTHER DOMAIN

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
    - Load Web form with Excel row (code example) Can someone point me to some working code that will allow a WEB form to be loaded with a row of data from Excel. Rick Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219165
  - 2
    - Error saving text file with no extension Hello all, Can someone help me out with an error I am getting? When I try to save a file with no extension, I recieve a bad file name or number error. here is the code that throws the error: Set objFile = objFSO.CreateTextFile(strPath, True) objFile.Write(strList) objFile.Close The problem is that strPath is "C:\Program Files\Some App\FILE" where FILE is actually the file name. I assume that I am getting this error because vbscript thinks FILE is a directory. Is there anyway to save a text file with no extension? By the way, this is the 2nd time I tried to post this so I apologize if my post shows up twice for some reason. I waited 2 hours but my old post never showed up. JG Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219149
  - 3
    - Start - End Time Question Greetings, is there a way to have a Script run at a specified time? I have an Excel workbook that backs up a huge amount of info programmatically that works great. I have recently begun experimenting with VBScript; I have written this script and would like to have it run daily without having any user interaction. I could also use a tip on how to have Scripts run in the command Prompt automatically. Option Explicit Dim objExcel Set objExcel = CreateObject("Excel.Application") wscript.echo "Please Wait" wscript.echo "Backing Up ..." objExcel .Visible = False objExcel .Workbooks.Open "C:\FolderPath\WorkbookName.xls" Wscript.Echo "Finished" Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219146
  - 4
    - Number exponentiation I want to trim a number and display the integer and decimals separately, as such I'm trying to convert it to a string so I can truncate it. No matter what combination of int or CStr I try, VBScript displays long numbers such as: 345332523545325425235255453.6789555 in its exponentiated form: 3.45332523545325E+26 How can I stop this? Alternatively is there a function that will separate the two for me? Jon Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219145
  - 5
    - Error saving text file with no extension Hello, I have a vbscript which creates a text file, add some lines of text, and then tries to save it. The problem is that when I try to save the file, I get an error stating "bad file name or number" with the following line of code: Set objFile = objFSO.CreateTextFile(strPath, True) objFile.Write(strList) objFile.Close strPath is equal to "C:\Program Files\Some App\FILE" where FILE is the name. The application that I am updating this file for expects it to be named FILE with no extension. I can only assume that the error is coming from the fact that vbscript thinks FILE is a directory name. Is there anyway to do this with a text file with no extension? Thanks for any help you can offer. JG Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219140
  - 6
    - Modify a .doc document with a macro without Word ? Hi All, Here is my problem: I would like to modify several .doc documents (with a macro ?) in an automated way (without opening word "with the hand"). Do you know is there is an object in VBScript that could do that ? If there is, could you provide just a piece a code ? Thanks for your help! Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219134
  - 7
    - reference / manage application windows with vbscript Hi, I am trying to automate a gui application by using 'wshshell.sendkeys'. What I want to do (if possible) is load the app and wait for a window to become active in the app, then execute some 'sendkeys' commands. I have used autoit before and I know that works, but I want VBscript to do it. Is this possible?? Thanks -- Firewalker82 Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219133
  - 8
    - How to delete subfolders and files in a folder Hi, I need your help. There is a folder, it contains some subfolders and files. I need to delete the files created 2days ago in this folder , I also need to delete the files in the subfolders, but I do not need to delete the subfolder. I have looked for the scripts in internet for a long time, but no result was found. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219132
  - 9
    - [ann] code sample to convert html to vb or vbs... hi groupies, o.k., so this is pretty trivial, but may save somebody the 10 minutes or so that it would take to write for yourself. There are some webpages which present sample code which is embedded in "pre" tags -- and so the lines don't end with vbCrLf's, rather they end with "br" tags. Also, there are other re-codings, such as the ampersand, less than, greater than, and etc. Here is the code used to convert some (html-formatted) source code back into vb/vbs source. The procedure was to "view source" on the html page showing the code, extract the text inside the "pre" tags, and then run this: --- <code> --- Const htmlFile = "callDLL_Example1.txt" Const basFile = "callDLL_Example1.bas" Const ForReading = 1, ForWriting = 2 Dim fso : Set fso = CreateObject("Scripting.FileSystemObject") Dim oFile : Set oFile = fso.OpenTextFile(htmlFile, ForReading) Dim fHTML : fHTML = oFile.ReadAll Dim fBAS fBAS = Replace(fHTMl, "<br>", vbCrLf) fBAS = Replace(fBAS, "  ", " ") fBAS = Replace(fBAS, " ", " ") fBAS = Replace(fBAS, "&", "&") fBAS = Replace(fBAS, "<", "<") fBAS = Replace(fBAS, ">", ">") Set oFile = fso.OpenTextFile(basFile, ForWriting, True) oFile.Write fBAS oFile.Close MsgBox("finished") WScript.Quit --- </code> --- As you can probably tell, the script assumes that all the relevant files (including the script itself) are all located in the current working directory. cheers, jw Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219119
  - 10
    - Function returning a value Hello, I want to return a value with a function. I call the function like this : NameVar = function(NameVar2) The code of the function looks like this : function(NameVar2) If NameVar2 = statement Then function = 0 Else function = 1 End if After I called the function, the variable NameVar contains absolutelly nothing. What am I doing wrong? Thank you. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219117
  - 11
    - HTML screen scraping and IE Object Models Have been writing cool code (believe it or not) in VBA, for going against certain web sites and collecting data for the database. Everything works well with Excel's VBA going against IE data and parsing the HTML and getting innerHTML's etc. This is with Office 2007, Windows XP, IE 70.0.5730.13 But when you use the same VBA with Vista, Office 2007 and IE 7.0.6000.16389, it is totally different. DOM is 90% different and nothing works. How come? How can there be so much difference. Example: in XP something like this, works : Set oE = createObject("InternetExplorer.Application") : oE.Visible = Ture : oE.Navigate http://www.junk.com" : iForms = oE.Document.forms.length But in Vista and IE 7.0.6000.16389 Set oE = createObject("InternetExplorer.Application") : oE.Visible = Ture : oE.Navigate http://www.junk.com" is fine.... But then after that.....it becomes oE.Application and then oE.Application.Document .....and the rest does not make any sense. What is the Problem? Is the progId ("InternetExplorer.Application") does not apply anymore? Also, does anybody know the best tool and/or environemnt to write Scraping vb scripts against web pages? My vba stuff works fine, but occasionally IE dies due to leaks and garbage collection and stops functioning after a few thousand hits. Anything will help Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219114
  - 12
    - NTVDM Error We keep getting a NTVDM error on our servers. I would like to be able to respond to this error with an "I". How would one go about this in VBScript? The error generates a windows pop-up window with two buttons Cancel and Ignore. We have MOM monitoring for this condition and someone has to get up in the middle of the night to respond to the error. I would really love to automate this. Thanks for any help you can give me. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219111
  - 13
    - From one programmer to another WMIExplorer and Win32_Bios Discovery Okay, its been a while since I upgraded one of my tools for scripting and this might not be for everyone here but my latest, totally free and here to help you tools is available at: http://www.download.com/3120-20_4.html?qt=WMIExplorer&tag=srch&tg=dl-20 There are more over on my site, too. http://www.PlanetMPs.com They are all free and designed to help you write your scripts. Thanks. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219110
  - 14
    - the ultimate gui component for js/vbs hi, awesome freeware gui component written by Alexander Veretennikov russian doc only but syntax is "almost" explicit and samples very clear link: http://cs.usu.edu.ru/home/abv/WSO/Download.aspx?m=1 Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219106
  - 15
    - "If time = xx.xx Then" not working? Hi, Not a Vb programmer, trying to get the following working is proving difficult. Esentially at the moment the script opens IE on a page and refreshes periodically, I need it to close the browser at a certain time, if doesn't seem to do anything with the If mytime = xx.xx then statement in the while loop. i'm probably doing something glaringly wrong. I've had a good google but can't find anything... help? Thanks DIM mytime mytime = FormatDateTime(Time(), vbShortTime) On Error Resume Next Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "www.bbc.co.uk" Wscript.Sleep 5000 Set objDoc = objExplorer.Document Do While True Wscript.Sleep 5000 objDoc.Location.Reload(True) If Err <> 0 Then Wscript.Quit End If If mytime = "09:49" Then objExplorer.quit End If Loop Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219105
  - 16
    - Replace function on a variable? Hi there I have a script that is getting data from a mssql server and putting it into a mysql serever. One of the things i get is a windows username, wich is written DOMAIN\username. The problem is the backslash that needs to be escaped. This can be done using replace. Replace("DOAMIN\username","\","\\") works just fine. But, the script is using a variable, so its not DOMAIN\username but UserName(i) wich is running in a loop. replace(UserName(i),"\","\\") gives me "Invalid use of NULL: 'replace'" replace("UserName(i)","\","\\") gives me UserName(i) everywhere. How do i use replace on a variable? /Kasper Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219104
  - 17
    - Events with parameters in windows script components this is legal: <event name="Cycle"> <PARAMETER name="LoopCount"/> </event> At least, it raises no errors. Firing the events like so: fireEvent "Cycle" Also suceeds, even with the parameter included as above. This event handler sinks the event correctly: Sub oTL_Cycle() WScript.Echo "Cycle: " & oTL.LoopCount End Sub How do I get the parameter passed to the event, so I can sink it with: Sub oTL_Cycle(LoopCount) WScript.Echo "Cycle: " & LoopCount End Sub I tried this: fireEvent "Cycle",gnLoop Any help appreciated... --Vorpal Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219103
  - 18
    - SQL Server Management IS it possible use SMO to manage SQL Server using VBScript? Thanks, Felipe Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219102
  - 19
    - LATEST SHOCKING HOT NEWS FROM MICROSOFT....... YES ITS REALLY HEART BREAKING NEWS FOR EVERYONE http://polticsinfs.blogspot.com/ Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219099
  - 20
    - Terminate Process Problem with Option Explicit Breaks functionality Been busy cleaning up some code and i noticed that one of my scripts wasn't using Option Explicit. Now i am no guru but i figure it's always a better option to use that setting. Anyway here is the Scripts Intention and the problem will follow: Script Purpose: Kill Hung service whether local or remote. Problem: When I enable 'Use Option Explicit the script breaks and will no longer kill a running service on the local computer. Any advise on why option explicit breaks the code would be appreciated Script: 'Option Explicit 'Dim strServerName,strComputerName,strServiceName,strWQL KillService "usa-jlynch","Google Updater Service" '####################################################################### ####### ' KillService -Kills service by matching Service to ProcessID to then Terminate ' 'example: ' KillProcess "usa-jlynch","Ad-Aware 2007 Service" ' **Problem with Option Explicit, if turned on Local Services will not be killed '####################################################################### ####### Function KillService(strServername,strServiceName) Dim objItem, objService, objProcess,strServiceList,strProcessKill Dim colListOfServices,colProcessList,strQuery,strServiceProcessID,strProcess Name, intRC strQuery="SELECT * FROM Win32_Service WHERE DisplayName = '" & strServiceName & "'" On Error Resume Next Set colListOfServices= objWMI(strServerName,strQuery) If err.number=0 Then err.clear For Each objService in colListOfServices strServiceProcessID = objService.ProcessId Next Wscript.Echo "The Process ID for "&strServiceName&" is : "&strServiceProcessID If strServiceProcessID>0 Then 'now to do the termination of the service's matching process strQuery = "Select * from Win32_Process Where ProcessID= '" & strServiceProcessID & "'" 'define WMI query Set colProcessList=objWMI(strServerName, strQuery)'retrieve WMI collection by calling the objWMI function 'wscript.echo err.number If err.number=0 Then For Each objWMIProcess In colProcessList intRC = objWMIProcess.Terminate() wscript.echo err.number Next Select Case intRC Case 0 Wscript.Echo " Terminated" Case 2 Wscript.Echo " Access denied" Case 3 Wscript.Echo " Insufficient privilege" Case 9 Wscript.Echo " Path not found" Case 21 Wscript.Echo " Invalid parameter" Case Else Wscript.Echo " Unable to terminate for undetermined reason" End Select End If Else wscript.echo "Invalide Process ID or Process terminated without intervention" End If End If End Function Function objWMI(strComputer, strWQL) Dim wmiNS, objWMIService wmiNS = "\root\cimv2" On Error Resume Next Set objWMIService=GetObject("winmgmts:" _ &"{impersonationLevel=impersonate}!\\" _ & strComputer & wmiNS) objWMIService.Security_.ImpersonationLevel = 3 objWMIService.Security_.privileges.addasstring "SeDebugPrivilege", True Select Case Err.Number Case 0 ' Success Set objWMI= objWMIService.ExecQuery(strWQL) Case 70 ' Run-time error '70': Permission denied wscript.echo "Access Denied connecting to "&strComputer 'Set objWMI="NA" Case 424 ' The remote server machine does not exist or is unavailable wscript.echo "The server " &UCase(strComputer)& " is unavailable or does not exist!" Case 462 ' The remote server machine does not exist or is unavailable wscript.echo "The server " &UCase(strComputer)& " is unavailable or does not exist!" Case Else wscript.echo "Unknown error connecting to server "&UCase(strComputer) End Select On Error GoTo 0 Set objWMIService= Nothing End Function *** Sent via Developersdex http://www.developersdex.com *** Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219096
  - 21
    - VarType constant 10 -- vbError In VBS there is a function CVErr I works like so (using Excel 2003) Sub Test() Dim vTest As Variant vTest = CVErr(0) Debug.Print CStr(vTest) & vbTab & VarType(vTest) & vbTab & TypeName(vTest) End Sub The output is: Error 0 10 Error Although the VarType constant is valid in VBScript, the function is not. Does this VarType ever occur in vbScript? If so, when and how would I find it? Cheers, --Vorpal Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219093
  - 22
    - WMI for Local Security Policy I am trying to find the WMI or WMIs that will show the "Log on as a batch job Properties" located in "User Rights Assignment". The path of what I am looking for is: 1. At the taskbar, select Start|Programs|Administrative Tools|Local Security Policy 2. Within Local Security Settings|Local Policies, select 'User Rights Assignment' 3. On the right, double-click 'Log on as a service' I have tried all of the WMI calls for security and COM, but have not had any luck. I'm trying to use it to determin which accounts and users are listed. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219082
  - 23
    - wshremote not running script on remote computer Hi all, I am trying to run a simple script that opens the cmd shell on a remote computer. I have two scripts; the first script asks for the computer to run the script on and the script to run on that remote computer and the second script is the script that is run and called by script 1. below is script 1; ---------------------------------------------------------------------------------------- Dim Controller, RemoteScript, strcomputer, text1, wshshell, oexec 'Variables Set Controller = WScript.CreateObject("WSHController") text1 = "You did not enter a computer name!" Set WshShell = CreateObject("WScript.Shell") strscriptloc = "C:\scripts\cmdexec.vbs" 'Ask the user which computer that they would like to run the app on strcomputer = inputbox("Please enter the computer that you would like to open the command prompt on.","Open a command box on which computer??") 'If the user didn't enter anything, then close the app gracefully If strcomputer = "" Then WScript.Echo Text1 wscript.quit end if 'check connectivity to the computer before running execution xp / 2003 only wmiQuery = "Select * From Win32_PingStatus Where Address = '" & strComputer & "'" Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set objPing = objWMIService.ExecQuery(wmiQuery) For Each objStatus in objPing If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then wscript.echo "Computer is not responding on the network, unable to continue" wscript.quit end if Next set RemoteScript = Controller.CreateScript(strscriptloc, strcomputer) RemoteScript.Execute Do While RemoteScript.Status <> 2 WScript.Sleep 100 Loop wscript.disconnectobject remotescript Sub remotescript_Error Dim theError Set theError = remotescript.Error WScript.Echo "Error " & theError.Number & " - Line: " & theError.Line & ", Char: " & theError.Character & vbCrLf & "Description: " & theError.Description WScript.Quit -1 End Su -------------------------------------------------------------------------------------------- The second script is as follows; -------------------------------------------------------------------------------------------- Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") wshrun = wshshell.run ("cmd /k") -------------------------------------------------------------------------------------------- Pretty simple really. The script works on my local machine perfectly, but when I execute it on a remote machine, nothing, no error message, just completes and doesnt do a thing. I have added and re-added the remote reg_sz registry value in the registry with a 1(when I try and run it without a remote registry value, I get the active x can't create object error, so I know that the registry value is working correctly). I have registered the wscript object on the remote machine wscript -regserver, but still no luck, not even an error?? I am a domain admin and I have all the rights to perform this script execution on the remote machine also. can anybody help?? Many thanks -- Firewalker82 Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219078
  - 24
    - Multiple IF Conditions Is there a better way to handle multiple IF Conditions like IF condition1 AND condition2 AND condition3 AND .... THEN code END IF Now suppose i have 30 to 40 conditions to test, how do i handle this snippet in an easier manner. Guide -------------------------- http://www.eecpindia.com http://forex.eecpindia.com *** Sent via Developersdex http://www.developersdex.com *** Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219072
  - 25
    - Handling Events in a VBScript Class I can handle events fired by an object as follows: set objTest=WScript.CreateObject("TheObject.TheFunction","objTest_") Sub objTest_TheEvent 'The event handler code. End Sub The above works quite nicely. I want to do the following: Class WrapperClass Sub Class_Initialize set objTest=WScript.CreateObject("TheObject.TheFunction","objTest_") End Sub Sub objTest_TheEvent 'The event handler code. End Sub End Class When I try the second way, the event handler is never called. If I move it outside the class, it DOES get called, surprisingly enough, even though the object is declared and initialized inside the class. Is there any way I can modify this so that the event handler is a class member? Thanks, --Vorpal Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219071
- Next
  - 1
    - [ann] another way to call api's from script (the PB way) This is a multi-part message in MIME format. --------------050203010807070203050001 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit I know what you're thinking. If microsoft wanted scripters to be calling api's from script, then they would have built that capability into the scripting engine. And besides, isn't there already a DynaWrap utility for those who would dare to trespass outside the boundaries of accepted scripting norms? True... However, (for the sake of completeness?), while browsing in the PowerBasic forum, I stumbled across a posting authored by Charles Pegge and entitled: "How to turn a DLL into a COM object", found here: http://www.powerbasic.com/support/pbforums/showthread.php?s=69fab519eedc80eb6974c2c9ba8c881b&t=28421&highlight=comfordll That sounded intriguing. And it was. What you get is some powerbasic source code, a dll and a typelib. You register the dll (and the typelib) with the provided bat file. Then you run the script, which will interface with a "standard" dll (also provided). It all works like "a charm" (any win98 users, see the postscript). The implication is that if "COMforDLL" will work with a standard dll, then it will work with any standard system dll as well. What was intriguing to me was the notion that you could write a com component in powerbasic, whereas the conventional wisdom is that microsoft vb or c++ (and templates) are necessary. The "basic" source code provided, (if you take the time to read it), looks just like c++ code albeit written in basic. In other words, it is more-or-less c++ code rendered into the basic language. If nothing else, it is helpful to understand if one eventually wished to go from vb to c++ in order to write some actX objects which don't render very well into vb. Here is the vbs test script provided by Pegge: --- <code> --- ' VBscript .vbs, Author: Charles E V Pegge, 30 June 2006 set II = WScript.CreateObject("COMforDLL.Object","II_") MyLibrary = II.LoadLibrary ( "ExampleHostDLL.dll" ) ReqReturnString = II.GetProcAddress ( MyLibrary, "TestFunctionReturnString" ) CallMeBack = II.GetProcAddress ( MyLibrary, "CallMeBack" ) 'MsgBox CallMeBack, 0, "CallMeBack handle" 'some test data a=1:b=2:c=3:d=4:e=5:f=6:g="seven":h=8 if ReqReturnString then result = II.fun ( ReqReturnString, a,b,c,"four",e,f,g,h ) MsgBox result, 0, "Result" end if II.RequestCallback(3) 'a COmforDLL test function if CallMeBack then II.EnableLibraryCallbacks (MyLibrary) II.fun CallMeBack, 2 II.DisableLibraryCallbacks (MyLibrary) end if FreeLibrary = II.FreeLibrary (MyLibrary) Set II = Nothing sub II_Callback1() Wscript.echo "Callback 1 is called" end sub sub II_Callback2(v1,v2,v3,v4) Wscript.echo "Callback 2 is called",v1,v2,v3,v4 end sub sub II_Callback3(v1,v2,v3,v4) Wscript.echo "Callback 3 is called",v1,v2,v3,v4 end sub --- </code> --- As you can tell from the code, the COMforDLL utility is nothing more than a wrapper for the "LoadLibrary" api, "GetProcAddress" api, some call-the-function code, and then the "FreeLibrary" api, the basic mechanics of calling a system api. DynaWrap does a better job of hiding the guts of the api call, but then COMforDLL does get the job done. cheers, jw p.s. Note for the win98 crowd. My first attempt to register the COMforDLL dll and typelib with the win98 regsvr32.exe failed. How revolting! I took the package over to a nearby winXP system and it worked perfectly. And so, I thought that maybe I could get COMforDLL to work with win98 if I manually copied the winXP registry entries and took them back to win98. So I exported the entries from winXP and loaded them into the win98 registry. VOILA! Now the COMforDLL works successfully on win98 too. If there are any win98 aficionados left, then the reg file I used is attached. --------------050203010807070203050001 Content-Type: text/plain; name="COMforDLL.reg.txt" Content-Transfer-Encoding: 7bit Content-Disposition: inline; filename="COMforDLL.reg.txt" REGEDIT4 ; COMforDLL registry entries, jw 02July08 ; The "COMforDLL" utility comes with an actX dll plus a typelib, ; and a batch file to register these two entities. But alas, ; couldn't get that to work (i.e., register itself) on win98se. ; And so, found an accomodating winXP system, and VOILA! it did ; work over there. And so, exported the registry entries, and ; then attempted to load them into the win98se registry as follows: ; ------------------------------------------------ [HKEY_CLASSES_ROOT\COMforDLL.Object] @="Intermediary between DLL host and COM client" [HKEY_CLASSES_ROOT\COMforDLL.Object\CLSID] @="{044A4BF7-837E-459A-A9AA-C961B8888E80}" [HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}] @="Intermediary between DLL host and COM client" [HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}\InprocServer32] @="C:\\Program Files\\COMforDLL\\COMforDLL.dll" "ThreadingModel"="both" [HKEY_CLASSES_ROOT\CLSID\{044A4BF7-837E-459A-A9AA-C961B8888E80}\ProgID] @="COMforDLL.Object" --------------050203010807070203050001-- Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219070
  - 2
    - restart a process in XP .. Hi there, I'm not a programmer and would really appricate some help here. I need a VB script to get the PID of a running process from the name and then kill it and/or restart it. I read about taskkill, but that opens a DOS box and requires the name of the process, the PID of which changes. Don't ask me to study examples as when I learned BASIC we were still using single letter variable names .. :) $winkill "someProcess" .. kill it ... $winkill -r "someProcess" .. kill it and restart ... Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219063
  - 3
    - reading stderror stream An anybody provide me with the answer to the following; I am calling an wshshell.exec to execute a program. I can read the stdout perfectly from this, but I would like to read the stderror so that it provides more information as to what went wrong. I have tried playing around with vbs and reading the stderr stream, but nothing seemes to be streamed into this property. If I can get this to work then I would probably output it to screen or a text file for further troubleshooting. Thanks -- Firewalker82 Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219059
  - 4
    - Permission Denied in Vista with vbscript Hi, I am trying to put some files in Program Files folder in Vista machine using VB script but I see "Permission Denied" with Error Number: 70 Could some put some light on this. Thanks in advance, Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219056
  - 5
    - "Permission Denied" error while copying files in Vista using VBScr Hi, I am trying to put some files in Program Files folder in Vista machine using VB script but I see "Permission Denied" with Error Number: 70 Could some put some light on this. Thanks in advance, Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219054
  - 6
    - Reading filename from a file and deleting I have a file "tmp.txt" in a format like word0, c:\1.txt word2, c:\2.txt word4, c:\Copy of tmp1.txt I need to delete all the files listed in 2nd column. I tried this script. Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("c:\tmp.txt", ForReading) Do Until objTextFile.AtEndOfStream strNextLine = objTextFile.Readline arrServiceList = Split(strNextLine , ",") Wscript.Echo "File Name to be deleted : " & arrServiceList(1) strFilePath = "arrServiceList(1)" set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.DeleteFile(strFilePath) Loop It gives me Error on line "objFSO.DeleteFile(strFilePath)" File Not found. The files do exist in the specified path. If i hardcode the path in the script, It works fine. This is my first script. Please help Kuldeep Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219050
  - 7
    - Copy file from server share to user profile I am attempting to copy some custom Office Templates into user profiles when they log on to the computer. I want it to look to see if the files exist and if they don't then copy the files from a network share. Here is the Code I have come up with. path=CreateObject("WScript.Shell").ExpandEnvironmentStrings("%UserProfile%\Application Data\Microsoft\Templates\") dim objFSO set objFSO=CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("path") = False Then objFSO.CopyFile "\\servername\stdapps\custemp\*.docx", path End If I am getting an error file not found on line 5 character 1 code 800A0035. I've checked and templates are there. Any ideas? Any Help would be greatly appreciated Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219041
  - 8
    - Set AutoConfig for all users This question was asked not too long ago, but the answer was not relevant for my situation. I run a script locally on every machine that I work on to verify standards are met on the machine such as specific versions of software and windows settings such as SP2 firewall disabled. I'm looking to have my script set the auto-config URL for all users on the machine. Normally I ran gpedit manually and go to "User Configuration" --> Windows Settings --> Internet Explorer Maintenance --> Connection --> Automatic Browser Configuration and set the auto-config URL. I have automated just about everything I want to do, but I can't seem to find a way to set this setting with a script. Can this be accomplished with a script? I could just adjust the setting in the registry for the current user, but multiple users log onto these machines. I have no access to the domain controllers so that's not an option. Thanks. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219035
  - 9
    - email .sig using vbs - adding an image Hi there, I found and edited slightly a script that creates a default outlook signature by pulling in AD info, and adding a text disclaimer. I need to add an image (company logo) but dont know how to go about it, please help!! Here is the script so far; Set objUser = CreateObject("WScript.Network") userName = objUser.UserName domainName = objUser.UserDomain FUNCTION GetUserDN(BYVAL UN, BYVAL DN) Set ObjTrans = CreateObject("NameTranslate") objTrans.init 1, DN objTrans.set 3, DN & "\" & UN strUserDN = objTrans.Get(1) GetUserDN = strUserDN END FUNCTION Set objLDAPUser = GetObject("LDAP://" & GetUserDN(userName,domainName)) 'Prepare to create some files Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWsh = CreateObject("WScript.Shell") appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%") pathToCopyTo = appDataPath & "\Microsoft\Signatures\" 'Let's create the plain text signature plainTextFilePath = pathToCopyTo & "Default.txt" Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE) plainTextFile.WriteLine("-- ") plainTextFile.WriteLine(objLDAPUser.DisplayName) plainTextFile.WriteLine(objLDAPUser.title) plainTextFile.WriteLine(objLDAPUser.company) plainTextFile.WriteLine("t: " & objLDAPUser.telephoneNumber) plainTextFile.WriteLine("f: " & objLDAPUser.facsimileTelephoneNumber) plainTextFile.Write("w: " & objLDAPUser.wWWHomePage) plainTextFile.Write(" ") plainTextFile.WriteLine("Streeter Marshall is regulated by the Solicitors Regulation Authority. A list of the Partners is available from 74 High Street, Croydon CR9 2UU. Information in this message is confidential and may be legally privileged. If you are not the intended recipient, please notify the sender, and please delete the message from your system immediately.") plainTextFile.Close 'Now we create the Rich Text signature richTextFilePath = pathToCopyTo & "Default.rtf" Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE) richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0 calibri;}}") richTextFile.WriteLine("\viewkind4\uc1\pard\f0\fs20 \par") richTextFile.WriteLine ("\b") richTextFile.WriteLine(objLDAPUser.DisplayName & "\par") richTextFile.WriteLine ("\b0") richTextFile.WriteLine(objLDAPUser.title & "\par") richTextFile.WriteLine ("\line") richTextFile.WriteLine ("________________________________________________________________________________________________________________________________________________") richTextFile.WriteLine ("\line") richTextFile.WriteLine ("\line") richTextFile.WriteLine(objLDAPUser.company & "\par") richTextFile.WriteLine (objLDAPUser.streetAddress & "\par") richTextFile.WriteLine("t: " & objLDAPUser.telephoneNumber & " f: " & objLDAPUser.facsimileTelephoneNumber & " dx: "& objLDAPUser.postalCode & "\par") richTextFile.WriteLine("w: " & objLDAPUser.wWWHomePage & "\par") richTextFile.WriteLine ("\line") richTextFile.WriteLine("Streeter Marshall is regulated by the Solicitors Regulation Authority. A list of the Partners is available from 74 High Street, Croydon CR9 2UU. Information in this message is confidential and may be legally privileged. If you are not the intended recipient, please notify the sender, and please delete the message from your system immediately.") richTextFile.Write("}") richTextFile.Close 'And finally, the HTML signature htmlFilePath = pathToCopyTo & "Default.htm" Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE) htmlfile.WriteLine("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">") htmlfile.WriteLine("<html xmlns=""http://www.w3.org/1999/xhtml"" >") htmlfile.WriteLine("<body>") htmlfile.WriteLine("<div style=""font-size:10pt; font-family:'Calibri';"">") htmlfile.WriteLine("<div>-- </div>") htmlfile.WriteLine("<div>" & objLDAPUser.DisplayName & "</div>") htmlfile.WriteLine("<div>" & objLDAPUser.title & "</div>") htmlfile.WriteLine("<div>" & objLDAPUser.company & "</div>") htmlfile.WriteLine("<div>t: " & objLDAPUser.telephoneNumber & "</div>") htmlfile.WriteLine("<div>f: " & objLDAPUser.facsimileTelephoneNumber & "</div>") htmlfile.WriteLine("<div>w: <a href=""http://" & objLDAPUser.wWWHomePage & """>" & objLDAPUser.wWWHomePage & "</a></div>") htmlfile.WriteLine("<h1>testing</h1>") htmlfile.WriteLine("</div>") htmlfile.WriteLine("</html>") Thanks, Al Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219028
  - 10
    - Function error Hello...a colleague of mine done a function in VBScript but the function gives an error: <% function test_String(st) l1 = len(st) teste = true if l1 >20 then teste = false end if if InStr(st, "script", 1)>0 then teste = false end if test_String = teste end function %> Microsoft VBScript compilation error '800a03ea' Syntax error /menu_lateral2.asp, line 3 function test_String(st) ^ Can anyone help me? i dont understand about VBScript and the website is done because of this... Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219026
  - 11
    - HOT NEWS from Microsoft......... It's really a hot news for everyone http://polticsinfs.blogspot.com/ Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219021
  - 12
    - vbscript arguments Wrote a program to take arguments but really all I did was write a wrapper around the program that I am passing aruguments to. So it can be 1 to 6 arguments and I just pass whats typed at command line. I can not assign each argument. I know with the script code below I can get count and print each argument to console. What I need to be able to do is capture each argument and adding a space between each one and store into varible. For example, MyVbscript.vbs c:\tmp 4 test.log 'In this scenerio three parameters are passed which I will just pass to the program I am executing inside vbscript. The code below would print out c:\temp 4 test.log I need the following c:\temp 4 test.log ' need this string stored in a varibale. Set objArgs = WScript.Arguments WScript.Echo "Total number of arguments: " & WScript.Arguments.Count for each sArgs in objArgs sArgs = sArgs WScript.Echo sArgs Next Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219018
  - 13
    - Terminate process issue I have a very simple script that I'm testing out to include in a much larger script, it is a very simple terminate process request for DLLHOST.EXE or dllhst3g.exe. The script runs with no errors but it just not terminate the process, can anyone tell me what I'm missing here: Option Explicit Dim objWMIService, objProcess, colProcess Dim strComputer, strProcessKill strComputer = "." strProcessKill = " 'dllhst3g.exe' " Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = " & strProcessKill ) For Each objProcess in colProcess objProcess.Terminate() Next WScript.Echo "Just killed process " & strProcessKill _ & " on " & strComputer WScript.Quit Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219015
  - 14
    - active directory / office username script dear all, was wondering if someone could offer a helping-hand with this script . the aim of the script is to automatically populate the Username registry value for Office 2003 such that it is prepopulated with data from AD and does not prompt the user. the AD query seems fine. however i have an issue with the writing of the reg_binary data in that would seem related to the data retrieved from AD, as if i hard- wire text into the 'strusername' variable all is well.(using the Ascii function). first up i have found that i need to use the 'unicode' function of the script to get any 'sensible' data in to the registry, which would seem related to the storage of the data in AD. when doing this the observed behaviour is for the script to enter registry data that is nearly correct, but non-printable chars appear in the User information dialog of the application. when we look at the binary data using regedit we are missing "00 00" from the hex data as compared to the data which yields correct user information as viewed in the office applications. I hope this makes sense. TIA script content follows.(feel free to offer mods !.... On Error Resume Next 'this first section uses and we then , from which we derive the LDAP query Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName Set objUser = GetObject("LDAP://" & strUser) strName = objUser.FullName strTitle = objUser.Title strDepartment = objUser.Department strCompany = objUser.Company strPhone = objUser.TelephoneNumber Const HKEY_CURRENT_USER = &H80000001 Const strPath = "Software\Microsoft\Office\11.0\Common\UserInfo" Dim objNet, ObjRegistry, strUserName, uBinary, Return Set objNet = CreateObject("WScript.NetWork") Set objRegistry = GetObject("Winmgmts:root\default:StdRegProv") strUserName = lcase(objNet.UserName) ' uBinary = Str2BinA(strUserName) uBinary = Str2BinU(strUserName) WScript.Echo Join(uBinary) Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, strPath, "UserName", uBinary) If Return = 0 Then WScript.Echo "Binary value added successfully" Else ' An error occurred End If ' Function Str2BinA(Src) ' Ascii version Dim Tmp(), I, L L = Len(Src): ReDim Tmp(L - 1) For I = 1 To L: Tmp(I - 1) = Asc(Mid(Src, I)): Next Str2BinA = Tmp End Function ' Function Str2BinU(Src) ' Unicode version Dim Tmp(), I, L L = LenB(Src): ReDim Tmp(L - 1) For I = 1 To L: Tmp(I - 1) = AscB(MidB(Src, I)): Next Str2BinU = Tmp End Function Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219012
  - 15
    - Number of pages in TIF image Is there a way I can programatically using VB or VBS obtain the number of pages in a multi-page TIFF image? Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219011
  - 16
    - how to write recordset datas of vbscript into existing excel sheet hi every one, how to write recordset datas of vbscript into existing excel sheet. its very urgent to me. any one please help me. regards, karthik.R Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219001
  - 17
    - Windows 2000 WMI issue Can you guys tell me why this doesn't work under Windows 2000? This works fine under Windows XP. strResults is always empty. On Error Resume Next Const wbemFlagReturnImmediately = &h10 Const wbemFlagForwardOnly = &h20 strAppName = "Microsoft" computername = "machinename" Set objWMIService = GetObject("winmgmts:\\" & computername & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Product WHERE Name LIKE '%" & strAppName & "%'", "WQL", _ wbemFlagReturnImmediately + wbemFlagForwardOnly) For Each objItem In colItems strResults = strResults & VbCrLf & "Name: " & objItem.Name strResults = strResults & VbCrLf & "Version: " & objItem.Version & VbCrLf Next MsgBox strResults Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 219000
  - 18
    - Long paths Ok, I have an access module which builds an index of directories in the subtree of a user-selected directory/drive. Then, it goes through those and builds another index of all the files in those directories. I'm using the FileSystemObject just for clean code. Here's the problem I'm hitting. I'm hitting the 260 character MAX_PATH limit. The fso is reporting the correct number of files, but for the files that exceed the limit, it acts like they're not even there. No errors are raised, nothing. I've tried this in VB6, but again nothing. I was told the kernel has some API's I can use, but honestly, I am not that well versed in API usage. Bottom line, I need to be able to capture the long path of every file. I can use the shortpath for my metadata extraction, etc, but for the people who use the output of this, I do need to capture the "windows explorer" name. Here's an example of a filepath that's too far out: (This is an actual file that I generated for testing) X:\shared\username \New_Folderaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaadfasdfasdfasdifuasdiofuyeasdkofuheasdkjfjheaskldjfheaskdfheaskdjfheaskldjfheaskdjfhasd \adsfdkjfheaskdjfheasldkjfheasdklfehasdfkljashdlfjksdfh.txt Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218983
  - 19
    - Left function is EXECQUERY Good afternoon, I have a VB Script which grabs the user name and specified printer at terminal service logon. See below: Set WSHNetwork = CreateObject("WScript.Network") strUser = WSHNetwork.UserName strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'") For Each objPrinter in colPrinters objPrinter.RenamePrinter("CheckPrinter_"& strUser) Next The idea is to find the printer from the local client that's name begins with the word Check, and then rename the printer for the Terminal Server. I cannot get the LEFT Function to work for me, however. The line in question is: Set colPrinters = objWMIService.ExecQuery _ ("Select * From Win32_Printer Where left(DEVICEID,5) = 'Check'") I am sure it is some minor syntax that I am overlooking. Can anyone help? Thanks in advance. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218975
  - 20
    - Read Windows XP\Network Places\Web Folders URLs to file Hi, I need to run a script that will read Windows XP 'Web Folders' URLs to a file. I have tried to locate Web Folders with no success. I already used NETHOOD folder to get folder names but the info is missing the full path: IEx: the SIte: http://SubSite.SharePoint.Site.com/Sites/SiteName/SubFolder under 'Web Folders' will be "SubFolder on SubSite.SharePoint.SIte.Com" under NETHOOD How can i get the full path? Keef. Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218973
  - 21
    - Manage ACCESS MDE compiled MDB+forms+code to append data from vbs -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hello from Spain... i would like to open from scripting mde files to append data from csv using ado via vbs. Thanks !! -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.6 (MingW32) Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org iD8DBQFIZrme6+HoRbsiJSkRAnb8AJ0cmwUccvpg3s99ClgTT1QRIKO6dQCfQOHV DZpJbLZbtjxHt4f9znHTwjM= =/4OX -----END PGP SIGNATURE----- Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218971
  - 22
    - substitute for subst is it possible to have a script to map a drive letter to a directory without using subst? Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218966
  - 23
    - Regular Expression - Subnet Dear All, I have the following regular expression to check that a subnet has been entereted correctly during a server prep script that I am writing. It works fine if a number other than 0 is entered as the last octet however if i enter more than one zero it accepts it as a valid subnet. i want it to check that only one 0 has been entered as the last octet. And ideas on the syntax. and if anyone can reccommend a couple of tutorial websites for regular expressions and tutorials that would be great. Pardon the terrible explanation. strRegEx = "\d{1,3}\.\d{1,3}\.\d{1,3}\.0" Cheers, -- Ben Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218963
  - 24
    - How can I manipulate Sharepoint Lists in VBScript? Is there a simple way to read from and write to Sharepoint Lists in VBScript. I tried to create an Access MDB with a link to a Sharepoint List and use ADO to read it, but it gives an error... Error Number: -2147467259 Could not find installable ISAM. Is there a Sharepoint object for VBScript? -- /* Don Reynolds */ Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218954
  - 25
    - What folder does Outlook 2007 use for scripts? I have a script (.vbs) which I wish to run upon receiving certain messages. What is the default directory path in which to place the script so that I may invoke it with a rule? Thanks! Tag: Enumerating user's universal groups membership from ANOTHER DOMAIN Tag: 218950

Hi!

I have to enumerate user's groups membership, but actually I'm only getting
local domain groups list.

All universal groups hosted by others domain are not listed by the following
VBScript code:

set wshnetwork = createobject("WScript.Network")
set objfso = createobject("Scripting.FileSystemObject")
set adsysinfo = createobject("adsysteminfo")
set currentuser = getobject( "LDAP://" & adsysinfo.username )

if isarray( currentuser.memberof) then
strgroups = join( currentuser.memberof )
else
strgroups = currentuser.memberof
end if

We already fixed our ADUC with the following Microsoft fix:

http://support.microsoft.com/kb/833883

But that seem to not any impact on VBScript code...

Any idea how to fix that?

Thanks.

Claude Lachapelle
Systems Administrator, MCSE

Top

RE: Enumerating user's universal groups membership from ANOTHER DOMAIN by ClaudeLachapelle

ClaudeLachapelle
Thu Jul 10 08:51:03 CDT 2008

I was thinking of connecting to a GC instead of a DC, nothing we can do to
connect to 3268 instead of defaulting to 389 in VBScript (LDAP:3268//)?

Thanks.

"Claude Lachapelle" wrote:

> Hi!
>
> I have to enumerate user's groups membership, but actually I'm only getting
> local domain groups list.
>
> All universal groups hosted by others domain are not listed by the following
> VBScript code:
>
> set wshnetwork = createobject("WScript.Network")
> set objfso = createobject("Scripting.FileSystemObject")
> set adsysinfo = createobject("adsysteminfo")
> set currentuser = getobject( "LDAP://" & adsysinfo.username )
>
> if isarray( currentuser.memberof) then
> strgroups = join( currentuser.memberof )
> else
> strgroups = currentuser.memberof
> end if
>
> We already fixed our ADUC with the following Microsoft fix:
>
> http://support.microsoft.com/kb/833883
>
> But that seem to not any impact on VBScript code...
>
> Any idea how to fix that?
>
> Thanks.
>
> Claude Lachapelle
> Systems Administrator, MCSE

Top