objComputer.UserName value is empty

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
    - Error when creating user with mailbox in script Hope someone can help here, and this is the right group :-) I have a periodic problem when creating mail-enabled users using a VBscript: -2147467259 - There is no Connection Agreement configured to export this recipient to the Exchange 5.5 server. I'm creating using Microsoft best practicies, descriped in this article: http://support.microsoft.com/kb/327079 If I try running the script several times it completes with sucess, but this is not a valid solution. The enviroment: Windows Server 2003 AD Exchange 2003 standard, SP2 Looking forward to hear from you, as this i a very critical issue for our solution. Best wishes Bo Berggreen Tag: objComputer.UserName value is empty Tag: 211339
  - 2
    - Why error 2147217904 expects parameter when parm is supplied? I'm at a loss why my code supplies the input parm and yet upon execution it complains about my first input parm called @AuditItem is not supplied. Please throw some light. Thanks Error: ado error 2147217904 expects parameter My stored proc PROCEDURE [dbo].[usp_Thresholds_GetStatus] ( @AuditItem varchar(50), @Variable varchar(250), @ServerValue varchar(250), @FoundFlag varchar(10) output , @OutputStatusCode varchar(2) output, @OutputPrecedingMessage varchar(250) output, @OutputMessage varchar(250) output ) My vbs code: Set objCon = CreateObject("ADODB.Connection") Set objCom = CreateObject("ADODB.Command") strConnection = "Provider=SQLOLEDB.1;Password=password@1;Persist Security Info=false;User ID=xxxtReader;Initial Catalog=mydbt;Data Source=mysqlserver" On Error resume next objCon.Open strConnection If Err.Number <> 0 Then Wscript.Echo " Attempt to open connection to database failed" Wscript.Echo Err.Number & " " & Err.Description Err.Clear End If 'assigning the command object parameters Set objCom.ActiveConnection = objCon objCom.CommandText = "usp_Thresholds_GetStatus" objCom.CommandType = adCmdStoredProc 'Create in/out parameters Set objInputAuditItemParm = objCom.CreateParameter("@AuditItem", adVarChar, adParamInput, 50, trim(InputAuditItem)) Set objInputVariableParm = objCom.CreateParameter("@variable", adVarChar, adParamInput, 250, trim(InputVariable)) Set objInputServerValue = objCom.CreateParameter("@ServerValue", adVarChar, adParamInput, 250, trim(InputServerValue)) Set objOutputFoundFlag = objCom.CreateParameter("@FoundFlag", adVarChar, adParamOutput, 10) Set objOutputStatusCode = objCom.CreateParameter("@OutputStatusCode", advarChar, adParamOutput, 2) Set objOutputPrecedingMessage = objCom.CreateParameter("@OutputPrecedingMessage", adVarChar, adParamOutput, 250) Set objOutputMessage = objCom.CreateParameter("@OutputMessage", adVarChar, adParamOutput, 250) 'Append the parameters to command object objCom.Parameters.Append objInputAuditItemParm objCom.Parameters.Append objInputVariableParm objCom.Parameters.Append objInputServerValue objCom.Parameters.Append objOutputFoundFlag objCom.Parameters.Append objOutputStatusCode objCom.Parameters.Append objOutputPrecedingMessage objCom.Parameters.Append objOutputMessage on error resume next objCom.Execute if err <> 0 then Wscript.Echo "Attempt to execute stored proc usp_Thresholds_GetStatus failed" Wscript.Echo Err.Number & " " & Err.Description Err.Clear end if 'retrieve the Output parameters values WScript.Echo "Output Found flag: " & objOutputFoundFlag.value WScript.Echo "Output Message... " WScript.Echo objOutputMessage.value WScript.Echo objOutputStatusCode.value Tag: objComputer.UserName value is empty Tag: 211324
  - 3
    - I need a script (pref VB) to change permissions on a folder in multiple folders. I need a script (pref VB) to change permissions on a folder in multiple folders. Example, imagine users home directory, so a folder contains all the users. Each user has a folder inside their home directory called 'examples'. I need a script to search for that folder inside each users home directory and change the permissions to 'read, list folder contents' Can this be done? This is not being done on users home directories but this was the best example I could give. Or imagine their are 10 folders named 1 to 10. inside each folder are 5 folders named A,B,C,D and E. I want a script to search for the folder named 'D' and change the permission on that folder only. Tag: objComputer.UserName value is empty Tag: 211319
  - 4
    - UserAccounts.CommonDialog alternative for Vista? I sell an application that supports vbscript in it's forms, and on some I use UserAccounts.CommonDialog to display a File Open dialog so a user can select a filename. On Vista, this functionality is not available. My question: is there an alternative for Vista that does not require distributing any additional controls? Some background info: My searches so far revealed that the following alternatives are available, none of them are very appealing -Using MSComDlg.CommonDialog, which requires installing the Common Dialog control, which is subject to licensing -Using SAFRCFileDlg.FileSave, which also requires installing an additional control, and which is deprecated and not originally intended for use in scripting in the first place. -Using Choose File HTML File Control Object, a workaround that (ab)uses IE, that I find inventive but very ugly.. tia, arno Tag: objComputer.UserName value is empty Tag: 211315
  - 5
    - inverse line fichier hello J want to inverse the line of a fichier do you know, how do this please thank you Tag: objComputer.UserName value is empty Tag: 211314
  - 6
    - Troubleshooting an attempt to open connection I need some help with troubleshooting. When I execute my vbs script in a DOS environment it runs OK. But when it is called by an asp calling client, it does not work and does not indicate why. I put some tracing statements to find out where it errored and it echoes Point1 and Point2 but never reaches Point 2A. So I guess the open connection must have failed. 1. What should I do to handle a connection error? On error resume next seems strange... 2. Is my connection open statement incorrect? What should it be? 3. Again I'm confused when all players are vbs scripts, it runs OK. When an asp client calls it, it simply does not work. Thanks Set objTHoldCon = CreateObject("ADODB.Connection") Set objTHoldCom = CreateObject("ADODB.Command") WScript.Echo "Point1" 'Opening the connection objTHoldCon.Open "audit","sa","password" WScript.Echo "Point2" 'assigning the command object parameters Set objTHoldCom.ActiveConnection = objTHoldCon objTHoldCom.CommandText = "usp_Thresholds_GetStatus" objTHoldCom.CommandType = adCmdStoredProc WScript.Echo "StatusHelper Point2a" Tag: objComputer.UserName value is empty Tag: 211301
  - 7
    - I am looking for an HTA exit code function like wscript.quit() I have moved to using HTA scripts but I can't figure out how to send an exit code back to the calling app. In vbscript I was able to do this with wscript. quit(code). This function will not work in HTA. Is there a way to pass the exit code back from an HTA? Thanks Tag: objComputer.UserName value is empty Tag: 211298
  - 8
    - What VBScript interpreters are available? ... If I create some simple VBScripts that only do file I/O and manipulation in a text editor, what do I need to execute them? Is there some kind of simple interpreter or run-time environment I can download from Microsoft? Thanks again! Chris http://amateureconblog.blogspot.com/ Tag: objComputer.UserName value is empty Tag: 211286
  - 9
    - Newbie needs some recommendations ... Hello everyone, I'm new to this group. ;-) I used a bit of VB "back in the day" (VB 3, 4, and 6), but I'm somewhat out of practice. ;-) I'm beginning to use a testing tool that has VBScript as its built-in scripting language. Can you recommend a good VBScript book or web site(s)? Are there any good tutorials or language references available as PDFs? All advice appreciated ... Thanks very much in advance! Chris http://amateureconblog.blogspot.com/ Tag: objComputer.UserName value is empty Tag: 211285
  - 10
    - RegEx question I have a problem parsing "first.lastnamer@calif.usa.mycompany.com" into seperate domain parts. I've tried using "\w*(?x)" but it generates an error in VB. I need the domain parts for the logic in my script, can someone help with this? Thanks, Scott Tag: objComputer.UserName value is empty Tag: 211282
  - 11
    - HTA Exit Code Hello, I have been using the wscript.Exit() in my vbscripts for some time to return the status of my scripts to the calling app. I have started using HTA and I can not figure out how to get the same funtionality. With out a return code to my calling app my HTA app is of no use to me. I have done some searching and found that the object used for Wscript.exit can't be used in HTA but there has to be a way to set an exit code. Please help :( Thanks in advance. Tag: objComputer.UserName value is empty Tag: 211272
  - 12
    - HP Desktop for sale! Hi, I have an unused HP Pavilion with the fallowing specs: # Processor: AMD Athlon 64 X2 4000+ (2.1GHz, 2000MT/s System Bus) # Memory: 2048MB PC2-5300 DDR2 SDRAM memory (2x1GB) (expandable to 8 GB (4 x 2 GB) (64-bit OS)/ 4 GB (4 x 1 GB) (32-bit OS)) # Hard Drive:320GB 7200RPM SATA 3G (3.0 Gb/sec) hard drive # Optical Drive: 16X DVD(+/-)R/RW 12X RAM (+/-)R DL LightScribe SATA drive # Expandable Drive Bay: HP Pocket Media Drive bay # Video Graphics: Integrated graphics # Network Interface: Integrated 10/100BaseT network interface # Sound: High Definition 8-channel audio # Fax/Modem: 56K bps data/fax modem # Operating System: Genuine Windows Vista® Home Premium This is "used" but basically brand new (it has literally been on for no more than 6 total hours..) is only 1 month old.. PRICE: $425 OBO Email- pbdude911@yahoo.com Tag: objComputer.UserName value is empty Tag: 211268
  - 13
    - Watch NFL Games Online Watch NFL Games Online! For every one who wants to watch the games online because they dont live in the teams town or are at work i found a site that has basically every game covered. Its perfect if you have afford a monthly $70 direct tv nfl access subscription. they got a bunch of channels The sites http://nflonline.wizhoo.com Tag: objComputer.UserName value is empty Tag: 211267
  - 14
    - Fatloss computer program I have been using this computer program for a couple weeks now and i am very pleased with the results so far. its a software fatloss program, if your looking for a diet/weightloss plan i reccomend you check this place out first: http://fatloss9.50webs.com Tag: objComputer.UserName value is empty Tag: 211266
  - 15
    - scheduled tasks Hi All, I have a vbscript that has 2 command line parameters It runs fine from the shortcut or "Run" with the command line myscript.vbs para1 para2 However, when I put it in the Scheduled Tasks, it does not work. To make it work I have to put "...\wscript.exe ..\myscript.vbs para1 para2 Is there any way to avoid having to use "wscript" ? Thanks al Tag: objComputer.UserName value is empty Tag: 211261
  - 16
    - Error while using impersonation to manage a service remotely This script worked last week, and now it doesn't. I don't know what has changed, but I know the script hasn't changed. The portion that's failing can be run alone: -=-=-=- Set oService = GetObject("WinMgmts:{impersonationLevel=impersonate}!\ \SERVERNAME\root\cimv2:Win32_Service.Name='SERVICENAME") oService.stopService -=-=-=- I'm running it as privileged admin, the same way I ran it last week when it worked. Now it gives me a dialog box titled "Windows Script Host" with this data: Script: [path to script] Line: 3 Char: 1 Error: A security package specific error occured. Code: 80070721 Source: (null) Tag: objComputer.UserName value is empty Tag: 211257
  - 17
    - change file type... hey, guys and gals. i'm in the process of compiling a script that pulls some info on users in active directory, change the resulting logfile from a csv to an xls spreadsheet, and then mine more data using a different search method based on the results of the first query. i have the query parts working, but it craps out when i try to change the file type. did i mention that i know just enough vb to annoy you experts? thanks in advance. early on in the script, i define the logfile: ' Determine local path. strScriptPath = Wscript.ScriptFullName strScriptName = Wscript.ScriptName strScriptFolder = Left(strScriptPath, Len(strScriptPath) _ - Len(strScriptName) - 1) ' Log file name. strLogFile = strScriptFolder & "\ContractorsLastLogons" _ & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & ".csv" ' Setup log file. Set objFSO = CreateObject("Scripting.FileSystemObject") Set TextFile = objFSO.OpenTextFile(strLogFile, 8, True, 0) then here's my attempt to change the file: ' Change file extension from csv to xls strComputer = "." Path = strScriptFolder Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root \cimv2") Set colFiles = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name= & strScriptFolder &} Where " _ & "ResultClass = CIM_DataFile") For Each objFile In colFiles strExtension = strLogFile.Extension strExtension = Replace(strExtension, "csv", "xls") strNewName = strScriptFolder & strLogFile.FileName & "." & strExtension errResult = strLogFile.Rename(strNewName) Next Tag: objComputer.UserName value is empty Tag: 211251
  - 18
    - Secure FTP We have vbscript to download files from FTP site and it works well. What different code I should use to download files from Secure FTP site? Thanks. Tag: objComputer.UserName value is empty Tag: 211242
  - 19
    - AD Attributes and their usage I am trying to determine how each of the following four Active Directory user attributes (Listed below) are used and any possible negative consequnces on such a change. I have an Oracle to HR Sync program I have written and we are now passing the display name to AD and obviously it isn't that simple. I have had some success going through MSDN but I'm hoping someone might have a complete definition of each of their uses. Right now I don't see an issue of syncing the four attributes up so they all are equivalent. Anybody who is familiar with these attributes please provide any and all feedback. displayName displayNamePrintable cn name Thanks for your time -- Paul Bergson MVP - Directory Services MCT, MCSE, MCSA, Security+, BS CSci 2003, 2000 (Early Achiever), NT http://www.pbbergs.com Please no e-mails, any questions should be posted in the NewsGroup This posting is provided "AS IS" with no warranties, and confers no rights. Tag: objComputer.UserName value is empty Tag: 211235
  - 20
    - Windows explorer folder options I have a list of file extensions that I need to enable the "confirm open after download" & "always show extension" options on. the list is about 50 extensions and I need to set this on approx 100 W2k3 servers in the domain (2 are standalone). this is a labor intensive task perform manually in the in the folder options > file types > extension > advanced(edit file type) dialog. I have tried locating the info in the registry and have not had much luck. any idaes on how to script this to run on a standalone machine and in a domain? Tag: objComputer.UserName value is empty Tag: 211233
  - 21
    - WMI objects, objects properties, functions and methods Hi all I apologize for my ignorance but I am fairly new to using WMI in scripts (or VBA). I was just wondering if I could find a list of the WMI objects available, their properties, functions and methods. I have some basic info from lrnwmi.chm but need far more to get on. Any ideas as to where I could find such information? Thanks in advance for your help Cordially Pascal Tag: objComputer.UserName value is empty Tag: 211230
  - 22
    - API's not WebServices?? Hello All, I wanted to send sales order created by my website to my client's ERP system which is Desktop application. My client is going to provide API's for that but I would like to know how these two will communicate as their is no use of web services. Or anybody tell me how API's communicate in such situtation's or tell me what is internal architecture of API's(is their any protocol??). Thanks, Tag: objComputer.UserName value is empty Tag: 211229
  - 23
    - How to Update PDF file properties in the window systems using VBSc How to update the PDF file properties using vbscript with the PDF writer? I have a large number of PDF documents with incorrect Author, Title, subject and keywords. I would like to update it using VBScript, with or without a pdf writer installed. Tag: objComputer.UserName value is empty Tag: 211227
  - 24
    - Encapsulating Objects in Objects? I have an AppHandler class that I want to encapsulate other handler classes (GuiHandler, WmiHandler, etc.) as public properties of the object, so they can be used like this: Set oApp = new AppHandler oApp.NetworkHandler.PingIp sIp AppHandler, when created, would dynamically load and create the encapsulated objects. The concept works fine when applied to something like the native FileSystemObject: Dim oApp: Set oApp = new AppHandler If ( oApp.FileHandler.FileExists("network_handler.class.vbs") ) Then MsgBox("It works!") End If where FileHandler above is a public variable set in the Class_Initialize method: Set FileHandler = CreateObject ("Scripting.FileSystemObject") But in trying to extend this concept to my own classes, I'm running into problems. The following works (add_module dynamically loads the file using ExecuteGlobal): Dim oApp: Set oApp = new AppHandler oApp.add_module("network_handler.class.vbs") Set oApp.NetworkHandler = new NetworkHandler But if I try to internalize this within a public Load method that calls this private method: Private Sub m_load_network_handler add_module(m_nh_path) Set NetworkHandler = New NetworkHandler NetworkHandler.debug = debug NetworkHandler.print_d("NetworkHandler child object loaded") End Sub I get an error: "Class Not Defined: NetworkHandler". I've tried a few workarounds, but nothing has succeeded yet and they tend to lead me away from my original concept. Can someone point out my error to me? Is there a scoping issue with ExecuteGlobal being used inside a private method? Thanks, Tom Tag: objComputer.UserName value is empty Tag: 211224
  - 25
    - How To Update File properties How can I update the file properties under the window file systems? I can find the method GetDetailsof under Shell.Application.Namespace to retrieve the file properties, but I can't find the method to update it. Tag: objComputer.UserName value is empty Tag: 211222
- Next
  - 1
    - ACLing the MSMQ Hi all, I wrote a script that creates a private Message Queue but I am having a problem giving an individual user full access permissions to this Queue. I looked it up online and I haven't had much success as far as non C++ and C# exists (http://msdn2.microsoft.com/en-us/library/ms706138.aspx) Does anyone know how I can do this? I am somewhat new to scripting but I can kind of understand code by looking at it and I am pretty good at working "Cut and Paste Magic" Thanks in advance! Jim Tag: objComputer.UserName value is empty Tag: 211213
  - 2
    - vbscript, how to define font I have a script that sends an e-mail upon completion. I was hoping to define different font values (color, bold etc...) and quite frankly don't know how. Can anyone point me in the right direction? A tutorial site or something? Thanks, Jeff Tag: objComputer.UserName value is empty Tag: 211211
  - 3
    - Install Fonts Hi Everyone, Could you please advise how I can install fonts via a script? I have a folder full of fonts that I want to install on each computer via AD. Any assistance is greatly appreciated. Thank you in advance, D Tag: objComputer.UserName value is empty Tag: 211209
  - 4
    - html link to start EXPLORE.exe Hi Is it any way I can make an active link (on a html page) which make a command starts when clicked on. It should operate just the way it works when it does when I put into CMD: %SystemRoot%\explorer.exe /n, /e, C:\Documents and Settings\Administrator ( or like this one: %comspec% /c ping -n ) Any suggestions? Tag: objComputer.UserName value is empty Tag: 211207
  - 5
    - Verify existence of computer object I'm writing a script that will allow a Help Desk user delete an Active Directory computer object prior to its re-imaging. My script binds to the containing OU then calls the Delete method of that OU, naming the computer object to be deleted. The script works fine. My question regards error-handling in the case that the computer object has already been deleted from Active Directory (say, the user already ran the script). The default error message is verbose, but probably a little scary to a non-scripter. I've been trying to find a way to verify the existence of a computer object BEFORE attempting to delete it so that I can include my own error message. (The Err object seems to have a blank description when a deletion fails because the object doesn't exist.) What would be the easiest way of doing this? -- David Stardate 7793.8 Tag: objComputer.UserName value is empty Tag: 211205
  - 6
    - CDO.Message Font Question Is there a way for me to set different font options when using CDO.Message in a VBScript? For example if I want bold lettering. Thanks, Jeff Tag: objComputer.UserName value is empty Tag: 211204
  - 7
    - script to view connected wireless network? Hey all...I want to try to use a script that allows nontechnical / locked down users to know what wireless network they are connected to. Problem is sometimes a machine cant connect to an intended preffered wireless access point and the machine connects to some neighboring open point and the client doesnt notice until something goes wrong. Is that possible? Tag: objComputer.UserName value is empty Tag: 211193
  - 8
    - last login for only members of a group... i was asked by our audit compliance team to make sure that all of our contractors' domain accounts get disabled after 15 days of inactivity. they were initially in a sub-ou in active directory until i created a security group for them (which i've found makes for easier scripting). i'm fairly new to scripting, but i've managed to get a list of the users in the contractors group, and get the last logon date for all users in the domain. i can't seem to narrow the search to just members of the contractors group, though. script that follows lists all users in the domain that have a last logon date of over 15 days. any ideas? thanks in advance. Option Explicit Dim objRootDSE, strConfig, objConnection, objCommand, strQuery Dim objRecordSet, objDC, strgivenName, strSN, objExcel Dim strDNSDomain, objShell, lngBiasKey, lngBias, k, arrstrDCs() Dim strDN, dtmDate, objDate, lngDate, objList, strUser, strExcelPath Dim strBase, strFilter, strAttributes, lngHigh, lngLow, Row Dim objRange, objRange2, objRange3, arrInt Dim arrUserSN() Dim arrUsergivenName() Dim arrDN() Dim arrdtmDate() ' Use a dictionary object to track latest lastLogon for each user. Set objList = CreateObject("Scripting.Dictionary") objList.CompareMode = vbTextCompare ' Obtain local Time Zone bias from machine registry. Set objShell = CreateObject("Wscript.Shell") lngBiasKey = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _ & "TimeZoneInformation\ActiveTimeBias") If UCase(TypeName(lngBiasKey)) = "LONG" Then lngBias = lngBiasKey ElseIf UCase(TypeName(lngBiasKey)) = "VARIANT()" Then lngBias = 0 For k = 0 To UBound(lngBiasKey) lngBias = lngBias + (lngBiasKey(k) * 256^k) Next End If ' Determine configuration context and DNS domain from RootDSE object. Set objRootDSE = GetObject("LDAP://RootDSE") strConfig = objRootDSE.Get("configurationNamingContext") strDNSDomain = objRootDSE.Get("defaultNamingContext") ' Use ADO to search Active Directory for ObjectClass nTDSDSA. ' This will identify all Domain Controllers. Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = "<LDAP://" & strConfig & ">" strFilter = "(objectClass=nTDSDSA)" strAttributes = "AdsPath" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 60 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute ' Enumerate parent objects of class nTDSDSA. Save Domain Controller ' AdsPaths in dynamic array arrstrDCs. k = 0 Do Until objRecordSet.EOF Set objDC = _ GetObject(GetObject(objRecordSet.Fields("AdsPath")).Parent) ReDim Preserve arrstrDCs(k) If Left(objDC.DNSHostName,2) > "L0" And Left(objDC.DNSHostName, 2)< "L7" Then arrstrDCs(k) = objDC.DNSHostName k = k + 1 objRecordSet.MoveNext Else objRecordSet.MoveNext End If Loop ' Retrieve lastLogon attribute for each user on each Domain Controller. For k = 0 To Ubound(arrstrDCs) strBase = "<LDAP://" & arrstrDCs(k) & "/" & strDNSDomain & ">" strFilter = "(&(objectCategory=person)(objectClass=user))" strAttributes = "distinguishedName,lastLogon,givenName,SN" strQuery = strBase & ";" & strFilter & ";" & strAttributes _ & ";subtree" objCommand.CommandText = strQuery On Error Resume Next Set objRecordSet = objCommand.Execute If Err.Number <> 0 Then On Error GoTo 0 Wscript.Echo "Domain Controller not available: " & arrstrDCs(k) Else On Error GoTo 0 arrInt = 0 Do Until objRecordSet.EOF If Left(objRecordSet.Fields("distinguishedName"),5) >= "CN=L0" And Left(objRecordSet.Fields("distinguishedName"),5) <= "CN=L6"Then ReDim Preserve arrUserSN(arrInt) ReDim Preserve arrUsergivenName(arrInt) ReDim Preserve arrDN(arrInt) ReDim Preserve arrdtmDate(arrInt) strDN = objRecordSet.Fields("distinguishedName") arrDN(arrInt) = strDN strgivenName = objRecordSet.Fields("givenName") arrUsergivenName(arrInt) = strgivenName strSN = objRecordSet.Fields("SN") arrUserSN(arrInt) = strSN lngDate = objRecordSet.Fields("lastLogon") On Error Resume Next Set objDate = lngDate If Err.Number <> 0 Then On Error GoTo 0 dtmDate = #1/1/1601# Else On Error GoTo 0 lngHigh = objDate.HighPart lngLow = objDate.LowPart If lngLow < 0 Then lngHigh = lngHigh + 1 End If If (lngHigh = 0) And (lngLow = 0 ) Then arrdtmDate(arrInt) = #1/1/1601# Else arrdtmDate(arrInt) = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow)/600000000 - lngBias)/1440 End If End If If objList.Exists(arrDN(arrInt)) Then If arrdtmDate(arrInt) > objList(arrDN(arrInt)) Then objList(arrDN(arrInt)) = arrdtmDate(arrInt) End If Else objList.Add arrDN(arrInt), arrdtmDate(arrInt) End If arrInt = arrInt + 1 objRecordSet.MoveNext Else objRecordSet.MoveNext End If On Error Resume Next Loop End If 'End If Next Set objExcel = CreateObject("Excel.Application") objExcel.Workbooks.Add' strExcelPath objExcel.Visible = "True" Set objExcel = objExcel.ActiveWorkbook.Worksheets(1) row = 2 'objExcel.ActiveWindow.FreezePanes = False objExcel.Columns(1).ColumnWidth = 75 objExcel.Columns(2).ColumnWidth = 25 objExcel.Columns(3).ColumnWidth = 25 objExcel.Columns(4).Columnwidth = 20 objExcel.Cells(1,1).Font.Bold = True objExcel.Cells(1,2).Font.Bold = True objExcel.Cells(1,3).Font.Bold = True objExcel.Cells(1,4).Font.Bold = True objExcel.Cells(1,1).value = "User Login ID" objExcel.Cells(1,2).value = "First Name" objExcel.Cells(1,3).value = "Last Name" objExcel.Cells(1,4).value = "Last Logon Time" ' Output latest lastLogon date for each user. arrInt = 0 For Each strUser In objList If Date - objList(strUser) >= 15 Then ' objExcel.Cells(Row,1).value = arrDN(arrInt)'strUser objExcel.Cells(Row,3).value = arrUserSN(arrInt) objExcel.Cells(Row,2).value = arrUsergivenName(arrInt) If objList(strUser) > "1/1/1601" Then objExcel.Cells(Row,4).value = objList(strUser) Else objExcel.Cells(Row,4).value = "Never" End If arrInt = arrInt + 1 Row = Row + 1 End If Next Set objRange = objExcel.Range("A1").SpecialCells(11) Set objRange2 = objExcel.Range("D1") Set objRange3 = objExcel.Range("A1") objRange.Sort objRange2,,,,,,,1 Wscript.Echo "Done" ' Clean up. objConnection.Close Set objRootDSE = Nothing Set objConnection = Nothing Set objCommand = Nothing Set objRecordSet = Nothing Set objDC = Nothing Set objDate = Nothing Set objList = Nothing Set objShell = Nothing Tag: objComputer.UserName value is empty Tag: 211192
  - 9
    - Detect shutdown type I have a shutdown script through Group policy that does some tidying up and defrags the hard drives before allowing the shutdown to complete. However if a user is just doing a restart this is a real pain. Is there anyway to detect that the user has selected shutdown and not restart? Thanks Huw Tag: objComputer.UserName value is empty Tag: 211190
  - 10
    - Script To Determine If A Workstation Is Up I have a script that verifies who is logged on to a remote workstation (by checking for the explorer process and checking the owner). I check for an error on the query which will tell me if the machine is not up (or at least not on the network). It is working pretty well, but in the case of a workstation not being up it can take a minute or two to fail and then report that the machine is not up. I'm wondering if anyone knows of a faster way to determine if a machine is up or not. Currently I am checking the error status of a line that reads like this: Set objWorkStation = GetObject("winmgmts:\\" & strWorkStation & "\root \cimv2") Any thoughts or suggestions are appreciated. Thanks. David E. Thomas Tag: objComputer.UserName value is empty Tag: 211189
  - 11
    - Problem with createElement("select") and onclick or onChange Hi, I have writen an hta application and i want to create some drop down. Creation of the drop down --> OK creation of options --> OK creation of the onClick/onchange event --> NOK I tried this : set objSelect.onChange = test("toto") --> error : type mismatch : 'test' set objSelect.onClick = test("toto") --> error : type mismatch : 'test' objSelect.onChange = test("toto") --> error : type mismatch : 'test' objSelect.onChange = function () { test("toto") } --> error : syntax error How can i set an onClick/onChange attribute ?? Here is my code : set objSelect = document.createElement("select") objSelect.name = "toto" objSelect.multiple = true objSelect.size = 10 objSelect.onChange = test("toto") set objOption = document.createElement("option") objOption.text = "text" objOption.value = "value" objSelect.options.add(objOption) spanSelect.appendChild(objSelect) sub test(v) msgbox (v) end sub Tag: objComputer.UserName value is empty Tag: 211183
  - 12
    - copy a file to a location for all PCs in dommain Hi, Can I have a script that scans all PCs in a domain and checks the existance of a file in %winroor%\system32, if not copies the file to that location? Thanks in advance, Tag: objComputer.UserName value is empty Tag: 211180
  - 13
    - Vbscript code to add and remove items from a listbox Hi, I have written one function in vbscript to add items to a listbox(on checking of a checkbox).Now i want to remove items from the listbox(on unchecking the checkbox).i want to do this in the below function after adding the items.Can anybody please help me out as its very urgent. <script language=vbscript event=uncheck for=FileListTreeView> Dim SelectedNode Dim strGetItems Dim alist Dim newOption Set SelectedNode = FileListTreeView.getTreeNode(window.event.TreeNodeIndex) strGetItems = SelectedNode.getAttribute("id") Set alist = document.getElementById("lstMultipleFileUpload") If (SelectedNode.getAttribute("Unchecked"))Then Set newOption = document.createElement("option") newOption.text = strGetItems alist.remove(newOption) End If </script> This is my listbox <SELECT id=lstMultipleFileUpload style="WIDTH: 450px; HEIGHT: 415px" size=26 name=lstMultipleFileUpload runat="server"> <option value=""></OPTION></SELECT> Tag: objComputer.UserName value is empty Tag: 211179
  - 14
    - TR Align Stopped Working In Windows 2000 this code would center my graphics, in XP and Vista it aligns to the right. <Table> <TR Align = "Center"> <TD Width="16%"><Img Src="/Tivities/CTFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/MEFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="15%"><Img Src="/Tivities/MAFLAG.gif" Height="66" Width="100"> <TD Width="2%"> <TD Width="15%"><Img Src="/Tivities/NHFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/RIFLAG.gif" Height="66" Width="100"> <TD Width="1%"> <TD Width="16%"><Img Src="/Tivities/VTFLAG.gif" Height="66" Width="100"> </TR> </Table> What do I need to change to make it work in XP and Vista? Thanks in Advance Granny Tag: objComputer.UserName value is empty Tag: 211159
  - 15
    - VBScript, OpenTextFile(), Strings and Unicode - Possible? Hi, I've written a VBScript to manually update the version number in an AssemblyInfo.cs file. But all I get from the ReadAll() function is rubish. The string I'm assigning the function result to only contains loads of empty squares when watched from within Visual Studio Debugger. I can't even write the string back without modifications into the AssemblyInfo.cs file. Visual Studio shows only a bunch of Chinese characters when opening the saved file. (Perhaps the result of a new espionage attempt by the Axis of Evil? :) ) Moreover, I cannot modify the string. To VBScript the string doesn't seem contain anything near to a valid character. Can anybody help me on how to access and save the Unicode file's content from within VBScript? TIA, Axel Dahmen -------- Here's my test source code: ' VBScript source code Const ForReading = 1, ForWriting = 2, TristateTrue = -1 Dim fso,stream,strg,re Set fso = CreateObject("Scripting.FileSystemObject") Set stream = fso.OpenTextFile("C:\Temp\AssemblyInfo.cs",ForReading,False,TristateTrue) strg = stream.ReadAll() stream.Close Set stream = Nothing Set re = New RegExp re.Global = True re.IgnoreCase = False re.Multiline = True re.Pattern = "\d+\.\d+\.\d+\.\d+" strg = re.Replace(strg,"9.9.9.9") Set stream = fso.OpenTextFile("C:\Temp\AssemblyInfo2.cs",ForWriting,True,TristateTrue) stream.Write(strg) stream.Close Set stream = Nothing Tag: objComputer.UserName value is empty Tag: 211158
  - 16
    - Size of Graphics and Text I am getting some complaints about how my pages are looking around the school district. On some XP machines (not all) and Vista machines my graphics are appearing very small, about 15% of the size on the 2000 machines. Also my text is smaller. Example: Enter Student ID - |text Box Here| appears as Enter Student ID - |Text Box Here| What do I need to change so that my pages appear the same on all of the machines? Thanks for any help in advance Granny Tag: objComputer.UserName value is empty Tag: 211155
  - 17
    - Export Active Directory Hi all, I would like to develop a VBScript in order to export the content from different organisational units within Active Directory. I would like this script to be able to run on Windows XP SP2 and Windows Server 2003 Operating Systems. Within Active Directory I have an organisational unit which is called ComputersGPO with other organisational units within representing room numbers. I would like to export the names of the organisational units into a CSV file and then get all the data from within everyone of those organisational units in one go without me having to put the actual name of each organisation unit I want to export. I have not got a clue but how I would do this so any help in this matter would be highly appreciated. Thank you Tag: objComputer.UserName value is empty Tag: 211154
  - 18
    - Determining Permission Inheritaance I have a very large shared folder, 68GB - 10,000 sub-folders - 115,000 files. For the past few years permissions on this share have been controlled by the share owner. Needless to say the permissions are a mess, there were no groups created so users have been added directly to folders at various levels. I have been tasked with cleaning up the mess with very minimal impact to the users. I tried writing a script to determine permissions using <see below> but, due to the size of the share, the script isn't practical. I need to write a script that can look at inheritance and output a list of permissions that are not being inherited from the parent. Basically something that shows me where permissions are explicitly granted. Is this possible or am I stuck with an impossible task? SE_DACL_PRESENT = &h4 ACCESS_ALLOWED_ACE_TYPE = &h0 ACCESS_DENIED_ACE_TYPE = &h1 FILE_DELETE = &h010000 FILE_READ_CONTROL = &h020000 FILE_WRITE_DAC = &h040000 FOLDER_ADD_FILE = &h000002 Thanks in Advance. Kevin Tag: objComputer.UserName value is empty Tag: 211152
  - 19
    - Create Object of an Application type and invoke on Remote Computer Hi Friends, Badly need help in this case, I have a software installed on a remote computer and I want to create object of that application type and invoke it on that machine from local machine. I was successfully able to modify DCOM object on the remote machine to allow connection.. here is what I achieved.. I am able to create object and invoke the application on the remote machine only if I have the same application installed on the local machine. If I dont have that application installed on local system then it gives me Active X cannot Create Object. Dim qtApp Set qtApp = CreateObject("Application","Remote_Machine_Name") qtApp.Launch qtApp.Visible = TRUE The above code works only if I have that application installed on my local machine. I also tried using remote Scripting object and placed the code above in the remote mahine into a file called remote.vbs. I am using the code below to run the remote.vbs on the remote machine..... Set objController = CreateObject("WshController") Set objRemoteScript = objController.CreateScript("C:\remote.vbs","Remote_Machine_Name") objRemoteScript.Execute It gives me the same error ActiveX cannot create Object and sometimes doesn't even throw any object. Is there any COM/DCOM changes that I need to do .. would really appreciate ur comments Thanks Tag: objComputer.UserName value is empty Tag: 211150
  - 20
    - MS Vista and the Class MSSOAP.SoapClient Hi, in Windows XP i access to my webservice with the following VB-Script-Code: dim osoapClient Set osoapClient = CreateObject("MSSOAP.SoapClient") osoapClient.mssoapinit "http://exch2003/exchwebservice/service1.asmx?WSDL" in Vista doesn't exist the Class "MSSOAP.SoapClient". How can i access to the Webservice in Vista? thx & bye Oskar Tag: objComputer.UserName value is empty Tag: 211147
  - 21
    - XML to ADO Recordset Hello All, I am trying to import an xml file that I created into a Recordset. Found some code only but seem to be have a little trouble. Sub On_Load() Dim adoRS 'ADODB.Recordset Set adoRS = CreateObject("ADODB.Recordset") adoRS.Open "C:\Users\tmaiden\Documents\jmc\settings \Spells.xml","Provider=MSDAOSP; Data Source=MSXML2.DSOControl.2.6;" End Sub Provider Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. Line:18 Error:0 Scode:80040e21 Any ideas? Tag: objComputer.UserName value is empty Tag: 211145
  - 22
    - Unable to pass parameter with spaces to VBSCript Sub I have no idea as to why or what's going on, however the code below doesn't work when the parameter contains spaces. I'm at a lost as to why. The first example Test_No_Spaces works fine, the other doesn't. Any ideas? <html> <head> </head> <body> <span onClick = openFile("Test_No_Spaces")>Test No Spaces</span><br><br> <span onClick = openFile("Test With Spaces")>Test With Spaces</span><br> <script type="text/vbscript"> function openFile (fileName) msgbox fileName end function </script> </body> </html> Tag: objComputer.UserName value is empty Tag: 211140
  - 23
    - Exporting Active Directory Hi all. I would like to develop a VBScript that is able to run on a Windows XP SP2 computer and on a Windows Server 2003 Operating System. Within Active Directory there is an organisation unit which is called ComputersGPO and within that OU there are other other Organisation Units representing the room numbers. I would like to export the names of the organisational units within the ComputersGPO organisational unit and then export the data out of each of these organisational units at once. Is this possible? Any help in this matter would be highly appreciated. Thank you Tag: objComputer.UserName value is empty Tag: 211126
  - 24
    - shortcut to mapped drive by machine group I have the following which works but the shortcut won't mapped to the desktop. Th e mapped drive is fine even know it says "Disconnected Network Drive: 'The Distinguished Name of the group containing the computers. strGroup = "cn=ScriptMap,cn=Users,dc=bst,dc=local" 'Determines the local computername Set objNet = CreateObject("Wscript.Network") strComputerName = objNet.ComputerName Set objGroup = GetObject ("LDAP://" & strGroup) For Each objComputer in objGroup.Members If objComputer.Class = "computer" And objComputer.CN = strComputerName Then 'map network drive objNet.MapNetworkDrive "S:", "\\Bst-main\Student\_Reception\Yr R 2007 - 2008", "True" Wscript.Sleep (5000) 'create a icon on the desktop Set WshShell = CreateObject("WScript.Shell") DesktopPath = WshShell.SpecialFolders("Desktop") Set link = WshShell.CreateShortcut(DesktopPath & "\Yr R 2007 - 2008.lnk") link.Description = "User Share Drive" link.HotKey = "CTRL+ALT+SHIFT+T" link.IconLocation = "explorer.exe,0" link.TargetPath = "S:" link.WindowStyle = 3 link.Save End If Next Tag: objComputer.UserName value is empty Tag: 211117
  - 25
    - Access Error 047-ASDFG I have a working script that uses WMI querries to write inventory to a file. Running the script, I get a few 0x80041003 messages signifying I don't have admi rigts to the box. It's good to know this info obviously. But everytime I get the message, the script stops, I have to cut and past the offending machine's name to another file, and then start over. Should I be able to add an If Then statement that reads something like If I don't have admin rights to the box Then write the computer name to a file and try the next box on the list End If Tag: objComputer.UserName value is empty Tag: 211115

When running this script the objComputer.UserName value is empty

Option Explicit
Dim objWMIService, objComputer, colComputer, strComputer

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
Wscript.Echo objComputer.UserName & " is logged on"
Next

Top

Re: objComputer.UserName value is empty by Al

Al
Mon Oct 22 16:55:44 PDT 2007

"Gert Albertse" <gjja@sun.ac.za> wrote in message
news:1193043478.136504.14550@z24g2000prh.googlegroups.com...
> When running this script the objComputer.UserName value is empty

Do you have a question, or are you just making a comment?

/Al

> Option Explicit
> Dim objWMIService, objComputer, colComputer, strComputer
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" _
> & strComputer & "\root\cimv2")
> Set colComputer = objWMIService.ExecQuery _
> ("Select * from Win32_ComputerSystem")
>
> For Each objComputer in colComputer
> Wscript.Echo objComputer.UserName & " is logged on"
> Next
>

Top