vbs script

Arkadaşlar aşağıdaki  1 - kodu yazınca çalışyor fakat 2. kodu yazdığımda "Domian\Domain Users"  ( " " )yüzünden hata veriyor nasıl yazmam gerekli acaba.  

1- 

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users Domain\Administrator /delete ")

 2-

 Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users "Domian\Domain Users" /delete ")

Merhaba,

Script center'ı incelemende fayda var.Mutlaka içerisinde vardır.

http://www.microsoft.com/technet/scriptcenter/default.mspx

Arkadaşlar aşağıdaki  1 - kodu yazınca çalışyor fakat 2. kodu yazdığımda "Domian\Domain Users"  ( " " )yüzünden hata veriyor nasıl yazmam gerekli acaba.  

 

1- 

Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users Domain\Administrator /delete ")

 2-

 Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("cmd /K CD C:\ & net localgroup users "Domian\Domain Users" /delete ")

 

 Domian şeklinde yazılmış Domain olarak değiştirip deneyiniz.

Script center ta bulamadığım için buraya yazdım.

Domian = Domain adı olarak yanlışlıkla yazılmış harf hatası..

Script ile ne yapmak istiyorsunuz?

http://technet.microsoft.com/en-us/library/bb490706.aspx

Scripti GPO ile dağıtıp clientların localinde users altında Domain users grubu ekli ise bunları silmek..

Bu işinizi görür mü?

The syntax of this command is:

NET LOCALGROUP [groupname [/COMMENT:"text"]] [/DOMAIN]

              groupname {/ADD [/COMMENT:"text"] | /DELETE} [/DOMAIN]

              groupname name [...] {/ADD | /DELETE} [/DOMAIN]

As an example, what I've added in the past to "add" certain users and groups

to another group:

net localgroup administrators "mydomainname\Domain Admins" /ADD

:end

This should be just as easy to run to remove someone:

net localgroup administrators "mydomainname\Domain Users" /delete

:end

http://www.microsoft.com/technet/scriptcenter/resources/qanda/dec05/hey1212.mspx

How Can I Delete Everyone Except the Administrator and the Domain Admins Group from the Local Administrators Group?

Hocam Selam ,

Mesaj scripti nasıl yapıyorduk? Yani kullanıcı script dosyasına tıkladığında bir mesaj yazısı çıksın. Örnek Çözüm Park gibi. 

Hocam Selam ,

 

Mesaj scripti nasıl yapıyorduk? Yani kullanıcı script dosyasına tıkladığında bir mesaj yazısı çıksın. Örnek Çözüm Park gibi. 

http://www.microsoft.com/technet/scriptcenter/resources/qanda/jan05/hey0117.mspx Şirket politikası benzeri için güzel bir uygulama.

http://www.microsoft.com/technet/scriptcenter/resources/qanda/mar05/hey0314.mspx

öncelikle teşekkürler.

Aşağıdaki kod Users grubu altında Domain User Dışındaki tüm kullanıcıları siliyor benim istediğim ise sadece Users altındaki Domain Users grubunu  silmek.. 🙁

strComputer = "."

Set objGroup = GetObject("WinNT://" & strComputer & "/Users")

For Each objUser In objGroup.Members
    If objUser.Name "Domain Users"
        objGroup.Remove(objUser.AdsPath)
    End If
Next

Merhaba.

Script'i aşağıdaki şekilde düzenlerseniz, istediğiniz olur.

strComputer = "."

Set objAdmins = GetObject("WinNT://" & strComputer & "/Users")
Set objGroup = GetObject("WinNT://cozumpark/domain users")
objAdmins.Remove(objGroup.ADsPath)

Hocam Selam ,

 

Mesaj scripti nasıl yapıyorduk? Yani kullanıcı script dosyasına tıkladığında bir mesaj yazısı çıksın. Örnek Çözüm Park gibi. 

Basitçe;

Msgbox "Türkiyenin Bilişim Portalı: ÇözümPark"

serhat hocam ;

mesajı şöyle değiştirsek nasıl olur?

Msgbox "Türkiye'nin Bilgi İşlem Departmanı : ÇözümPark"

:)))