Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations John Tel on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by hartlen

  1. hartlen

    How do I add another local admin group on new machines??

    you can write a vb script to do this strComputer ="computername" Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators,group") Set objUser = GetObject("WinNT://domain/groupname, group") objGroup.Add(objUser.ADsPath) this is not a login script ,you can execute it with the domain...
  2. hartlen

    how to prevent domain user from accessing the fileserver

    can you tell me how to do at length,I never touch the dhcp,can you tell me how to do ! thank you vary much !
  3. hartlen

    how to prevent domain user from accessing the fileserver

    my fileserver is a cluster, all files are shared on one network disk matrix, when their computer joined the domain ,the network drive will map to their local computer,the domain users can access the file directly ,but if they dont join their computer in the domain ,they can access the shared...
  4. hartlen

    how to prevent domain user from accessing the fileserver

    how to prevent domain user from accessing the fileserver with the non domain computer! in my company ,some users dont join their computers in the domain ,but they can access the fileserver with the domain users ,how to prevent it ? how to make them can't access the fileserver
  5. hartlen

    I have a problem in Shared Folders

    you can create the shared folder using Cluster Manager,that can resolve this problem.
  6. hartlen

    how to control a folder security

    hello! i want to show a shared folder's security attribute ,such as who can read the file in which folder; who can write the a new file into the folder ;who can have the complete control; can i do this with the vbscrip ,my boss want me to write a program to control the shared folders
  7. hartlen

    install a software on the domain computer!

    how can i install a software on the domain computer whit a .exe file ,can i use the policy to do this ,i try to write a startup script but it cannt run ,my script likes this, where errores. set WshShell = CreateObject("WScript.Shell") WshShell.run "runas /user:sins\installer ""cmd /c...
  8. hartlen

    the startup script canot work !

    I want to install a .exe file in the domain ,so i want to use the runas to give the privilege and install, my program is following set WshShell = CreateObject("WScript.Shell") WshShell.Run "D:\setup\msi_PCAlert4073\Setup.exe -s -f1D:\setup\msi_PCAlert4073\setup.iss" but it does not...
  9. hartlen

    when a user login ,make it logoff ?

    if i want to let someaccount access the AD,but limit its time,when the time expires i want to logoff it forcely
  10. hartlen

    how can i draw a chart with the vbs ?

    Hello tsuji, thank you very much! i have read the page ,but i canot learn very much ,if i want to draw a line or curve ,how can i do ! i know if i use the vs c++ it is very easy ,but my boss let me do it with vbscripting . thanks.
  11. hartlen

    how can i draw a chart with the vbs ?

    when i get the uses percence of CPU and memory .I want to make it a chart to leader,how can i do with the vbs. thanks for all
  12. hartlen

    delete the group the user belongs to by the user object

    hello mrmovie you have learn my ideal,now i have rewrite like as but i think it does well ,i want to improve it efficiently 'delete all group the user belong to except the Domain Users and Admins For Each oGroup In oUser.groups if ( oGroup.name <> "CN=Domain Users" and...
  13. hartlen

    delete the group the user belongs to by the user object

    set oUser=GetObject("LDAP://cn=s040695"_ & ",ou=TestsinomosAccounts,dc=testsinomos,dc=com") Set oDomain = GetObject("WinNT://testsinomos") 'make sure the user have not belonged to the group For Each oGroup In oUser.groups if ( oGroup.name <> "Domain Users" and oGroup.name...
  14. hartlen

    winnt and ladp!

    to tsuji thank you very much
  15. hartlen

    winnt and ladp!

    set oDomain = GetObject("WinNT://testsinomos") set oUser =oDomain.GetObject("User","s040695") 'wscript.echo err.number oUser.put "title", "stitle" oUser.setinfo warning the line 4 have a error , but when i try with the echo err.number it returns 0,what errors ? whether the winnt are the same...

Part and Inventory Search

Back
Top