I have just experienced a problem while trying to read a text file by vbscript.
When I echo lines to screen I saw an empty line shows ÿþ, an...
Const ForReading = 1
Const TristateUseDefault=-2
Dim objFSO
Set objFile = objFSO.OpenTextFile("C:\WDSPendingDevices.txt", ForReading, True, TristateUseDefault)
Osman Shener's Blogs and Articles (EN): VBScript : OpenTextFile Weird/Bad Characters:
Showing posts with label vbscript. Show all posts
Showing posts with label vbscript. Show all posts
Saturday, January 28, 2012
Thursday, December 22, 2011
Update teh Active Directory terminal Session Properties
Set objParent = GetObject("ldap://OU=Level/ 02,OU=Security - Administrator Accounts,DC=XenWorld")
objparent.Filter = Array("user")
for each objUser in objParent
Wscript.Echo "Modifying|" & objUser.Get("CN")
'SESSIONS ATTRIBUTES
objUser.MaxDisconnectionTime = 2880 'In Minutes
objUser.MaxIdleTime = 2880 'In Minutes
objUser.MaxConnectionTime= 0 'active connections okay
objUser.BrokenconnectionAction = 0 '0=Disconnect, 1=End
objUser.SetInfo
next
Details on more properties:
http://www.virtualizationadmin.com/articles-tutorials/terminal-services/scripting/scripting-server-based-computing-terminal-services-attributes-active-directory-user-objects.html
objparent.Filter = Array("user")
for each objUser in objParent
Wscript.Echo "Modifying|" & objUser.Get("CN")
'SESSIONS ATTRIBUTES
objUser.MaxDisconnectionTime = 2880 'In Minutes
objUser.MaxIdleTime = 2880 'In Minutes
objUser.MaxConnectionTime= 0 'active connections okay
objUser.BrokenconnectionAction = 0 '0=Disconnect, 1=End
objUser.SetInfo
next
Details on more properties:
http://www.virtualizationadmin.com/articles-tutorials/terminal-services/scripting/scripting-server-based-computing-terminal-services-attributes-active-directory-user-objects.html
Subscribe to:
Posts (Atom)