Forum
ben sitemdeki sub domainleri aratmak istiyorum eğer varsa var.php dosyasına gitsin yoksa yok.php dosyasına gitsin bunu nasıl yapabilirim örnek verecek olursak burak.burakozoral.com sub domainini aratacak birisi eğer bu sub domain varsa var.php yoksa yok.php ye gitsin lütfen çok acil lazım
Merhabalar,
Web sunucu ve çalıştığınız platform hakkinda detaylari alabilirsek daha net çözüm üretebiliriz. Microsoft IIS mi, Linux mu, versiyon bilgisi vb. bilgilerinizi bekliyorum.
Mesut Aladağ.
Microsoft MVP
Apache version 2.2.17 PHP version VE LİNUX TUR YARDIMLARINIZI BEKİYORUM |
|
Dim objNameSpace
Dim Domain
aranan=InputBox("Domain Adını giriniz","Data girişi")
Set objNameSpace = GetObject("WinNT:")
For Each objDomain In objNameSpace
if objDomain.Name=aranan then
WScript.Echo "DOMAIN VAR: " & objDomain.Name
Set Sh = WScript.CreateObject("WScript.Shell")
Sh.Run "VAR.ASP", 3
else
Set Sh = WScript.CreateObject("WScript.Shell")
Sh.Run "YOK.ASP", 3
end if
Next
kodu kullanacağız ortam vb scripti destekliyor ise yukarıdaki kodu kullanabilirsiniz.