Vbscript - Terminal Server enumerate all logged on users

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
    - Single quote problem Anyone know how I can embed a names with embedded single quotes in an Access Database, using VB script? The problem I have is illustrated in the following error message I get when trying to save the data submitted by the user: === > This is a dump of the SQL script insert into tblLocate (weekending, staffID,fullname,Telephone,dayofweek,Days, familyVisited, FamilyPhone, FamilyRef, Activity, Location, timestart,timefinish, visitTime, StdHours, fraction, remarks, Status) Values ('30/03/2007', '00123456', 'Mary O'Loughlin', '1234 5678', 'Monday', 'Mon,Tue,Wed,Thu,Fri', 'Damian Murphy', '', '24', 'Family visit', '25 Elsworth Crs', '8:00 am', '1:00 pm', 5, 7.6, 0.6, '', ''); =======> This is the error message I get Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression Mary O'Loughlin', '1234 5678', 'Monday', 'Mon'. write2db.asp, line 168 =======> End error message The name O'Loughlin is clearly the problem and I'm fresh out of ideas... Thanks -- Richard John (aka RJ) rjbpond at bigpond.net.au Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204432
  - 2
    - Wsf Script need help I've never script before so I would be grateful it someone would help me out with the below script. I would it to create a fouth level OU. Currently I tell it what the Top level OU is that I want to create Second and Third level OU. I'm unable to get it to create a fourth level OU. please show me exactly were to make the changes. OU -Ou-2 -Ou3 -Ou4 <?xml version="1.0"?> <job id="CreateOUs"> <script language="VBscript"> <![CDATA[ '*************************************************************** '*** The script creates OU structure underneath top level OU '*** Second level: Accounts and Resources '*** Third level: '*** Accounts children OUs - Users, ServiceAccounts, Groups, Admins '*** Resources children OUs - Workstations, Servers '*** '*** To execute, run cscript.exe //nologo CreateOUs.wsf OUName '*** where OUName is the name of the top level OU Option Explicit Dim strOU1 'the first level OU Dim strOU2 'the second level OU Dim strOU3 'the third level OU Dim arrOUTier2 'array of the second level OUs Dim arrOUTier3a 'first array of the third level OUs Dim arrOUTier3b 'second array of the third level OUs Dim strDomainDN 'name of the domain Dim strADsPath 'ADsPath of the first level OU Dim strADsSubPath 'ADsPath of the second level OU Dim adsRootDSE 'aDSRootDSE object Dim adsContainer, adsSubContainer, adsOU 'variables representing AD container objects '*************************************************************** '*** Connect to the current domain Set adsRootDSE = GetObject("LDAP://rootDSE") strDomainDN = adsRootDSE.Get("defaultNamingContext") '*************************************************************** '*** Connect to the top level OU strOU1 = WScript.Arguments(0) strADsPath = "LDAP://OU=" & strOU1 & "," & strDomainDN Set adsContainer = GetObject(strADsPath) On Error Resume Next arrOUTier2 = Array("Accounts", "Resources") arrOUTier3a = Array("Users", "ServiceAccounts", "Groups", "Admins") arrOUTier3b = Array("Workstations", "Servers") '*************************************************************** '*** Populate the OU structure For Each strOU2 in arrOUTier2 Set adsOU = adsContainer.Create("OrganizationalUnit", "OU=" & strOU2) adsOU.SetInfo If ErrCheck(Err, strOU2) <> 2 Then strADsSubPath = "LDAP://OU=" & strOU2 & ",OU=" & strOU1 & "," & strDomainDN Set adsSubContainer = GetObject(strADsSubPath) Select Case strOU2 Case "Accounts" For Each strOU3 in arrOUTier3a Set adsOU = adsSubContainer.Create("OrganizationalUnit", "OU=" & strOU3) adsOU.SetInfo Call ErrCheck(Err, strOU3) Next Case "Resources" For Each strOU3 in arrOUTier3b Set adsOU = adsSubContainer.Create("OrganizationalUnit", "OU=" & strOU3) adsOU.SetInfo Call ErrCheck(Err, strOU3) Next End Select End If Next On Error GoTo 0 Set adsOU = Nothing Set adsContainer = Nothing '*************************************************************** '*** Error checking function Function ErrCheck(objErr, strObj) If objErr.Number <> 0 Then 'if the object already exists If objErr.Number = &H80071392 Then WScript.Echo "The OU " & strObj & " already exists" ErrCheck = 1 Else WScript.Echo "Unexpected error " & objErr.Description ErrCheck = 2 End If Else ErrCheck = 0 End If objErr.Clear End Function ]]> </script> </job> Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204428
  - 3
    - VBScript error -2147217900 I am trying to insert the record using ADO, when the record already exists I get error msg something like this Err.description = "[Sybase][ODBC Driver][Adaptive Server Anywhere]Primary key for table 'Table1' is not unique" err.number = -2147217900 I want to trap this and formulate better error message. WHats the best way to do...is the error number here unique number (-2147217900) Thanks Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204417
  - 4
    - Outlook 2007 and VBScript Hi, Anyone having a problem getting Outlook 2007 to open using VBScript? Here is my code; Set WSHShell = WScript.CreateObject("WScript.Shell") Set objOL = WScript.CreateObject("Outlook.Application") And here is the error I get; WScript.CreateObject: Could not locate automation class named "Outlook.Application". Have they changed the name? and if so to what? Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204414
  - 5
    - Fastest way to test for empty string I am a programmer for a small web development company, using classic ASP (on IIS 6). The question has arisen as to whether a test of the form 'Len(x)=0' executes faster than 'x=""'. My initial guess was that 'x=""' would be faster than 'Len(x)=0', but a colleague disagrees. I very quickly knocked up the following test script, which is followed by the results I obtained from three runs. === s1 = "" s2 = "hello" t1 = now() for i = 1 to 10000000 if s1 = "" then j = 1 if s2 = "" then j = 2 next t2 = now() for i = 1 to 10000000 if Len(s1) = 0 then j = 1 if Len(s2) = 0 then j = 2 next t3 = now() wscript.echo (t2-t1)*84600, (t3-t2)*84600 === C:\Documents and Settings\Nick.BRAM-2\Desktop>test1.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. 12.7291671800776 21.5416661623749 C:\Documents and Settings\Nick.BRAM-2\Desktop>test1.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. 11.749999668973 21.5416667779209 C:\Documents and Settings\Nick.BRAM-2\Desktop>test1.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. 11.750000284519 21.5416667779209 C:\Documents and Settings\Nick.BRAM-2\Desktop> === This suggests that 'Len(x)=0' is actually quite a bit slower than 'x=""'. Am I wrong? Have I missed something vital? Is this an issue for which there has been any discussion on the Internet (and if so, where)? If so, is there a general consensus one way or the other? Answers to any of these questions would be greatly appreciated! PS: I have spotted one mistake -- that I should have used 86400 instead of 84600 -- but unfortunately it's irrelevant. -- Nick Roberts Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204412
  - 6
    - problem using variable with wmi query... Hello Sirs, I have a problem using a variable with the following line of code: Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceModificationEvent WITHIN 2 WHERE " _ & "TargetInstance ISA 'CIM_DataFile' and " & "TargetInstance.Name=" & "'objFile'") The objfile variable points to a file in the format c:\\scripts\ \test.txt. If I replace the variable with the file name the script works correctly. Any ideas are very, very welcome. Thanks! zz Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204411
  - 7
    - VBS login script map drives then printers then run exe file ' Windows Logon Script. ' VBScript - Just Map the two Fidelio Drives ' Author ' Version 1.0 2/26/07 ' ----------------------------------------------------------' ' TwoMap.vbs - Map Network Drive to M: and P: and S: ' Example of VBScript Mapping two drives in one script. ' -----------------------------------------------------------------' Option Explicit Dim objNetwork, strRemotePath1, strRemotePath2 Dim strDriveLetter1, strDriveLetter2 strDriveLetter1 = "K:" strDriveLetter2 = "U:" strRemotePath1 = "\\server\share1" strRemotePath2 = "\\server\share2" Set objNetwork = CreateObject("WScript.Network") ' Section which maps two drives for fidelio and the common drive objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1 objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2 ' Extra code just to add a message box 'WScript.Echo "Map drives " & strDriveLetter1 & " & " & strDriveLetter2 'section to RUN VERSION Control Set objShell = CreateObject("WScript.Shell") objShell.Run "K:\path1\path2\version.exe" 'Wscript.Quit ' End of Windows Logon Script Example The exe file won't run and gives this error message Error is Variable is undefine:'obsShell' I'm sure this is something simple but i'm kinda new to this Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204406
  - 8
    - CDO.Message Object Does anyone know a way to get the result from the .SEND method of a CDO.Message object? i.e. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Set objEmail = CreateObject("CDO.Message") ' assume email is configured appropriately objEmail.Send ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ When I run result = objEmail.Send result is blank or = "" when it is successful. I am trying to determine that the MSX server did accept my SMTP traffic. Thanks, Bart Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204405
  - 9
    - Internet connections settings via VBS? Hi folks, I've got the following scenario: We run in our domain XP-SP2 and 2K workstations with Internet Explorer 6 and 7. I'm looking for a solution to set up two checkboxes within IE6 and IE7: "Automatically detect settings" and "Use automatic configuration script" on the "Local Area Network Settings" tab. What I got so far is: I built an ADM template file to set the property "Use automatic configuration script". It works fine. It's not a problem to solve this in VBS because the property is saved in the registry in HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings in the variable AutoConfigURL. The catch is to check the box "Automatically detect settings". For IE7 I found the solution in deleting the whole key HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections IE7 re-creates it after start and the desired box is checked. IE6 doesn't work in the same way. It also creates the key after deletion, but without the box checked. The status of the box "Automatically detect settings" seems to be stored in the REG_Binary values in the key above. Because I don't know how to interpret this type of value I tried another way using WMI. Yes, I was able to retrieve IEs settings with this little script and tried to save a changed value back using the put_ method. strComputer = "." '~ Set objWMIService = GetObject("winmgmts:\\" & strComputer _ '~ & "\root\cimv2\Applications\MicrosoftIE") '~ Set colIESettings = objWMIService.ExecQuery _ '~ ("Select * from MicrosoftIE_LANSettings") '~ For Each strIESetting in colIESettings '~ 'Wscript.Echo "Autoconfiguration proxy: " & strIESetting.AutoConfigProxy '~ 'Wscript.Echo "Autoconfiguration URL: " & strIESetting.AutoConfigURL '~ 'Wscript.Echo "Autoconfiguration Proxy detection mode: " & _ '~ strIESetting.AutoProxyDetectMode = 1 '~ 'Wscript.Echo "Proxy: " & strIESetting.Proxy '~ 'Wscript.Echo "Proxy override: " & strIESetting.ProxyOverride '~ 'Wscript.Echo "Proxy server: " & strIESetting.ProxyServer '~ strIESetting.Put_ '~ Next Unfortunately the provider doesn't support this method in this class. Do you have an idea to solve this problem? I'm not sure about using branding, because I need to keep the settings flexible to change. Thanks a lot. Andreas Woll Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204402
  - 10
    - Changing Permissions - [WP] I am looking for vbscript which can change permissions on a windows registry key? Anybody help please, Thank you. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204398
  - 11
    - How to read a file Greetings! My question has to do with reading a file line by line and performing a function with the data. Example: Read a file with IP addresses and run some command against that IP address and a line by line basis. I am very new to VBscripting and hope that someone may have some example code that they are willing to share. Thank you very much for any input! Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204395
  - 12
    - Does VB Script supports overloading function concept? The below program didn't work. Does VB Script supports overloading functions, if not is there a workaround to achieve the same. Call abc("1", "2") Call abc("1") Function abc(a, b) MsgBox a MsgBox b End Function Function abc(a) MsgBox a End Function -- Nami Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204386
  - 13
    - Filter page reloads I use the HTTP_REFERER to check what page a user comes from. I only accept one specific URL as HTTP_REFERER. When the user enters my webpage he/she is given a customer ID. My problem is that if the user makes a page reload then they are given one more customer ID, because the HTTP_REFERER still has the same value! How can I overcome this easely (I am a complete newbie at VBScript) thanks /Marcus Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204385
  - 14
    - Script to Email Me when A Service is stopped I have two services one called vmagic.exe and the other csmagic.exe that when stopped I want an email sent to me to notify me that it has been stopped. Is it possible to do this? These services reside on both Windows 2000 and Windows 2003 servers. I have no scripting background and am not familiar with the syntax or terminology. I have downloaded a couple of scripts in the past that have been preconfigured for certain task and substituted my specific environment info where required in the script but thats as good as it gets for me. If anyone knows if there are any scripts out there that can do this or if anyone can give me a copy of something they may have created with some very simple instructions for a NON SCRIPTOR such as myself that would be greatly appreciated. Thanks Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204380
  - 15
    - Wont work on some systems I have a pretty basic script that looks for all PST files on a system. For some reason it will not work correctly on some machines. No errors, it just hangs. If I run it remotely by specifying the machine name in the script it works fine. The user of the machine is a local admin. Any ideas? Here is the script, I've indicated where it hangs: On Error Resume Next 'Collects PST file sizes for files on the C: drive. Writes data in a CSV file. 'Easy to collect in to a single file with a 'Copy *.CSV AllFiles.txt' command 'Then you can open it in Excel or Access. ' core code from www.droppedpackets.org. modified by Kurt Levitan. strComputer = "." strExtension = "pst" ' file extension - use lowercase Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") set WshShell = WScript.CreateObject("WScript.Shell") strComputer = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") strUser = WshShell.ExpandEnvironmentStrings("%USERNAME%") Set wn=WScript.CreateObject("WScript.Network") wn.MapNetworkDrive "K:","\\Orlandoo\pstdata",False strPath = "K:\" strFile = strPath & strComputer & ".csv" If objFSO.FileExists(strFile) = False Then If NOT objFSO.FolderExists(strPath) Then objFSO.CreateFolder(strPath) objFSO.CreateTextFile(strFile) Else objFSO.CreateTextFile(strFile) End If Else objFSO.DeleteFile(strFile) objFSO.CreateTextFile(strFile) End If Set filetxt = objFSO.OpenTextFile(strFile, 8, True) Set colFiles = objWMIService.ExecQuery("Select * from CIM_Datafile where extension = '"&strExtension&"'") '******* Here is where it hangs ******* For Each objFile in colFiles if objfile.drive = "c:" then filetxt.WriteLine(strUser & "," & strComputer & "," & objFile.FileName & "," & objFile.FileSize & "," & objFile.Name) end if Next filetxt.Close wn.RemoveNetworkDrive "K:" Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204379
  - 16
    - Services Stopped Script I have two services one called vmagic.exe and the other csmagic.exe that when stopped I want an email sent to me to notify me that it has been stopped. Is it possible to do this? These services reside on both Windows 2000 and Windows 2003 servers. I have no scripting background and am not familiar with the syntax or terminology. I have downloaded a couple of scripts in the past that have been preconfigured for certain task and substituted my specific environment info where required in the script but thats as good as it gets for me. If anyone knows if there are any scripts out there that can do this or if anyone can give me a copy of something they may have created with some very simple instructions for a NON SCRIPTOR such as myself that would be greatly appreciated. Thanks Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204372
  - 17
    - Script Security Credential Chg for Task Scheduler, COM+, Svcs., et All, I am soliciting for opinions, tips, working scripts, etc. and appreciate any and all advice.....including understanding if scripting is NOT possible, (i.e. - cannot script and MUST manually change via standard GUI interfaces). I would like to script changes to security credentials on about 20 W2KSP4 servers in the following areas: 1. Services - (Log on As's identity/pswd) 2. Scheduled Tasks - (Run As's identity/pswd) 3. COM+ - (COM+ Application's identity/pswd) 4. DCOMCNFG - (Identity and Access Permissions) I would also like to understand where the ID/pswd info is stored in each of the above instances. (A SAM, registry,....?) I would prefer solutions not depending on .NET Framework. -- Thanks, Raul Needz2No Asst. to Zotar - Ruler of All That Squirm Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204369
  - 18
    - Help with Script that monitors event logs Script is posted below. It does not return events posted to the Security log. Please help. strComputer = "." Set objWMIService = GetObject("winmgmts:{(Security)}\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("Select * from __InstanceCreationEvent Where " _ & "TargetInstance ISA 'Win32_NTLogEvent' ") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.User Wscript.Echo objLatestEvent.TargetInstance.TimeWritten Wscript.Echo objLatestEvent.TargetInstance.Message Wscript.Echo Loop Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204366
  - 19
    - vbs enviroment variable like cmd hello, how is the vbs equivalent code for this instruction in cmd? echo %username% > %computername%.%username%.txt thank's Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204365
  - 20
    - How to return an object? How to return an object? In below code "objRef" doesn't hold worksheet object. Is this limitation exists with vbs or there is bug in below written code pls, suggest. Dim objRef Set objRef = OpenExcel("C:\Excel.xls", "") Public Function OpenExcel(strFileName, strSheet) 'Enable Error handling On Error Resume Next Set objExcel = CreateObject("Excel.Application") Set objWorkBook = objExcel.Workbooks.Open (strFileName) 'See if a sheet was referenced in the call. If not, default to the first sheet If strSheet = "" Then strSheet = 1 End If 'Set up a reference to the sheet in the workbook Set objWorkSheet = objWorkBook.WorkSheets(strSheet) OpenExcel = objWorkSheet End Function -- Nami Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204362
  - 21
    - environment variable Hello, I have this script: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objVariable = objWMIService.Get("Win32_Environment").SpawnInstance_ objVariable.Name = "TestValue" objVariable.UserName = "System" objVariable.VariableValue = "This is a test" objVariable.Put_ how can I set the objVariable.UserName value to the actual username?, (like %username% in cmd) thank's Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204358
  - 22
    - WildCard - [WP] Like we can use wildcards for entering user names such s %username%. How can we do the same or enter a wildcard for SIDs? I hoep this makes sense. TIA. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204357
  - 23
    - Converting a batch file to vbscript Can someone help me convert this simple batch file to vbscipt? :BELSTART CD C:\progra~1\belarc\Advisor\System if exist v1.txt goto BELEND \\ezexch\util\belarc\client\belmonitor_ezcopy.exe /S if not errorlevel 1 echo v1 > v1.txt :BELEND Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204356
  - 24
    - Newbie to AD scripting Hi All I am trying to make a scrip that will add a security group into another security group. Not really tough as I found a script on Microsoft's website that deals exactly with that : http://http://www.microsoft.com/technet/scriptcenter/scripts/ad/groups/adgpvb03.mspx My problem is that my groups contain slashes in their names (e.g. "LCL/DK - Commercial & Sales"), so whenever I try to execute the script : ----------------------------------------------------- Const ADS_PROPERTY_APPEND = 3 Set objGroup = GetObject ("LDAP://cn=LCL/DK - Commercial & Sales,ou=Groups,ou=Denmark,ou=LCL,dc=reefer,dc=local") objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn=LCL/DK - Traffic & Backhaul,ou=Groups,ou=Denmark,ou=LCL,dc=reefer,dc=local") objGroup.SetInfo ----------------------------------------------------- I get an error : ----------------------------------------------------- Y:\script>cscript test.vbs Microsoft (R) Windows Script Host Version 5.6 Copyright (C) Microsoft Corporation 1996-2001. All rights reserved. Y:\script\test.vbs(3, 1) (null): 0x80005000 Y:\script> ----------------------------------------------------- If I rename the groups in the AD from LCL/DK - Commercial & Sales ---> LCLDK - Commercial & Sales the script runs. The question is how I can make my script run while keeping the group namesas they are, e.g. "LCL/DK - Commercial & Sales" Thanks in advance Goran Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204355
  - 25
    - Delete Virtual Directory if path does not exist We have an installer which is removing some Virtual Directories physical folder, however it leaves it as a Virtual Directory in IIS. I'm trying to write a VBScript that removes all Virtual Directories without a valid path. However it seems to be deleting every other virtual directory. i.e. If I have 2 VDs that do not have valid paths, it will delete 1, but leave 2. If I try to delete 3 VDs, 1 and 3 get deleted and 2 remains and so on. Can someone look at my code and see what I'm missing? I assume it has something to do this on error resume next,but I'm not sure how to fix it. Any help would be greatly appreciated. Thanks. function EnumVirtualDirectories(Level, MachineName, ObjectPath, DirStyle) Dim ChildObject, IISObkect, bDone on error resume next 'Err.Clear Set System = CreateObject("Scripting.FileSystemObject") bDone = FALSE IIsObjectPath = "IIS://" & MachineName If (ObjectPath = "") Then exit function else IIsObjectPath = IIsObjectPath & "/" & ObjectPath End If 'WScript.Echo "Checking : " & IISObjectPath Set IIsObject = GetObject(IIsObjectPath) If (Err.Number <> 0) Then if (Level = 1) then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" end if exit function End If Err.Clear Set objVirtualDir = nothing For Each ChildObject In IIsObject if (ChildObject.Class = DirStyle) then ChildObjectName = Right(ChildObject.AdsPath, Len(ChildObject.AdsPath) - 6) ChildObjectName = Right(ChildObjectName, Len(ChildObjectName) - InStr(ChildObjectName, "/") ) WScript.Echo "Path is " & ChildObject.Path & " name is " & ChildObjectName 'see if path exists and if not delete it as VD folderTest = System.GetFolder(ChildObject.Path) If Err.Description = "Path not found" Or folderTest = "" Then 'WScript.Echo Err.Description bDone = True WScript.Echo "***Virtual Directory does not exist: " & ChildObject.Name name = ChildObject.Name Set objVirtualDir = IIsObject.Delete("IISWebVirtualDir", name) 'WScript.Echo "got here1 " & ChildObject.Name & " ChildObjectName: " & ChildObjectName Err.Clear Else WScript.Echo "folder is " & folderTest If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If End If folderTest = "" If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If If bDone = FALSE Then 'WScript.Echo "got here " & ChildObject.Name & " ChildObjectName: " & ChildObjectName EnumVirtualDirectories Level+1, MachineName, ChildObjectName, DirStyle Else If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If bDone = False End If 'WScript.Echo ChildObjectName & vbcrlf & " " & ChildObject.Path end if next End Function Const GENERAL_FAILURE = 2 WebSiteID = FindTestSite() WScript.Echo "Web site is " & WebSiteID Servername = "LocalHost" 'WebSiteID = ArgObj(0) WebSite = "W3SVC/" & WebSiteID Level = 1 WScript.Echo "Virtual Directories for " & WebSite EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebVirtualDir" 'WScript.Echo "" 'WScript.Echo "Physical Directories for " & WebSite 'EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebDirectory" Function FindTestSite() on error resume next Dim siteID Dim bDone bDone = FALSE WebSiteID = "1" MachineName = "LocalHost" do while bDone <> TRUE IIsObjectPath1 = "IIS://" & MachineName ObjectPath1 = "W3SVC/" & WebSiteID IIsObjectPath1 = IIsObjectPath1 & "/" & ObjectPath1 & "/Root" 'WScript.Echo IIsObjectPath1 Set IIsObject1 = GetObject(IIsObjectPath1) If (Err.Number <> 0) Then 'WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" If WebSiteID <> 0 Then bDone = TRUE FindTestSite= 1 End If Else If InStr("TestSite",IIsObject1.Path) Then bDone = TRUE FindTestSite= WebSiteID Else WebSiteID = WebSiteID + 1 End If End If loop end function Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204353
- Next
  - 1
    - Delete Virtual Directory if path does not exist We have an installer which is removing some Virtual Directories physical folder, however it leaves it as a Virtual Directory in IIS. I'm trying to write a VBScript that removes all Virtual Directories without a valid path. However it seems to be deleting every other virtual directory. i.e. If I have 2 VDs that do not have valid paths, it will delete 1, but leave 2. If I try to delete 3 VDs, 1 and 3 get deleted and 2 remains and so on. Can someone look at my code and see what I'm missing? I assume it has something to do this on error resume next,but I'm not sure how to fix it. Any help would be greatly appreciated. Thanks. function EnumVirtualDirectories(Level, MachineName, ObjectPath, DirStyle) Dim ChildObject, IISObkect, bDone on error resume next 'Err.Clear Set System = CreateObject("Scripting.FileSystemObject") bDone = FALSE IIsObjectPath = "IIS://" & MachineName If (ObjectPath = "") Then exit function else IIsObjectPath = IIsObjectPath & "/" & ObjectPath End If 'WScript.Echo "Checking : " & IISObjectPath Set IIsObject = GetObject(IIsObjectPath) If (Err.Number <> 0) Then if (Level = 1) then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" end if exit function End If Err.Clear Set objVirtualDir = nothing For Each ChildObject In IIsObject if (ChildObject.Class = DirStyle) then ChildObjectName = Right(ChildObject.AdsPath, Len(ChildObject.AdsPath) - 6) ChildObjectName = Right(ChildObjectName, Len(ChildObjectName) - InStr(ChildObjectName, "/") ) WScript.Echo "Path is " & ChildObject.Path & " name is " & ChildObjectName 'see if path exists and if not delete it as VD folderTest = System.GetFolder(ChildObject.Path) If Err.Description = "Path not found" Or folderTest = "" Then 'WScript.Echo Err.Description bDone = True WScript.Echo "***Virtual Directory does not exist: " & ChildObject.Name name = ChildObject.Name Set objVirtualDir = IIsObject.Delete("IISWebVirtualDir", name) 'WScript.Echo "got here1 " & ChildObject.Name & " ChildObjectName: " & ChildObjectName Err.Clear Else WScript.Echo "folder is " & folderTest If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If End If folderTest = "" If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If If bDone = FALSE Then 'WScript.Echo "got here " & ChildObject.Name & " ChildObjectName: " & ChildObjectName EnumVirtualDirectories Level+1, MachineName, ChildObjectName, DirStyle Else If Err.Number <> 0 Then WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" WScript.Echo "vir dir was: " & ChildObject.Name End If bDone = False End If 'WScript.Echo ChildObjectName & vbcrlf & " " & ChildObject.Path end if next End Function Const GENERAL_FAILURE = 2 WebSiteID = FindTestSite() WScript.Echo "Web site is " & WebSiteID Servername = "LocalHost" 'WebSiteID = ArgObj(0) WebSite = "W3SVC/" & WebSiteID Level = 1 WScript.Echo "Virtual Directories for " & WebSite EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebVirtualDir" 'WScript.Echo "" 'WScript.Echo "Physical Directories for " & WebSite 'EnumVirtualDirectories Level, ServerName, WebSite, "IIsWebDirectory" Function FindTestSite() on error resume next Dim siteID Dim bDone bDone = FALSE WebSiteID = "1" MachineName = "LocalHost" do while bDone <> TRUE IIsObjectPath1 = "IIS://" & MachineName ObjectPath1 = "W3SVC/" & WebSiteID IIsObjectPath1 = IIsObjectPath1 & "/" & ObjectPath1 & "/Root" 'WScript.Echo IIsObjectPath1 Set IIsObject1 = GetObject(IIsObjectPath1) If (Err.Number <> 0) Then 'WScript.Echo "Error: " & Err.Description & " (" & Err.Number & ")" If WebSiteID <> 0 Then bDone = TRUE FindHomeValue = 1 End If Else If InStr("TestSite",IIsObject1.Path) Then bDone = TRUE FindHomeValue = WebSiteID Else WebSiteID = WebSiteID + 1 End If End If loop end function Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204352
  - 2
    - Get IP Address and MAC Address via script Hi all, I realize this topic has been discussed before, but unfortunately I am unable to find the answer I'm looking for in previous threads. I am currently writing a domain migration script to join workstations to an Active Directory domain. As part of the script, I am gathering computer information and writing success/failure information to a database. Two of the columns in the database are for IP Address and MAC Address. The following script seems to give me most of what I'm looking for. Obviously, I'm not going to echo these values to the screen, rather store them and write them to the database. However, I've realized that while the script will ignore all adapters where the IP Address is 0.0.0.0, it does not account for multiple adapters with a valid IP Address. In other words, the last one in the loop with a valid IP will be stored in the variable. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colAdapters = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each oAdapter in colAdapters For Each sIPAddress in oAdapter.IPAddress If sIPAddress <> "0.0.0.0" Then Wscript.Echo "IP Address:" & sIPAddress & vbcrlf & "MAC Address:" & oAdapter.MACAddress End If Next Next Has any one got an idea how to handle the case where there may be multiple adapters with an IP Address or a single adapter with multiple IP Addresses? Thanks in advance for your consideration. Regards, Sean Murphy Ensynch, Inc. Whatever IT Takes Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204348
  - 3
    - Excel Copy, Past into another worksheet Hi, I need to copy a range of data from one worksheet to another. I am building a VBScript to do some reporting for my group. I have created the following Sub that I think should work, but it does not; Sub CopyData ' CopyData Macro Book1.Activate objWorksheet.Range("B:D").Select objWorksheet.Range("B:D").Copy Book2.Activate objWorksheet.Range("A377").Select '<------this is line 132 objWorksheet.paste End Sub Here is the error I get, ActiveTT.vbs(132, 5) Microsoft Office Excel: Select method of Range class failed Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204346
  - 4
    - Creating vbscript to delete cookies and temporary internet files Is there a vbscript to delete cookies and temporary internet files daily for an office size of 250 on each computer? Any help would greatly be appreciated. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204340
  - 5
    - vb script to call values from a text file and start service Hello all.... i need some ideas/suggestions/help to write a script that will call computer names from a text file and then start the symantec antivirus service on each. below is the code i have so far....right now it is yelling that i have a "loop" defined with no "do" ' ReStartService.vbs ' Sample script to Stop or Start a Service ' -------------------------------------------------------' Option Explicit Dim objWMIService, objItem, objService Dim colListOfServices, strComputer, strService, intSleep, strfilename strFileName = "test.txt" intSleep = 15000 WScript.Echo " Click OK, then wait " & intSleep & " milliseconds" Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFilename) Then Set objFile = objFSO.OpenTextFile(strFilename, FOR_READING) Else WScript.Echo "Input file " & strFilename & " not found." WScript.Quit End If Do Until objFile.AtEndOfStream strHost = objFile.ReadLine arrHost = Split(strHost,",") 'Get name of computer. strComputer = arrHost(0) 'On Error Resume Next ' NB strService is case sensitive. strService = " 'Symantec Antivirus' " Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colListOfServices = objWMIService.ExecQuery _ ("Select * from Win32_Service Where Name ="_ & strService & " ") For Each objService in colListOfServices objService.StartService() loop WScript.Echo "Your "& strService & " service has Started" objfile.close Thanks in advance, Tiv Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204334
  - 6
    - VBS script to start a process Starting a process Hi can anyone tell me the code to start a process in VBS to call it from the command line or .bat file i use "athanor-rt -f "c: \myfile.xml" I have the following Option Explicit Dim objWMIService, objProcess, objCalc Dim strShell, objProgram, strComputer, strExe strComputer = "." strExe = "athanor-rt -f D:\DQ_GRADE\XML_EXCEPTION_FILES \E_R3_ROI_OVERDRAFTS_MAIN.xml" ' 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 'Execute the program now at the command line. Set strShell = objWMIService.ExecMethod( _ "Win32_Process", "Create", objProgram) WSCript.echo "Created: " & strExe & " on " & strComputer WSCript.Quit Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204333
  - 7
    - Outlook, new appointment on pop3 account Hi, I got my code to work on exchange accounts. Is it possible to write some code that add's appointments in the account on pop3 accounts in Outlook? Best regards Mads Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204328
  - 8
    - AD is it possible to create a script to do the following: when a new user along with a mailbox is created in active directory the script dump the username - E-Mail Address and the OU where the user is created to a file? Please help. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204324
  - 9
    - IsArray 2 dimentional array I have a generic function which does some processing on a array. I pass the array to it. The array can be 2 dimensional or single dimension...How to identify if its 2 Dimensional.... IsArray determines me if its array ...How to identify if its 2 Dimensional or single dimension.... Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204317
  - 10
    - [ot] thought for today <quote> A man is flying in a hot air balloon and realizes he is lost. He reduces height and spots a man down below. He lowers the balloon further and shouts: "Excuse me, can you tell me where I am?" The man below says: "Yes you're in a hot air balloon, hovering 30 feet above this field." "You must be a software developer," says the balloonist. "I am," replies the man. "How did you know?" "Well," says the balloonist, "everything you have told me is technically correct, but it's of no use to anyone." The man below replies, "You must work in business as a manager." "I do," replies the balloonist, "but how did you know?" "Well," says the man, "you don't know where you are or where you are going, but you expect me to be able to help. You're in the same position you were before we met but now it's my fault." </quote> Blatantly stolen from "Coding Horror" by Jeff Atwood. http://www.codinghorror.com/blog/archives/000230.html Fortunately, Jeff has never gotten around to looking at any of my code, or I would most likely find myself featured on his site. (Especially the "three ugly hack" code). cheers, jw Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204315
  - 11
    - Removing user account accross multiple domains I am a new administrator with a company that does managed hosting. We do all the maintinance of the customer domains (about 30 different domains) and I have to disable the old administrator accross all the domains. The thing is, his user account isnt' in the same ou structure accross the domains, it's just kindof sporadically thown out there. I'm also new to the scripting part of this, and all the script help I can find requires me to enter in the FQDN. I just want a script that I can push to the domain controllers, that will query the domain name, then find the username and disable it. Can this even be done or am I doomed to go through 30+ domain controllers manually to disable this account? This guy left in a hurry, and was what you may call "disgruntled" so if someone could help me out on this in a hurry, I would greatly appriciate the help. Thanks Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204313
  - 12
    - Now these guys have got the right idea!! (plug) Okay, This is a blatant plug and I haven't tried this out myself, yet. But you gotta admit they've got the right idea! DotNet Scripting Host http://www.it-visions.de/default2.aspx?start=http://www.it-visions.de/scripting/dotnetscripting/dsh.en.asp author: Holger Schwichtenberg Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204312
  - 13
    - Problem in DatePart "ww" - unexpected Week Numbers See <URL:http://www.merlyn.demon.co.uk/vb-date2.htm#WN>, which will show results for your system. It seems that W = DatePart("ww", CDate("Dec 29 2003"), vbMonday, vbFirstFourDays) should set W to the ISO 8601 Week Number for that date. It was a Monday, so the Thursday of its week was Jan 01 2004, so the true Week Number is 01. But W is set to 53. That type of error occurs for 3 days per 28 years, regularly except across missing leap years. Additionally, 2101-01-02 Sunday, which is in Week 2100-52, gives 53, and that repeats every 400 years. Both types of discrepancy are confirmed to occur in WinXP sp2 IE6, in recent update to IE7, and in whatever Vista used; and I see them also in command-line WSH. WSH is, it seems, often used for administrative systems; I predict trouble when the next error date, 2007-12-31, comes round. There should be some way to persuade Microsoft to provide full and correct support for ISO 8601; but I've been trying to draw this discrepancy to their attention for some while now. <URL:http://www.merlyn.demon.co.uk/vb-date2.htm> contains (use View Source) a well-tested algorithm, in function YearWeekDay(Y, M, D), for producing ISO 8601 yyyy-Www-d form, for dates from 1900 to about end 9999. Is there not some new scripting form in Vista? Whatever it has for ISO 8601 should be carefully tested. -- (c) John Stockton, Surrey, UK. ?@merlyn.demon.co.uk Turnpike v6.05 IE 6. Web <URL:http://www.merlyn.demon.co.uk/> - w. FAQish topics, links, acronyms PAS EXE etc : <URL:http://www.merlyn.demon.co.uk/programs/> - see 00index.htm Dates - miscdate.htm moredate.htm js-dates.htm pas-time.htm critdate.htm etc. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204309
  - 14
    - need to pull specific line out of Variable I have a script that creates a Variable "output" that contains the following Username: XXXXXX Password: WELCOME TO THE TEST ENVIRONMENT ROUTER xxxxxx-TEST-BRANCH#ping 1.1.1.1 Type escape sequence to abort. Sending 5, 100-byte ICMP Echos to 1.1.1.1, timeout is 2 seconds: ..... Success rate is 0 percent (0/5) xxxxxx-TEST-BRANCH#ping 1.1.1.1 Type escape sequence to abort. Sending 5, 100-byte ICMP Echos to 1.1.1.1, timeout is 2 seconds: ...!! Success rate is 40 percent (2/5) xxxxxx-TEST-BRANCH# the above info is stored in memory in the variable OUTPUT. I need to be able to look for the 2 "success rate" lines and place them in 2 seperate variables. Success1 and Success2 help. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204302
  - 15
    - Creating a Dialup connection Hi, I'm trying to automate the creation of two dial up connections using WSH. The only way I've found so far to do it is to automate the rasphone.exe program using sendkeys. This is fine, but it's very untidy, so is there an API I can use to create these DUN connections instead? I cannot use any third-party OCX files as this is to be run on a secured environment, and the hassle of getting any third-party OCX files through our governance procedure would be too much! Thanks Gavin Chapman Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204296
  - 16
    - Script only returning first value of multi-valued attribute??? Hi all, I'm trying to query AD and then write the results to Excel. I have this working fine but I have noticed that when it comes to multi-valued attributes, only the first value is being written in Excel. Below is a cut-down version of how I am doing this. Can anyone shed some light on why this is failing? If I run a query using CSVDE it shows all the values properly in Excel for the multi-valued attributes (separated by semicolons). In this case the multi-valued attributes I am wanting to dump all the values for are publicDelegates and publicDelegatesBL, but I get the same results for any other multi-valued attribute I try...memberOf, proxyAddresses, etc. I'm just not sure what to try next. -Ben ' ' 'Open the specified existing workbook and add worksheets ' Const ADS_SCOPE_SUBTREE = 2 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Open("C:\MigrationWorkingDocuments.xls") ' 'Select the specified worksheet as the target, define the column header names, query AD, and dump the values. 'Repeat for each worksheet. ' ' Set objWorksheet = objWorkbook.Worksheets("AADelegates") objWorksheet.Activate objWorksheet.Cells(1, 1).Value = "displayName" objWorksheet.Cells(1, 2).Value = "publicDelegates" objWorksheet.Cells(1, 3).Value = "publicDelegatesBL" Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.Properties("Cache Results") = False objCommand.CommandText = _ "<LDAP://dc=mydomain,dc=com>;" & _ "(&(objectClass=User)(ObjectCategory=person)(mail=*)(!userAccountControl:1.2.840.113556.1.4.803:=2)" & _ "(|(publicDelegates=*)(publicDelegatesBL=*)));" & _ "displayName,publicDelegates,publicDelegatesBL;Subtree" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst x = 2 Do Until objRecordSet.EOF objWorksheet.Cells(x, 1).Value = _ objRecordSet.Fields("displayName").Value objWorksheet.Cells(x, 2).Value = _ objRecordSet.Fields("publicDelegates").Value objWorksheet.Cells(x, 3).Value = _ objRecordSet.Fields("publicDelegatesBL").Value x = x + 1 objRecordSet.MoveNext Loop -- Posted via a free Usenet account from http://www.teranews.com Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204292
  - 17
    - Semaphore in DOS shell script? Running Windows Build, sometime multiple .CMD scripts get launched. Some of these update a shared text database. We'd like to wrap a LOCK/UNLOCK command around such scripts. Is there an easy-to-access from the DOS shell semaphore? If not, what alternatives do people suggest? -- IDB Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204291
  - 18
    - Script conversion JS to VBS Does anyone know of a utiity or online tool that will convert Javascript to VBS? I have one that goes the other way I would also like info on any script converters (.* to .*) TIA Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204290
  - 19
    - (OT) Help with SVN/Subversion Sorry about the off topic post, but I am not getting any response from my other resources. Has anybody installed SVN via SVN1-Click installer? I am attempting to set up SVN for my scripting and VB.NET. Any help would be greatly appreciated. I wouldn't mind installing Apache etc. if it would help me manage SVN. I need help doing imports, I can't seem to get what the path is. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204284
  - 20
    - Script to display the user credentials it is operating at? Hi My problem relates to a stand-alone WXP-SP2 system. Often I see replies to posts with statements like "verify the problem is not due to lack of privileges". So the questions become 1) what privileges does my script need for the operation and 2) what privileges does my script actually have at this point in the script? Sometimes the script will answer question 1 with something like this: => To fix this issue: ENSURE you have all access rights to the WMI repository folder. ENSURE you run WMIDiag.vbs as an Administrator. It seems to me that a script should be able to ask the OS Question 2 and display the result in a message box. Is it possible for a script to display its priviledges? Can it be done without WMI (my WMI is non-functional right now) Can someone point me in the right direction? Thanks, -Paul Randall Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204283
  - 21
    - Q Re Telnet automation Hi folks, Just wondering if it is possible to launch a telnet session, login, run one command, then log out in vbscript? I would prefer to do this in vba but i've virtually given up scoruing the net for an answer. Options I do not have available to me: * Installing anything to the machine (work environment security policy) * Implementing some complex code as my level of knowledge is only moderate. I have a vba program in excel that ftps some files then i need to do a telnet to execute on a unix server before going back to ftp the output. I do not like sendkeys at all as it requires you to not touch the computer and is fallable. Therefore i would appreciate if anybody can tell me a way to do a telnet session through script and interact this script with the vba I have done. Thank you in advance if help is possible. Cheers, Clint Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204273
  - 22
    - Deleting Desktop Shortcuts Hi. I am trying to delete 3 desktop shortcuts. All of them being a shortcut on the desktop. These files are called "Fix Network Drives", "Windows Live Messenger" and "Windows Media Player". I have found where there located on the computer all of them being in a different location. One of the locations is in - C:\Documents and Settings\Username\Desktop - C:\Documents and Settings\All Users\Desktop What ever file I try and delete it always comes up with an error that says 'File Not Found' I don't know what the problem could be. This is the code that I am using: Dim FSO, File set FSO=CreateObject("Scripting.FileSystemObject") File= "C:\Documents and Settings\Christopher\Symantec Chat ID.txt" FSO.DeleteFile(File) wscript.echo Folder,"now deleted" wscript.echo I don't know what could be the problem. I would be greatful for any help in this matter. Thanks Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204266
  - 23
    - How to reinstall WMI on WXP-SP2 Hi, I'm trying to run some VBScripts that access WMI, including WMI Scriptomatic. They all fail at statements like: Set objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=impersonate}!\\.\root\cimv2") with error:Invalid Syntax and code: 800401E4. I think my WMI system has been trashed because my Windows\System32\WBEM folder contains just a few files and subfolders, while my laptop on which WMI Scriptomatic runs fine, has many more files and subfolders there. I've posted to Microsoft's WMI newsgroup, but got no responses. Is there a way to just reinstall WMI? -Paul Randall Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204261
  - 24
    - VBScript to verify is user is local admin Hi all, I wrote a script to verify if a user is a local admin or not, however right now it only works if the username is a local admin. If the username is part of a group that's a local admin it does not work. Here's my script: Dim strUser Set objNetwork = CreateObject("Wscript.Network") strComputer = objNetwork.ComputerName strUser = "testuser" Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators") For Each objUser in objGroup.Members Wscript.Echo objUser.Name If objUser.Name = strUser Then Msgbox strUser & " is a local administrator." End If Next I also don't like the fact that it only checks the username and not the domain as well. If someone know how to do that I'd appreciate it as well. So if testuser was a member of the Administrators group it would work. However if testuser was a member of a group called testGroup and testGroup was an Administrator on this machine it would not work. Does anyone know a better way to verify if a useraccount is a local admin on a machine? Thanks. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204260
  - 25
    - VB Script in Visual Basic 6 I have Visual Basic 6 installed on my computer from when I took a class in school. Can I use it to write scripts, or is it overkill. Tag: Vbscript - Terminal Server enumerate all logged on users Tag: 204258

Hi guys,

I need to enumerate all currently logged on users to a Terminal
server. I'm assuming WMI can be used for this. The reason being is
that we have an application that is cauing problems when two users
logging in with the same sAMAccount are using it.

The script will run locally on the terminal server. I can't seem to
find anything using the usual serach engines...

Can anyone point me in the right direction?

Many thanks,

-Chris

Top